diff --git a/examples/example02/Init.hs b/examples/example02/Init.hs index 8e35a00..2c47595 100644 --- a/examples/example02/Init.hs +++ b/examples/example02/Init.hs @@ -72,7 +72,7 @@ load = do fragmentShader = foldl BS.append BS.empty [ "varying vec2 f_texcoord;" , "void main(void) {" - , " gl_FragColor = vec4(0,0,0,0.5);" + , " gl_FragColor = vec4(1,1,1,0.5);" , "}" ] p <- GLU.simpleShaderProgramBS vertexShader fragmentShader