Use blending only when CastleScreenEffect is rendered to Screen

castle-engine · Jul 8, 2021 · bebc407 · bebc407
1 parent 4046e2a
commit bebc407
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/x3d/opengl/castlescreeneffects.pas b/src/x3d/opengl/castlescreeneffects.pas
@@ -686,7 +686,7 @@ procedure TCastleScreenEffects.RenderOverChildren;
 
   procedure RenderWithScreenEffectsCore;
 
-    procedure RenderOneEffect(Shader: TGLSLProgram);
+    procedure RenderOneEffect(Shader: TGLSLProgram; const RenderToScreen: Boolean);
     var
       BoundTextureUnits: Cardinal;
       AttribVertex, AttribTexCoord: TGLSLAttribute;
@@ -743,7 +743,7 @@ procedure TCastleScreenEffects.RenderOverChildren;
       AttribTexCoord.EnableArrayVector2(SizeOf(TScreenPoint),
         OffsetUInt(ScreenPoint[0].TexCoord, ScreenPoint[0]));
 
-      if Blending then
+      if Blending and RenderToScreen then
       begin
         GLBlendFunction(BlendingSourceFactor, BlendingDestinationFactor);
         glEnable(GL_BLEND);
@@ -778,7 +778,7 @@ procedure TCastleScreenEffects.RenderOverChildren;
     begin
       ScreenEffectRTT.RenderBegin;
       ScreenEffectRTT.SetTexture(ScreenEffectTextureDest, ScreenEffectTextureTarget);
-      RenderOneEffect(GetScreenEffect(I));
+      RenderOneEffect(GetScreenEffect(I), false);
       ScreenEffectRTT.RenderEnd;
 
       SwapValues(ScreenEffectTextureDest, ScreenEffectTextureSrc);
@@ -787,7 +787,7 @@ procedure TCastleScreenEffects.RenderOverChildren;
     { the last effect gets a texture, and renders straight into screen }
     RenderContext.ViewportDelta := TVector2Integer.Zero;
     RenderContext.Viewport := RenderRect.Round;
-    RenderOneEffect(GetScreenEffect(CurrentScreenEffectsCount - 1));
+    RenderOneEffect(GetScreenEffect(CurrentScreenEffectsCount - 1), true);
   end;
 
   procedure EndRenderingToTexture;