aUCBLogo Demos and Tests / bitpastetoscaledtest2

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