a59e9a4405
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@219 626c5289-ae23-0410-ae9c-e8d60b6d4f22
28 lines
627 B
Perl
28 lines
627 B
Perl
# 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);
|
|
|