NAME
GD::Graph::Polar - Perl package to create polar graphs 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
This package is a wrapper around GD to produce polar graphs with an easy interface. I use this package to display GPS satellites on a graph with data from the Net::GPSD3 package.
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.
Objects
gdimage
Returns a GD object
gcnames
Returns a Graphics::ColorNames object
Properties
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;size
Sets or returns the width and height of the graph in pixels.
radius
Sets or returns the radius of the Graph
border
ticks
rgbfile
Sets or returns an RGB file.
Note: This method will search in a few locations for a file.
draw
Method returns a PNG binary blob.
my $png_binary = $obj->draw;LICENSE
MIT License
Copyright (c) 2022 Michael R. Davis