Browse Source

* fixed uninitialised variable

Jonas Maebe 20 years ago
parent
commit
c3ad23c811
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/extra/opengl/examples/radblur.pp

+ 1 - 1
packages/extra/opengl/examples/radblur.pp

@@ -234,7 +234,7 @@ var spost, alpha, alphainc : glFloat;
     I : Integer;
     I : Integer;
 begin
 begin
   alpha := 0.2;
   alpha := 0.2;
-
+  spost := 0.0;
   glEnable(GL_TEXTURE_2D);		   	// Enable 2D Texture Mapping
   glEnable(GL_TEXTURE_2D);		   	// Enable 2D Texture Mapping
   glDisable(GL_DEPTH_TEST);		   	// Disable Depth Testing
   glDisable(GL_DEPTH_TEST);		   	// Disable Depth Testing
   glBlendFunc(GL_SRC_ALPHA,GL_ONE);	   	// Set Blending Mode
   glBlendFunc(GL_SRC_ALPHA,GL_ONE);	   	// Set Blending Mode