- ...
- const
- FogDens : GLFloat = 0.01;
- FogColor : Array[0..3] of GLFloat = (0.5,0.5,0.5,0.5);
- Fogmode : GLFloat = GL_Linear;
- Fogstart : GLFloat = 15.0;
- Fogend : GLFloat = 25.0;
- ...
- begin
- ...
- glFogiv(GL_FOG_DENSITY,@FogDens);
- glFogiv(GL_FOG_COLOR,@FogColor);
- glFogiv(GL_FOG_MODE,@Fogmode);
- glFogiv(GL_FOG_START,@Fogstart);
- glFogiv(GL_FOG_END,@Fogend);
- glEnable(gl_Fog);
- ...