hedgewars/uWorld.pas
changeset 8359 9a7024b2a4d3
parent 8204 9a6030d96273
child 8370 0c79946e96f8
equal deleted inserted replaced
8358:274afc318dca 8359:9a7024b2a4d3
   985         begin
   985         begin
   986         glClear(GL_COLOR_BUFFER_BIT);
   986         glClear(GL_COLOR_BUFFER_BIT);
   987         DrawWorldStereo(Lag, rmDefault)
   987         DrawWorldStereo(Lag, rmDefault)
   988         end
   988         end
   989 {$IFDEF USE_S3D_RENDERING}
   989 {$IFDEF USE_S3D_RENDERING}
   990     else if (cStereoMode = smAFR) then
       
   991         begin
       
   992         AFRToggle:= not AFRToggle;
       
   993         glClear(GL_COLOR_BUFFER_BIT);
       
   994         if AFRToggle then
       
   995             DrawWorldStereo(Lag, rmLeftEye)
       
   996         else
       
   997             DrawWorldStereo(Lag, rmRightEye)
       
   998         end
       
   999     else if (cStereoMode = smHorizontal) or (cStereoMode = smVertical) then
   990     else if (cStereoMode = smHorizontal) or (cStereoMode = smVertical) then
  1000         begin
   991         begin
  1001         // create left fb
   992         // create left fb
  1002         glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framel);
   993         glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framel);
  1003         glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
   994         glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);