; EntityAutoFade Example
; ----------------------

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

camera=CreateCamera()
PositionEntity camera,0,1,-5

light=CreateLight()
RotateEntity light,45,45,0

; A long corridor of crates on alternating sides
Dim crates(19)

For i=0 To 19
    crates(i)=CreateCube()
    x#=-2
    If i Mod 2 Then x=2
    PositionEntity crates(i),x,0,i*3
    EntityColor crates(i),255,150,50
    ; Each crate is solid up to 10 units from the camera, then fades
    ; out until it is invisible at 20 units
    EntityAutoFade crates(i),10,20
Next

While Not KeyDown(1)

    ; Spin the crates so the scene is alive
    For i=0 To 19
        TurnEntity crates(i),0,1,0
    Next

    ; Arrow keys fly the camera along the corridor
    If KeyDown(200) Then MoveEntity camera,0,0,0.1
    If KeyDown(208) Then MoveEntity camera,0,0,-0.1
    If KeyDown(203) Then TurnEntity camera,0,1,0
    If KeyDown(205) Then TurnEntity camera,0,-1,0

    RenderWorld

    Text 0,0,"Arrow keys: fly along the corridor   Esc: exit"
    Text 0,20,"EntityAutoFade crate,10,20 - crates fade in as you approach"

    Flip

Wend

End