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