summaryrefslogtreecommitdiff
path: root/Examples/GIFPlot/Tcl/full
diff options
context:
space:
mode:
authorWilliam S Fulton <wsf@fultondesigns.co.uk>2010-03-06 00:03:23 +0000
committerWilliam S Fulton <wsf@fultondesigns.co.uk>2010-03-06 00:03:23 +0000
commit1284055c524f18ae5c499ce8c65a9e3b0b0b13fd (patch)
tree1da35f308d4b81f2c7a14c923c8a6ae786ee8223 /Examples/GIFPlot/Tcl/full
parent1eb5446e13f752c53cab60379f7587cb1fd8cc65 (diff)
downloadswig-1284055c524f18ae5c499ce8c65a9e3b0b0b13fd.tar.gz
merge revisions 11872:11876 from trunk to gsoc2008-jezabek branch - license changes
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2008-jezabek@11901 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/GIFPlot/Tcl/full')
-rw-r--r--Examples/GIFPlot/Tcl/full/Makefile24
-rw-r--r--Examples/GIFPlot/Tcl/full/README8
-rw-r--r--Examples/GIFPlot/Tcl/full/cmapbin768 -> 0 bytes
-rw-r--r--Examples/GIFPlot/Tcl/full/gifplot.i15
-rw-r--r--Examples/GIFPlot/Tcl/full/runme.tcl67
5 files changed, 0 insertions, 114 deletions
diff --git a/Examples/GIFPlot/Tcl/full/Makefile b/Examples/GIFPlot/Tcl/full/Makefile
deleted file mode 100644
index 0c016e364..000000000
--- a/Examples/GIFPlot/Tcl/full/Makefile
+++ /dev/null
@@ -1,24 +0,0 @@
-TOP = ../../..
-SWIG = $(TOP)/../swig
-SWIGOPT = -I../../Include
-SRCS =
-TARGET = gifplot
-INTERFACE = gifplot.i
-LIBS = -L../.. -lgifplot
-INCLUDES = -I../../Include
-
-all::
- $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
- INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
- TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' tcl
-
-static::
- $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
- INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
- TARGET='mytclsh' INTERFACE='$(INTERFACE)' tclsh
-
-clean::
- $(MAKE) -f $(TOP)/Makefile tcl_clean
- rm -f *.gif
-
-check: all
diff --git a/Examples/GIFPlot/Tcl/full/README b/Examples/GIFPlot/Tcl/full/README
deleted file mode 100644
index bdba4e8b0..000000000
--- a/Examples/GIFPlot/Tcl/full/README
+++ /dev/null
@@ -1,8 +0,0 @@
-This example runs the entire gifplot.h header file through SWIG without
-any changes. The script 'runme.tcl' 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/Tcl/full/cmap b/Examples/GIFPlot/Tcl/full/cmap
deleted file mode 100644
index a20c331a9..000000000
--- a/Examples/GIFPlot/Tcl/full/cmap
+++ /dev/null
Binary files differ
diff --git a/Examples/GIFPlot/Tcl/full/gifplot.i b/Examples/GIFPlot/Tcl/full/gifplot.i
deleted file mode 100644
index 5a7f5008f..000000000
--- a/Examples/GIFPlot/Tcl/full/gifplot.i
+++ /dev/null
@@ -1,15 +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"
-
-%}
-
-%include gifplot.h
diff --git a/Examples/GIFPlot/Tcl/full/runme.tcl b/Examples/GIFPlot/Tcl/full/runme.tcl
deleted file mode 100644
index f469e71dd..000000000
--- a/Examples/GIFPlot/Tcl/full/runme.tcl
+++ /dev/null
@@ -1,67 +0,0 @@
-# Plot a 3D function
-
-catch { load ./gifplot[info sharedlibextension] gifplot}
-
-# Here is the function to plot
-proc func { x y } {
- return [expr { 5*cos(2*sqrt($x*$x+$y*$y))*exp(-0.3*sqrt($x*$x+$y*$y)) }]
-}
-
-# Here are some plotting parameters
-set xmin -5.0
-set xmax 5.0
-set ymin -5.0
-set ymax 5.0
-set zmin -5.0
-set zmax 5.0
-
-# Grid resolution
-set nxpoints 60
-set nypoints 60
-
-set cmap [new_ColorMap cmap]
-set frame [new_FrameBuffer 500 500]
-FrameBuffer_clear $frame $BLACK
-
-set p3 [new_Plot3D $frame $xmin $ymin $zmin $xmax $ymax $zmax ]
-Plot3D_lookat $p3 [expr {2*($zmax-$zmin)}]
-Plot3D_autoperspective $p3 40
-Plot3D_rotu $p3 60
-Plot3D_rotr $p3 30
-Plot3D_rotd $p3 10
-
-proc drawsolid { } {
- global xmin ymin zmin xmax ymax zmax nxpoints nypoints p3 BLACK
- Plot3D_clear $p3 $BLACK
- Plot3D_start $p3
- set dx [expr {1.0*($xmax-$xmin)/$nxpoints}]
- set dy [expr {1.0*($ymax-$ymin)/$nypoints}]
- set cscale [expr {240.0/($zmax-$zmin)}]
- set x $xmin
- for {set i 0} {$i < $nxpoints} {incr i 1} {
- set y $ymin
- for {set j 0} {$j < $nypoints} {incr j 1} {
- set z1 [func $x $y]
- set z2 [func [expr {$x+$dx}] $y]
- set z3 [func [expr {$x+$dx}] [expr {$y+$dy}]]
- set z4 [func $x [expr {$y+$dy}]]
- set c1 [expr {$cscale*($z1-$zmin)}]
- set c2 [expr {$cscale*($z2-$zmin)}]
- set c3 [expr {$cscale*($z3-$zmin)}]
- set c4 [expr {$cscale*($z4-$zmin)}]
- set c [expr {int(($c1+$c2+$c3+$c4)/4)}]
- if {$c < 0} { set c 0 }
- if {$c > 239} { set c 239 }
- Plot3D_solidquad $p3 $x $y $z1 [expr {$x+$dx}] $y $z2 [expr {$x+$dx}] [expr {$y+$dy}] $z3 $x [expr {$y+$dy}] $z4 [expr {$c+16}]
- set y [expr {$y + $dy}]
- }
- set x [expr {$x + $dx}]
- }
-}
-
-puts "Making a nice 3D plot..."
-drawsolid
-
-FrameBuffer_writeGIF $frame $cmap "image.gif"
-puts "Wrote image.gif"
-