; Extended mode: Space fades a rotating prop out and back in.
Graphics3D 800,600,0,2:SetBuffer BackBuffer()
camera=CreateCamera():PositionEntity camera,0,1,-5
light=CreateLight():RotateEntity light,35,-25,0
prop=CreateCylinder(12):ScaleEntity prop,.7,1.3,.7:EntityColor prop,45,140,180
coverage#=1:target#=1:lastTime=MilliSecs()
While Not KeyHit(1)
    now=MilliSecs():elapsed#=Float(now-lastTime)/1000:lastTime=now
    If KeyHit(57) Then target=1-target
    If coverage<target Then coverage=coverage+elapsed:If coverage>target Then coverage=target
    If coverage>target Then coverage=coverage-elapsed:If coverage<target Then coverage=target
    EntityDitherFade prop,coverage
    TurnEntity prop,0,elapsed*30,0:RenderWorld
    Color 255,255,255:Text 12,12,"Space: fade | Esc: exit"
    Flip
Wend
End