ChartDirector 7.0 (Perl Edition)

3D Scatter Chart (1)




This example demonstrates the basic steps in creating 3D scatter charts.

Source Code Listing

perldemo\threedscatter.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 XYZ data for the 3D scatter chart as 3 random data series my $r = new RanSeries(0); my $xData = $r->getSeries2(100, 100, -10, 10); my $yData = $r->getSeries2(100, 0, 0, 20); my $zData = $r->getSeries2(100, 100, -10, 10); # Create a ThreeDScatterChart object of size 720 x 600 pixels my $c = new ThreeDScatterChart(720, 600); # Add a title to the chart using 20 points Times New Roman Italic font $c->addTitle("3D Scatter Chart (1) ", "Times New Roman Italic", 20); # Set the center of the plot region at (350, 280), and set width x depth x height to 360 x 360 x 270 # pixels $c->setPlotRegion(350, 280, 360, 360, 270); # Add a scatter group to the chart using 11 pixels glass sphere symbols, in which the color depends # on the z value of the symbol $c->addScatterGroup($xData, $yData, $zData, "", $perlchartdir::GlassSphere2Shape, 11, $perlchartdir::SameAsMainColor); # Add a color axis (the legend) in which the left center is anchored at (645, 270). Set the length # to 200 pixels and the labels on the right side. $c->setColorAxis(645, 270, $perlchartdir::Left, 200, $perlchartdir::Right); # Set the x, y and z axis titles using 10 points Arial Bold font $c->xAxis()->setTitle("X-Axis Place Holder", "Arial Bold", 10); $c->yAxis()->setTitle("Y-Axis Place Holder", "Arial Bold", 10); $c->zAxis()->setTitle("Z-Axis Place Holder", "Arial Bold", 10); # Output the chart $c->makeChart("threedscatter.png");