谁能告诉我在OpenGL里怎么使用雾！！！先谢了

swp86

我照着书上写的：代码是：

   glEnable(GL_FOG);

   {
      GLfloat fogColor[4] = {0.5, 0.0, 0.5, 1.0};

      fogMode = GL_EXP2;
          fogMode=GL_LINEAR;
      glFogi (GL_FOG_MODE, fogMode);
      glFogfv (GL_FOG_COLOR, fogColor);
      glFogf (GL_FOG_DENSITY, 10);
      glHint (GL_FOG_HINT, GL_DONT_CARE);
      glFogf (GL_FOG_START, 1.0);
      glFogf (GL_FOG_END, 15.0);
      //glClearColor(0.5, 0.5, 0.5, 1.0);  
   }

wingser

red book讲得很详细呀

vczh

代码不行吗？

vczh

不多你得在场景里放东西才行

wingser

没准是打错了
可以在www.opengl.org的 programming guide 的sample里找到例子代码

swp86

场景中有几个球体，就看不到雾，所有的参数我都试过了，书上的代码就是这样的。谁有做好的例子给我一份，谢谢！！！

vczh

如果你有心学编程的话，一下简单的delphi代码应该看得懂的。

TFogStyle=(fsDeep,fsThick,fsThin);

  TFog=class(TVAEObject)
  private
  protected
    FEnable:Boolean;
    FStyle:TFogStyle;
    FAlpha:Byte;
    FColor:TColor;
    FFogNear:VExtended;
    FFogFar:VExtended;
    procedure SetEnable(Value:Boolean);
    procedure SetStyle(Value:TFogStyle);
    procedure SetFog;
    procedure SetAlpha(Value:Byte);
    procedure SetColor(Value:TColor);
    procedure SetFogNear(Value:VExtended);
    procedure SetFogFar(Value:VExtended);
  published
    constructor Create;
  public
    property Enable:Boolean read FEnable write SetEnable;
    property Style:TFogStyle read FStyle write SetStyle;
    property Alpha:Byte read FAlpha write SetAlpha;
    property Color:TColor read FColor write SetColor;
    property FogNear:VExtended read FFogNear write SetFogNear;
    property FogFar:VExtended read FFogFar write SetFogFar;
  end;

//******************************************************************************

procedure TFog.SetEnable(Value:Boolean);
begin
  FEnable:=Value;
  if FEnable then
    glEnable(GL_FOG)
  else
    glDisable(GL_FOG);
end;

procedure TFog.SetStyle(Value:TFogStyle);
begin
  FStyle:=Value;
  case FStyle of
    fsDeep:glFog(GL_FOG_MODE,GL_LINEAR);
    fsThick:glFog(GL_FOG_MODE,GL_EXP);
    fsThin:glFog(GL_FOG_MODE,GL_EXP2);
  end;
end;

procedure TFog.SetFog;
var C:TGLFloatArray4;
begin
  C[0]:=(FColor mod 256)/255;
  C[1]:=((FColor div 256)mod 256)/255;
  C[2]:=(FColor div 65536)/255;
  C[3]:=FAlpha/255;
  glFogfv(GL_FOG_COLOR,@C);
end;

procedure TFog.SetAlpha(Value:Byte);
begin
  FAlpha:=Value;
  SetFog;
end;

procedure TFog.SetColor(Value:TColor);
begin
  FColor:=Value;
  SetFog;
end;

procedure TFog.SetFogNear(Value:VExtended);
begin
  FFogNear:=Value;
  glFog(GL_FOG_START,FFogNear);
end;

procedure TFog.SetFogFar(Value:VExtended);
begin
  FFogFar:=Value;
  glFog(GL_FOG_END,FFogFar);
end;

constructor TFog.Create;
begin
  FEnable:=False;
  SetStyle(fsDeep);
  FAlpha:=255;
  FColor:=clWhite;
  SetFog;
  SetFogNear(50);
  SetFogFar(200);
end;


INITIALIZAION:
Fog:=TFog.Create;
  Fog.Enable:=True;
  Fog.Color:=clSkyBlue;
  Fog.FogNear:=100;
  Fog.FogFar:=600;

lyon

雾参数范围需要考虑好,如果过大则不会有效果的

zhczzz

fogColor[4] = {0.5, 0.0, 0.5, 1.0};
颜色不对
fogColor[4] = {0.5, 0.5, 0.5, 1.0};

zhuml001007

support !