File: simple.pl

package info (click to toggle)
swig 1.1p5-1
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 9,448 kB
  • ctags: 5,025
  • sloc: cpp: 21,599; ansic: 13,333; yacc: 3,297; python: 2,794; makefile: 2,197; perl: 1,984; tcl: 1,583; sh: 736; lisp: 201; objc: 143
file content (17 lines) | stat: -rw-r--r-- 379 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# Simple GIFPlot example in Perl

use gifplot;
package gifplot;

$f = new FrameBuffer(300,300);
$cm = new ColorMap("cmap");

$f->clear($BLACK);
$f->drawstring(50,50, $WHITE,$BLACK, "Hello world", $HORIZONTAL);
$f->solidbox(200,200,220,240,$BLUE);
$f->line(0,290,293,50,$RED);
$f->circle(100,100,10,$YELLOW);
$f->writeGIF($cm,"plot.gif");

print "Image written to 'plot.gif'\n";