jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed last change.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@747 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2000-08-31 12:11:46 +00:00
commit b920e04254
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Examples/GIFPlot/Guile/full/gifplot.i
View file

@ -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 %include gifplot.h

2
Examples/GIFPlot/Guile/full/runme.scm
View file

@ -50,7 +50,7 @@
(c3 (* cscale (- z3 zmin))) (c3 (* cscale (- z3 zmin)))
(c4 (* cscale (- z4 zmin))) (c4 (* cscale (- z4 zmin)))
(cc (/ (+ c1 c2 c3 c4) 4)) (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) (Plot3D-solidquad p3 x y z1 (+ x dx) y z2 (+ x dx) (+ y dy)
z3 x (+ y dy) z4 (+ c 16))) z3 x (+ y dy) z4 (+ c 16)))
(y-loop (+ y dy) (+ j 1))))) (y-loop (+ y dy) (+ j 1)))))