hedgewars/uWorld.pas
changeset 8138 cfb228baa598
parent 7946 a99a79bbd857
child 8145 6408c0ba4ba1
equal deleted inserted replaced
8136:c2196b1dccb4 8138:cfb228baa598
   959     if cStereoMode = smNone then
   959     if cStereoMode = smNone then
   960         begin
   960         begin
   961         glClear(GL_COLOR_BUFFER_BIT);
   961         glClear(GL_COLOR_BUFFER_BIT);
   962         DrawWorldStereo(Lag, rmDefault)
   962         DrawWorldStereo(Lag, rmDefault)
   963         end
   963         end
   964 {$IFNDEF S3D_DISABLED}
   964 {$IFDEF USE_S3D_RENDERING}
   965     else if (cStereoMode = smAFR) then
   965     else if (cStereoMode = smAFR) then
   966         begin
   966         begin
   967         AFRToggle:= not AFRToggle;
   967         AFRToggle:= not AFRToggle;
   968         glClear(GL_COLOR_BUFFER_BIT);
   968         glClear(GL_COLOR_BUFFER_BIT);
   969         if AFRToggle then
   969         if AFRToggle then
  1072 {$ENDIF}
  1072 {$ENDIF}
  1073 end;
  1073 end;
  1074 
  1074 
  1075 procedure ChangeDepth(rm: TRenderMode; d: GLfloat);
  1075 procedure ChangeDepth(rm: TRenderMode; d: GLfloat);
  1076 begin
  1076 begin
  1077 {$IFDEF S3D_DISABLED}
  1077 {$IFNDEF USE_S3D_RENDERING}
  1078     rm:= rm; d:= d; // avoid hint
  1078     rm:= rm; d:= d; // avoid hint
  1079     exit;
  1079     exit;
  1080 {$ELSE}
  1080 {$ELSE}
  1081     d:= d / 5;
  1081     d:= d / 5;
  1082     if rm = rmDefault then
  1082     if rm = rmDefault then
  1090 {$ENDIF}
  1090 {$ENDIF}
  1091 end;
  1091 end;
  1092  
  1092  
  1093 procedure ResetDepth(rm: TRenderMode);
  1093 procedure ResetDepth(rm: TRenderMode);
  1094 begin
  1094 begin
  1095 {$IFDEF S3D_DISABLED}
  1095 {$IFNDEF USE_S3D_RENDERING}
  1096     rm:= rm; // avoid hint
  1096     rm:= rm; // avoid hint
  1097     exit;
  1097     exit;
  1098 {$ELSE}
  1098 {$ELSE}
  1099     if rm = rmDefault then
  1099     if rm = rmDefault then
  1100         exit;
  1100         exit;