ChartDirector 7.0 (Perl Edition)

Spline Line Chart




This example demonstrates using spline curves to join data points, title with soft lighting effect, as well as a number of chart formatting techniques.

Source Code Listing

perldemo\splineline.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 chart my $data0 = [32, 39, 23, 28, 41, 38, 26, 35, 29]; my $data1 = [50, 55, 47, 34, 47, 53, 38, 40, 51]; # The labels for the chart my $labels = ["0", "1", "2", "3", "4", "5", "6", "7", "8"]; # Create a XYChart object of size 600 x 300 pixels, with a pale red (ffdddd) background, black # border, 1 pixel 3D border effect and rounded corners. my $c = new XYChart(600, 300, 0xffdddd, 0x000000, 1); $c->setRoundedFrame(); # Set the plotarea at (55, 58) and of size 520 x 195 pixels, with white (ffffff) background. Set # horizontal and vertical grid lines to grey (cccccc). $c->setPlotArea(55, 58, 520, 195, 0xffffff, -1, -1, 0xcccccc, 0xcccccc); # Add a legend box at (55, 32) (top of the chart) with horizontal layout. Use 9pt Arial Bold font. # Set the background and border color to Transparent. $c->addLegend(55, 32, 0, "Arial Bold", 9)->setBackground($perlchartdir::Transparent); # Add a title box to the chart using 15pt Times Bold Italic font. The title is in CDML and includes # embedded images for highlight. The text is white (ffffff) on a dark red (880000) background, with # soft lighting effect from the right side. $c->addTitle( "<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Performance Enhancer ". "<*img=star.png*><*img=star.png*><*/*>", "Times New Roman Bold Italic", 15, 0xffffff )->setBackground(0x880000, -1, perlchartdir::softLighting($perlchartdir::Right)); # 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); # Add a title to the x axis using CMDL $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 a spline layer to the chart my $layer = $c->addSplineLayer(); # Set the default line width to 2 pixels $layer->setLineWidth(2); # Add a data set to the spline layer, using blue (0000c0) as the line color, with yellow (ffff00) # circle symbols. $layer->addDataSet($data1, 0x0000c0, "Target Group")->setDataSymbol($perlchartdir::CircleSymbol, 9, 0xffff00); # Add a data set to the spline layer, using brown (982810) as the line color, with pink (f040f0) # diamond symbols. $layer->addDataSet($data0, 0x982810, "Control Group")->setDataSymbol($perlchartdir::DiamondSymbol, 11, 0xf040f0); # Add a custom CDML text at the bottom right of the plot area as the logo $c->addText(575, 250, "<*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("splineline.png");