to bitmaptest cs setpc rgb 1 0 0 repeat 3 [ fd 100 rt 120 ] ::b=bitCopy 102 102 c=b home fd 200 bitpaste b rt 90 fd 200 bitpaste c WindowMode clearScreen pu setXY -400 -300 pd ::buf=BitCopy 800 600 setpc RGB 0 1 0 pu home pd tree pu setXY -400 -300 pd ::bkgr=BitCopy 800 600 clearScreen pu setXY -400 -300 pd BitMakeTransparent b RGB 1 1 1 noRefresh setUpdateGraph false mx=BitMaxX buf my=BitMaxY buf repeat 200 [ x=mx/2+repcount y=my/2*(1+sqr repcount/200) BitPasteTo buf bkgr 0 0 BitPasteTo buf b x y BitPasteFast buf ; updateGraph ; waitms 10 if Key? [break] ] refresh end