Find a Sbasic program attached. It's very slow and only works on 24 bit bmp's. P Witte wrote: > If theres anything out there that will convert bmp or png to QL pic > format I must have missed it! Can anyone help? > > Per > > > >
100 INPUT 'filename ',file_name$ 110 l=LEN(file_name$) 120 IF l>4 130 IF file_name$(l-3 TO)=='.bmp' OR file_name$(l-3 TO)=='_bmp' THEN file_name$=file_name$(1 TO l-4) 140 END IF 150 STOP 160 a=RESPR(1280*1024*3+54):b=RESPR(1280*3*1024):REMark max size 170 LBYTES file_name$&'.bmp',a 180 IF PEEK(a+28)<>24 THEN PRINT 'Not 24 Bit Image':STOP 190 w=PEEK(a+19)*256+PEEK(a+18):h=PEEK(a+23)*256+PEEK(a+22) 200 n=0 210 FOR y=h-1 TO 0 STEP -1 220 FOR x=0 TO w-1 230 addr=x*3+y*3*w+a+54 240 blue=PEEK(addr)&&248:ugreen=PEEK(addr+1)&&224:lgreen=PEEK(addr+1)&&24:red=PEEK(addr+2)&&248 250 POKE b+n,(lgreen*8+blue/8):POKE b+n+1,(ugreen/32+red):n=n+2 260 END FOR x 270 END FOR y 280 SBYTES file_name$&'.scr',b,n
