aUCBLogo Demos and Tests / bitmaptest

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