ChartDirector Ver 3.0 (Perl Edition)

Custom Symbols




This examples demonstrates using external image files as data symbols. This is achieved by using DataSet.setDataSymbol2.

Source Code Listing

[File: perldemo/customsymbolline.pl] (The CGI version is available as "perldemo_cgi/customsymbolline.pl".)
#!/usr/bin/perl use perlchartdir; #The data for the chart my $data0 = [600, 800, 1200, 1500, 1800, 1900, 2000, 1950]; my $data1 = [300, 450, 500, 1000, 1500, 1600, 1650, 1600]; #The labels for the chart my $labels = ["1995", "1996", "1997", "1998", "1999", "2000", "2001", "2002"]; #Create a XYChart object of size 450 x 250 pixels, with a pale yellow (0xffffc0) #background, a black border, and 1 pixel 3D border effect. my $c = new XYChart(450, 250, 0xffffc0, 0, 1); #Set the plotarea at (60, 45) and of size 360 x 170 pixels, using white #(0xffffff) as the plot area background color. Turn on both horizontal and #vertical grid lines with light grey color (0xc0c0c0) $c->setPlotArea(60, 45, 360, 170, 0xffffff, -1, -1, 0xc0c0c0, -1); #Add a legend box at (60, 20) (top of the chart) with horizontal layout. Use 8 #pts Arial Bold font. Set the background and border color to Transparent. $c->addLegend(60, 20, 0, "arialbd.ttf", 8)->setBackground( $perlchartdir::Transparent); #Add a title to the chart using 12 pts Arial Bold/white font. Use a 1 x 2 bitmap #pattern as the background. $c->addTitle("Information Resource Usage", "arialbd.ttf", 12, 0xffffff )->setBackground($c->patternColor([0x40, 0x80], 2)); #Set the labels on the x axis $c->xAxis()->setLabels($labels); #Reserve 8 pixels margins at both side of the x axis to avoid the first and last #symbols drawing outside of the plot area $c->xAxis()->setMargin(8, 8); #Add a title to the y axis $c->yAxis()->setTitle("Population"); #Add a line layer to the chart my $layer = $c->addLineLayer2(); #Add the first line using small_user.png as the symbol. $layer->addDataSet($data0, 0xcf4040, "Users")->setDataSymbol2("small_user.png"); #Add the first line using small_computer.png as the symbol. $layer->addDataSet($data1, 0x40cf40, "Computers")->setDataSymbol2( "small_computer.png"); #Set the line width to 3 pixels $layer->setLineWidth(3); #output the chart $c->makeChart("customsymbolline.png")