jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

moved from Perl to fix naming kludge

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5030 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2003-09-01 14:10:07 +00:00
commit dedad5aae1
7 changed files with 0 additions and 209 deletions
Download patch file Download diff file Expand all files Collapse all files

24
SWIG/Examples/GIFPlot/Perl/full/Makefile
View file

@ -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

8
SWIG/Examples/GIFPlot/Perl/full/README
View file

@ -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.

15
SWIG/Examples/GIFPlot/Perl/full/gifplot.i
View file

@ -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

68
SWIG/Examples/GIFPlot/Perl/full/runme.pl
View file

@ -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";

24
SWIG/Examples/GIFPlot/Perl/shadow/Makefile
View file

@ -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

2
SWIG/Examples/GIFPlot/Perl/shadow/README
View file

@ -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'.

68
SWIG/Examples/GIFPlot/Perl/shadow/runme.pl
View file

@ -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";