#!/usr/bin/perl # Include current script directory in the module path (needed on Microsoft IIS). # This allows this script to work by copying ChartDirector to the same directory # as the script (as an alternative to installation in Perl module directory) use File::Basename; use lib dirname($0) =~ /(.*)/; use perlchartdir; # The data for the line chart my $data0 = [50, 55, 47, 36, 42, 49, 63, 62, 73, 59, 56, 50, 64, 60, 67, 67, 58, 59, 73, 77, 84, 82, 80, 84]; my $data1 = [36, 28, 25, 33, 38, 20, 22, 30, 25, 33, 30, 24, 28, 36, 30, 45, 46, 42, 48, 45, 43, 52, 64, 70]; # The labels for the line chart my $labels = ["Jan-04", "Feb-04", "Mar-04", "Apr-04", "May-04", "Jun-04", "Jul-04", "Aug-04", "Sep-04", "Oct-04", "Nov-04", "Dec-04", "Jan-05", "Feb-05", "Mar-05", "Apr-05", "May-05", "Jun-05", "Jul-05", "Aug-05", "Sep-05", "Oct-05", "Nov-05", "Dec-05"]; # Create an XYChart object of size 600 x 360 pixels, with a light blue (EEEEFF) # background, black border, 1 pxiel 3D border effect and rounded corners my $c = new XYChart(600, 360, 0xeeeeff, 0x000000, 1); $c->setRoundedFrame(); # Set plotarea at (55, 60) with size of 520 x 240 pixels. Use white (ffffff) as # background and grey (cccccc) for grid lines $c->setPlotArea(55, 60, 520, 240, 0xffffff, -1, -1, 0xcccccc, 0xcccccc); # Add a legend box at (55, 58) (top of plot area) using 9 pts Arial Bold font with # horizontal layout Set border and background colors of the legend box to Transparent my $legendBox = $c->addLegend(55, 58, 0, "arialbd.ttf", 9); $legendBox->setBackground($perlchartdir::Transparent); # Reserve 10% margin at the top of the plot area during auto-scaling to leave space # for the legends. $c->yAxis()->setAutoScale(0.1); # Add a title to the chart using 15 pts Times Bold Italic font. The text is white # (ffffff) on a blue (0000cc) background, with glass effect. my $title = $c->addTitle("Monthly Revenue for Year 2000/2001", "timesbi.ttf", 15, 0xffffff); $title->setBackground(0x0000cc, 0x000000, perlchartdir::glassEffect( $perlchartdir::ReducedGlare)); # Add a title to the y axis $c->yAxis()->setTitle("Month Revenue (USD millions)"); # Set the labels on the x axis. Draw the labels vertical (angle = 90) $c->xAxis()->setLabels($labels)->setFontAngle(90); # Add a vertical mark at x = 17 using a semi-transparent purple (809933ff) color and # Arial Bold font. Attached the mark (and therefore its label) to the top x axis. my $mark = $c->xAxis2()->addMark(17, 0x809933ff, "Merge with Star Tech", "arialbd.ttf"); # Set the mark line width to 2 pixels $mark->setLineWidth(2); # Set the mark label font color to purple (0x9933ff) $mark->setFontColor(0x9933ff); # Add a copyright message at (575, 295) (bottom right of plot area) using Arial Bold # font my $copyRight = $c->addText(575, 295, "(c) Copyright Space Travel Ltd", "arialbd.ttf" ); $copyRight->setAlignment($perlchartdir::BottomRight); # Add a line layer to the chart my $layer = $c->addLineLayer(); # Set the default line width to 3 pixels $layer->setLineWidth(3); # Add the data sets to the line layer $layer->addDataSet($data0, -1, "Enterprise"); $layer->addDataSet($data1, -1, "Consumer"); # Create the image my $chart1URL = $c->makeTmpFile("/tmp/tmpcharts"); # Create an image map for the chart my $chartImageMap = $c->getHTMLImageMap("xystub.pl", "", "title='{dataSetName} @ {xLabel} = USD {value|0} millions'"); # Create an image map for the legend box my $legendImageMap = $legendBox->getHTMLImageMap( "javascript:popMsg('the legend key [{dataSetName}]');", " ", "title='This legend key is clickable!'"); # Obtain the image map coordinates for the title, mark, and copyright message. These # will be used to define the image map inline. (See HTML code below.) my $titleCoor = $title->getImageCoor(); my $markCoor = $mark->getImageCoor(); my $copyRightCoor = $copyRight->getImageCoor(); print "Content-type: text/html\n\n"; print <

Custom Clickable Objects

View Source Code

In the following chart, the lines, legend keys, title, copyright, and the "Merge with Star Tech" text are all clickable!

$chartImageMap $legendImageMap EndOfHTML ;