# 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);