home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / linespoints.pm < prev    next >
Encoding:
Perl POD Document  |  2004-01-30  |  4.6 KB  |  159 lines
  1. #============================================================= -*-Perl-*-
  2. #
  3. # Template::Plugin::GD::Graph::linespoints
  4. #
  5. # DESCRIPTION
  6. #
  7. #   Simple Template Toolkit plugin interfacing to the GD::Graph::linespoints
  8. #   package in the GD::Graph.pm module.
  9. #
  10. # AUTHOR
  11. #   Craig Barratt   <craig@arraycomm.com>
  12. #
  13. # COPYRIGHT
  14. #   Copyright (C) 2001 Craig Barratt.  All Rights Reserved.
  15. #
  16. #   This module is free software; you can redistribute it and/or
  17. #   modify it under the same terms as Perl itself.
  18. #
  19. #----------------------------------------------------------------------------
  20. #
  21. # $Id: linespoints.pm,v 1.57 2004/01/13 16:20:56 abw Exp $
  22. #
  23. #============================================================================
  24.  
  25. package Template::Plugin::GD::Graph::linespoints;
  26.  
  27. require 5.004;
  28.  
  29. use strict;
  30. use GD::Graph::linespoints;
  31. use Template::Plugin;
  32. use base qw( GD::Graph::linespoints Template::Plugin );
  33. use vars qw( $VERSION );
  34.  
  35. $VERSION = sprintf("%d.%02d", q$Revision: 1.57 $ =~ /(\d+)\.(\d+)/);
  36.  
  37. sub new
  38. {
  39.     my $class   = shift;
  40.     my $context = shift;
  41.     return $class->SUPER::new(@_);
  42. }
  43.  
  44. sub set
  45. {
  46.     my $self = shift;
  47.  
  48.     push(@_, %{pop(@_)}) if ( @_ & 1 && ref($_[@_-1]) eq "HASH" );
  49.     $self->SUPER::set(@_);
  50. }
  51.  
  52.  
  53. sub set_legend
  54. {
  55.     my $self = shift;
  56.     
  57.     $self->SUPER::set_legend(ref $_[0] ? @{$_[0]} : @_);
  58. }
  59.  
  60. 1;
  61.  
  62. __END__
  63.  
  64.  
  65. #------------------------------------------------------------------------
  66. # IMPORTANT NOTE
  67. #   This documentation is generated automatically from source
  68. #   templates.  Any changes you make here may be lost.
  69. # 
  70. #   The 'docsrc' documentation source bundle is available for download
  71. #   from http://www.template-toolkit.org/docs.html and contains all
  72. #   the source templates, XML files, scripts, etc., from which the
  73. #   documentation for the Template Toolkit is built.
  74. #------------------------------------------------------------------------
  75.  
  76. =head1 NAME
  77.  
  78. Template::Plugin::GD::Graph::linespoints - Create line/point graphs with axes and legends
  79.  
  80. =head1 SYNOPSIS
  81.  
  82.     [% USE g = GD.Graph.linespoints(x_size, y_size); %]
  83.  
  84. =head1 EXAMPLES
  85.  
  86.     [% FILTER null;
  87.         data = [
  88.             ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
  89.             [50,  52,  53,  54,  55,  56,  57,  58,  59],
  90.             [60,  61,  61,  63,  68,  66,  65,  61, 58],
  91.             [70,  72,  71,  74,  78,  73,  75,  71, 68],   
  92.         ];  
  93.         
  94.         USE my_graph = GD.Graph.linespoints;
  95.         
  96.         my_graph.set(
  97.             x_label => 'X Label',
  98.             y_label => 'Y label',
  99.             title => 'A Lines and Points Graph',
  100.             y_max_value => 80,
  101.             y_tick_number => 6, 
  102.             y_label_skip => 2,
  103.             y_long_ticks => 1,  
  104.             x_tick_length => 2,  
  105.             markers => [ 1, 5 ],
  106.             skip_undef => 1,
  107.             transparent => 0,
  108.         );  
  109.         my_graph.set_legend('data set 1', 'data set 2', 'data set 3');
  110.         my_graph.plot(data).png | stdout(1);
  111.        END;
  112.     -%]
  113.  
  114. =head1 DESCRIPTION
  115.  
  116. The GD.Graph.linespoints plugin provides an interface to the
  117. GD::Graph::linespoints class defined by the GD::Graph module. It allows
  118. one or more (x,y) data sets to be plotted as y versus x lines, plus
  119. symbols placed at each point, in addition to axes and legends.
  120.  
  121. See L<GD::Graph> for more details.
  122.  
  123. =head1 AUTHOR
  124.  
  125. Craig Barratt E<lt>craig@arraycomm.comE<gt>
  126.  
  127.  
  128. The GD::Graph module was written by Martien Verbruggen.
  129.  
  130.  
  131. =head1 VERSION
  132.  
  133. 1.57, distributed as part of the
  134. Template Toolkit version 2.13, released on 30 January 2004.
  135.  
  136. =head1 COPYRIGHT
  137.  
  138.  
  139. Copyright (C) 2001 Craig Barratt E<lt>craig@arraycomm.comE<gt>
  140.  
  141. GD::Graph is copyright 1999 Martien Verbruggen.
  142.  
  143. This module is free software; you can redistribute it and/or
  144. modify it under the same terms as Perl itself.
  145.  
  146. =head1 SEE ALSO
  147.  
  148. L<Template::Plugin|Template::Plugin>, L<Template::Plugin::GD|Template::Plugin::GD>, L<Template::Plugin::GD::Graph::lines|Template::Plugin::GD::Graph::lines>, L<Template::Plugin::GD::Graph::lines3d|Template::Plugin::GD::Graph::lines3d>, L<Template::Plugin::GD::Graph::bars|Template::Plugin::GD::Graph::bars>, L<Template::Plugin::GD::Graph::bars3d|Template::Plugin::GD::Graph::bars3d>, L<Template::Plugin::GD::Graph::points|Template::Plugin::GD::Graph::points>, L<Template::Plugin::GD::Graph::area|Template::Plugin::GD::Graph::area>, L<Template::Plugin::GD::Graph::mixed|Template::Plugin::GD::Graph::mixed>, L<Template::Plugin::GD::Graph::pie|Template::Plugin::GD::Graph::pie>, L<Template::Plugin::GD::Graph::pie3d|Template::Plugin::GD::Graph::pie3d>, L<GD::Graph|GD::Graph>
  149.  
  150. =cut
  151.  
  152. # Local Variables:
  153. # mode: perl
  154. # perl-indent-level: 4
  155. # indent-tabs-mode: nil
  156. # End:
  157. #
  158. # vim: expandtab shiftwidth=4:
  159.