hedgewars/uWorld.pas
changeset 7297 af64b509725c
parent 7291 ad4b6c2b09e8
child 7301 bea42438a2ec
equal deleted inserted replaced
7295:e70b81854fb9 7297:af64b509725c
    58     uTextures,
    58     uTextures,
    59     uRender,
    59     uRender,
    60     uCaptions,
    60     uCaptions,
    61     uCursor,
    61     uCursor,
    62     uCommands,
    62     uCommands,
    63     uMobile
    63     uMobile,
       
    64     uAtlas
    64     ;
    65     ;
    65 
    66 
    66 var cWaveWidth, cWaveHeight: LongInt;
    67 var cWaveWidth, cWaveHeight: LongInt;
    67     AMShiftTargetX, AMShiftTargetY, AMShiftX, AMShiftY, SlotsNum: LongInt;
    68     AMShiftTargetX, AMShiftTargetY, AMShiftX, AMShiftY, SlotsNum: LongInt;
    68     AMAnimStartTime, AMState : LongInt;
    69     AMAnimStartTime, AMState : LongInt;
   954 
   955 
   955     if cStereoMode = smNone then
   956     if cStereoMode = smNone then
   956         begin
   957         begin
   957         glClear(GL_COLOR_BUFFER_BIT);
   958         glClear(GL_COLOR_BUFFER_BIT);
   958         DrawWorldStereo(Lag, rmDefault)
   959         DrawWorldStereo(Lag, rmDefault)
   959         end
   960         end;
   960 {$IFNDEF S3D_DISABLED}
   961 {$IFNDEF S3D_DISABLED}
   961     else if (cStereoMode = smAFR) then
   962     else if (cStereoMode = smAFR) then
   962         begin
   963         begin
   963         AFRToggle:= not AFRToggle;
   964         AFRToggle:= not AFRToggle;
   964         glClear(GL_COLOR_BUFFER_BIT);
   965         glClear(GL_COLOR_BUFFER_BIT);
  1062         else if cStereoMode = smRedCyan then
  1063         else if cStereoMode = smRedCyan then
  1063             glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE)
  1064             glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE)
  1064         else
  1065         else
  1065             glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE);
  1066             glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE);
  1066         DrawWorldStereo(Lag, rmRightEye);
  1067         DrawWorldStereo(Lag, rmRightEye);
  1067         end
  1068         end;
  1068 {$ENDIF}
  1069 {$ENDIF}
       
  1070     DebugAtlas;
  1069 end;
  1071 end;
  1070 
  1072 
  1071 procedure ChangeDepth(rm: TRenderMode; d: GLfloat);
  1073 procedure ChangeDepth(rm: TRenderMode; d: GLfloat);
  1072 begin
  1074 begin
  1073     d:= d / 5;
  1075     d:= d / 5;