3D Bubble Chart (3)

perldemo\threedbubble3.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 points for the bubble chart
my $dataX0 = [170, 300, 1000, 1700];
my $dataY0 = [16, 69, 16, 75];
my $dataZ0 = [52, 105, 88, 140];

my $dataX1 = [500, 1000, 1300];
my $dataY1 = [40, 58, 85];
my $dataZ1 = [140, 202, 84];

# Create a XYChart object of size 540 x 480 pixels
my $c = new XYChart(540, 480);

# Set the plotarea at (70, 65) and of size 400 x 350 pixels. Turn on both horizontal and vertical
# grid lines with light grey color (0xc0c0c0)
$c->setPlotArea(70, 65, 400, 350, -1, -1, $perlchartdir::Transparent, 0xc0c0c0, -1);

# Add a legend box at (70, 30) (top of the chart) with horizontal layout. Use 12pt Times Bold Italic
# font. Set the background and border color to Transparent.
$c->addLegend(70, 30, 0, "Times New Roman Bold Italic", 12)->setBackground(
    $perlchartdir::Transparent);

# Add a title to the chart using 18pt Times Bold Itatic font.
$c->addTitle("Product Comparison Chart", "Times New Roman Bold Italic", 18);

# Add titles to the axes using 12pt Arial Bold Italic font
$c->yAxis()->setTitle("Capacity (tons)", "Arial Bold Italic", 12);
$c->xAxis()->setTitle("Range (miles)", "Arial Bold Italic", 12);

# Set the axes line width to 3 pixels
$c->xAxis()->setWidth(3);
$c->yAxis()->setWidth(3);

# Add (dataX0, dataY0) as a scatter layer with red (ff3333) spheres, where the sphere size is
# modulated by dataZ0. This creates a bubble effect.
$c->addScatterLayer($dataX0, $dataY0, "Technology AAA", $perlchartdir::SolidSphereShape, 15,
    0xff3333)->setSymbolScale($dataZ0);

# Add (dataX1, dataY1) as a scatter layer with blue (0000ff) spheres, where the sphere size is
# modulated by dataZ1. This creates a bubble effect.
$c->addScatterLayer($dataX1, $dataY1, "Technology BBB", $perlchartdir::SolidSphereShape, 15,
    0x0000ff)->setSymbolScale($dataZ1);

# Output the chart
$c->makeChart("threedbubble3.png");