This is an automated email from the git hooks/post-receive script.

dom pushed a commit to branch master
in repository libchart-strip-perl.git.

commit 8c6bac89088d901c3567915a639dc487a8d025ef
Author: Dominic Hargreaves <d...@earth.li>
Date:   Tue Oct 23 22:13:50 2007 +0000

    [svn-inject] Installing original source of libchart-strip-perl
---
 CHANGES       |   11 +
 INSTALL       |   27 ++
 MANIFEST      |   21 ++
 META.yml      |   11 +
 Makefile.PL   |    8 +
 README        |   22 ++
 Strip.pm      | 1069 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 eg/Makefile   |    6 +
 eg/ex1.pl     |   30 ++
 eg/ex1.png    |  Bin 0 -> 8967 bytes
 eg/ex2.pl     |   49 +++
 eg/ex2.png    |  Bin 0 -> 7356 bytes
 eg/ex3.pl     |   42 +++
 eg/ex3.png    |  Bin 0 -> 1149 bytes
 eg/ex4.pl     |   40 +++
 eg/ex4.png    |  Bin 0 -> 5712 bytes
 eg/ex5.pl     |   56 +++
 eg/ex5.png    |  Bin 0 -> 4261 bytes
 eg/index.html |   12 +
 t/test1.t     |    4 +
 t/test2.t     |   35 ++
 21 files changed, 1443 insertions(+)

diff --git a/CHANGES b/CHANGES
new file mode 100644
index 0000000..0a5e6f5
--- /dev/null
+++ b/CHANGES
@@ -0,0 +1,11 @@
+
+1.04
+       added missing files to MANIFEST
+
+1.03
+       added thickness
+       added skip_undefined
+       added style box
+
+1.02
+       added data_label_style
diff --git a/INSTALL b/INSTALL
new file mode 100644
index 0000000..876195a
--- /dev/null
+++ b/INSTALL
@@ -0,0 +1,27 @@
+
+Installing:
+
+ 1. verify that you have the prerequisites installed
+
+      + perl
+       perl is required for both this module and the perl program that uses
+       this module. the software has been tested with 5.6.1 and should work
+       with anything more recent, and maybe less recent, as well.
+        Find perl at www.perl.org
+
+      + GD
+       is required in order to create images
+       it can be found on CPAN
+
+ 2. unbundle the tarball
+
+ 3. run 'perl Makefile.PL'
+
+ 4. run 'make'
+
+ 5. run 'make install'
+
+ 6. run 'perldoc Chart::Strip'
+
+ 7. you are finished, sing a happy song, or, optionally, send in a bug report
+
diff --git a/MANIFEST b/MANIFEST
new file mode 100644
index 0000000..3f66eb7
--- /dev/null
+++ b/MANIFEST
@@ -0,0 +1,21 @@
+MANIFEST
+README
+INSTALL
+CHANGES
+Makefile.PL
+Strip.pm
+t/test1.t
+t/test2.t
+eg/index.html
+eg/Makefile
+eg/ex1.pl
+eg/ex2.pl
+eg/ex3.pl
+eg/ex4.pl
+eg/ex5.pl
+eg/ex1.png
+eg/ex2.png
+eg/ex3.png
+eg/ex4.png
+eg/ex5.png
+META.yml                                 Module meta-data (added by MakeMaker)
diff --git a/META.yml b/META.yml
new file mode 100644
index 0000000..c450404
--- /dev/null
+++ b/META.yml
@@ -0,0 +1,11 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         Chart-Strip
+version:      1.04
+version_from: Strip.pm
+installdirs:  site
+requires:
+    GD:                            0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..695063a
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,8 @@
+use ExtUtils::MakeMaker;
+WriteMakefile(
+              NAME            => 'Chart::Strip',
+              VERSION_FROM    => 'Strip.pm',
+              ABSTRACT_FROM   => 'Strip.pm',
+              AUTHOR          => 'Jeff Weisberg <http://www.tcp4me.com/>',
+              PREREQ_PM       => {GD => 0},
+);
diff --git a/README b/README
new file mode 100644
index 0000000..29438bd
--- /dev/null
+++ b/README
@@ -0,0 +1,22 @@
+SUMMARY:
+    Chart::Strip - Draw strip chart type graphs.
+
+INSTALLATION:
+    see the file INSTALL
+
+COPYRIGHT:
+    see the copyright notice in Strip.pm
+
+LICENSE INFORMATION:
+    This software may be copied and distributed under the terms
+    found in the Perl "Artistic License".
+
+    A copy of the "Artistic License" may be found in the standard
+    Perl distribution.
+
+DOCUMENTATION:
+    see the pod in Strip.pm
+
+AUTHOR:
+    Jeff Weisberg  - http://www.tcp4me.com/
+
diff --git a/Strip.pm b/Strip.pm
new file mode 100644
index 0000000..e1db111
--- /dev/null
+++ b/Strip.pm
@@ -0,0 +1,1069 @@
+# -*- perl -*-
+
+# Copyright (c) 2002 by Jeff Weisberg
+# Author: Jeff Weisberg <jaw+chart-strip @ tcp4me.com>
+# Date: 2002-Nov-01 16:11 (EST)
+# Function: draw strip charts
+#
+# $Id: Strip.pm,v 1.14 2006/05/27 18:20:39 jaw Exp jaw $
+
+$Chart::Strip::VERSION = "1.04";
+
+=head1 NAME
+
+Chart::Strip - Draw strip chart type graphs.
+
+=head1 SYNOPSIS
+
+    use Chart::Strip;
+
+    my $ch = Chart::Strip->new(
+                title   => 'Happiness of our Group',
+                # other options ...
+             );
+
+    $ch->add_data( $davey_data, { style => 'line',
+                                 color => 'FF0000',
+                                 label => 'Davey' } );
+
+    $ch->add_data( $jenna_data, { style => 'line',
+                                 color => '00FF88',
+                                 label => 'Jenna' } );
+
+    print $ch->png();
+
+=head1 DESCRIPTION
+
+The Chart::Strip package plots data values versus time graphs, such as
+used for seismographs, EKGs, or network usage reports.
+
+It can plot multiple data sets on one graph. It offers several
+styles of plots. It automatically determines the proper ranges
+and labels for both axii.
+
+=head1 USAGE
+
+=head2 Create the Chart
+
+    $chart = Chart::Strip->new();
+    $chart = Chart::Strip->new(
+                              option1 => value,
+                              option2 => value,
+                              );
+
+If no options are specified, sensible default values will be used.
+The following options are recognized:
+
+=over 4
+
+=item C<width>
+
+The width of the image
+
+=item C<height>
+
+The height of the image.
+
+=item C<title>
+
+The title of the graph. Will be placed centered at the top.
+    
+=item C<x_label>
+
+The label for the x axis. Will be placed centered at the bottom.
+    
+=item C<y_label>
+
+The label for the y axis. Will be placed vertically along the left side.
+    
+=item C<draw_grid>
+
+Should a grid be drawn on the graph?
+    
+=item C<draw_border>
+
+Should a border be drawn around the edge of the image?
+    
+=item C<draw_tic_labels>
+
+Should value labels be shown?
+    
+=item C<draw_data_labels>
+
+Should each data set be labeled?
+    
+=item C<transparent>
+
+Should the background be transparent?
+    
+=item C<grid_on_top>
+
+Should the grid be drawn over the data (1) or below the data (0)?
+
+=item C<binary>
+
+Use powers of 2 instead of powers of 10 for the y axis labels.    
+
+=item C<data_label_style>
+
+Style for drawing the graph labels. C<text> or C<box>
+
+=item C<thickness>
+
+Thickness of lines in pixels. (Requires GD newer than $VERSION).
+
+=item C<skip_undefined>
+
+Don\'t draw a line into or out of a datapoint whose value is undefined.
+If false, undefined values are treated as though they were 0.
+
+=item C<boxwidth>
+
+Width of boxes for box style graphs. The width may also be specified as 
C<width>
+in the data options or per point. If no width is specified a reasonable 
default is used.
+
+=back
+
+=head2 Adding Data
+
+    $chart->add_data( $data, $options );
+
+The data should be an array ref of data points. Each data point
+should be a hash ref containing:
+    
+    {
+       time  => $time_t,  # must be a unix time_t 
+       value => $value,   # the data value
+       color => $color,   # optional, used for this one point
+    }
+
+or, range style graphs should contain:
+    
+    {
+       time  => $time_t,  # must be a unix time_t 
+       min   => $low,     # the minimum data value
+       max   => $high,    # the maximum data value
+       color => $color,   # optional, used for this one point
+    }
+
+and the options may contain:
+    
+    {
+       style => 'line',             # graph style: line, filled, range, 
points, box
+       color => 'FF00FF',           # color used for the graph
+       label => 'New England',      # name of the data set
+    }
+
+points style graphs may specify the point diameter, as C<diam>
+
+box style graphs may specify the box width, as C<width>
+
+=head2 Outputing The Image
+
+=over 4
+
+=item $chart->png()
+
+Will return the PNG image
+
+=item $chart->jpeg()
+
+Will return the jpeg image
+
+=item $chart->gd()
+
+Will return the underlying GD object.
+    
+=back
+
+=cut
+    ;
+
+package Chart::Strip;
+use GD;
+use Carp;
+use POSIX;
+use strict;
+
+sub new {
+    my $class = shift;
+    my %param = @_;
+
+    my $me = bless {
+       width         => 640,
+       height        => 192,
+       margin_left   => 8,
+       margin_bottom => 8,
+       margin_right  => 8,
+       margin_top    => 8,
+       n_y_tics      => 4, # aprox.
+       
+       transparent      => 1,
+       grid_on_top      => 1,
+       draw_grid        => 1,
+       draw_border      => 1,
+       draw_tic_labels  => 1,
+       draw_data_labels => 1,
+       limit_factor     => 0,
+       data_label_style => 'text',  # or 'box'
+       thickness        => 1,
+       
+       # title
+       # x_label
+       # y_label
+       
+       # user specified params override defaults
+       %param,
+           
+    }, $class;
+
+    $me->adjust();
+
+    my $im = GD::Image->new( $me->{width}, $me->{height} );
+    $me->{img} = $im;
+    
+    # Nor long the sun his daily course withheld, 
+    # But added colors to the world reveal'd: 
+    # When early Turnus, wak'ning with the light, 
+    #   -- Virgil, Aeneid
+    # allocate some useful colors, 1st is used for bkg
+    $me->color({ color => $me->{background_color} }) if 
$me->{background_color};
+    $me->{color}{white} = $im->colorAllocate(255,255,255);
+    $me->{color}{black} = $im->colorAllocate(0,0,0);
+    $me->{color}{blue}  = $im->colorAllocate(0, 0, 255);
+    $me->{color}{red}   = $im->colorAllocate(255, 0, 0);
+    $me->{color}{green} = $im->colorAllocate(0, 255, 0);
+    $me->{color}{gray}  = $im->colorAllocate(128, 128, 128);
+
+    # style for grid lines
+    $im->setStyle(gdTransparent, $me->{color}{gray}, gdTransparent, 
gdTransparent);
+
+    $im->interlaced('true');
+    $me->{img}->transparent($me->{color}{white})
+       if $me->{transparent};
+
+    $me->{img}->rectangle(0, 0, $me->{width}-1, $me->{height}-1,
+            $me->color({ color => ($me->{border_color} || 'black') }))
+       if $me->{draw_border};
+
+    $me;
+}
+
+sub add_data {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+
+    $me->analyze( $data, $opts );
+    
+    unless( $opts->{style} ){
+       $opts->{style} = defined $data->[0]{min} ? 'range' : 'line';
+    }
+    
+    push @{$me->{data}}, {data => $data, opts => $opts};
+    
+    $me;
+}
+
+# A plot shall show us all a merry day.
+#   -- Shakespeare, King Richard II
+sub plot {
+    my $me = shift;
+
+    return unless $me->{data};
+    return if $me->{all_done};
+    
+    $me->adjust();
+    $me->clabels();
+    $me->xlabel();
+    $me->ylabel();
+    $me->title();
+    
+    if( $me->{draw_tic_labels} ){
+       # move margin for xtics before we do ytics
+       $me->{margin_bottom} += 12;
+       $me->adjust();
+    }
+
+    $me->ytics();
+    $me->xtics();
+    $me->axii();
+    $me->drawgrid() unless $me->{grid_on_top};
+    
+    # plot
+    foreach my $d ( @{$me->{data}} ){
+       $me->plot_data( $d->{data}, $d->{opts} );
+    }
+    
+    $me->drawgrid() if $me->{grid_on_top};
+
+    $me->{all_done} = 1;
+    $me;
+}
+
+
+# The axis of the earth sticks out visibly through the centre of each and 
every town or city.
+#   -- Oliver Wendell Holmes, The Autocrat of the Breakfast-Table    
+sub axii {
+    my $me = shift;
+    my $im = $me->{img};
+
+    # draw axii
+    $im->line( $me->xpt(-1), $me->ypt(-1), $me->xpt(-1), 
$me->ypt($me->{ymax}), $me->{color}{black});
+    $im->line( $me->xpt(-1), $me->ypt(-1), $me->xpt($me->{xmax}), 
$me->ypt(-1), $me->{color}{black});
+    
+    # 'Talking of axes,' said the Duchess, 'chop off her head!'
+    #   -- Alice in Wonderland
+    $me;
+}
+
+sub set_thickness {
+    my $me = shift;
+    my $tk = shift;
+    my $im = $me->{img};
+
+    # not available until gd 2.07
+    return unless $im->can('setThickness');
+    $im->setThickness($tk);
+}
+
+sub gd {
+    my $me = shift;
+
+    $me->plot();
+    $me->{img};
+}
+
+sub png {
+    my $me = shift;
+
+    $me->plot();
+    $me->{img}->png( @_ );
+}
+
+sub jpeg {
+    my $me = shift;
+
+    $me->plot();
+    $me->{img}->jpeg( @_ );
+}
+    
+
+# xpt, ypt - convert graph space => image space
+sub xpt {
+    my $me = shift;
+    my $pt = shift;
+
+    $pt + $me->{margin_left};
+}
+
+sub ypt {
+    my $me = shift;
+    my $pt = shift;
+
+    # make 0 bottom
+    $me->{height} - $pt - $me->{margin_bottom};
+}
+
+# xdatapt, ydatapt - convert data space => image space
+sub xdatapt {
+    my $me = shift;
+    my $pt = shift;
+
+    $me->xpt( ($pt - $me->{xd_min}) * $me->{xd_scale} );
+}
+
+sub ydatapt {
+    my $me = shift;
+    my $pt = shift;
+
+    $pt = $pt < $me->{yd_min} ? $me->{yd_min} : $pt;
+    $pt = $pt > $me->{yd_max} ? $me->{yd_max} : $pt;
+    
+    $me->ypt( ($pt - $me->{yd_min}) * $me->{yd_scale} );
+}
+
+sub adjust {
+    my $me = shift;
+    
+    # I have touched the highest point of all my greatness;
+    #   -- Shakespeare, King Henry VIII
+    $me->{xmax} = $me->{width}  - $me->{margin_right}  - $me->{margin_left};
+    $me->{ymax} = $me->{height} - $me->{margin_bottom} - $me->{margin_top} ;
+
+    if( $me->{data} ){
+       $me->{xd_scale} = ($me->{xd_min} == $me->{xd_max}) ? 1
+           : $me->{xmax} / ($me->{xd_max} - $me->{xd_min});
+       
+       $me->{yd_scale} = ($me->{yd_min} == $me->{yd_max}) ? 1
+           : $me->{ymax} / ($me->{yd_max} - $me->{yd_min});
+    }
+    
+    $me;
+}
+
+sub analyze {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+    my( $st, $et, $pt, $min, $max );
+
+    $st = $data->[0]{time};    # start time
+    $et = $data->[-1]{time};   # end time
+    $pt = $st;
+    
+    foreach my $s (@$data){
+       croak "data point out of order" if $s->{time} < $pt;
+       my $a = defined $s->{min} ? $s->{min} : $s->{value};
+       my $b = defined $s->{max} ? $s->{max} : $s->{value};
+       $a ||= 0 unless $me->{skip_undefined} || $opts->{skip_undefined};
+       $b ||= 0 unless $me->{skip_undefined} || $opts->{skip_undefined};
+       ($a, $b) = ($b, $a) if $a > $b;
+       
+       $min = $a if defined($a) && ( !defined($min) || $a < $min );
+       $max = $b if defined($b) && ( !defined($max) || $b > $max );
+       $pt  = $s->{time};
+    }
+
+    if( $opts->{style} eq 'box' ){
+       # stretch x axis if drawing wide boxes
+       my $defwid = def_box_width($st, $et, scalar(@$data));
+       my $w = $data->[0]{width} || $opts->{width} || $me->{boxwidth} || 
$defwid;
+       $st -= $w/2;
+
+       $w = $data->[-1]{width} || $opts->{width} || $me->{boxwidth} || $defwid;
+       $et += $w/2;
+
+       # boxes are drawn from y=0
+       $min = 0 if $min > 0;
+    }
+    
+    $me->{xd_min} = $st  if $st && (!defined($me->{xd_min}) || $st  < 
$me->{xd_min});
+    $me->{xd_max} = $et  if $et && (!defined($me->{xd_max}) || $et  > 
$me->{xd_max});
+    $me->{yd_min} = $min if         !defined($me->{yd_min}) || $min < 
$me->{yd_min};
+    $me->{yd_max} = $max if         !defined($me->{yd_max}) || $max > 
$me->{yd_max};
+
+}
+
+# I hear beyond the range of sound,
+# I see beyond the range of sight,
+# New earths and skies and seas around,
+# And in my day the sun doth pale his light.
+#   -- Thoreau, Inspiration
+sub set_y_range {
+    my $me = shift;
+    my $l  = shift;
+    my $h  = shift;
+
+    $me->{yd_min} = $l if defined($l) && $l ne '';
+    $me->{yd_max} = $h if defined($h) && $h ne '';
+    $me->adjust();
+}
+
+sub set_x_range {
+    my $me = shift;
+    my $l  = shift;
+    my $h  = shift;
+
+    $me->{xd_min} = $l if defined($l) && $l ne '';
+    $me->{xd_max} = $h if defined($h) && $h ne '';
+    $me->adjust();
+}
+
+# choose proper color for plot
+sub color {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+
+    # What is your favorite color?
+    # Blue.  No yel--  Auuuuuuuugh!
+    #   -- Monty Python, Holy Grail
+    my $c = $data->{color} || $opts->{color};
+    if( $c ){
+       return $me->{color}{$c} if $me->{color}{$c};
+       my($r,$g,$b) = map {hex} unpack('a2 a2 a2', $c);
+       my $i = $me->{img}->colorAllocate( $r, $g, $b );
+
+       $me->{color}{$c} = $i;
+       return $i;
+    }
+    
+    return $me->{color}{green};
+}
+
+# Titles are marks of honest men, and wise;
+# The fool or knave that wears a title lies.
+#   -- Edward Young, Love of Fame
+sub title {
+    my $me = shift;
+    my( $loc );
+
+    return unless $me->{title};
+    $me->{margin_top} += 16;
+    $me->adjust();
+    # center title
+    $loc = ($me->{width} - length($me->{title}) * 7) / 2;
+    $me->{img}->string(gdMediumBoldFont, $loc, 2, $me->{title}, 
$me->{color}{black});
+}
+
+# when I waked, I found This label on my bosom
+#   -- Shakespeare, Cymbeline
+sub xlabel {
+    my $me = shift;
+    my( $loc, $y );
+
+    return unless $me->{x_label};
+    $me->{margin_bottom} += 16;
+    $me->adjust();
+    $loc = ($me->{width} - length($me->{x_label}) * 6) / 2;
+    $y = $me->{height} - $me->{margin_bottom} + 8;
+    $me->{img}->string(gdSmallFont, $loc, $y, $me->{x_label}, 
$me->{color}{black});
+}
+
+sub ylabel {
+    my $me = shift;
+    my( $loc );
+
+    return unless $me->{y_label};
+    $me->{margin_left} += 12;
+    $me->adjust();
+    $loc = ($me->{height} + length($me->{y_label}) * 6) / 2;
+    $me->{img}->stringUp(gdSmallFont, 2, $loc, $me->{y_label}, 
$me->{color}{black});
+    # small => 12,6; tiny => 10,5
+}
+
+# It must be a very pretty dance
+#   -- Alice in Wonderland
+# make tic numbers pretty
+sub pretty {
+    my $me = shift;
+    my $y  = shift;
+    my $st = shift;
+    my( $ay, $sc, $b, $prec );
+
+    $sc = '';
+    $ay = abs($y);
+    $b = $me->{binary} ? 1024 : 1000;
+    
+    if( $ay < 1 ){
+       if( $ay < 1/$b**3 ){
+           return "0";
+       }
+       elsif( $ay < 1/$b**2 ){
+           $y *= $b ** 3; $st *= $b ** 3;
+           $sc = 'p';
+       }
+       elsif( $ay < 1/$b ){
+           $y *= $b**2; $st *= $b**2;
+           $sc = 'u';
+       }
+       elsif( $ay < 100/$b ){ # QQQ
+           $y *= $b; $st *= $b;
+           $sc = 'm';
+       }
+    }else{
+       if( $ay >= $b**3 ){
+           $y /= $b**3;  $st /= $b**3;
+           $sc = 'G';
+       }
+       elsif( $ay >= $b**2 ){
+           $y /= $b**2; $st /= $b**2;
+           $sc = 'M';
+       }
+       elsif( $ay >= $b ){
+           $y /= $b;   $st /= $b;
+           $sc = 'k';
+       }
+    }
+    $sc .= 'i' if $sc && $me->{binary}; # as per IEC 60027-2
+    if( $st > 1 ){
+       $prec = 0;
+    }else{
+       $prec = abs(floor(log($st)/log(10)));
+    }
+
+    sprintf "%.${prec}f$sc", $y;
+}
+
+sub ytics {
+    my $me  = shift;
+    my( $min, $max, $tp, $st, $is, $low, $maxw, @tics );
+
+    $min = $me->{yd_min};
+    $max = $me->{yd_max};
+    $maxw = 0;
+    
+    if( $min == $max ){
+       # not a very interesting graph...
+       my $lb = $me->pretty($min, 1);  # QQQ
+       my $w = length($lb) * 5 + 6;
+       push @tics, [$me->ydatapt($min), $lb, $w];
+       $maxw = $w;
+    }else{
+       $tp = ($max - $min) / $me->{n_y_tics};  # approx spacing of tics
+       if( $me->{binary} ){
+           $is =  2 ** floor( log($tp)/log(2) );
+       }else{
+           $is = 10 ** floor( log($tp)/log(10) );
+       }
+       $st  = floor( $tp / $is ) * $is; # -> 4 - 8, ceil -> 2 - 4
+       $low = int( $min / $st ) * $st;
+       for my $i ( 0 .. (2 * $me->{n_y_tics} + 2) ){
+           my $y = $low + $i * $st;
+           next if $y < $min;
+           last if $y > $max;
+           my $yy = $me->ydatapt($y);
+           my $label = $me->pretty($y, $st);
+           my $w = 5 * length($label) + 6;
+           $maxw = $w if $w > $maxw;
+           
+           push @tics, [$yy, $label, $w];
+       }
+    }
+    
+    if( $me->{draw_tic_labels} ){
+       # move margin
+       $me->{margin_left} += $maxw;
+       $me->adjust();
+    }
+
+    $me->{grid}{y} = [ @tics ];
+}
+
+sub drawgrid {
+    my $me = shift;
+    
+    foreach my $tic (@{$me->{grid}{y}}){
+       # ytics + horiz lines
+       my $yy = $tic->[0];
+       $me->{img}->line($me->xpt(-1), $yy, $me->xpt(-4), $yy,
+                        $me->{color}{black});
+       $me->{img}->line($me->xpt(0), $yy, $me->{width} - $me->{margin_right}, 
$yy,
+                        gdStyled) if $me->{draw_grid};
+
+       if( $me->{draw_tic_labels} ){
+           my $label = $tic->[1];
+           my $w = $tic->[2];
+           $me->{img}->string(gdTinyFont, $me->xpt(-$w), $yy-4,
+                              $label,
+                              $me->{color}{black});
+       }
+    }
+
+    foreach my $tic (@{$me->{grid}{x}}){
+       # xtics + vert lines
+       my( $t, $ll, $label ) = @$tic;
+
+       if( $ll ){
+           # solid line, red label
+           $me->{img}->line($me->xdatapt($t), $me->{margin_top},
+                            $me->xdatapt($t), $me->ypt(-4),
+                            $me->{color}{black} );
+       }else{
+           # tic and grid
+           $me->{img}->line($me->xdatapt($t), $me->ypt(-1),
+                            $me->xdatapt($t), $me->ypt(-4),
+                            $me->{color}{black} );
+           $me->{img}->line($me->xdatapt($t), $me->{margin_top},
+                            $me->xdatapt($t), $me->ypt(0),
+                            gdStyled ) if $me->{draw_grid};
+       }
+
+       if( $me->{draw_tic_labels} ){
+           my $a = length($label) * 6 / 4;     # it looks better not quite 
centered
+           if( length($label)*6 * 3/4 + $me->xdatapt($t) > $me->{width} ){
+               # too close to edge, shift
+               $a = $me->xdatapt($t) - $me->{width} + length($label) * 6 + 2;
+           }
+           
+           $me->{img}->string(gdSmallFont, $me->xdatapt($t)-$a, $me->ypt(-6),
+                              $label, $ll ? $me->{color}{red} : 
$me->{color}{black} );
+       }
+    }
+}
+
+# this is much too ickky, please re-write
+sub xtics {
+    my $me = shift;
+    my( $r, $step, $rd, $n2, $n3, $n4, $lt, $low, $t, @tics );
+
+    # this is good for (roughly) 10 mins - 10 yrs
+    return if $me->{xd_max} == $me->{xd_min};
+    $r = ($me->{xd_max} - $me->{xd_min} ) / 3600;      # => hours
+    $rd   = $r / 24;                                   # days
+    $step = 3600;
+    $n2   = 24; $n3 = $n4 = 1;
+    $low  = int($me->{xd_min} / 3600) * 3600;
+    
+    if( $r < 2 ){              # less than 2 hrs
+       $low = int($me->{xd_min} / 600) * 600;
+       $n2 = 1;
+       $lt = 1;
+       $step = 10 * 60;
+    }elsif( $r < 48 ){         # less than 2 days
+       $n2  = ($r < 13) ? 1 : ($r < 24) ? 2 : 4;
+       $lt  = 1;
+    }
+    elsif( $r < 360 ){         # less than ~ 2 weeks
+       $lt  = 2;
+    }elsif( $rd < 1500 ){      # less than ~ 4yrs
+       $n3  = ($rd < 80)  ? 7 : ($rd < 168) ? 14 : 32;
+       $n4  = ($rd < 370) ? 1 : ($rd < 500) ? 2 : 4;
+       $lt  = 3;
+    }else{
+       $n3 = 32; $n4 = 12;
+       $lt  = 4;
+    }
+
+    # print STDERR "xtics min=$me->{xd_min} max=$me->{xd_max}  r=$r, st=$step, 
low=$low, $n2/$n3/$n4\n";
+    for( $t=$low; $t<$me->{xd_max}; $t+=$step ){
+       my $ll;
+       next if $t < $me->{xd_min};
+       my @lt = localtime $t;
+       next if $lt[2] % $n2;
+       next if ($lt[3] - 1) % $n3 || (($n3!=1) && $lt[3] > 22 );
+       next if $lt[4] % $n4;
+       if( $lt == 1 && !$lt[2] && !$lt[1] ||      # midnight
+           $lt == 2 && !$lt[6] ||                 # sunday
+           $lt == 3 && $lt[3] == 1 && $rd < 60 || # 1st of month
+           $lt == 3 && $lt[3] == 1 && $lt[4] == 0 # Jan 1
+           ){
+           $ll = 1;
+       }
+       
+       my $label;
+       if( $lt == 1){
+           $label = sprintf "%d:%0.2d", $lt[2], $lt[1];        # time
+       }
+       if( $lt == 2 ){
+           if( $ll ){
+               # NB: strftime obeys LC_TIME for localized day/month names
+               # (if locales are supported in the OS and perl)
+               $label = strftime("%d/%b", @lt);        # date DD/Mon
+           }else{
+               $label = strftime("%a", @lt);           # day of week
+           }
+       }
+       if( $lt == 3){
+           if( $lt[3] == 1 && $lt[4] == 0 ){
+               $label = $lt[5] + 1900;                 # year
+           }else{
+               $label = strftime("%d/%b", @lt);        # date DD/Mon
+           }
+       }
+       if( $lt == 4){
+           $label = $lt[5] + 1900; # year
+       }
+       push @tics, [$t, $ll, $label];
+    }
+    $me->{grid}{x} = [@tics];
+        
+}
+
+# it shall be inventoried, and every particle and utensil
+# labelled to my will: as, item, two lips,
+# indifferent red; item, two grey eyes, with lids to
+# them; item, one neck, one chin, and so forth. Were
+# you sent hither to praise me?
+#   -- Shakespeare, Twelfth Night
+sub clabels {
+    my $me = shift;
+
+    return unless $me->{draw_data_labels};
+    
+    my $rs = 0;
+    my $rm = 0;
+    if( $me->{data_label_style} eq 'box' ){
+        $rs = 6;
+        $rm = 3;
+    }
+
+    my( $tw, $r, @cl, @cx );
+    $tw = $r = 0;
+    # round the neck of the bottle was a paper label, with the
+    # words 'DRINK ME' beautifully printed on it in large letters
+    #   -- Alice in Wonderland
+    foreach my $d (@{$me->{data}}){
+       my $l = $d->{opts}{label};
+       my $c = $d->{opts}{color};
+       next unless $l;
+       my $w = length($l) * 5 + 6;
+       $w += $rm + $rs;
+       
+       if( $tw + $w > $me->{width} - $me->{margin_left} - $me->{margin_right} 
){
+           $r ++;
+           $tw = 0;
+       }
+       push @cx, [$l, $tw, $r, $c];
+       $tw += $w;
+    }
+
+    my $i = 0;
+    foreach my $x (@cx){
+        my $xx = $x->[1] + $me->{margin_left};
+       my $y = $me->{height} - ($r - $x->[2] + 1) * 10;
+       my $c = $x->[3];
+        if( $rs ){
+            $me->{img}->filledRectangle($xx, $y+1, $xx+$rs, $y+$rs+1, 
$me->color({color => $c}));
+            $me->{img}->rectangle($xx, $y+1, $xx+$rs, $y+$rs+1, 
$me->{color}{black});
+            $me->{img}->string(gdTinyFont, $xx+$rs+$rm, $y, $x->[0], 
$me->{color}{black});
+        }else{
+            $me->{img}->string(gdTinyFont, $xx, $y, $x->[0], $me->color({color 
=> $c}));
+        }
+    }
+    if( @cx ){
+       $me->{margin_bottom} += ($r + 1) * 10;
+       $me->adjust();
+    }
+}
+
+sub plot_data {
+    my $me = shift;
+    my $data = shift;
+    my $opts = shift;
+
+    return unless $data && @$data;
+    
+    # 'What did they draw?' said Alice, quite forgetting her promise.
+    #   -- Alice in Wonderland
+    if( $opts->{style} eq 'line' ){
+       # 'You can draw water out of a water-well,' said the Hatter
+       #   -- Alice in Wonderland
+       $me->draw_line( $data, $opts );
+    }
+    elsif( $opts->{style} eq 'filled' ){
+       # I should think you could draw treacle out of a treacle-well
+       #    -- Alice in Wonderland
+       $me->draw_filled( $data, $opts );
+    }
+    elsif( $opts->{style} eq 'range' ){
+       # did you ever see such a thing as a drawing of a muchness?
+       #    -- Alice in Wonderland
+       $me->draw_range( $data, $opts );
+    }elsif( $opts->{style} eq 'points' ){
+        # and they drew all manner of things--everything that begins with an 
M--'
+       #    -- Alice in Wonderland
+       $me->draw_points( $data, $opts );
+    }elsif( $opts->{style} eq 'box' ){
+       $me->draw_boxes( $data, $opts );
+    }else{
+       croak "unknown graph style--cannot draw";
+    }
+}
+
+# A flattering painter, who made it his care
+# To draw men as they ought to be, not as they are.
+#   -- Oliver Goldsmith, Retaliation
+
+sub draw_filled {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+
+    my $im = $me->{img};
+    my $limit = $me->{limit_factor} * ($me->{xd_max} - $me->{xd_min}) / @$data;
+    my $skipundef = $opts->{skip_undefined} || $me->{skip_undefined};
+    my($px, $py);
+    
+    foreach my $s ( @$data ){
+       my $x = $s->{time};
+       my $y = $s->{value};
+
+       next if $x < $me->{xd_min} || $x > $me->{xd_max};
+
+       if( defined($y) || !$skipundef ){
+
+           if( defined($px) && ($me->xdatapt($x) - $me->xdatapt($px) > 1) ){
+               $px = $x - $limit if $limit && $x - $px > $limit;
+               
+               my $poly = GD::Polygon->new;
+               $poly->addPt($me->xdatapt($px), $me->ypt(0));
+               $poly->addPt($me->xdatapt($px), $me->ydatapt($py));
+               $poly->addPt($me->xdatapt($x),  $me->ydatapt($y));
+               $poly->addPt($me->xdatapt($x),  $me->ypt(0));
+               $im->filledPolygon($poly, $me->color($s, $opts));
+           }else{
+               $im->line( $me->xdatapt($x), $me->ypt(0),
+                          $me->xdatapt($x), $me->ydatapt($y),
+                          $me->color($s, $opts) );
+           }
+       }
+       $px = $x; $py = $y;
+    }
+}
+
+sub draw_line {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+
+    my $im = $me->{img};
+    my $limit = $me->{limit_factor} * ($me->{xd_max} - $me->{xd_min}) / @$data;
+    my $thick = $opts->{thickness} || $me->{thickness};
+    my $skipundef = $opts->{skip_undefined} || $me->{skip_undefined};
+    my($px, $py);
+
+    $me->set_thickness( $thick ) if $thick;
+    
+    foreach my $s ( @$data ){
+       my $x = $s->{time};
+       my $y = $s->{value};
+
+       next if $x < $me->{xd_min} || $x > $me->{xd_max};
+
+       if( defined($y) || !$skipundef ){
+           if( defined($py) ){
+               $px = $x - $limit if $limit && $x - $px > $limit;
+               $im->line( $me->xdatapt($px), $me->ydatapt($py),
+                          $me->xdatapt($x),  $me->ydatapt($y),
+                          $me->color($s, $opts) );
+           }else{
+               $im->setPixel($me->xdatapt($x),  $me->ydatapt($y),
+                             $me->color($s, $opts) );
+           }
+       }
+       $px = $x; $py = $y;
+    }
+    $me->set_thickness( 1 ) if $thick;
+}
+
+sub draw_range {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+
+    my $im = $me->{img};
+    my $limit = $me->{limit_factor} * ($me->{xd_max} - $me->{xd_min}) / @$data;
+    my $skipundef = $opts->{skip_undefined} || $me->{skip_undefined};
+    my($px, $pn, $pm);
+    
+    foreach my $s ( @$data ){
+         my $x = $s->{time};
+         my $a = defined $s->{min} ? $s->{min} : $s->{value};
+         my $b = defined $s->{max} ? $s->{max} : $s->{value};
+
+         next if $x < $me->{xd_min} || $x > $me->{xd_max};
+
+         $a = $b if !defined($a) && $skipundef;
+         $b = $a if !defined($b) && $skipundef;
+         
+         if( defined($a) || !$skipundef ){
+
+             if( defined($px) && ($me->xdatapt($x) - $me->xdatapt($px) > 1) ){
+                 my $poly = GD::Polygon->new;
+                 $px = $x - $limit if $limit && $x - $px > $limit;
+                 
+                 $poly->addPt($me->xdatapt($px), $me->ydatapt($pn));
+                 $poly->addPt($me->xdatapt($px), $me->ydatapt($pm));
+                 $poly->addPt($me->xdatapt($x),  $me->ydatapt($b));
+                 $poly->addPt($me->xdatapt($x),  $me->ydatapt($a));
+                 $im->filledPolygon($poly, $me->color($s, $opts));
+             }else{
+                 $im->line( $me->xdatapt($x),  $me->ydatapt($b),
+                            $me->xdatapt($x),  $me->ydatapt($a),
+                            $me->color($s, $opts) );
+             }
+         }
+         $px = $x; $pn = $a; $pm = $b;
+    }
+}
+
+sub draw_points {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+    
+    my $im = $me->{img};
+    my $skipundef = $opts->{skip_undefined} || $me->{skip_undefined};
+    
+    foreach my $s ( @$data ){
+       my $x = $s->{time};
+       my $y = $s->{value};
+       my $d = $s->{diam} || $opts->{diam} || 4;
+       my $c = $me->color($s, $opts);
+
+       next if $x < $me->{xd_min} || $x > $me->{xd_max};
+       next if !defined($y) && $skipundef;
+       
+       while( $d > 0 ){
+           $im->arc( $me->xdatapt($x),  $me->ydatapt($y),
+                     $d, $d, 0, 360,
+                     $c );
+           $d -= 2;
+       }
+    }
+}
+
+sub def_box_width {
+    my $ta = shift;
+    my $tb = shift;
+    my $nd = shift;
+
+    return ($tb - $ta) / ($nd - 1) if $nd > 1;
+    return ($tb - $ta) / $nd       if $nd;
+    1;
+}
+
+sub draw_boxes {
+    my $me   = shift;
+    my $data = shift;
+    my $opts = shift;
+    
+    my $im = $me->{img};
+    my $defwid = def_box_width($data->[0]{time}, $data->[-1]{time}, 
scalar(@$data));
+    my $thick  = $opts->{thickness} || $me->{thickness};
+    my $skipundef = $opts->{skip_undefined} || $me->{skip_undefined};
+    
+    $me->set_thickness( $thick ) if $thick;
+    
+    foreach my $s ( @$data ){
+       my $x = $s->{time};
+       my $y = $s->{value};
+       my $w = $s->{width} || $opts->{width} || $me->{boxwidth} || $defwid;
+       my $c = $me->color($s, $opts);
+       my $y0 = $opts->{boxbase} || $me->{boxbase} || 0;
+       
+       next if $x < $me->{xd_min} || $x > $me->{xd_max};
+       next if !defined($y) && $skipundef;
+
+       # because GD cares...
+       my $ya = $y > $y0 ? $y : $y0;
+       my $yb = $y > $y0 ? $y0 : $y;
+       
+       if( $opts->{filled} || $s->{filled} ){
+           $im->filledRectangle( $me->xdatapt($x - $w/2), $me->ydatapt($ya),
+                                 $me->xdatapt($x + $w/2), $me->ydatapt($yb),
+                                 $c);
+       }else{
+           $im->rectangle( $me->xdatapt($x - $w/2), $me->ydatapt($ya),
+                           $me->xdatapt($x + $w/2), $me->ydatapt($yb),
+                           $c);
+       }
+    }
+    
+    $me->set_thickness( 1 ) if $thick;
+}
+
+
+=head1 EXAMPLE IMAGES
+
+    http://argus.tcp4me.com/shots.html
+    http://search.cpan.org/src/JAW/Chart-Strip-1.04/eg/
+
+=head1 BUGS
+
+There are no known bugs in the module.
+
+=head1 SEE ALSO
+    
+    Yellowstone National Park.
+
+=head1 AUTHOR
+
+    Jeff Weisberg - http://www.tcp4me.com
+
+=cut
+    ;
+
+1;
diff --git a/eg/Makefile b/eg/Makefile
new file mode 100644
index 0000000..a9b7574
--- /dev/null
+++ b/eg/Makefile
@@ -0,0 +1,6 @@
+
+all: ex1.png ex2.png ex3.png ex4.png ex5.png
+
+.SUFFIXES: .pl .png
+.pl.png:
+       perl -I../blib/lib $< > $@
diff --git a/eg/ex1.pl b/eg/ex1.pl
new file mode 100644
index 0000000..80c16b1
--- /dev/null
+++ b/eg/ex1.pl
@@ -0,0 +1,30 @@
+#!/usr/local/bin/perl
+# -*- perl -*-
+
+use Chart::Strip;
+my $img = Chart::Strip->new(title   => 'Happiness of Club Members',
+                           x_label => 'When',
+                           y_label => 'Happiness Factor',
+                           );
+
+my( $t, $davey, $shelly, $harold );
+my $dt = 3600;
+
+for($t=$^T; $t<$^T+$dt; $t+=$dt/200){
+    my $v = 10 + rand(5);
+    push @$davey, {time => $t, value => $v};
+}
+for($t=$^T; $t<$^T+$dt; $t+=$dt/50){
+    my $v = 9 + rand(5);
+    my $x = 5 + rand(2);
+    push @$harold, {time => $t, value => $v};
+    push @$shelly, {time => $t, value => $x, min => $x - 1, max => $x + 1 + 
rand(1) };
+}
+
+$img->add_data( $davey,  { label => 'Davey',  style => 'filled', color => 
'8080FF' } );
+$img->add_data( $shelly, { label => 'Shelly', style => 'range',  color => 
'008844' } );
+$img->add_data( $shelly, {                    style => 'line',   color => 
'44CC44' } );
+$img->add_data( $harold, { label => 'Harold', style => 'line',   color => 
'802000' } );
+
+print $img->png();
+
diff --git a/eg/ex1.png b/eg/ex1.png
new file mode 100644
index 0000000..daba759
Binary files /dev/null and b/eg/ex1.png differ
diff --git a/eg/ex2.pl b/eg/ex2.pl
new file mode 100644
index 0000000..09a97c1
--- /dev/null
+++ b/eg/ex2.pl
@@ -0,0 +1,49 @@
+#!/usr/local/bin/perl
+# -*- perl -*-
+
+use Chart::Strip;
+
+my $img = Chart::Strip->new( title => 'Alien Experimentation on the Population 
of New England' );
+
+my( $data );
+
+for(my $t=0; $t<200; $t++){
+    my $v = sin( $t/40 ) ;
+    my $z = abs( sin( $t/8 )) / 2;
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => $v,
+       min   => $v - $z,
+       max   => $v + $z,
+    };
+}
+
+$img->add_data( $data, {label => 'Drakh', style => 'range', color => '00FF00'} 
);
+$img->add_data( $data, {                  style => 'line',  color => '0000FF'} 
);
+
+$data = [];
+for(my $t=10; $t<210; $t++){
+    my $v = (.07,0,0,-.15,1,0,-.3,0,0,0,.07,.07)[$t % 25] || 0;
+    
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => ($v + $t / 100 - 1.5),
+    };
+}
+
+$img->add_data( $data, {label => 'Scarran', color => 'FF0000' } );
+
+$data = [];
+for(my $t=10; $t<210; $t+=15){
+
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => sin( $t/30 + 1 ) - .2,
+       diam  => abs(20*sin($t/55 - 1)) + 3,
+    };
+}
+
+$img->add_data( $data, {label => "G'ould", style => 'points', color => 
'0000FF' } );
+
+
+print $img->png();
diff --git a/eg/ex2.png b/eg/ex2.png
new file mode 100644
index 0000000..b95fd30
Binary files /dev/null and b/eg/ex2.png differ
diff --git a/eg/ex3.pl b/eg/ex3.pl
new file mode 100644
index 0000000..22732d7
--- /dev/null
+++ b/eg/ex3.pl
@@ -0,0 +1,42 @@
+#!/usr/local/bin/perl
+# -*- perl -*-
+
+use Chart::Strip;
+
+my $img = Chart::Strip->new
+ (
+  width   => 160,
+  height  => 64,
+  draw_tic_labels => 0,
+  draw_grid => 0,
+ );
+
+my( $data );
+
+for(my $t=0; $t<200; $t++){
+    my $v = sin( $t/40 ) ;
+    my $z = abs( sin( $t/8 )) / 2;
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => $v,
+       min   => $v - $z,
+       max   => $v + $z,
+    };
+}
+
+$img->add_data( $data, {style => 'range', color => '00FF00'} );
+$img->add_data( $data, {style => 'line',  color => '0000FF'} );
+
+$data = [];
+for(my $t=10; $t<210; $t++){
+    my $v = ($t % 20) ? .25 : 1;
+
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => $v + $t / 100 - 1.5,
+    };
+}
+
+$img->add_data( $data, {color => 'FF0000'} );
+
+print $img->png();
diff --git a/eg/ex3.png b/eg/ex3.png
new file mode 100644
index 0000000..d6d1d86
Binary files /dev/null and b/eg/ex3.png differ
diff --git a/eg/ex4.pl b/eg/ex4.pl
new file mode 100644
index 0000000..1670648
--- /dev/null
+++ b/eg/ex4.pl
@@ -0,0 +1,40 @@
+#!/usr/local/bin/perl
+# -*- perl -*-
+
+use Chart::Strip;
+
+my $img = Chart::Strip->new( title => 'Alien Experimentation on the Population 
of New England' );
+
+my( $data );
+
+$data = [];
+for(my $t=10; $t<210; $t+=15){
+
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => cos( $t/30 ),
+       min   => 0,
+       diam  => 10 * (-cos( $t/30 ) + 1.5),
+    };
+}
+
+$img->add_data( $data, {style => 'range', color => '00FFFF' } );
+$img->add_data( $data, {style => 'points', color => '0000FF' } );
+
+$data = [];
+for(my $t=10; $t<210; $t+=15){
+
+    push @$data, {
+       time  => $^T + $t  * 5000,
+       value => cos( $t/30 + 1.5 ),
+       min   => 0,
+       diam  => 10 * (cos( $t/30 + 1.5 ) + 1.5),
+    };
+}
+
+$img->add_data( $data, {style => 'range', color => 'FF00FF' } );
+$img->add_data( $data, {style => 'points', color => '00FF00' } );
+
+
+
+print $img->png();
diff --git a/eg/ex4.png b/eg/ex4.png
new file mode 100644
index 0000000..c6125e5
Binary files /dev/null and b/eg/ex4.png differ
diff --git a/eg/ex5.pl b/eg/ex5.pl
new file mode 100644
index 0000000..9f737be
--- /dev/null
+++ b/eg/ex5.pl
@@ -0,0 +1,56 @@
+#!/usr/local/bin/perl
+# -*- perl -*-
+
+use Chart::Strip;
+
+my $img = Chart::Strip->new( title => 'Online Orders',
+                            data_label_style => 'box',
+                            );
+
+my( @d1, @d2, @d3 );
+
+for(my $t=10; $t<50; $t++){
+    my $v = 3 * sin( $t/10 ) ;
+    
+    push @d1, {
+       time  => $^T + $t * 15000,
+       value => 3 * sin( $t/10 ) + $t / 50 + 1,
+    };
+    push @d2, {
+       time  => $^T + $t * 15000,
+       value => 2 * sin( $t/8 ) + sin($t/4) + sin($t/2)/2 + 3,
+       width => 3000 + 2500 * sin( $t / 7 ), # wacky-width
+    };
+    push @d3, {
+       time  => $^T + $t * 15000,
+       value => ($t/5)%2 ? 2 * cos($t/10) + rand() + 4 : undef,
+    };
+
+}
+
+# box-graph auto-width, not-filled
+$img->add_data( \@d1, {
+    style => 'box',
+    label => 'Successful',
+    color => 'FF0000',
+} );
+
+# filled, varying width
+$img->add_data( \@d2, {
+    style  => 'box',
+    label  => 'Lost in Mail',
+    color  => '0000FF',
+    filled => 1,
+} );
+
+# thick line, with gaps
+$img->add_data( \@d3, {
+    style => 'line',
+    label => 'Processed',
+    color => '448822',
+    thickness => 4,
+    skip_undefined => 1,
+} );
+
+
+print $img->png();
diff --git a/eg/ex5.png b/eg/ex5.png
new file mode 100644
index 0000000..4a5140d
Binary files /dev/null and b/eg/ex5.png differ
diff --git a/eg/index.html b/eg/index.html
new file mode 100644
index 0000000..517c22b
--- /dev/null
+++ b/eg/index.html
@@ -0,0 +1,12 @@
+<HTML>
+<HEAD><TITLE>Example Images</TITLE></HEAD>
+<BODY BGCOLOR="#FFFFFF">
+
+<IMG SRC="ex1.png"><P>
+<IMG SRC="ex2.png"><P>
+<IMG SRC="ex3.png"><P>
+<IMG SRC="ex4.png"><P>
+<IMG SRC="ex5.png"><P>
+
+</BODY>
+</HTML>
diff --git a/t/test1.t b/t/test1.t
new file mode 100644
index 0000000..c060377
--- /dev/null
+++ b/t/test1.t
@@ -0,0 +1,4 @@
+
+use Chart::Strip;
+print "1..1\nok 1\n";
+
diff --git a/t/test2.t b/t/test2.t
new file mode 100644
index 0000000..2deec70
--- /dev/null
+++ b/t/test2.t
@@ -0,0 +1,35 @@
+
+use Chart::Strip;
+my $n = 1;
+
+print "1..5\n";
+
+my $c = Chart::Strip->new();
+
+my $data;
+for(my $t=10; $t<210; $t++){
+    my $v = ($t % 20) ? .25 : 1;
+    push @$data, {
+        time  => $^T + $t  * 5000,
+        value => $v + $t / 100 - 1.5,
+    };
+}
+
+$c->add_data( $data, {style => 'line', color => 'FF0000'} );
+
+my $p = $c->png();
+
+t( $p );
+t( $c->{margin_bottom} == 20 );
+t( $c->{margin_left} == 34 );
+t( $c->{yd_max} == 1.5 );
+t( $c->{yd_min} == -1.15 );
+
+sub t {
+    my $x = shift;
+
+    print "not " unless $x;
+    print "ok $n\n";
+    $n ++;
+}
+

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libchart-strip-perl.git.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to