3 # Draw some simple shapes
4 print "Drawing some basic shapes\n";
8 $cmap = new_ColorMap();
9 $f = new_FrameBuffer(400,400);
12 FrameBuffer_clear($f,BLACK);
15 FrameBuffer_box($f,40,40,200,200,RED);
18 FrameBuffer_circle($f,200,200,40,BLUE);
21 FrameBuffer_line($f,10,390,390,200, GREEN);
23 # Write an image out to disk
25 FrameBuffer_writeGIF($f,$cmap,"image.gif");
26 print "Wrote image.gif\n";
28 delete_FrameBuffer($f);
29 delete_ColorMap($cmap);