#!/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 bar chart my $data = [450, 560, 630, 800, 1100, 1350, 1600, 1950, 2300, 2700]; # The labels for the bar chart my $labels = ["1996", "1997", "1998", "1999", "2000", "2001", "2002", "2003", "2004", "2005"]; # Create a XYChart object of size 600 x 360 pixels my $c = new XYChart(600, 360); # Add a title to the chart using 18pts Times Bold Italic font $c->addTitle("Annual Revenue for Star Tech", "timesbi.ttf", 18); # Set the plotarea at (60, 40) and of size 500 x 280 pixels. Use a vertical gradient # color from light blue (eeeeff) to deep blue (0000cc) as background. Set border and # grid lines to white (ffffff). $c->setPlotArea(60, 40, 500, 280, $c->linearGradientColor(60, 40, 60, 280, 0xeeeeff, 0x0000cc), -1, 0xffffff, 0xffffff); # Add a multi-color bar chart layer using the supplied data. Use soft lighting effect # with light direction from top. $c->addBarLayer3($data)->setBorderColor($perlchartdir::Transparent, perlchartdir::softLighting($perlchartdir::Top)); # Set x axis labels using the given labels $c->xAxis()->setLabels($labels); # Draw the ticks between label positions (instead of at label positions) $c->xAxis()->setTickOffset(0.5); # When auto-scaling, use tick spacing of 40 pixels as a guideline $c->yAxis()->setTickDensity(40); # Add a title to the y axis with 12pts Times Bold Italic font $c->yAxis()->setTitle("USD (millions)", "timesbi.ttf", 12); # Set axis label style to 8pts Arial Bold $c->xAxis()->setLabelStyle("arialbd.ttf", 8); $c->yAxis()->setLabelStyle("arialbd.ttf", 8); # Set axis line width to 2 pixels $c->xAxis()->setWidth(2); $c->yAxis()->setWidth(2); # Create the image and save it in a temporary location my $chart1URL = $c->makeTmpFile("/tmp/tmpcharts"); # Create an image map for the chart my $imageMap = $c->getHTMLImageMap("clickline.pl", "", "title='{xLabel}: US\$ {value|0}M'"); print "Content-type: text/html\n\n"; print <

Simple Clickable Bar Chart

View Source Code

$imageMap EndOfHTML ;