summaryrefslogtreecommitdiff
path: root/Examples/GIFPlot/Perl5
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/Perl5
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/Perl5')
-rw-r--r--Examples/GIFPlot/Perl5/check.list4
-rw-r--r--Examples/GIFPlot/Perl5/full/Makefile24
-rw-r--r--Examples/GIFPlot/Perl5/full/README8
-rw-r--r--Examples/GIFPlot/Perl5/full/cmapbin768 -> 0 bytes
-rw-r--r--Examples/GIFPlot/Perl5/full/gifplot.i15
-rw-r--r--Examples/GIFPlot/Perl5/full/runme.pl68
-rw-r--r--Examples/GIFPlot/Perl5/shadow/Makefile25
-rw-r--r--Examples/GIFPlot/Perl5/shadow/README2
-rw-r--r--Examples/GIFPlot/Perl5/shadow/cmapbin768 -> 0 bytes
-rw-r--r--Examples/GIFPlot/Perl5/shadow/runme.pl68
-rw-r--r--Examples/GIFPlot/Perl5/simple/Makefile24
-rw-r--r--Examples/GIFPlot/Perl5/simple/README5
-rw-r--r--Examples/GIFPlot/Perl5/simple/runme.pl28
-rw-r--r--Examples/GIFPlot/Perl5/simple/simple.i38
14 files changed, 0 insertions, 309 deletions
diff --git a/Examples/GIFPlot/Perl5/check.list b/Examples/GIFPlot/Perl5/check.list
deleted file mode 100644
index 13de977af..000000000
--- a/Examples/GIFPlot/Perl5/check.list
+++ /dev/null
@@ -1,4 +0,0 @@
-# see top-level Makefile.in
-full
-shadow
-simple
diff --git a/Examples/GIFPlot/Perl5/full/Makefile b/Examples/GIFPlot/Perl5/full/Makefile
deleted file mode 100644
index 0e0878d03..000000000
--- a/Examples/GIFPlot/Perl5/full/Makefile
+++ /dev/null
@@ -1,24 +0,0 @@
-TOP = ../../..
-SWIG = $(TOP)/../swig
-SWIGOPT = -I../../Include -noproxy
-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/Perl5/full/README b/Examples/GIFPlot/Perl5/full/README
deleted file mode 100644
index 05c685a80..000000000
--- a/Examples/GIFPlot/Perl5/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/Perl5/full/cmap b/Examples/GIFPlot/Perl5/full/cmap
deleted file mode 100644
index a20c331a9..000000000
--- a/Examples/GIFPlot/Perl5/full/cmap
+++ /dev/null
Binary files differ
diff --git a/Examples/GIFPlot/Perl5/full/gifplot.i b/Examples/GIFPlot/Perl5/full/gifplot.i
deleted file mode 100644
index 5a7f5008f..000000000
--- a/Examples/GIFPlot/Perl5/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/Perl5/full/runme.pl b/Examples/GIFPlot/Perl5/full/runme.pl
deleted file mode 100644
index 77fd321c9..000000000
--- a/Examples/GIFPlot/Perl5/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/Perl5/shadow/Makefile b/Examples/GIFPlot/Perl5/shadow/Makefile
deleted file mode 100644
index c39eac52c..000000000
--- a/Examples/GIFPlot/Perl5/shadow/Makefile
+++ /dev/null
@@ -1,25 +0,0 @@
-TOP = ../../..
-SWIG = $(TOP)/../swig
-SWIGOPT = -outcurrentdir
-SRCS =
-TARGET = gifplot
-INTERFACEDIR = ../../Interface/
-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)' INTERFACEDIR='$(INTERFACEDIR)' perl5
-
-static::
- $(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
- INCLUDES='$(INCLUDES)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
- TARGET='myperl' INTERFACE='$(INTERFACE)' INTERFACEDIR='$(INTERFACEDIR)' perl5_static
-
-clean::
- $(MAKE) -f $(TOP)/Makefile perl5_clean
- rm -f *.gif
-
-check: all
diff --git a/Examples/GIFPlot/Perl5/shadow/README b/Examples/GIFPlot/Perl5/shadow/README
deleted file mode 100644
index ab12e344e..000000000
--- a/Examples/GIFPlot/Perl5/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/Perl5/shadow/cmap b/Examples/GIFPlot/Perl5/shadow/cmap
deleted file mode 100644
index a20c331a9..000000000
--- a/Examples/GIFPlot/Perl5/shadow/cmap
+++ /dev/null
Binary files differ
diff --git a/Examples/GIFPlot/Perl5/shadow/runme.pl b/Examples/GIFPlot/Perl5/shadow/runme.pl
deleted file mode 100644
index c396251af..000000000
--- a/Examples/GIFPlot/Perl5/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";
-
diff --git a/Examples/GIFPlot/Perl5/simple/Makefile b/Examples/GIFPlot/Perl5/simple/Makefile
deleted file mode 100644
index 36a8fa938..000000000
--- a/Examples/GIFPlot/Perl5/simple/Makefile
+++ /dev/null
@@ -1,24 +0,0 @@
-TOP = ../../..
-SWIG = $(TOP)/../swig
-SWIGOPT =
-SRCS =
-TARGET = simple
-INTERFACE = simple.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)' 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/Perl5/simple/README b/Examples/GIFPlot/Perl5/simple/README
deleted file mode 100644
index c2c799a70..000000000
--- a/Examples/GIFPlot/Perl5/simple/README
+++ /dev/null
@@ -1,5 +0,0 @@
-This is a very minimalistic example in which just a few functions
-and constants from library are wrapped and used to draw some simple
-shapes. The script 'runme.pl' runs the example.
-
-
diff --git a/Examples/GIFPlot/Perl5/simple/runme.pl b/Examples/GIFPlot/Perl5/simple/runme.pl
deleted file mode 100644
index f28255e7c..000000000
--- a/Examples/GIFPlot/Perl5/simple/runme.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-# Draw some simple shapes
-print "Drawing some basic shapes\n";
-
-use simple;
-
-$cmap = simple::new_ColorMap();
-$f = simple::new_FrameBuffer(400,400);
-
-# Clear the picture
-simple::FrameBuffer_clear($f,$simple::BLACK);
-
-# Make a red box
-simple::FrameBuffer_box($f,40,40,200,200,$simple::RED);
-
-# Make a blue circle
-simple::FrameBuffer_circle($f,200,200,40,$simple::BLUE);
-
-# Make green line
-simple::FrameBuffer_line($f,10,390,390,200, $simple::GREEN);
-
-# Write an image out to disk
-
-simple::FrameBuffer_writeGIF($f,$cmap,"image.gif");
-print "Wrote image.gif\n";
-
-simple::delete_FrameBuffer($f);
-simple::delete_ColorMap($cmap);
-
diff --git a/Examples/GIFPlot/Perl5/simple/simple.i b/Examples/GIFPlot/Perl5/simple/simple.i
deleted file mode 100644
index 457bc4c09..000000000
--- a/Examples/GIFPlot/Perl5/simple/simple.i
+++ /dev/null
@@ -1,38 +0,0 @@
-/* This example shows a very simple interface wrapping a few
- primitive declarations */
-
-%module simple
-%{
-#include "gifplot.h"
-%}
-
-typedef unsigned char Pixel;
-
-/* Here are a few useful functions */
-
-ColorMap *new_ColorMap(char *filename = 0);
-void delete_ColorMap(ColorMap *cmap);
-
-FrameBuffer *new_FrameBuffer(unsigned int width, unsigned int height);
-void delete_FrameBuffer(FrameBuffer *frame);
-void FrameBuffer_clear(FrameBuffer *frame, Pixel color);
-void FrameBuffer_line(FrameBuffer *frame, int x1, int y1, int x2, int y2, Pixel color);
-void FrameBuffer_box(FrameBuffer *frame, int x1, int y1, int x2, int y2, Pixel color);
-void FrameBuffer_circle(FrameBuffer *frame, int x1, int y1, int radius, Pixel color);
-int FrameBuffer_writeGIF(FrameBuffer *f, ColorMap *c, char *filename);
-
-/* And some useful constants */
-
-#define BLACK 0
-#define WHITE 1
-#define RED 2
-#define GREEN 3
-#define BLUE 4
-#define YELLOW 5
-#define CYAN 6
-#define MAGENTA 7
-
-
-
-
-