From bcbf441e09fb502cf64924ff2530fa144bdf52c5 Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Mon, 13 Aug 2007 18:41:27 +0000 Subject: * Move files to trunk --- lib/Template/Plugin/GD/Graph/linespoints.pm | 158 ++++++++++++++++++++++++++++ 1 file changed, 158 insertions(+) create mode 100644 lib/Template/Plugin/GD/Graph/linespoints.pm (limited to 'lib/Template/Plugin/GD/Graph/linespoints.pm') diff --git a/lib/Template/Plugin/GD/Graph/linespoints.pm b/lib/Template/Plugin/GD/Graph/linespoints.pm new file mode 100644 index 0000000..8dc48d9 --- /dev/null +++ b/lib/Template/Plugin/GD/Graph/linespoints.pm @@ -0,0 +1,158 @@ +#============================================================= -*-Perl-*- +# +# Template::Plugin::GD::Graph::linespoints +# +# DESCRIPTION +# +# Simple Template Toolkit plugin interfacing to the GD::Graph::linespoints +# package in the GD::Graph.pm module. +# +# AUTHOR +# Craig Barratt +# +# COPYRIGHT +# Copyright (C) 2001 Craig Barratt. All Rights Reserved. +# +# This module is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. +# +#---------------------------------------------------------------------------- +# +# $Id: linespoints.pm,v 1.57 2004/01/13 16:20:56 abw Exp $ +# +#============================================================================ + +package Template::Plugin::GD::Graph::linespoints; + +require 5.004; + +use strict; +use GD::Graph::linespoints; +use Template::Plugin; +use base qw( GD::Graph::linespoints Template::Plugin ); +use vars qw( $VERSION ); + +$VERSION = sprintf("%d.%02d", q$Revision: 1.57 $ =~ /(\d+)\.(\d+)/); + +sub new +{ + my $class = shift; + my $context = shift; + return $class->SUPER::new(@_); +} + +sub set +{ + my $self = shift; + + push(@_, %{pop(@_)}) if ( @_ & 1 && ref($_[@_-1]) eq "HASH" ); + $self->SUPER::set(@_); +} + + +sub set_legend +{ + my $self = shift; + + $self->SUPER::set_legend(ref $_[0] ? @{$_[0]} : @_); +} + +1; + +__END__ + + +#------------------------------------------------------------------------ +# IMPORTANT NOTE +# This documentation is generated automatically from source +# templates. Any changes you make here may be lost. +# +# The 'docsrc' documentation source bundle is available for download +# from http://www.template-toolkit.org/docs.html and contains all +# the source templates, XML files, scripts, etc., from which the +# documentation for the Template Toolkit is built. +#------------------------------------------------------------------------ + +=head1 NAME + +Template::Plugin::GD::Graph::linespoints - Create line/point graphs with axes and legends + +=head1 SYNOPSIS + + [% USE g = GD.Graph.linespoints(x_size, y_size); %] + +=head1 EXAMPLES + + [% FILTER null; + data = [ + ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"], + [50, 52, 53, 54, 55, 56, 57, 58, 59], + [60, 61, 61, 63, 68, 66, 65, 61, 58], + [70, 72, 71, 74, 78, 73, 75, 71, 68], + ]; + + USE my_graph = GD.Graph.linespoints; + + my_graph.set( + x_label => 'X Label', + y_label => 'Y label', + title => 'A Lines and Points Graph', + y_max_value => 80, + y_tick_number => 6, + y_label_skip => 2, + y_long_ticks => 1, + x_tick_length => 2, + markers => [ 1, 5 ], + skip_undef => 1, + transparent => 0, + ); + my_graph.set_legend('data set 1', 'data set 2', 'data set 3'); + my_graph.plot(data).png | stdout(1); + END; + -%] + +=head1 DESCRIPTION + +The GD.Graph.linespoints plugin provides an interface to the +GD::Graph::linespoints class defined by the GD::Graph module. It allows +one or more (x,y) data sets to be plotted as y versus x lines, plus +symbols placed at each point, in addition to axes and legends. + +See L for more details. + +=head1 AUTHOR + +Craig Barratt Ecraig@arraycomm.comE + + +The GD::Graph module was written by Martien Verbruggen. + + +=head1 VERSION + +1.57, distributed as part of the +Template Toolkit version 2.13, released on 30 January 2004. + +=head1 COPYRIGHT + + +Copyright (C) 2001 Craig Barratt Ecraig@arraycomm.comE + +GD::Graph is copyright 1999 Martien Verbruggen. + +This module is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +=head1 SEE ALSO + +L, L, L, L, L, L, L, L, L, L, L, L + +=cut + +# Local Variables: +# mode: perl +# perl-indent-level: 4 +# indent-tabs-mode: nil +# End: +# +# vim: expandtab shiftwidth=4: -- cgit v1.2.3