skip_range.pl

#!/usr/bin/perl
use strict;

use Chart::Clicker;
use Chart::Clicker::Renderer::Line;
use Chart::Clicker::Data::Marker;

my $cc = Chart::Clicker->new(width => 500, height => 250);

my @bw1 = qw(
    5 5 4 4 4 4 3 2 2 1 99 100
);
my @bw2 = qw(
    .7 1.1 1.7 2.5 3.0 4.5 15.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
);

foreach my $d (@bw1) {
    $cc->add_data('Series 0', $d);
}
foreach my $d (@bw2) {
    $cc->add_data('Series 1', $d);
}
foreach my $d (@bw3) {
    $cc->add_data('Series 2', $d);
}

my $def = $cc->get_context('default');

my $ren = Chart::Clicker::Renderer::Line->new;
$cc->get_context('default')->renderer($ren);
$def->range_axis->skip_range(Chart::Clicker::Data::Range->new(lower => 20, upper => 70));
$def->domain_axis->tick_values([qw(10 20 30 40 50 60 70 80 90 100)]);
$def->range_axis->format('%d');
$def->domain_axis->tick_values([qw(2 4 6 8 10)]);
$def->domain_axis->format('%d');

my $skip_marker = Chart::Clicker::Data::Marker->new(value => 19.9, value2 => 70.1);
$skip_marker->color(
    Graphics::Color::RGB->new(red => 0, green => 0, blue => 0)
);
$def->add_marker($skip_marker);


$cc->write_output('foo.png');