ChartDirector 7.0 (Perl Edition)

Donut Chart




This example demonstrates a donut chart with ring shading effects. It also demonstrates brushed metal background, rounded frame, customized sector labels and using CDML and Parameter Substitution and Formatting to format legend text.

Source Code Listing

perldemo\donut.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 data for the pie chart my $data = [25, 18, 15, 12, 8, 30, 35]; # The labels for the pie chart my $labels = ["Labor", "Licenses", "Taxes", "Legal", "Insurance", "Facilities", "Production"]; # Create a PieChart object of size 600 x 320 pixels. Set background color to brushed silver, with a # 2 pixel 3D border. Use rounded corners of 20 pixels radius. my $c = new PieChart(600, 320, perlchartdir::brushedSilverColor(), $perlchartdir::Transparent, 2); $c->setRoundedFrame(0xffffff, 20); # Add a title using 18pt Times New Roman Bold Italic font. #Set top/bottom margins to 8 pixels. my $title = $c->addTitle("Donut Chart Demonstration", "Times New Roman Bold Italic", 18); $title->setMargin2(0, 0, 8, 8); # Add a 2 pixels wide separator line just under the title $c->addLine(10, $title->getHeight(), $c->getWidth() - 11, $title->getHeight(), $perlchartdir::LineColor, 2); # Set donut center at (160, 175), and outer/inner radii as 110/55 pixels $c->setDonutSize(160, 175, 110, 55); # Set the pie data and the pie labels $c->setData($data, $labels); # Use ring shading effect for the sectors $c->setSectorStyle($perlchartdir::RingShading); # Use the side label layout method, with the labels positioned 16 pixels from the donut bounding box $c->setLabelLayout($perlchartdir::SideLayout, 16); # Show only the sector number as the sector label $c->setLabelFormat("{={sector}+1}"); # Set the sector label style to Arial Bold 10pt, with a dark grey (444444) border $c->setLabelStyle("Arial Bold", 10)->setBackground($perlchartdir::Transparent, 0x444444); # Add a legend box, with the center of the left side anchored at (330, 175), and using 10pt Arial # Bold Italic font my $b = $c->addLegend(330, 175, 1, "Arial Bold Italic", 10); $b->setAlignment($perlchartdir::Left); # Set the legend box border to dark grey (444444), and with rounded conerns $b->setBackground($perlchartdir::Transparent, 0x444444); $b->setRoundedCorners(); # Set the legend box margin to 16 pixels, and the extra line spacing between the legend entries as 5 # pixels $b->setMargin(16); $b->setKeySpacing(0, 5); # Set the legend text to show the sector number, followed by a 120 pixels wide block showing the # sector label, and a 40 pixels wide block showing the percentage $b->setText( "<*block,valign=top*>{={sector}+1}.<*advanceTo=22*><*block,width=120*>{label}<*/*>". "<*block,width=40,halign=right*>{percent}<*/*>%"); # Output the chart $c->makeChart("donut.jpg");