; CreateImage Example
; -------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

; Create a blank 64x64 image - no file needed
target=CreateImage(64,64)

; Paint a target sprite into the new image with drawing commands
SetBuffer ImageBuffer(target)
Color 255,0,0
Oval 2,2,60,60,True
Color 255,255,255
Oval 12,12,40,40,True
Color 255,0,0
Oval 22,22,20,20,True
SetBuffer BackBuffer()

; Start it bouncing around the screen
x#=100
y#=100
dx#=3
dy#=2

While Not KeyDown(1)

    Cls

    x=x+dx
    y=y+dy
    If x<0 Or x>576 Then dx=-dx
    If y<0 Or y>416 Then dy=-dy

    DrawImage target,x,y

    Text 0,0,"Esc: exit"
    Text 0,20,"target=CreateImage(64,64) - painted with Oval, then drawn like any image"

    Flip

Wend

End