ChartDirector 7.0 (Perl Edition)

Concentric Donut Chart




This example demonstrates creating concentric donut chart by merging two donuts of different radii.

The chart in this example is created as two separate PieChart objects. The first PieChart represents the outer donut chart and the overall structure of the chart (such as the legend box, chart title, etc). The second PieChart has a Transparent background and represents the inner donut chart. The two charts are merged together by using the DrawArea.merge method.

Source Code Listing

perldemo\concentric.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; # Data for outer ring my $data = [88, 124, 96]; # Data for inner ring my $data2 = [77, 87, 45]; # Labels for the sectors my $labels = ["Hardware", "Software", "Services"]; # Colors for the sectors my $colors = [0xff9999, 0x9999ff, 0x66ff66]; # # Create the main chart, which contains the chart title, the outer ring, and the legend box # # Create a PieChart object of size 450 x 360 pixels, with transparent background my $c = new PieChart(450, 360); # Add a title to the chart with 18pt Times Bold Italic font $c->addTitle("Concentric Donut Chart", "Times New Roman Bold Italic", 18); # Set donut center at (160, 200), and outer/inner radii as 150/100 pixels $c->setDonutSize(160, 200, 150, 100); # Add a label at the bottom-right corner of the ring to label the outer ring Use 12pt Arial Bold # Italic font in white (ffffff) color, on a green (008800) background, with soft lighting effect and # 5 pixels rounded corners my $t = $c->addText(260, 300, " Year 2006 ", "Arial Bold Italic", 12, 0xffffff); $t->setBackground(0x008800, $perlchartdir::Transparent, perlchartdir::softLighting()); $t->setRoundedCorners(5); # Set the legend box at (320, 50) with 12pt Arial Bold Italic font, with no border $c->addLegend(320, 50, 1, "Arial Bold Italic", 13)->setBackground($perlchartdir::Transparent, $perlchartdir::Transparent); # Set the pie data and the pie labels $c->setData($data, $labels); # Set the pie colors $c->setColors2($perlchartdir::DataColor, $colors); # Set pie border color to white (ffffff) $c->setLineColor(0xffffff); # Set pie label to value in $###M format, percentage in (##.#%) format, in two lines. $c->setLabelFormat("\${value}M<*br*>({percent|1}%)"); # Use 10pt Airal Bold for the sector labels $c->setLabelStyle("Arial Bold", 10); # Set the label position to -25 pixels from the sector (which would be internal to the sector) $c->setLabelPos(-25); # # Create the inner ring. # # Create a PieChart object of size 280 x 320 pixels, with transparent background my $c2 = new PieChart(280, 320, $perlchartdir::Transparent); # Set donut center at (110, 110), and outer/inner radii as 100/50 pixels $c2->setDonutSize(110, 110, 100, 50); # Add a label at the center of the ring to label the inner ring. Use 12pt Arial Bold Italic font in # white (ffffff) color, on a deep blue (0000cc) background, with soft lighting effect and 5 pixels # rounded corners my $t2 = $c2->addText(110, 110, " Year 2005 ", "Arial Bold Italic", 12, 0xffffff, $perlchartdir::Center); $t2->setBackground(0x0000cc, $perlchartdir::Transparent, perlchartdir::softLighting()); $t2->setRoundedCorners(5); # Set the pie data and the pie labels $c2->setData($data2, $labels); # Set the pie colors $c2->setColors2($perlchartdir::DataColor, $colors); # Set pie border color to white (ffffff) $c2->setLineColor(0xffffff); # Set pie label to value in $###M format, percentage in (##.#%) format, in two lines. $c2->setLabelFormat("\${value}M<*br*>({percent|1}%)"); # Use 10pt Airal Bold for the sector labels $c2->setLabelStyle("Arial Bold", 10); # Set the label position to -25 pixels from the sector (which would be internal to the sector) $c2->setLabelPos(-25); # merge the inner ring into the outer ring at (50, 90) $c->makeChart3()->merge($c2->makeChart3(), 50, 90, $perlchartdir::TopLeft, 0); # Output the chart $c->makeChart("concentric.png");