Initial addition.

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

Examples/GIFPlot/Chicken/full/.cvsignore

@@ -0,0 +1,3 @@
+gifplot-guile
+gifplot_wrap.c
+image.gif

Examples/GIFPlot/Chicken/full/Makefile.in

@@ -0,0 +1,61 @@
+@SET_MAKE@
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+VPATH = @srcdir@
+SOURCE_DIR = $(top_srcdir)/Examples/GIFPlot/Chicken/full
+TOP        = ../../..
+CC         = @CC@
+CXX        = @CXX@
+OBJEXT     = @OBJEXT@
+EXEEXT     = @EXEEXT@
+SWIG       = $(TOP)/../swig$(EXEEXT)
+CHICKGEN   = gifplot_wrap.$(OBJEXT) csi.$(OBJEXT) precsi.$(OBJEXT) \
+		ogifplot.$(OBJEXT) 
+CHICKSRC   = csi.c precsi.c ogifplot.c
+SRCS       = $(CHICKGEN)
+TARGET     = gifplot$(EXEEXT)
+INCLUDE    = -I$(SOURCE_DIR) -I../../Include
+LIBS       = -L../.. -lgifplot -lm
+SWIGOPT    = -I../../Include
+
+all:: $(TARGET)
+
+.SUFFIXES: .cxx
+
+.c.o:
+	$(CC) $(INCLUDE) $(CFLAGS) -c -o $*.o $<
+
+.cxx.o:
+	$(CXX) $(INCLUDE) $(CFLAGS) -c -o $*.o $<
+
+csi.c:
+	$(MAKE) -f $(TOP)/Makefile TARGET='csi.c' \
+		INTERFACE='precsi' chicken_csi
+
+precsi.c: $(SOURCE_DIR)/precsi.scm
+	$(MAKE) -f $(TOP)/Makefile TARGET='precsi.c' \
+		INTERFACE='$<' chicken
+
+gifplot_wrap.c gifplot.scm: $(SOURCE_DIR)/gifplot.i
+	(test $< -nt gifplot.i && cp -p $< gifplot.i) || echo gifplot.i is up-to-date
+	$(MAKE) -f $(TOP)/Makefile SWIG='$(SWIG)' SWIGOPT='$(SWIGOPT)' \
+		INCLUDE='$(INCLUDE)' INTERFACE='gifplot.i' chicken_c
+
+ogifplot.c: gifplot.scm
+	$(MAKE) -f $(TOP)/Makefile TARGET='ogifplot.c' \
+		INTERFACE='$<' chicken
+
+$(TARGET): $(SRCS)
+	$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
+		INCLUDE='$(INCLUDE)' SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' \
+		LIBS='$(LIBS)' INTERFACE='$(INTERFACE)' chicken_static
+
+clean::
+	rm -f *_wrap* *.$(OBJEXT) core *~ *.so *.stackdump STACKTRACE
+	rm -f $(CHICKGEN) $(CHICKSRC)
+	rm -f gifplot.scm
+	rm -f $(TARGET)
+	rm -f *.gif
+
+check: all

Examples/GIFPlot/Chicken/full/README

@@ -0,0 +1,4 @@
+This example runs the entire gifplot.h header file through SWIG without
+any changes.  The Scheme program 'test-gifplot.scm' does something a 
+little more interesting.  You'll have to go look at the header file to
+get a complete listing of the functions.

Examples/GIFPlot/Chicken/full/gifplot.i

@@ -0,0 +1,26 @@
+/* Oh what the heck, let's just grab the whole darn header file
+   and see what happens. */
+
+%module gifplot
+%{
+
+/* Note: You still need this part because the %include directive
+   merely causes SWIG to interpret the contents of a file.  It doesn't
+   include the right include headers for the resulting C code */
+
+#include "gifplot.h"
+
+%}
+
+/* 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_TYPEMAP(Pixel, C_unfix, C_fix, C_swig_is_fixnum, (int), 0);
+
+%{
+static Pixel int_to_Pixel (int v) { return (Pixel) v; }
+%}
+extern Pixel int_to_Pixel (int v);
+
+%include gifplot.h

Examples/GIFPlot/Chicken/full/precsi.scm

@@ -0,0 +1,8 @@
+(declare (unit precsi))
+(declare (uses gifplot))
+
+;; display prelude to csi
+(display "full\n\n")
+
+(display "  A SWIG GIFPlot example for the CHICKEN compiler\n")
+(display "  Author: Jonah Beckford, December 2002\n\n")

Examples/GIFPlot/Chicken/full/test-gifplot.scm

@@ -0,0 +1,64 @@
+;;; Plot a 3D function
+
+;; Here is the function to plot
+(define (func x y)
+  (* 5
+     (cos (* 2 (sqrt (+ (* x x) (* y y)))))
+     (exp (* -0.3 (sqrt (+ (* x x) (* y y)))))))
+
+;; Here are some plotting parameters
+(define xmin -5.0)
+(define xmax  5.0)
+(define ymin -5.0)
+(define ymax  5.0)
+(define zmin -5.0)
+(define zmax  5.0)
+
+;; Grid resolution
+(define nxpoints  60)
+(define nypoints  60)
+
+(define cmap (gifplot-new-ColorMap "cmap"))
+(define frame (gifplot-new-FrameBuffer 500 500))
+(gifplot-FrameBuffer-clear frame (gifplot-BLACK))
+
+(define p3 (gifplot-new-Plot3D frame xmin ymin zmin xmax ymax zmax))
+(gifplot-Plot3D-lookat p3 (* 2 (- zmax zmin)))
+(gifplot-Plot3D-autoperspective p3 40.0)
+(gifplot-Plot3D-rotu p3 60.0)
+(gifplot-Plot3D-rotr p3 30.0)
+(gifplot-Plot3D-rotd p3 10.0)
+
+(define (drawsolid)
+  (gifplot-Plot3D-clear p3 (gifplot-BLACK))
+  (gifplot-Plot3D-start p3)
+  (let ((dx (/ (- xmax xmin) nxpoints))
+	(dy (/ (- ymax ymin) nypoints))
+	(cscale (/ 240 (- zmax zmin))))
+    (let x-loop ((x xmin) (i 0))
+      (cond
+       ((< i nxpoints)
+	(let y-loop ((y ymin) (j 0))
+	  (cond
+	   ((< j nypoints)
+	    (let* ((z1 (func x y))
+		   (z2 (func (+ x dx) y))
+		   (z3 (func (+ x dx) (+ y dy)))
+		   (z4 (func x (+ y dy)))
+		   (c1 (* cscale (- z1 zmin)))
+		   (c2 (* cscale (- z2 zmin)))
+		   (c3 (* cscale (- z3 zmin)))
+		   (c4 (* cscale (- z4 zmin)))
+		   (cc (/ (+ c1 c2 c3 c4) 4))
+		   (c  (inexact->exact (round (max (min cc 239) 0)))))
+	      (gifplot-Plot3D-solidquad p3 x y z1 (+ x dx) y z2 (+ x dx) (+ y dy)
+				z3 x (+ y dy) z4 
+                                (gifplot-int->Pixel (+ c 16))))
+	    (y-loop (+ y dy) (+ j 1)))))
+	(x-loop (+ x dx) (+ i 1)))))))
+
+(display "Making a nice 3D plot...\n")
+(drawsolid)
+
+(gifplot-FrameBuffer-writeGIF frame cmap "image.gif")
+(display "Wrote image.gif\n")