Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Brushed work

  • Loading branch information...
commit e96afecceea0fe9be9ce891f22c411c6057a9e77 1 parent a204437
@gphat authored
View
67 line/line-shapes-brushed.pl
@@ -0,0 +1,67 @@
+#!/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 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('Line + Shapes (Brushed)');
+$cc->add_to_datasets($ds);
+
+my $defctx = $cc->get_context('default');
+
+$defctx->range_axis->label('Lorem');
+$defctx->domain_axis->label('Ipsum');
+
+$defctx->renderer->shape(
+ Geometry::Primitive::Circle->new({
+ radius => 5,
+ })
+);
+$defctx->renderer->shape_brush(
+ Graphics::Primitive::Brush->new(
+ width => 2,
+ color => Graphics::Color::RGB->new(red => 1, green => 1, blue => 1)
+ )
+);
+
+$defctx->renderer->brush->width(2);
+
+$cc->write_output('line-shapes-brushed.png');
View
BIN  line/line-shapes-brushed.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
6 line/line-shapes.pl
@@ -55,12 +55,6 @@
radius => 5,
})
);
-$defctx->renderer->shape_brush(
- Graphics::Primitive::Brush->new(
- width => 2,
- color => Graphics::Color::RGB->new(red => .90, green => .90, blue => .90)
- )
-);
$defctx->renderer->brush->width(2);
View
BIN  line/line-shapes.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Please sign in to comment.
Something went wrong with that request. Please try again.