; TileImage Example
; -----------------

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

star=LoadImage("media/star1.bmp")
player=LoadImage("media/player.bmp")

far_y#=0
near_y#=0

While Not KeyDown(1)

    Cls

    ; Two tiled layers scrolling at different speeds - instant parallax.
    ; TileImage repeats the image across the whole screen from an offset.
    far_y=far_y+0.5
    near_y=near_y+2
    TileImage star,0,far_y
    TileImage star,16,near_y

    ; The ship cruises over the starfield
    DrawImage player,MouseX(),MouseY()

    Text 0,0,"Move the mouse to fly   Esc: exit"
    Text 0,20,"TileImage star,0,"+Floor(near_y)+" - one small star fills the screen"

    Flip

Wend

End