Hi Dan,
nice to hear from you
I make it like this:
Code:
procedure TCommandoForm.draw_fog;
var fogstart,fogend,fogdensity: single;
begin
fogstart:=0;//5
fogend:=1200; //64
fogdensity:=0.002;
xenscreen.Device.setrenderstate(d3drs_fogenable,1);
xenscreen.Device.setrenderstate(d3drs_fogvertexmode,d3dfog_linear);
xenscreen.Device.setrenderstate(d3drs_fogcolor,d3dcolor_xrgb(40,40,50));
xenscreen.Device.setrenderstate(d3drs_fogstart,dword((@fogstart)^));
xenscreen.Device.setrenderstate(d3drs_fogdensity,dword((@fogdensity)^));
xenscreen.Device.setrenderstate(d3drs_fogend,dword((@fogend)^));
end;
Perhaps try much lower fogend value, I have a very big camera view field, try 50 for the beginning or something. And try different colors in Fogcolor!
Helps?
Firle
Bookmarks