; AutoMidHandle Example
; ---------------------

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

; AutoMidHandle affects images loaded AFTER it is called
AutoMidHandle False
corner=LoadImage("media/player.bmp")    ; handle at the default 0,0

AutoMidHandle True
centred=LoadImage("media/player.bmp")   ; handle at the image centre

angle#=0

While Not KeyDown(1)

    Cls

    ; Both ships are drawn at exactly the crosshair positions
    angle=angle+2
    y=240+30*Sin(angle)
    DrawImage corner,200,y
    DrawImage centred,440,y

    ; Crosshairs mark the draw positions
    Color 255,255,0
    Line 190,y,210,y
    Line 200,y-10,200,y+10
    Line 430,y,450,y
    Line 440,y-10,440,y+10

    Text 200,320,"AutoMidHandle False",True
    Text 440,320,"AutoMidHandle True",True

    Text 0,0,"Esc: exit"
    Text 0,20,"Same DrawImage position - only the automatic handle differs"

    Flip

Wend

End