Browse files

Bubble & point

  • Loading branch information...
1 parent 41f5f08 commit f3d663c4f5e326f008b3e0e8f7311f13972f22b3 @gphat committed Nov 26, 2009
Showing with 58 additions and 33 deletions.
  1. +56 −0 bubble/bubble.pl
  2. BIN bubble/bubble.png
  3. +2 −33 { → point}/point.pl
  4. BIN point/point.png
View
56 bubble/bubble.pl
@@ -0,0 +1,56 @@
+#!/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::Size;
+use Geometry::Primitive::Rectangle;
+use Chart::Clicker::Renderer::Bubble;
+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::Size->new(
+ keys => \@hours,
+ values => \@bw1,
+ sizes => [qw(2 5 9 1 8 9 2 1 3 8 3 1)]
+);
+my $series2 = Chart::Clicker::Data::Series::Size->new(
+ keys => \@hours,
+ values => \@bw2,
+ sizes => [qw(2 5 4 1 8 9 2 1 6 8 8 7)]
+);
+
+my $series3 = Chart::Clicker::Data::Series::Size->new(
+ keys => \@hours,
+ values => \@bw3,
+ sizes => [qw(2 5 3 1 8 9 2 1 1 4 2 5)]
+);
+
+my $ds = Chart::Clicker::Data::DataSet->new(series => [ $series1, $series2, $series3 ]);
+
+$cc->add_to_datasets($ds);
+
+my $defctx = $cc->get_context('default');
+
+$defctx->range_axis->fudge_amount(.05);
+$defctx->domain_axis->fudge_amount(.05);
+$defctx->renderer(Chart::Clicker::Renderer::Bubble->new);
+
+$cc->write_output('bubble.png');
View
BIN bubble/bubble.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
35 point.pl → point/point.pl
@@ -11,7 +11,7 @@
use Graphics::Color::RGB;
use Geometry::Primitive::Circle;
-my $cc = Chart::Clicker->new(width => 500, height => 250, format => 'pdf');
+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
@@ -41,43 +41,12 @@
);
-$cc->border->width(0);
-$cc->background_color(
- Graphics::Color::RGB->new(red => .95, green => .94, blue => .92)
-);
-my $grey = Graphics::Color::RGB->new(
- red => .36, green => .36, blue => .36, alpha => 1
-);
-my $moregrey = Graphics::Color::RGB->new(
- red => .71, green => .71, blue => .71, alpha => 1
-);
-my $orange = Graphics::Color::RGB->new(
- red => .88, green => .48, blue => .09, alpha => 1
-);
-$cc->color_allocator->colors([ $grey, $moregrey, $orange ]);
-
-$cc->plot->grid->background_color->alpha(0);
my $ds = Chart::Clicker::Data::DataSet->new(series => [ $series1, $series2, $series3 ]);
$cc->add_to_datasets($ds);
my $defctx = $cc->get_context('default');
-$cc->plot->grid->show_domain(0);
-$defctx->range_axis->label('Lorem');
-$defctx->range_axis->fudge_amount(.05);
-$defctx->domain_axis->fudge_amount(.05);
-$defctx->domain_axis->label('Ipsum');
-$defctx->domain_axis->tick_label_angle(0.785398163);
-$defctx->range_axis->label_font->family('Hoefler Text');
-$defctx->range_axis->tick_font->family('Gentium');
-$defctx->domain_axis->tick_font->family('Gentium');
-$defctx->domain_axis->label_font->family('Hoefler Text');
$defctx->renderer(Chart::Clicker::Renderer::Point->new);
-
-$cc->legend->visible(0);
-$cc->legend->font->family('Hoefler Text');
-
-$cc->draw;
-$cc->write('foo.pdf');
+$cc->write_output('point.png');
View
BIN point/point.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 f3d663c

Please sign in to comment.