Fixed last change.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@747 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/GIFPlot/Guile/full/gifplot.i

@@ -12,6 +12,10 @@
 
 %}
 
-typedef unsigned int Pixel;
+/* Pixel is typedef'd to unsigned char, and SWIG will translate this
+   type into Scheme characters. We would like to translate Pixels to
+   Scheme integers instead, so: */
+
+SIMPLE_MAP(Pixel, gh_scm2int, gh_int2scm, integer);
 
 %include gifplot.h

Examples/GIFPlot/Guile/full/runme.scm

@@ -50,7 +50,7 @@
 		   (c3 (* cscale (- z3 zmin)))
 		   (c4 (* cscale (- z4 zmin)))
 		   (cc (/ (+ c1 c2 c3 c4) 4))
-		   (c  (min (max cc 239) 0)))
+		   (c  (round (max (min cc 239) 0))))
 	      (Plot3D-solidquad p3 x y z1 (+ x dx) y z2 (+ x dx) (+ y dy)
 				z3 x (+ y dy) z4 (+ c 16)))
 	    (y-loop (+ y dy) (+ j 1)))))