' Enable fog and set mode and parameters.
Gl.Enable(gl.FOG)
Gl.Fogi(Gl.FOG_MODE, Gl.LINEAR)
Gl.Hint(Gl.FOG_HINT, Gl.NICEST)
' Set projection mode.
Gl.MatrixMode(Gl.PROJECTION)
Gl.LoadIdentity()
Glu.Perspective(45, sWidth / sHeight, Camera.Near, Camera.Far)
Gl.Scalef(1, -1, 1)
' Update OpenGL matrix.
UpVec1 = Sin(Rad(- Camera.Orientation))
UpVec2 = Cos(Rad(- Camera.Orientation))
UpVec3 = 1
Glu.LookAt(Camera.WorldX, Camera.WorldY, Camera.WorldZ, Camera.WorldX, Camera.WorldY, -32768, UpVec1, UpVec2, UpVec3)
Fog(Working, Working, Working, Ignored, Camera.Near, Camera.Near + 10