; ImageXHandle Example
; --------------------

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

player=LoadImage("media/player.bmp")   ; a 32x36 ship sprite
mode=0

While Not KeyDown(1)

    Cls

    ; Space cycles the handle: top-left, centre, bottom-right
    If KeyHit(57) Then mode=(mode+1) Mod 3
    If mode=0 Then HandleImage player,0,0
    If mode=1 Then MidHandle player
    If mode=2 Then HandleImage player,32,36

    ; A crosshair marks the draw point; the handle decides the offset
    x=MouseX()
    y=MouseY()
    DrawImage player,x,y
    Color 255,255,0
    Line x-10,y,x+10,y
    Line x,y-10,x,y+10

    Text 0,0,"Move mouse   Space: change the handle   Esc: exit"
    ; ImageXHandle reads back the handle position set above
    Text 0,20,"ImageXHandle(player)="+ImageXHandle(player)+"   ImageYHandle(player)="+ImageYHandle(player)

    Flip

Wend

End