
This example demonstrates loading external image files as data symbols by using DataSet.setDataSymbol2.
ChartDirector Ver 4.1 (Perl Edition)
Custom Symbols
Source Code Listing
#!/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([0x000040, 0x000080], 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") |
#!/usr/bin/perl # Include current script directory in the module path (needed on Microsoft IIS). # This allows this script to work by copying ChartDirector to the same directory # as the script (as an alternative to installation in Perl module directory) use File::Basename; use lib dirname($0); 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([0x000040, 0x000080], 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(dirname($0). "/small_user.png"); # Add the first line using small_computer.png as the symbol. $layer->addDataSet($data1, 0x40cf40, "Computers")->setDataSymbol2(dirname($0). "/small_computer.png"); # Set the line width to 3 pixels $layer->setLineWidth(3); # output the chart binmode(STDOUT); print "Content-type: image/png\n\n"; print $c->makeChart2($perlchartdir::PNG); |