aUCBLogo Demos and Tests / bitpastetoscaledtest

to bitpastetoscaledtest
   clearScreen
   box
   PenUp setXY -10 -10
   bmp=BitCopy 200 200
   bmp2=BitCopy 200 200
   BitMakeTransparent bmp2 ScreenColor
   BitPasteToScaled bmp bmp2 (BitMaxX bmp)*0.1 (BitMaxY bmp)*0.1 0.9 0.9
   Home
   setXY -10 -10
   BitPaste bmp
   Home
   PenDown
end