; Extended mode: Space triggers a fading hit flash. The original material stays assigned.
Graphics3D 800,600,0,2
SetBuffer BackBuffer()
camera=CreateCamera():PositionEntity camera,0,1,-5
light=CreateLight():RotateEntity light,35,-25,0
AmbientLight 60,60,70
crystal=CreateCylinder(6):ScaleEntity crystal,.7,1.3,.7
EntityColor crystal,45,100,160
lastTime=MilliSecs():remaining#=0
While Not KeyHit(1)
    now=MilliSecs():elapsed#=Float(now-lastTime)/1000:lastTime=now
    remaining=remaining-elapsed:If remaining<0 Then remaining=0
    If KeyHit(57) Then remaining=.6
    EntityColorOverlay crystal,255,235,180,remaining/.6
    TurnEntity crystal,0,elapsed*35,0
    RenderWorld
    Color 255,255,255:Text 12,12,"Space: hit flash | Esc: exit"
    Flip
Wend
End