Added GIFPlot example
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@219 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley
parent
35affa77e5
commit
a59e9a4405
49 changed files with 8487 additions and 0 deletions
23
SWIG/Examples/GIFPlot/Tcl/mandel/Makefile
Normal file
23
SWIG/Examples/GIFPlot/Tcl/mandel/Makefile
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
TOP = ../../..
|
||||
SWIG = $(TOP)/../swig
|
||||
SWIGOPT = -I../../Interface
|
||||
SRCS =
|
||||
TARGET = gifplot
|
||||
INTERFACE = mandel.i
|
||||
LIBS = -L../.. -lgifplot
|
||||
INCLUDE = -I../../Include
|
||||
|
||||
all::
|
||||
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
|
||||
INCLUDE='$(INCLUDE)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
|
||||
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' tcl
|
||||
|
||||
static::
|
||||
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
|
||||
INCLUDE='$(INCLUDE)' LIBS='$(LIBS)' SWIGOPT='$(SWIGOPT)' \
|
||||
TARGET='mywish' INTERFACE='$(INTERFACE)' wish
|
||||
|
||||
clean::
|
||||
rm -f *_wrap* *.o *~ *.so mywish .~* core *.gif
|
||||
|
||||
|
||||
6
SWIG/Examples/GIFPlot/Tcl/mandel/README
Normal file
6
SWIG/Examples/GIFPlot/Tcl/mandel/README
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
Kill lots of time exploring the Mandelbrot set. This example uses
|
||||
the full SWIG interface file located in ../../Interface. To run
|
||||
the program, type 'wish mandel.tcl'.
|
||||
|
||||
|
||||
|
||||
BIN
SWIG/Examples/GIFPlot/Tcl/mandel/cmap
Normal file
BIN
SWIG/Examples/GIFPlot/Tcl/mandel/cmap
Normal file
Binary file not shown.
68
SWIG/Examples/GIFPlot/Tcl/mandel/display.tcl
Normal file
68
SWIG/Examples/GIFPlot/Tcl/mandel/display.tcl
Normal file
|
|
@ -0,0 +1,68 @@
|
|||
# Tcl code to display a image in a widget
|
||||
|
||||
set __imageno 0
|
||||
|
||||
proc dismiss {t i} {
|
||||
destroy $t
|
||||
image delete $i
|
||||
}
|
||||
|
||||
proc BoxInit { c p2 mxmin mymin mxmax mymax func } {
|
||||
bind $c <Button-1> {BoxBegin %W %x %y}
|
||||
bind $c <B1-Motion> {BoxDrag %W %x %y}
|
||||
bind $c <ButtonRelease-1> "BoxFinish %W %x %y $p2 $mxmin $mymin $mxmax $mymax $func"
|
||||
}
|
||||
|
||||
proc BoxBegin {w x y} {
|
||||
global box
|
||||
set box(anchor) [list $x $y]
|
||||
catch {unset box(last)}
|
||||
}
|
||||
|
||||
proc BoxDrag { w x y} {
|
||||
global box
|
||||
catch {$w delete $box(last)}
|
||||
set box(last) [eval {$w create rect} $box(anchor) {$x $y -tag box -outline white}]
|
||||
}
|
||||
|
||||
proc BoxFinish {w x y p2 mxmin mymin mxmax mymax func } {
|
||||
global box
|
||||
set start $box(anchor)
|
||||
set x1 [lrange $start 0 0]
|
||||
set y1 [lrange $start 1 1]
|
||||
catch {$w delete $box(last)}
|
||||
# Call the handler function
|
||||
$func $p2 $mxmin $mymin $mxmax $mymax $x1 $y1 $x $y
|
||||
}
|
||||
|
||||
proc display_image {filename p2 handler} {
|
||||
global __imageno __images
|
||||
set i [image create photo -file $filename]
|
||||
set tl .image$__imageno
|
||||
toplevel $tl
|
||||
frame $tl.img
|
||||
frame $tl.button
|
||||
|
||||
set width [image width $i]
|
||||
set height [image height $i]
|
||||
canvas $tl.img.c -width [expr {$width+0}] -height [expr {$height+0}]
|
||||
pack $tl.img.c
|
||||
$tl.img.c create image 0 0 -image $i -anchor nw
|
||||
label $tl.button.label -text $filename
|
||||
pack $tl.button.label -side left
|
||||
button $tl.button.dismiss -text "Dismiss" -command "dismiss $tl $i" -width 10
|
||||
pack $tl.button.dismiss -side right
|
||||
pack $tl.img $tl.button -side top -fill x
|
||||
BoxInit $tl.img.c $p2 [$p2 cget -xmin] [$p2 cget -ymin] [$p2 cget -xmax] [$p2 cget -ymax] $handler
|
||||
bind $tl <Key-q> "dismiss $tl $i"
|
||||
bind $tl <Key-Escape> "dismiss $tl $i"
|
||||
|
||||
# Bind some actions to the canvas
|
||||
|
||||
incr __imageno 1
|
||||
}
|
||||
|
||||
proc test {} {
|
||||
puts "hello"
|
||||
}
|
||||
|
||||
47
SWIG/Examples/GIFPlot/Tcl/mandel/mandel.i
Normal file
47
SWIG/Examples/GIFPlot/Tcl/mandel/mandel.i
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
// Special module to run the mandlebrot set
|
||||
%module gifplot
|
||||
%include gifplot.i
|
||||
|
||||
%inline %{
|
||||
|
||||
void mandel(Plot2D *p2, int tol) {
|
||||
double scalingx;
|
||||
double scalingy;
|
||||
double zr,zi,ztr,zti,cr,ci;
|
||||
double cscale;
|
||||
int i,j,n;
|
||||
FrameBuffer *f;
|
||||
|
||||
f = p2->frame;
|
||||
scalingx = (p2->xmax-p2->xmin)/f->width;
|
||||
scalingy = (p2->ymax-p2->ymin)/f->height;
|
||||
|
||||
cscale = 239.0/tol;
|
||||
printf("working...\n");
|
||||
for (i = 0; i < f->width; i++) {
|
||||
for (j = 0; j < f->height; j++) {
|
||||
zr = scalingx*i + p2->xmin;
|
||||
zi = scalingy*j + p2->ymin;
|
||||
cr = zr;
|
||||
ci = zi;
|
||||
n = 0;
|
||||
while (n < tol) {
|
||||
ztr = zr*zr-zi*zi + cr;
|
||||
zti = 2*zr*zi + ci;
|
||||
zr = ztr;
|
||||
zi = zti;
|
||||
if (ztr*ztr + zti*zti > 20) break;
|
||||
n = n + 1;
|
||||
}
|
||||
|
||||
if (n >= tol) FrameBuffer_plot(f,i,j,BLACK);
|
||||
else FrameBuffer_plot(f,i,j,16+(int) (n*cscale));
|
||||
}
|
||||
if ((i % 10) == 0) printf("%d\n",i);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
%}
|
||||
|
||||
|
||||
171
SWIG/Examples/GIFPlot/Tcl/mandel/mandel.tcl
Normal file
171
SWIG/Examples/GIFPlot/Tcl/mandel/mandel.tcl
Normal file
|
|
@ -0,0 +1,171 @@
|
|||
catch { load ./gifplot.so }
|
||||
catch { load ./gifplot.dll } ; # Windows
|
||||
source display.tcl
|
||||
set tcl_precision 17
|
||||
set f [FrameBuffer -args 400 400]
|
||||
set cmap [ColorMap -args cmap]
|
||||
set p2 [Plot2D -args $f -3 -2 1 2]
|
||||
|
||||
set xmin -3
|
||||
set xmax 1
|
||||
set ymin -2.0
|
||||
set ymax 2.0
|
||||
set tolerance 240
|
||||
set filename mandel.gif
|
||||
|
||||
# Make a plot from the above parms
|
||||
|
||||
proc make_plot {} {
|
||||
global p2 cmap tolerance
|
||||
global xmin ymin xmax ymax filename
|
||||
$p2 setrange $xmin $ymin $xmax $ymax
|
||||
$p2 start
|
||||
. config -cursor watch
|
||||
update
|
||||
mandel $p2 $tolerance
|
||||
. config -cursor arrow
|
||||
[$p2 cget -frame] writeGIF $cmap $filename
|
||||
display_image $filename $p2 set_zoom
|
||||
}
|
||||
|
||||
|
||||
# Take some screen coordinates and set global min and max values
|
||||
|
||||
proc set_zoom {p2 mxmin mymin mxmax mymax x1 y1 x2 y2} {
|
||||
global xmin ymin xmax ymax
|
||||
|
||||
set frame [$p2 cget -frame]
|
||||
set width [$frame cget -width]
|
||||
set height [$frame cget -height]
|
||||
|
||||
if {$x1 < 0} {set x1 0}
|
||||
if {$x1 > ($width)} {set x1 $width}
|
||||
if {$x2 < 0} {set x2 0}
|
||||
if {$x2 > ($width)} {set x2 $width}
|
||||
if {$x1 < $x2} {set ixmin $x1; set ixmax $x2} {set ixmin $x2; set ixmax $x1}
|
||||
|
||||
if {$y1 < 0} {set y1 0}
|
||||
if {$y1 > ($height)} {set y1 $height}
|
||||
if {$y2 < 0} {set y2 0}
|
||||
if {$y2 > ($height)} {set y2 $height}
|
||||
if {$y1 < $y2} {set iymin $y1; set iymax $y2} {set iymin $y2; set iymax $y1}
|
||||
|
||||
# Now determine new min and max values based on screen location
|
||||
|
||||
set xmin [expr {$mxmin + ($mxmax-$mxmin)*($ixmin)/($width)}]
|
||||
set xmax [expr {$mxmin + ($mxmax-$mxmin)*($ixmax)/($width)}]
|
||||
set ymin [expr {$mymin + ($mymax-$mymin)*(($height)-($iymax))/($height)}]
|
||||
set ymax [expr {$mymin + ($mymax-$mymin)*(($height)-($iymin))/($height)}]
|
||||
|
||||
catch {make_plot}
|
||||
}
|
||||
|
||||
# Box drag constrained to a square
|
||||
proc BoxDrag { w x y} {
|
||||
global box
|
||||
catch {$w delete $box(last)}
|
||||
set x1 [lrange $box(anchor) 0 0]
|
||||
set y1 [lrange $box(anchor) 1 1]
|
||||
set dx [expr {$x - $x1}]
|
||||
set dy [expr {$y - $y1}]
|
||||
if {abs($dy) > abs($dx)} {set dx $dy}
|
||||
set newx [expr {$x1 + $dx}]
|
||||
set newy [expr {$y1 + $dx}]
|
||||
set box(last) [eval {$w create rect} $box(anchor) {$newx $newy -tag box -outline white}]
|
||||
}
|
||||
|
||||
|
||||
proc BoxFinish {w x y p2 mxmin mymin mxmax mymax func } {
|
||||
global box
|
||||
set start $box(anchor)
|
||||
set x1 [lrange $box(anchor) 0 0]
|
||||
set y1 [lrange $box(anchor) 1 1]
|
||||
set dx [expr {$x - $x1}]
|
||||
set dy [expr {$y - $y1}]
|
||||
if {($dx == 0) || ($dy == 0)} {
|
||||
catch {$w delete $box(last)}
|
||||
return
|
||||
}
|
||||
if {abs($dy) > abs($dx)} {set dx $dy}
|
||||
set newx [expr {$x1 + $dx}]
|
||||
set newy [expr {$y1 + $dx}]
|
||||
$w config -cursor watch
|
||||
update
|
||||
# Call the handler function
|
||||
$func $p2 $mxmin $mymin $mxmax $mymax $x1 $y1 $newx $newy
|
||||
catch {$w delete $box(last)}
|
||||
$w config -cursor arrow
|
||||
}
|
||||
|
||||
|
||||
# Create a few frames
|
||||
|
||||
wm title . Mandelbrot
|
||||
frame .title -relief groove -borderwidth 1
|
||||
label .title.name -text "Mandelbrot Set"
|
||||
button .title.quit -text "Quit" -command "exit"
|
||||
button .title.about -text "About" -command "about"
|
||||
pack .title.name -side left
|
||||
pack .title.quit .title.about -side right
|
||||
|
||||
frame .func -relief groove -borderwidth 1
|
||||
|
||||
frame .func.xrange
|
||||
label .func.xrange.xrlabel -text "X range" -width 12
|
||||
entry .func.xrange.xmin -textvar xmin -width 8
|
||||
label .func.xrange.xtolabel -text "to"
|
||||
entry .func.xrange.xmax -textvar xmax -width 8
|
||||
pack .func.xrange.xrlabel .func.xrange.xmin .func.xrange.xtolabel .func.xrange.xmax -side left
|
||||
|
||||
frame .func.yrange
|
||||
label .func.yrange.yrlabel -text "Y range" -width 12
|
||||
entry .func.yrange.ymin -textvar ymin -width 8
|
||||
label .func.yrange.ytolabel -text "to"
|
||||
entry .func.yrange.ymax -textvar ymax -width 8
|
||||
pack .func.yrange.yrlabel .func.yrange.ymin .func.yrange.ytolabel .func.yrange.ymax -side left
|
||||
|
||||
frame .func.npoints
|
||||
label .func.npoints.label -text "Tolerance " -width 12
|
||||
entry .func.npoints.npoints -textvar tolerance -width 8
|
||||
scale .func.npoints.scale -from 0 -to 2500 -variable tolerance -orient horizontal -showvalue false \
|
||||
-sliderlength 13 -bigincrement 10 -resolution 10
|
||||
pack .func.npoints.label .func.npoints.npoints .func.npoints.scale -side left
|
||||
|
||||
pack .func.xrange .func.yrange .func.npoints -side top -fill x
|
||||
|
||||
# Filename dialog
|
||||
|
||||
frame .save -relief groove -borderwidth 1
|
||||
|
||||
frame .save.file
|
||||
label .save.file.label -text "Save as" -width 12
|
||||
entry .save.file.filename -textvar filename -width 20
|
||||
pack .save.file.label .save.file.filename -side left
|
||||
pack .save.file -side left -fill x
|
||||
button .save.go -text "Plot" -command "make_plot"
|
||||
pack .save.go -side right
|
||||
|
||||
bind .save.file.filename <Return> {make_plot}
|
||||
|
||||
pack .title .func .save -side top -fill both
|
||||
|
||||
proc about { } {
|
||||
toplevel .about -width 350
|
||||
|
||||
message .about.m -text "\
|
||||
Mandelbrot Set\n\n\
|
||||
Copyright (c) 1997\n\
|
||||
Dave Beazley\n\
|
||||
University of Utah\n\n\
|
||||
Creates a plot of the Mandelbrot set. Any displayed image can be zoomed by clicking and \
|
||||
dragging. Although the main calculation is written in C, it may take awhile for each \
|
||||
image to be calculated (be patient). Image quality can be improved at the expense of speed \
|
||||
by increasing the tolerance value.\n"
|
||||
|
||||
button .about.okay -text "Ok" -command {destroy .about}
|
||||
|
||||
pack .about.m .about.okay -side top
|
||||
focus .about.okay
|
||||
}
|
||||
|
||||
make_plot
|
||||
Loading…
Add table
Add a link
Reference in a new issue