
This example demonstrates the built-in symbols supported by ChartDirector.
ChartDirector Ver 5.0 (Perl Edition)
Built-In Symbols
Source Code Listing
#!/usr/bin/perl use perlchartdir; # Some ChartDirector built-in symbols my $symbols = [$perlchartdir::CircleShape, $perlchartdir::GlassSphereShape, $perlchartdir::GlassSphere2Shape, $perlchartdir::SolidSphereShape, $perlchartdir::SquareShape, $perlchartdir::DiamondShape, $perlchartdir::TriangleShape, $perlchartdir::RightTriangleShape, $perlchartdir::LeftTriangleShape, $perlchartdir::InvertedTriangleShape, perlchartdir::StarShape(3), perlchartdir::StarShape(4), perlchartdir::StarShape(5 ), perlchartdir::StarShape(6), perlchartdir::StarShape(7), perlchartdir::StarShape(8), perlchartdir::StarShape(9), perlchartdir::StarShape( 10), perlchartdir::PolygonShape(5), perlchartdir::Polygon2Shape(5), perlchartdir::PolygonShape(6), perlchartdir::Polygon2Shape(6), perlchartdir::CrossShape(0.1), perlchartdir::CrossShape(0.2), perlchartdir::CrossShape(0.3), perlchartdir::CrossShape(0.4), perlchartdir::CrossShape(0.5), perlchartdir::CrossShape(0.6), perlchartdir::CrossShape(0.7), perlchartdir::Cross2Shape(0.1), perlchartdir::Cross2Shape(0.2), perlchartdir::Cross2Shape(0.3), perlchartdir::Cross2Shape(0.4), perlchartdir::Cross2Shape(0.5), perlchartdir::Cross2Shape(0.6), perlchartdir::Cross2Shape(0.7)]; # Create a XYChart object of size 450 x 400 pixels my $c = new XYChart(450, 400); # Set the plotarea at (55, 40) and of size 350 x 300 pixels, with a light grey border # (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color # (0xc0c0c0) $c->setPlotArea(55, 40, 350, 300, -1, -1, 0xc0c0c0, 0xc0c0c0, -1); # Add a title to the chart using 18 pts Times Bold Itatic font. $c->addTitle("Built-in Symbols", "timesbi.ttf", 18); # Set the axes line width to 3 pixels $c->xAxis()->setWidth(3); $c->yAxis()->setWidth(3); # Ensure the ticks are at least 1 unit part (integer ticks) $c->xAxis()->setMinTickInc(1); $c->yAxis()->setMinTickInc(1); # Add each symbol as a separate scatter layer. for(my $i = 0; $i < scalar(@$symbols); ++$i) { $c->addScatterLayer([$i % 6 + 1], [int($i / 6 + 1)], "", $symbols->[$i], 15); } # Output the chart $c->makeChart("builtinsymbols.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; # Some ChartDirector built-in symbols my $symbols = [$perlchartdir::CircleShape, $perlchartdir::GlassSphereShape, $perlchartdir::GlassSphere2Shape, $perlchartdir::SolidSphereShape, $perlchartdir::SquareShape, $perlchartdir::DiamondShape, $perlchartdir::TriangleShape, $perlchartdir::RightTriangleShape, $perlchartdir::LeftTriangleShape, $perlchartdir::InvertedTriangleShape, perlchartdir::StarShape(3), perlchartdir::StarShape(4), perlchartdir::StarShape(5 ), perlchartdir::StarShape(6), perlchartdir::StarShape(7), perlchartdir::StarShape(8), perlchartdir::StarShape(9), perlchartdir::StarShape( 10), perlchartdir::PolygonShape(5), perlchartdir::Polygon2Shape(5), perlchartdir::PolygonShape(6), perlchartdir::Polygon2Shape(6), perlchartdir::CrossShape(0.1), perlchartdir::CrossShape(0.2), perlchartdir::CrossShape(0.3), perlchartdir::CrossShape(0.4), perlchartdir::CrossShape(0.5), perlchartdir::CrossShape(0.6), perlchartdir::CrossShape(0.7), perlchartdir::Cross2Shape(0.1), perlchartdir::Cross2Shape(0.2), perlchartdir::Cross2Shape(0.3), perlchartdir::Cross2Shape(0.4), perlchartdir::Cross2Shape(0.5), perlchartdir::Cross2Shape(0.6), perlchartdir::Cross2Shape(0.7)]; # Create a XYChart object of size 450 x 400 pixels my $c = new XYChart(450, 400); # Set the plotarea at (55, 40) and of size 350 x 300 pixels, with a light grey border # (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color # (0xc0c0c0) $c->setPlotArea(55, 40, 350, 300, -1, -1, 0xc0c0c0, 0xc0c0c0, -1); # Add a title to the chart using 18 pts Times Bold Itatic font. $c->addTitle("Built-in Symbols", "timesbi.ttf", 18); # Set the axes line width to 3 pixels $c->xAxis()->setWidth(3); $c->yAxis()->setWidth(3); # Ensure the ticks are at least 1 unit part (integer ticks) $c->xAxis()->setMinTickInc(1); $c->yAxis()->setMinTickInc(1); # Add each symbol as a separate scatter layer. for(my $i = 0; $i < scalar(@$symbols); ++$i) { $c->addScatterLayer([$i % 6 + 1], [int($i / 6 + 1)], "", $symbols->[$i], 15); } # Output the chart binmode(STDOUT); print "Content-type: image/png\n\n"; print $c->makeChart2($perlchartdir::PNG); |