addTitle2(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); # Use alternative light grey/dark grey sector background color $c->setPlotAreaBg(0xdddddd, 0xeeeeee, false); # Set the grid style to circular grid $c->setGridStyle(false); # Add a legend box at the top right corner of the chart using 9 pts Arial Bold font $legendObj = $c->addLegend(459, 0, true, "arialbd.ttf", 9); $legendObj->setAlignment(TopRight); # Set angular axis as 0 - 360, either 8 spokes $angularAxisObj = $c->angularAxis(); $angularAxisObj->setLinearScale2(0, 360, $labels); # Set the radial axis label format $radialAxisObj = $c->radialAxis(); $radialAxisObj->setLabelFormat("{value} km"); # Add a blue (0xff) polar line layer to the chart using (data0, angle0) $layer0 = $c->addLineLayer($data0, 0x0000ff, "Immortal Weed"); $layer0->setAngles($angles0); $layer0->setLineWidth(0); $layer0->setDataSymbol(TriangleSymbol, 11); # Add a red (0xff0000) polar line layer to the chart using (data1, angles1) $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(DiamondSymbol, 11); # Add a green (0x00ff00) polar line layer to the chart using (data2, angles2) $layer2 = $c->addLineLayer($data2, 0x00ff00, "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(SquareSymbol, 9); # output the chart header("Content-type: image/png"); print($c->makeChart2(PNG)); ?>