setPlotArea(50, 40, 400, 200, 0xf8f8f8, 0xffffff); # Add a title to the chart using 14 pts Arial Bold Italic font $c->addTitle(" Bar Shape Demonstration", "arialbi.ttf", 14); # Add a multi-color bar chart layer $layer = $c->addBarLayer3($data); # Set layer to 3D with 10 pixels 3D depth $layer->set3D(10); # Set bar shape to circular (cylinder) $layer->setBarShape(CircleShape); # Set the first bar (index = 0) to square shape $layer->setBarShape(SquareShape, 0, 0); # Set the second bar to 8-pointed star $layer->setBarShape(StarShape(8), 0, 1); # Set the third bar to 6-sided polygon $layer->setBarShape(PolygonShape(6), 0, 2); # Set the next 3 bars to cross shape, X shape and diamond shape $layer->setBarShape(CrossShape(), 0, 3); $layer->setBarShape(Cross2Shape(), 0, 4); $layer->setBarShape(DiamondShape, 0, 5); # Set the last bar to a custom shape, specified as an array of (x, y) points in # normalized coordinates $layer->setBarShape2(array(-500, 0, 0, 500, 500, 0, 500, 1000, 0, 500, -500, 1000), 0, 6); # Set the labels on the x axis. $c->xAxis->setLabels($labels); # Add a title to the y axis $c->yAxis->setTitle("Frequency"); # Add a title to the x axis $c->xAxis->setTitle("Shapes"); # output the chart header("Content-type: image/png"); print($c->makeChart2(PNG)); ?>