NAME
GD::Graph::Polar - Make polar graph using GD package
SYNOPSIS
use GD::Graph::Polar;
my $obj=GD::Graph::Polar->new(size=>480, radius=>100);
$obj->addPoint (50=>25);
$obj->addPoint_rad (50=>3.1415);
$obj->addGeoPoint (75=>25);
$obj->addGeoPoint_rad (75=>3.1415);
$obj->addLine($r0=>$t0, $r1=>$t1);
$obj->addLine_rad($r0=>$t0, $r1=>$t1);
$obj->addGeoLine($r0=>$t0, $r1=>$t1);
$obj->addGeoLine_rad($r0=>$t0, $r1=>$t1);
$obj->addArc($r0=>$t0, $r1=>$t1);
$obj->addArc_rad($r0=>$t0, $r1=>$t1);
$obj->addGeoArc($r0=>$t0, $r1=>$t1);
$obj->addGeoArc_rad($r0=>$t0, $r1=>$t1);
$obj->addString($r=>$t, "Hello World!");
$obj->addString_rad($r=>$t, "Hello World!");
$obj->addGeoString($r=>$t, "Hello World!");
$obj->addGeoString_rad($r=>$t, "Hello World!");
$obj->font(gdSmallFont); #sets the current font from GD exports
$obj->color("blue"); #sets the current color from Graphics::ColorNames
$obj->color([0,0,0]); #sets the current color [red,green,blue]
print $obj->draw;
DESCRIPTION
CONSTRUCTOR
new
The new() constructor.
my $obj = GD::Graph::Polar->new( #default values
size=>480, #width and height in pixels
radius=>1, #scale of the radius
ticks=>10, #number of major ticks
border=>2, #pixel border around graph
rgbfile=>"/usr/X11R6/lib/X11/rgb.txt"
);
METHODS
addPoint
Method to add a point to the graph.
$obj->addPoint(50=>25);
addPoint_rad
Method to add a point to the graph.
$obj->addPoint_rad(50=>3.1415);
addGeoPoint
Method to add a point to the graph.
$obj->addGeoPoint(75=>25);
addGeoPoint_rad
Method to add a point to the graph.
$obj->addGeoPoint_rad(75=>3.1415);
addLine
Method to add a line to the graph.
$obj->addLine(50=>25, 75=>35);
addLine_rad
Method to add a line to the graph.
$obj->addLine_rad(50=>3.14, 75=>3.45);
addGeoLine
Method to add a line to the graph.
$obj->addGeoLine(50=>25, 75=>35);
addGeoLine_rad
Method to add a line to the graph.
$obj->addGeoLine_rad(50=>3.14, 75=>3.45);
addArc
Method to add an arc to the graph.
$obj->addArc(50=>25, 75=>35);
addArc_rad
Method to add an arc to the graph.
$obj->addArc_rad(50=>3.14, 75=>3.45);
addGeoArc
Method to add an arc to the graph.
$obj->addGeoArc(50=>25, 75=>35);
addGeoArc_rad
Method to add an arc to the graph.
$obj->addGeoArc_rad(50=>25, 75=>35);
addString
Method to add a string to the graph.
addString_rad
Method to add a string to the graph.
addGeoString
Method to add a string to the graph.
addGeoString_rad
Method to add a string to the graph.
color
Method to set or return the current drawing color
my $colorobj=$obj->color("blue"); #if Graphics::ColorNames available
my $colorobj=$obj->color([77,82,68]); #rgb=>[decimal,decimal,decimal]
my $colorobj=$obj->color;
font
Method to set or return the current drawing font (only needed by the very few)
use GD qw(gdGiantFont gdLargeFont gdMediumBoldFont gdSmallFont gdTinyFont);
$obj->font(gdSmallFont); #the default
$obj->font;
draw
Method returns a PNG binary blob.
my $png_binary=$obj->draw;
TODO
BUGS
Please send to the geo-perl email list.
LIMITS
AUTHOR
Michael R. Davis qw/perl michaelrdavis com/
LICENSE
Copyright (c) 2006 Michael R. Davis (mrdvt92)
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.