aUCBLogo Demos and Tests / bitpastetotest2

to bitpastetotest2
   clearScreen
   setPenColor RGBA 0 0 1 0.8
   box
   PenUp setXY -10 -10
   bmp=BitCopy 200 200
   BitMakeTransparent bmp ScreenColor
   BitPasteTo bmp bmp (BitMaxX bmp)*0.05 (BitMaxY bmp)*0.03
   Home
   setXY -10 -10
   BitPaste bmp
   Home
   PenDown
end