
This example demonstrates using PyramidChart.setFunnelSize to specify using a funnel instead of a pyramid to represent the data.
ChartDirector 5.1 (Perl Edition)
Funnel Chart
Source Code Listing
#!/usr/bin/perl use perlchartdir; # The data for the pyramid chart my $data = [156, 123, 211, 179]; # The labels for the pyramid chart my $labels = ["Corporate Tax", "Working Capital", "Re-investment", "Dividend"]; # The colors for the pyramid layers my $colors = [0x66aaee, 0xeebb22, 0xcccccc, 0xcc88ff]; # Create a PyramidChart object of size 500 x 400 pixels my $c = new PyramidChart(500, 400); # Set the funnel center at (200, 210), and width x height to 150 x 300 pixels $c->setFunnelSize(200, 210, 150, 300); # Set the elevation to 5 degrees $c->setViewAngle(5); # Set the pyramid data and labels $c->setData($data, $labels); # Set the layer colors to the given colors $c->setColors2($perlchartdir::DataColor, $colors); # Leave 1% gaps between layers $c->setLayerGap(0.01); # Add labels at the right side of the pyramid layers using Arial Bold font. The # labels will have 3 lines showing the layer name, value and percentage. $c->setRightLabel("{label}\nUS \${value}K\n({percent}%)", "arialbd.ttf"); # Output the chart $c->makeChart("funnel.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 pyramid chart my $data = [156, 123, 211, 179]; # The labels for the pyramid chart my $labels = ["Corporate Tax", "Working Capital", "Re-investment", "Dividend"]; # The colors for the pyramid layers my $colors = [0x66aaee, 0xeebb22, 0xcccccc, 0xcc88ff]; # Create a PyramidChart object of size 500 x 400 pixels my $c = new PyramidChart(500, 400); # Set the funnel center at (200, 210), and width x height to 150 x 300 pixels $c->setFunnelSize(200, 210, 150, 300); # Set the elevation to 5 degrees $c->setViewAngle(5); # Set the pyramid data and labels $c->setData($data, $labels); # Set the layer colors to the given colors $c->setColors2($perlchartdir::DataColor, $colors); # Leave 1% gaps between layers $c->setLayerGap(0.01); # Add labels at the right side of the pyramid layers using Arial Bold font. The # labels will have 3 lines showing the layer name, value and percentage. $c->setRightLabel("{label}\nUS \${value}K\n({percent}%)", "arialbd.ttf"); # Output the chart binmode(STDOUT); print "Content-type: image/png\n\n"; print $c->makeChart2($perlchartdir::PNG); |