#!/usr/bin/perl
use perlchartdir;
#The data for the chart
my $data0 = [90, 25, 40, 55, 68, 44, 79, 85, 50];
my $angles0 = [15, 60, 110, 180, 230, 260, 260, 310, 340];
my $data1 = [80, 91, 66, 80, 92, 87];
my $angles1 = [40, 65, 88, 110, 150, 200];
#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*>Polar Line Chart Demo",
"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, with grids below the chart layers
$c->setGridStyle(0, 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 spoke every 30 units
$c->angularAxis()->setLinearScale(0, 360, 30);
#Add a blue (0xff) line layer to the chart using (data0, angle0)
my $layer0 = $c->addLineLayer($data0, 0xff, "Close Loop Line");
$layer0->setAngles($angles0);
#Set the line width to 2 pixels
$layer0->setLineWidth(2);
#Use 11 pixel triangle symbols for the data points
$layer0->setDataSymbol($perlchartdir::TriangleSymbol, 11);
#Enable data label and set its format
$layer0->setDataLabelFormat("({value},{angle})");
#Set the data label text box with light blue (0x9999ff) backgruond color and 1
#pixel 3D border effect
$layer0->setDataLabelStyle()->setBackground(0x9999ff,
$perlchartdir::Transparent, 1);
#Add a red (0xff0000) line layer to the chart using (data1, angle1)
my $layer1 = $c->addLineLayer($data1, 0xff0000, "Open Loop Line");
$layer1->setAngles($angles1);
#Set the line width to 2 pixels
$layer1->setLineWidth(2);
#Use 11 pixel diamond symbols for the data points
$layer1->setDataSymbol($perlchartdir::DiamondSymbol, 11);
#Set the line to open loop
$layer1->setCloseLoop(0);
#Enable data label and set its format
$layer1->setDataLabelFormat("({value},{angle})");
#Set the data label text box with light red (0xff9999) backgruond color and 1
#pixel 3D border effect
$layer1->setDataLabelStyle()->setBackground(0xff9999,
$perlchartdir::Transparent, 1);
#output the chart
$c->makeChart("polarline.png")
|