1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# 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);
|
