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 / pie3d.pm < prev    next >
Encoding:
Perl POD Document  |  2004-01-30  |  4.3 KB  |  146 lines
  1. #============================================================= -*-Perl-*-
  2. #
  3. # Template::Plugin::GD::Graph::pie3d
  4. #
  5. # DESCRIPTION
  6. #
  7. #   Simple Template Toolkit plugin interfacing to the GD::Graph::pie3d
  8. #   package in the GD::Graph3D.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: pie3d.pm,v 1.55 2004/01/13 16:20:56 abw Exp $
  22. #
  23. #============================================================================
  24.  
  25. package Template::Plugin::GD::Graph::pie3d;
  26.  
  27. require 5.004;
  28.  
  29. use strict;
  30. use GD::Graph::pie3d;
  31. use Template::Plugin;
  32. use base qw( GD::Graph::pie3d Template::Plugin );
  33. use vars qw( $VERSION );
  34.  
  35. $VERSION = sprintf("%d.%02d", q$Revision: 1.55 $ =~ /(\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. 1;
  53.  
  54. __END__
  55.  
  56.  
  57. #------------------------------------------------------------------------
  58. # IMPORTANT NOTE
  59. #   This documentation is generated automatically from source
  60. #   templates.  Any changes you make here may be lost.
  61. # 
  62. #   The 'docsrc' documentation source bundle is available for download
  63. #   from http://www.template-toolkit.org/docs.html and contains all
  64. #   the source templates, XML files, scripts, etc., from which the
  65. #   documentation for the Template Toolkit is built.
  66. #------------------------------------------------------------------------
  67.  
  68. =head1 NAME
  69.  
  70. Template::Plugin::GD::Graph::pie3d - Create 3D pie charts with legends
  71.  
  72. =head1 SYNOPSIS
  73.  
  74.     [% USE g = GD.Graph.pie3d(x_size, y_size); %]
  75.  
  76. =head1 EXAMPLES
  77.  
  78.     [% FILTER null;
  79.         data = [
  80.             ["1st","2nd","3rd","4th","5th","6th"],
  81.             [    4,    2,    3,    4,    3,  3.5]
  82.         ];
  83.  
  84.         USE my_graph = GD.Graph.pie3d( 250, 200 );
  85.  
  86.         my_graph.set(
  87.                 title => 'A Pie Chart',
  88.                 label => 'Label',
  89.                 axislabelclr => 'black',
  90.                 pie_height => 36,
  91.  
  92.                 transparent => 0,
  93.         );
  94.         my_graph.plot(data).png | stdout(1);
  95.        END;
  96.     -%]
  97.  
  98. =head1 DESCRIPTION
  99.  
  100. The GD.Graph.pie3d plugin provides an interface to the GD::Graph::pie3d
  101. class defined by the GD::Graph module. It allows an (x,y) data set to
  102. be plotted as a 3d pie chart.  The x values are typically strings.
  103.  
  104. Note that GD::Graph::pie already produces a 3d effect, so GD::Graph::pie3d
  105. is just a wrapper around GD::Graph::pie.  Similarly, the plugin
  106. GD.Graph.pie3d is effectively the same as the plugin GD.Graph.pie.
  107.  
  108. See L<GD::Graph3d> for more details.
  109.  
  110. =head1 AUTHOR
  111.  
  112. Craig Barratt E<lt>craig@arraycomm.comE<gt>
  113.  
  114.  
  115. The GD::Graph3d module was written by Jeremy Wadsack. The GD::Graph module was written by Martien Verbruggen.
  116.  
  117.  
  118. =head1 VERSION
  119.  
  120. 1.55, distributed as part of the
  121. Template Toolkit version 2.13, released on 30 January 2004.
  122.  
  123. =head1 COPYRIGHT
  124.  
  125.  
  126. Copyright (C) 2001 Craig Barratt E<lt>craig@arraycomm.comE<gt>
  127.  
  128. GD::Graph3d is copyright (c) 1999,2000 Wadsack-Allen. All Rights Reserved. GD::Graph is copyright 1999 Martien Verbruggen.
  129.  
  130. This module is free software; you can redistribute it and/or
  131. modify it under the same terms as Perl itself.
  132.  
  133. =head1 SEE ALSO
  134.  
  135. 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::linespoints|Template::Plugin::GD::Graph::linespoints>, 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<GD::Graph|GD::Graph>, L<GD::Graph3d|GD::Graph3d>
  136.  
  137. =cut
  138.  
  139. # Local Variables:
  140. # mode: perl
  141. # perl-indent-level: 4
  142. # indent-tabs-mode: nil
  143. # End:
  144. #
  145. # vim: expandtab shiftwidth=4:
  146.