REM Start of BASIC! Program GR.OPEN 255,0,0,0,0,1 GR.BITMAP.LOAD TmpPtrbck, "dr.jpg" GR.BITMAP.SIZE TmpPtrbck,w,h GR.BITMAP.CREATE bmpdest,w,h x1=w/3 x3=w/3*2 x2=0 x4=w FOR i=0 TO h-1 a=x1+(x2-x1)/h*i b=x3+(x4-x3)/h*i-a GR.BITMAP.CROP bmp3,TmpPtrbck,0,i,w-1,1 GR.BITMAP.SCALE bmp4,bmp3,b,1 GR.BITMAP.DRAWINTO.START bmpdest GR.BITMAP.DRAW vd,bmp4,a,i GR.BITMAP.DRAWINTO.END GR.BITMAP.DELETE bmp4 GR.BITMAP.DELETE bmp3 NEXT i GR.BITMAP.DRAW gob,bmpdest,0,0 GR.RENDER DO PAUSE 100 UNTIL 0