~ubuntu-branches/ubuntu/maverick/swig1.3/maverick

« back to all changes in this revision

Viewing changes to Examples/GIFPlot/Perl/simple/runme.pl

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Examples/GIFPlot/Perl/simple/runme.pl

 

1

# Draw some simple shapes

 

2

print "Drawing some basic shapes\n";

 

3

 

 

4

use simple;

 

5

 

 

6

$cmap = simple::new_ColorMap();

 

7

$f    = simple::new_FrameBuffer(400,400);

 

8

 

 

9

# Clear the picture

 

10

simple::FrameBuffer_clear($f,$simple::BLACK);

 

11

 

 

12

# Make a red box

 

13

simple::FrameBuffer_box($f,40,40,200,200,$simple::RED);

 

14

 

 

15

# Make a blue circle

 

16

simple::FrameBuffer_circle($f,200,200,40,$simple::BLUE);

 

17

 

 

18

# Make green line

 

19

simple::FrameBuffer_line($f,10,390,390,200, $simple::GREEN);

 

20

 

 

21

# Write an image out to disk

 

22

 

 

23

simple::FrameBuffer_writeGIF($f,$cmap,"image.gif");

 

24

print "Wrote image.gif\n";

 

25

 

 

26

simple::delete_FrameBuffer($f);

 

27

simple::delete_ColorMap($cmap);

 

28

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1