ChartDirector 7.0 (Perl Edition)

Symbol Line Chart (2)




This example demonstrates using symbols to represent data points and using gradient color for plot area background.

Source Code Listing

perldemo\symbolline2.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 line chart my $data0 = [42, 49, 33, 38, 64, 56, 29, 41, 44, 57, 59, 42]; my $data1 = [65, 75, 47, 34, 42, 49, 73, 62, 90, 69, 66, 78]; my $data2 = [36, 28, 25, 28, 38, 20, 22, 30, 25, 33, 30, 24]; my $labels = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]; # Create a XYChart object of size 600 x 375 pixels my $c = new XYChart(600, 375); # Add a title to the chart using 18pt Times Bold Italic font $c->addTitle("Product Line Global Revenue", "Times New Roman Bold Italic", 18); # Set the plotarea at (50, 55) and of 500 x 280 pixels in size. Use a vertical gradient color from # light blue (f9f9ff) to sky blue (aaccff) as background. Set border to transparent and grid lines # to white (ffffff). $c->setPlotArea(50, 55, 500, 280, $c->linearGradientColor(0, 55, 0, 335, 0xf9fcff, 0xaaccff), -1, $perlchartdir::Transparent, 0xffffff); # Add a legend box at (50, 28) using horizontal layout. Use 10pt Arial Bold as font, with # transparent background. $c->addLegend(50, 28, 0, "Arial Bold", 10)->setBackground($perlchartdir::Transparent); # Set the x axis labels $c->xAxis()->setLabels($labels); # Set y-axis tick density to 30 pixels. ChartDirector auto-scaling will use this as the guideline # when putting ticks on the y-axis. $c->yAxis()->setTickDensity(30); # Set axis label style to 8pt Arial Bold $c->xAxis()->setLabelStyle("Arial Bold", 8); $c->yAxis()->setLabelStyle("Arial Bold", 8); # Set axis line width to 2 pixels $c->xAxis()->setWidth(2); $c->yAxis()->setWidth(2); # Add axis title using 10pt Arial Bold Italic font $c->yAxis()->setTitle("Revenue in USD millions", "Arial Bold Italic", 10); # Add a line layer to the chart my $layer = $c->addLineLayer2(); # Set the line width to 3 pixels $layer->setLineWidth(3); # Add the three data sets to the line layer, using circles, diamands and X shapes as symbols $layer->addDataSet($data0, 0xff0000, "Quantum Computer")->setDataSymbol($perlchartdir::CircleSymbol, 9); $layer->addDataSet($data1, 0x00ff00, "Atom Synthesizer")->setDataSymbol( $perlchartdir::DiamondSymbol, 11); $layer->addDataSet($data2, 0xff6600, "Proton Cannon")->setDataSymbol(perlchartdir::Cross2Shape(), 11 ); # Output the chart $c->makeChart("symbolline2.png");