ChartDirector Ver 3.0 (Perl Edition)

Spline Line Chart




This example demonstrates using spline curves to join data points, as well as a number of advanced chart formatting techniques.

Source Code Listing

[File: perldemo/splineline.pl] (The CGI version is available as "perldemo_cgi/splineline.pl".)
#!/usr/bin/perl use perlchartdir; #The data for the chart my $data0 = [32, 39, 23, 28, 41, 36]; my $data1 = [50, 55, 47, 34, 47, 56]; #The labels for the chart my $labels = ["0", "1", "2", "3", "4", "5"]; #Create a XYChart object of size 500 x 300 pixels, using 0xf0e090 as the #background color, with a black border, and 1 pixel 3D border effect. my $c = new XYChart(500, 300, 0xf0e090, 0x0, 1); #Set the plotarea at (55, 50) and of size 420 x 205 pixels, using 0xfff0c0 as #the plot area background color, and 0xa08040 as the grid and border colors. #Turn on both horizontal and vertical grid lines with light grey color #(0xc0c0c0) $c->setPlotArea(55, 50, 420, 205, 0xfff0c0, -1, 0xa08040, 0xa08040, 0xa08040); #Add a legend box at (55, 25) (top of the chart) with horizontal layout. Use 8 #pts Arial font. Set the background and border color to Transparent. $c->addLegend(55, 25, 0, "", 8)->setBackground($perlchartdir::Transparent); #Add a title box to the chart using 13 pts Arial Bold Italic font. The title is #in CDML and includes embedded images for highlight. The text is white #(0xffffff) on a brown (0x807040) background, with a 1 pixel 3D border. $c->addTitle( "<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Performance ". "Enhancer <*img=star.png*><*img=star.png*><*/*>", "arialbi.ttf", 13, 0xffffff)->setBackground(0x807040, -1, 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); #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 (0xc0) as the line color, with #yellow (0xffff00) circle symbols. $layer->addDataSet($data1, 0xc0, "Target Group")->setDataSymbol( $perlchartdir::CircleSymbol, 9, 0xffff00); #Add a data set to the spline layer, using brown (0x982810) as the line color, #with pink (0xf040f0) diamond symbols. $layer->addDataSet($data0, 0x982810, "Control Group")->setDataSymbol( $perlchartdir::DiamondSymbol, 9, 0xf040f0); #Add a custom CDML text at the bottom right of the plot area as the logo $c->addText(475, 255, "<*block,valign=absmiddle*><*img=small_molecule.png*> <*block*>". "<*font=timesbi.ttf,size=10,color=804040*>Molecular\nEngineering<*/*>" )->setAlignment($perlchartdir::BottomRight); #output the chart $c->makeChart("splineline.png")