From fbfcb6c92fff0e647dfff468b8f310e3711fe176 Mon Sep 17 00:00:00 2001 From: malc Date: Fri, 18 Jan 2013 04:14:01 +0400 Subject: [PATCH] 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 --- main.ml | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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; ;; -- 2.11.4.GIT