Massage makecheckers a bit
authormalc <av1474@comtv.ru>
Fri, 18 Jan 2013 00:14:01 +0000 (18 04:14 +0400)
committermalc <av1474@comtv.ru>
Fri, 18 Jan 2013 00:14:01 +0000 (18 04:14 +0400)
This is to:
a) Not misattribute (mistakes in this function, given how it was changed
   compared to LablGLs checker.ml, are mine and not Issac's/SGIs
b) Trim it down a bit by not setting some texture parameters to their
   initial/default values (wraps are repeat by default)
c) TBD

main.ml

diff --git a/main.ml b/main.ml
index e2896f5..3f47746 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -3885,7 +3885,7 @@ let irect_to_string (x0,y0,x1,y1) =
 ;;
 
 let makecheckers () =
-  (* Appropriated from lablGL-1.04/LablGlut/examples/lablGL/checker.ml which had
+  (* Based on lablGL-1.04/LablGlut/examples/lablGL/checker.ml which had
      following to say:
      converted by Issac Trotts.  July 25, 2002 *)
   let image = GlPix.create `ubyte ~format:`luminance ~width:2 ~height:2 in
@@ -3895,10 +3895,7 @@ let makecheckers () =
   GlPix.store (`unpack_alignment 1);
   GlTex.image2d image;
   List.iter (GlTex.parameter ~target:`texture_2d)
-    [ `wrap_s `repeat;
-      `wrap_t `repeat;
-      `mag_filter `nearest;
-      `min_filter `nearest ];
+    [ `mag_filter `nearest; `min_filter `nearest ];
   id;
 ;;