#!/usr/bin/perl
use perlchartdir;
#The data for the chart
my $data0 = [43, 89, 76, 64, 48, 18, 92, 68, 44, 79, 71, 85];
my $angles0 = [45, 96, 169, 258, 15, 30, 330, 260, 60, 75, 110, 140];
my $data1 = [50, 91, 26, 29, 80, 53, 62, 87, 19, 40];
my $angles1 = [230, 210, 240, 310, 179, 250, 244, 199, 89, 160];
my $data2 = [88, 65, 76, 49, 80, 53];
my $angles2 = [340, 310, 340, 210, 30, 300];
#The labels on the angular axis (spokes)
my $labels = ["North", "North\nEast", "East", "South\nEast", "South",
"South\nWest", "West", "North\nWest"];
#Create a PolarChart object of size 460 x 460 pixels
my $c = new PolarChart(460, 460);
#Add a title to the chart at the top left corner using 15pts Arial Bold Italic
#font
$c->addTitle2($perlchartdir::TopLeft, "<*underline=2*>Plants in Wonderland",
"arialbi.ttf", 15);
#Set center of plot area at (230, 240) with radius 180 pixels
$c->setPlotArea(230, 240, 180);
#Set the grid style to circular grid
$c->setGridStyle(0);
#Add a legend box at the top right corner of the chart using 9 pts Arial Bold
#font
$c->addLegend(459, 0, 1, "arialbd.ttf", 9)->setAlignment($perlchartdir::TopRight
);
#Set angular axis as 0 - 360, either 8 spokes
$c->angularAxis()->setLinearScale2(0, 360, $labels);
#Set the radial axis label format
$c->radialAxis()->setLabelFormat("{value} km");
#Add a blue (0xff) polar line layer to the chart using (data0, angle0)
my $layer0 = $c->addLineLayer($data0, 0xff, "Immortal Weed");
$layer0->setAngles($angles0);
$layer0->setLineWidth(0);
$layer0->setDataSymbol($perlchartdir::TriangleSymbol, 11);
#Add a red (0xff0000) polar line layer to the chart using (data1, angles1)
my $layer1 = $c->addLineLayer($data1, 0xff0000, "Precious Flower");
$layer1->setAngles($angles1);
#Disable the line by setting its width to 0, so only the symbols are visible
$layer1->setLineWidth(0);
#Use a 11 pixel diamond data point symbol
$layer1->setDataSymbol($perlchartdir::DiamondSymbol, 11);
#Add a green (0x00ff00) polar line layer to the chart using (data2, angles2)
my $layer2 = $c->addLineLayer($data2, 0xff00, "Magical Tree");
$layer2->setAngles($angles2);
#Disable the line by setting its width to 0, so only the symbols are visible
$layer2->setLineWidth(0);
#Use a 9 pixel square data point symbol
$layer2->setDataSymbol($perlchartdir::SquareSymbol, 9);
#output the chart
$c->makeChart("polarscatter.png")
|