implemented demonstrative dip to black transition

app/shaders/crossdissolve.frag

@@ -10,16 +10,14 @@ uniform bool in_block_in_enabled;
 uniform float ove_tprog_all;
 
 void main(void) {
-  vec4 out_block_col = texture2D(out_block_in, ove_texcoord) * (1.0 - ove_tprog_all);
-  vec4 in_block_col = texture2D(in_block_in, ove_texcoord) * ove_tprog_all;
-
   vec4 composite = vec4(0.0);
 
   if (out_block_in_enabled) {
-    composite += out_block_col;
+    composite += texture2D(out_block_in, ove_texcoord) * (1.0 - ove_tprog_all);
   }
 
   if (in_block_in_enabled) {
+    vec4 in_block_col = texture2D(in_block_in, ove_texcoord) * ove_tprog_all;
     composite *= 1.0 - in_block_col.a;
     composite += in_block_col;
   }

app/shaders/diptoblack.frag

@@ -0,0 +1,30 @@
+#version 110
+
+varying vec2 ove_texcoord;
+
+uniform sampler2D out_block_in;
+uniform sampler2D in_block_in;
+uniform bool out_block_in_enabled;
+uniform bool in_block_in_enabled;
+
+uniform float ove_tprog_out;
+uniform float ove_tprog_in;
+
+void main(void) {
+  vec4 out_block_col;
+  vec4 in_block_col;
+
+  if (out_block_in_enabled) {
+    out_block_col = texture2D(out_block_in, ove_texcoord) * pow(ove_tprog_out, 2.0);
+  } else {
+    out_block_col = vec4(0.0);
+  }
+
+  if (in_block_in_enabled) {
+    in_block_col = texture2D(in_block_in, ove_texcoord) * pow(ove_tprog_in, 2.0);
+  } else {
+    in_block_col = vec4(0.0);
+  }
+  
+  gl_FragColor = out_block_col + in_block_col;
+}

app/shaders/shaders.qrc

@@ -2,6 +2,7 @@
     <qresource prefix="/shaders">
         <file>alphaover.frag</file>
         <file>crossdissolve.frag</file>
+        <file>diptoblack.frag</file>
         <file>opacity.frag</file>
         <file>solid.frag</file>
         <file>videoinput.frag</file>