From 8994cbff0a24607e9187546f976ce5c57418e3a2 Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Mon, 1 Sep 2003 14:10:07 +0000 Subject: [PATCH] moved from Perl to fix naming kludge git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5030 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Examples/GIFPlot/Perl/full/Makefile | 24 ---------- Examples/GIFPlot/Perl/full/README | 8 ---- Examples/GIFPlot/Perl/full/gifplot.i | 15 ------ Examples/GIFPlot/Perl/full/runme.pl | 68 --------------------------- Examples/GIFPlot/Perl/shadow/Makefile | 24 ---------- Examples/GIFPlot/Perl/shadow/README | 2 - Examples/GIFPlot/Perl/shadow/runme.pl | 68 --------------------------- 7 files changed, 209 deletions(-) delete mode 100644 Examples/GIFPlot/Perl/full/Makefile delete mode 100644 Examples/GIFPlot/Perl/full/README delete mode 100644 Examples/GIFPlot/Perl/full/gifplot.i delete mode 100644 Examples/GIFPlot/Perl/full/runme.pl delete mode 100644 Examples/GIFPlot/Perl/shadow/Makefile delete mode 100644 Examples/GIFPlot/Perl/shadow/README delete mode 100644 Examples/GIFPlot/Perl/shadow/runme.pl diff --git a/Examples/GIFPlot/Perl/full/Makefile b/Examples/GIFPlot/Perl/full/Makefile deleted file mode 100644 index 456819d10..000000000 --- a/Examples/GIFPlot/Perl/full/Makefile +++ /dev/null @@ -1,24 +0,0 @@ -TOP = ../../.. -SWIG = $(TOP)/../swig -SWIGOPT = -I../../Include -SRCS = -TARGET = gifplot -INTERFACE = gifplot.i -LIBS = -L../.. -lgifplot -lm -INCLUDES = -I../../Include - -all:: - $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \ - INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \ - TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' perl5 - -static:: - $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \ - INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \ - TARGET='myperl' INTERFACE='$(INTERFACE)' perl5_static - -clean:: - $(MAKE) -f $(TOP)/Makefile perl5_clean - rm -f *.gif - -check: all diff --git a/Examples/GIFPlot/Perl/full/README b/Examples/GIFPlot/Perl/full/README deleted file mode 100644 index 05c685a80..000000000 --- a/Examples/GIFPlot/Perl/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.pl' 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/Perl/full/gifplot.i b/Examples/GIFPlot/Perl/full/gifplot.i deleted file mode 100644 index 5a7f5008f..000000000 --- a/Examples/GIFPlot/Perl/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/Perl/full/runme.pl b/Examples/GIFPlot/Perl/full/runme.pl deleted file mode 100644 index 77fd321c9..000000000 --- a/Examples/GIFPlot/Perl/full/runme.pl +++ /dev/null @@ -1,68 +0,0 @@ -# Plot a 3D function -use gifplot; -package gifplot; - -# Here is the function to plot -sub func { - my $x = shift; - my $y = shift; - return 5*cos(2*sqrt($x*$x+$y*$y))*exp(-0.3*sqrt($x*$x+$y*$y)); -} - -# Here are some plotting parameters -$xmin = -5.0; -$xmax = 5.0; -$ymin = -5.0; -$ymax = 5.0; -$zmin = -5.0; -$zmax = 5.0; - -# Grid resolution -$nxpoints = 60; -$nypoints = 60; - -$cmap = new_ColorMap("cmap"); -$frame = new_FrameBuffer(500,500); -FrameBuffer_clear($frame,$BLACK); - -$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); - -sub drawsolid { - Plot3D_clear($p3,$BLACK); - Plot3D_start($p3); - my $dx = 1.0*($xmax-$xmin)/$nxpoints; - my $dy = 1.0*($ymax-$ymin)/$nypoints; - my $cscale = 240.0/($zmax-$zmin); - my $x = $xmin; - for ($i = 0; $i < $nxpoints; $i++) { - my $y = $ymin; - for ($j = 0; $j < $nypoints; $j++) { - my $z1 = func($x,$y); - my $z2 = func($x+$dx,$y); - my $z3 = func($x+$dx,$y+$dy); - my $z4 = func($x,$y+$dy); - my $c1 = $cscale*($z1-$zmin); - my $c2 = $cscale*($z2-$zmin); - my $c3 = $cscale*($z3-$zmin); - my $c4 = $cscale*($z4-$zmin); - my $c = ($c1+$c2+$c3+$c4)/4; - if ($c < 0) { $c = 0; } - if ($c > 239) { $c = 239; } - Plot3D_solidquad($p3,$x,$y,$z1,$x+$dx,$y,$z2,$x+$dx,$y+$dy,$z3,$x,$y+$dy,$z4,$c+16); - $y = $y + $dy; - } - $x = $x + $dx; - } -} - -print "Making a nice 3D plot...\n"; -drawsolid(); - -FrameBuffer_writeGIF($frame,$cmap,"image.gif"); -print "Wrote image.gif\n"; - diff --git a/Examples/GIFPlot/Perl/shadow/Makefile b/Examples/GIFPlot/Perl/shadow/Makefile deleted file mode 100644 index 568edb33f..000000000 --- a/Examples/GIFPlot/Perl/shadow/Makefile +++ /dev/null @@ -1,24 +0,0 @@ -TOP = ../../.. -SWIG = $(TOP)/../swig -SWIGOPT = -I../../Interface -shadow -SRCS = -TARGET = gifplot -INTERFACE = gifplot.i -LIBS = -L../.. -lgifplot -lm -INCLUDES = -I../../Include - -all:: - $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \ - INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \ - TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' perl5 - -static:: - $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \ - INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \ - TARGET='myperl' INTERFACE='$(INTERFACE)' perl5_static - -clean:: - $(MAKE) -f $(TOP)/Makefile perl5_clean - rm -f *.gif - -check: all diff --git a/Examples/GIFPlot/Perl/shadow/README b/Examples/GIFPlot/Perl/shadow/README deleted file mode 100644 index ab12e344e..000000000 --- a/Examples/GIFPlot/Perl/shadow/README +++ /dev/null @@ -1,2 +0,0 @@ -This example use the file in ../../Interface/gifplot.i to build -an interface with shadow classes. Run the script 'runme.pl'. diff --git a/Examples/GIFPlot/Perl/shadow/runme.pl b/Examples/GIFPlot/Perl/shadow/runme.pl deleted file mode 100644 index c396251af..000000000 --- a/Examples/GIFPlot/Perl/shadow/runme.pl +++ /dev/null @@ -1,68 +0,0 @@ -# Plot a 3D function -use gifplot; -package gifplot; - -# Here is the function to plot -sub func { - my $x = shift; - my $y = shift; - return 5*cos(2*sqrt($x*$x+$y*$y))*exp(-0.3*sqrt($x*$x+$y*$y)); -} - -# Here are some plotting parameters -$xmin = -5.0; -$xmax = 5.0; -$ymin = -5.0; -$ymax = 5.0; -$zmin = -5.0; -$zmax = 5.0; - -# Grid resolution -$nxpoints = 60; -$nypoints = 60; - -$cmap = new gifplot::ColorMap("cmap"); -$frame = new gifplot::FrameBuffer(500,500); -$frame->clear($BLACK); - -$p3 = new gifplot::Plot3D($frame,$xmin,$ymin,$zmin,$xmax,$ymax,$zmax); -$p3->lookat(2*($zmax-$zmin)); -$p3->autoperspective(40); -$p3->rotu(60); -$p3->rotr(30); -$p3->rotd(10); - -sub drawsolid { - $p3->clear($BLACK); - $p3->start(); - my $dx = 1.0*($xmax-$xmin)/$nxpoints; - my $dy = 1.0*($ymax-$ymin)/$nypoints; - my $cscale = 240.0/($zmax-$zmin); - my $x = $xmin; - for ($i = 0; $i < $nxpoints; $i++) { - my $y = $ymin; - for ($j = 0; $j < $nypoints; $j++) { - my $z1 = func($x,$y); - my $z2 = func($x+$dx,$y); - my $z3 = func($x+$dx,$y+$dy); - my $z4 = func($x,$y+$dy); - my $c1 = $cscale*($z1-$zmin); - my $c2 = $cscale*($z2-$zmin); - my $c3 = $cscale*($z3-$zmin); - my $c4 = $cscale*($z4-$zmin); - my $c = ($c1+$c2+$c3+$c4)/4; - if ($c < 0) { $c = 0; } - if ($c > 239) { $c = 239; } - $p3->solidquad($x,$y,$z1,$x+$dx,$y,$z2,$x+$dx,$y+$dy,$z3,$x,$y+$dy,$z4,$c+16); - $y = $y + $dy; - } - $x = $x + $dx; - } -} - -print "Making a nice 3D plot...\n"; -drawsolid(); - -$frame->writeGIF($cmap,"image.gif"); -print "Wrote image.gif\n"; -