Skip to content
Browse files

Area examples

  • Loading branch information...
1 parent cef4e9e commit 41f5f08e527246d876ff3affbaeb1e0d204b3778 @gphat committed
Showing with 121 additions and 0 deletions.
  1. +60 −0 area/area.pl
  2. BIN area/area.png
  3. +61 −0 area/stacked-area.pl
  4. BIN area/stacked-area.png
View
60 area/area.pl
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+use strict;
+
+use Chart::Clicker;
+use Chart::Clicker::Context;
+use Chart::Clicker::Data::DataSet;
+use Chart::Clicker::Data::Marker;
+use Chart::Clicker::Data::Series;
+use Chart::Clicker::Renderer::Area;
+use Geometry::Primitive::Rectangle;
+use Graphics::Color::RGB;
+use Geometry::Primitive::Circle;
+
+my $cc = Chart::Clicker->new(width => 500, height => 250, format => 'png');
+
+my @hours = qw(
+ 1 2 3 4 5 6 7 8 9 10 11 12
+);
+my @bw1 = qw(
+ 5.8 5.0 4.9 4.8 4.5 4.25 3.5 2.9 2.5 1.8 .9 .8
+);
+my @bw2 = qw(
+ .7 1.1 1.7 2.5 3.0 4.5 5.0 4.9 4.7 4.8 4.2 4.4
+);
+my @bw3 = qw(
+ .3 1.4 1.2 1.5 4.0 3.5 2.0 1.9 2.7 4.2 3.2 1.1
+);
+
+my $series1 = Chart::Clicker::Data::Series->new(
+ keys => \@hours,
+ values => \@bw1,
+);
+my $series2 = Chart::Clicker::Data::Series->new(
+ keys => \@hours,
+ values => \@bw2,
+);
+
+my $series3 = Chart::Clicker::Data::Series->new(
+ keys => \@hours,
+ values => \@bw3,
+);
+
+my $ds = Chart::Clicker::Data::DataSet->new(series => [ $series1, $series2, $series3 ]);
+
+$cc->title->text('Area Chart');
+$cc->title->padding->bottom(5);
+$cc->add_to_datasets($ds);
+
+my $defctx = $cc->get_context('default');
+
+my $area = Chart::Clicker::Renderer::Area->new(opacity => .6);
+$area->brush->width(3);
+$defctx->renderer($area);
+
+$defctx->range_axis->label('Lorem');
+$defctx->domain_axis->label('Ipsum');
+
+$defctx->renderer->brush->width(2);
+
+$cc->write_output('area.png');
View
BIN area/area.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
61 area/stacked-area.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+use strict;
+
+use Chart::Clicker;
+use Chart::Clicker::Context;
+use Chart::Clicker::Data::DataSet;
+use Chart::Clicker::Data::Marker;
+use Chart::Clicker::Data::Series;
+use Chart::Clicker::Renderer::StackedArea;
+use Geometry::Primitive::Rectangle;
+use Graphics::Color::RGB;
+use Geometry::Primitive::Circle;
+
+my $cc = Chart::Clicker->new(width => 500, height => 250, format => 'png');
+
+my @hours = qw(
+ 1 2 3 4 5 6 7 8 9 10 11 12
+);
+my @bw1 = qw(
+ 5.8 5.0 4.9 4.8 4.5 4.25 3.5 2.9 2.5 1.8 .9 .8
+);
+my @bw2 = qw(
+ .7 1.1 1.7 2.5 3.0 4.5 5.0 4.9 4.7 4.8 4.2 4.4
+);
+my @bw3 = qw(
+ .3 1.4 1.2 1.5 4.0 3.5 2.0 1.9 2.7 4.2 3.2 1.1
+);
+
+my $series1 = Chart::Clicker::Data::Series->new(
+ keys => \@hours,
+ values => \@bw1,
+);
+my $series2 = Chart::Clicker::Data::Series->new(
+ keys => \@hours,
+ values => \@bw2,
+);
+
+my $series3 = Chart::Clicker::Data::Series->new(
+ keys => \@hours,
+ values => \@bw3,
+);
+
+my $ds = Chart::Clicker::Data::DataSet->new(series => [ $series1, $series2, $series3 ]);
+
+$cc->title->text('Stacked Area Chart');
+$cc->title->padding->bottom(5);
+$cc->add_to_datasets($ds);
+
+my $defctx = $cc->get_context('default');
+
+my $area = Chart::Clicker::Renderer::StackedArea->new(opacity => .6);
+$area->brush->width(3);
+$defctx->renderer($area);
+
+$defctx->range_axis->label('Lorem');
+$defctx->domain_axis->label('Ipsum');
+$defctx->range_axis->fudge_amount(.02);
+
+$defctx->renderer->brush->width(2);
+
+$cc->write_output('stacked-area.png');
View
BIN area/stacked-area.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.

0 comments on commit 41f5f08

Please sign in to comment.
Something went wrong with that request. Please try again.