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