setPlotArea(55, 65, 350, 300, -1, -1, 0xc0c0c0, 0xc0c0c0, -1); # Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 12 pts # Times Bold Italic font. Set the background and border color to Transparent. $legendObj = $c->addLegend(50, 30, false, "timesbi.ttf", 12); $legendObj->setBackground(Transparent); # Add a title to the chart using 18 pts Times Bold Itatic font. $c->addTitle("Genetically Modified Predator", "timesbi.ttf", 18); # Add a title to the y axis using 12 pts Arial Bold Italic font $c->yAxis->setTitle("Length (cm)", "arialbi.ttf", 12); # Add a title to the x axis using 12 pts Arial Bold Italic font $c->xAxis->setTitle("Weight (kg)", "arialbi.ttf", 12); # Set the axes line width to 3 pixels $c->xAxis->setWidth(3); $c->yAxis->setWidth(3); # Add an orange (0xff9933) scatter chart layer, using 13 pixel diamonds as symbols $c->addScatterLayer($dataX0, $dataY0, "Genetically Engineered", DiamondSymbol, 13, 0xff9933); # Add a green (0x33ff33) scatter chart layer, using 11 pixel triangles as symbols $c->addScatterLayer($dataX1, $dataY1, "Natural", TriangleSymbol, 11, 0x33ff33); # output the chart header("Content-type: image/png"); print($c->makeChart2(PNG)); ?>