diff options
Diffstat (limited to 'Examples/GIFPlot/Guile/full')
-rw-r--r-- | Examples/GIFPlot/Guile/full/Makefile | 28 | ||||
-rw-r--r-- | Examples/GIFPlot/Guile/full/README | 8 | ||||
-rw-r--r-- | Examples/GIFPlot/Guile/full/cmap | bin | 768 -> 0 bytes | |||
-rw-r--r-- | Examples/GIFPlot/Guile/full/gifplot.i | 21 | ||||
-rw-r--r-- | Examples/GIFPlot/Guile/full/runme.scm | 66 |
5 files changed, 0 insertions, 123 deletions
diff --git a/Examples/GIFPlot/Guile/full/Makefile b/Examples/GIFPlot/Guile/full/Makefile deleted file mode 100644 index 1fcdf58d2..000000000 --- a/Examples/GIFPlot/Guile/full/Makefile +++ /dev/null @@ -1,28 +0,0 @@ -TOP = ../../.. -SWIG = $(TOP)/../swig -SWIGOPT = -I../../Include -SRCS = -TARGET = gifplot -INTERFACE = gifplot.i -LIBS = -L../.. -lgifplot -lm -INCLUDES = -I../../Include - -all:: static - -dynamic:: - $(MAKE) -f $(TOP)/Makefile TOP='$(TOP)' \ - SRCS='$(SRCS)' SWIG='$(SWIG)' \ - INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \ - TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' guile - -static:: - $(MAKE) -f $(TOP)/Makefile TOP='$(TOP)' \ - SRCS='$(SRCS)' SWIG='$(SWIG)' \ - INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \ - TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' guile_static - -clean:: - $(MAKE) -f $(TOP)/Makefile TARGET='$(TARGET)' guile_clean - rm -f *.gif - -check: all diff --git a/Examples/GIFPlot/Guile/full/README b/Examples/GIFPlot/Guile/full/README deleted file mode 100644 index 9780988d2..000000000 --- a/Examples/GIFPlot/Guile/full/README +++ /dev/null @@ -1,8 +0,0 @@ -This example runs the entire gifplot.h header file through SWIG without -any changes. The Scheme program 'runme.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. - - - - diff --git a/Examples/GIFPlot/Guile/full/cmap b/Examples/GIFPlot/Guile/full/cmap Binary files differdeleted file mode 100644 index a20c331a9..000000000 --- a/Examples/GIFPlot/Guile/full/cmap +++ /dev/null diff --git a/Examples/GIFPlot/Guile/full/gifplot.i b/Examples/GIFPlot/Guile/full/gifplot.i deleted file mode 100644 index e5c15aa2b..000000000 --- a/Examples/GIFPlot/Guile/full/gifplot.i +++ /dev/null @@ -1,21 +0,0 @@ -/* 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_MAP(Pixel, gh_scm2int, gh_int2scm, integer); - -%include gifplot.h diff --git a/Examples/GIFPlot/Guile/full/runme.scm b/Examples/GIFPlot/Guile/full/runme.scm deleted file mode 100644 index 0ffe92167..000000000 --- a/Examples/GIFPlot/Guile/full/runme.scm +++ /dev/null @@ -1,66 +0,0 @@ -;;; Plot a 3D function - -;; Use the wrapped GIFPlot library -(use-modules (gifplot)) - -;; 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 (new-ColorMap "cmap")) -(define frame (new-FrameBuffer 500 500)) -(FrameBuffer-clear frame (BLACK)) - -(define p3 (new-Plot3D frame xmin ymin zmin xmax ymax zmax)) -(Plot3D-lookat p3 (* 2 (- zmax zmin))) -(Plot3D-autoperspective p3 40) -(Plot3D-rotu p3 60) -(Plot3D-rotr p3 30) -(Plot3D-rotd p3 10) - -(define (drawsolid) - (Plot3D-clear p3 (BLACK)) - (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 (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))))) - (x-loop (+ x dx) (+ i 1))))))) - -(display "Making a nice 3D plot...\n") -(drawsolid) - -(FrameBuffer-writeGIF frame cmap "image.gif") -(display "Wrote image.gif\n") |