From: malc <av1474@comtv.ru>
Date: Fri, 18 Jan 2013 00:14:01 +0000 (+0400)
Subject: Massage makecheckers a bit
X-Git-Tag: v14~55
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/fbfcb6c92fff0e647dfff468b8f310e3711fe176

Massage makecheckers a bit

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
---

diff --git a/main.ml b/main.ml
index e2896f5..3f47746 100644
--- 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;
 ;;