bring back classic Amiga colors for spheres

[factor.git] / extra / spheres / spheres.factor

diff --git a/extra/spheres/spheres.factor b/extra/spheres/spheres.factor
index 826c66851e048974c8b82aee0cdedb10ccf436d7..7a0c0d2e77992f562cf31924fc5cb12d77f7965f 100755 (executable)
--- a/extra/spheres/spheres.factor
+++ b/extra/spheres/spheres.factor
@@ -225,8 +225,8 @@ M: spheres-gadget pref-dim* ( gadget -- dim )
         plane-program>> [
             {
                 [ "checker_size_inv" glGetUniformLocation 0.125 glUniform1f ]
-                [ "checker_color_1"  glGetUniformLocation 1.0 0.5 0.0 1.0 glUniform4f ]
-                [ "checker_color_2"  glGetUniformLocation 0.0 0.0 0.0 1.0 glUniform4f ]
+                [ "checker_color_1"  glGetUniformLocation 1.0 0.0 0.0 1.0 glUniform4f ]
+                [ "checker_color_2"  glGetUniformLocation 1.0 1.0 1.0 1.0 glUniform4f ]
             } cleave
             GL_QUADS [
                 -1000.0 -30.0  1000.0 glVertex3f