ChartDirector 7.0 (Perl Edition)

Enhanced Area Chart




This example extends the Simple Area Chart example by decorating the chart using a number of chart formatting features.

Source Code Listing

perldemo\enhancedarea.pl
#!/usr/bin/perl # The ChartDirector for Perl module is assumed to be in "../lib" use File::Basename; use lib (dirname($0)."/../lib") =~ /(.*)/; use perlchartdir; # The data for the area chart my $data = [30, 28, 40, 55, 75, 68, 54, 60, 50, 62, 75, 65, 75, 89, 60, 55, 53, 35, 50, 66, 56, 48, 52, 65, 62]; # The labels for the area chart my $labels = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"]; # Create a XYChart object of size 600 x 360 pixels, with a brushed silver background, 1 pixel 3D # border effect, rounded corners and soft drop shadow. my $c = new XYChart(600, 360, perlchartdir::brushedSilverColor(), $perlchartdir::Transparent, 1); $c->setRoundedFrame(); $c->setDropShadow(); # Add a title box to the chart using 18pt Times Bold Italic font. my $title = $c->addTitle( "<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Performance Enhancer ". "<*img=star.png*><*img=star.png*><*/*>", "Times New Roman Bold Italic", 18); # # Use a text box with a depressed 3D border to create the inner depressed region # # The width of the frame border my $frameWidth = 5; # Set the depressed region position my $contentBox = $c->addText($frameWidth, $title->getHeight(), ""); $contentBox->setSize($c->getDrawArea()->getWidth() - 1 - $frameWidth * 2, $c->getDrawArea( )->getHeight() - $title->getHeight() - $frameWidth - 1); # Use -1 as the rasied effect to create a depressed region $contentBox->setBackground($perlchartdir::Transparent, $perlchartdir::Transparent, -1); # Set rounded corners, and put the text box at the back of the chart $contentBox->setRoundedCorners(10); $contentBox->setZOrder($perlchartdir::ChartBackZ); # Tentatively set the plotarea to 50 pixels from the left depressed edge, and 25 pixels under the # top depressed edge. Set the width to 75 pixels less than the depressed region width, and the # height to 75 pixels less than the depressed region height. Use white (ffffff) background, # transparent border, and grey (cccccc) horizontal and vertical grid lines. my $plotArea = $c->setPlotArea(50 + $contentBox->getLeftX(), $contentBox->getTopY() + 25, $contentBox->getWidth() - 75, $contentBox->getHeight() - 75, 0xffffff, -1, -1, 0xcccccc, -1); # Add a title to the y axis $c->yAxis()->setTitle("Energy Concentration (KJ per liter)"); # Set the labels on the x axis. $c->xAxis()->setLabels($labels); # Display 1 out of 3 labels on the x-axis. $c->xAxis()->setLabelStep(3); # Add a title to the x axis using CDML $c->xAxis()->setTitle("<*block,valign=absmiddle*><*img=clock.png*> Elapsed Time (hour)<*/*>"); # Set the axes width to 2 pixels $c->xAxis()->setWidth(2); $c->yAxis()->setWidth(2); # Add an area layer to the chart using a gradient color that changes vertically from # semi-transparent red (60ff0000) to semi-transparent white (60ffffff) $c->addAreaLayer($data, $c->linearGradientColor(0, $contentBox->getTopY() + 20, 0, $contentBox->getTopY() + $contentBox->getHeight() - 50, 0x60ff0000, 0x60ffffff)); # Adjust the plot area size, such that the bounding box (inclusive of axes) is 15 pixels from the # left depressed edge, 25 pixels below the top depressed edge, 25 pixels from the right depressed # edge, and 15 pixels above the bottom depressed edge. $c->packPlotArea($contentBox->getLeftX() + 15, $contentBox->getTopY() + 25, $contentBox->getLeftX() + $contentBox->getWidth() - 25, $contentBox->getTopY() + $contentBox->getHeight() - 15); # Add a custom CDML text with the bottom right corner is anchored to the bootom right corner of the # plot area, with 5 pixels margin. $c->addText($plotArea->getLeftX() + $plotArea->getWidth() - 5, $plotArea->getTopY() + $plotArea->getHeight() - 5, "<*block,valign=absmiddle*><*img=small_molecule.png*> <*block*><*font=Times New Roman Bold ". "Italic,size=10,color=804040*>Molecular\nEngineering<*/*>")->setAlignment( $perlchartdir::BottomRight); # Output the chart $c->makeChart("enhancedarea.jpg");