Sorry your browser is not supported!

` Change the text color to blackish (so it's not transparent)
ink rgb(20,20,20),0

` Make any font changes
set text font "Comic Sans"
set text size 100

` Define the text
a$="Hello, BunnyB!"

` Get the size of the string
Width=text width(a$)
Height=text height(a$)

` Show the text
text 0,0,a$

` Grab the text as an image
get image 1,0,0,Width,Height,1

` Make the text a sprite
sprite 1,0,0,1

` Hide the sprite
hide sprite 1

` Offset the sprite so it rotates at the center
offset sprite 1,Width/2,Height/2

` Rotate the sprite at 45 degrees
rotate sprite 1,45

` Clear the screen with a white background
cls rgb(255,255,255)

` Paste the sprite to the center of the screen
paste sprite 1,screen width()/2,screen height()/2

` Delete the sprite
delete sprite 1

` Grab the new image for printing
get image 2,0,0,screen width(),screen height(),1

wait key

randomize timer()

` Set a small resolution
set display mode 640,480,32

` Create something to resize
for t=1 to 1000
 ` Randomly pick a color
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 ` Make a random sized box
 box rnd(640),rnd(480),rnd(640),rnd(480)
next t
` Grab the image (for later comparison)
get image 1,0,0,640,480,1

` Create a bigger bitmap
create bitmap 1,1024,768
` Copy bitmap 0 (the main screen) into the new bitmap
copy bitmap 0,0,0,640,480,1,0,0,1024,768
` Grab the resized image
get image 2,0,0,1024,768,1
` Go back to the main screen
set current bitmap 0
` Delete the new bitmap
delete bitmap 1

` Save the images
save image "ResizeTest1.png",1
save image "ResizeTest2.png",2

wait key