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 / Polygon.pm < prev    next >
Encoding:
Perl POD Document  |  2004-01-30  |  3.9 KB  |  156 lines
  1. #============================================================= -*-Perl-*-
  2. #
  3. # Template::Plugin::GD::Polygon
  4. #
  5. # DESCRIPTION
  6. #
  7. #   Simple Template Toolkit plugin interfacing to the GD::Polygon
  8. #   class in the GD.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: Polygon.pm,v 1.55 2004/01/13 16:20:46 abw Exp $
  22. #
  23. #============================================================================
  24.  
  25. package Template::Plugin::GD::Polygon;
  26.  
  27. require 5.004;
  28.  
  29. use strict;
  30. use GD;
  31. use Template::Plugin;
  32. use base qw( 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 new GD::Polygon(@_);
  42. }
  43.  
  44. 1;
  45.  
  46. __END__
  47.  
  48.  
  49. #------------------------------------------------------------------------
  50. # IMPORTANT NOTE
  51. #   This documentation is generated automatically from source
  52. #   templates.  Any changes you make here may be lost.
  53. # 
  54. #   The 'docsrc' documentation source bundle is available for download
  55. #   from http://www.template-toolkit.org/docs.html and contains all
  56. #   the source templates, XML files, scripts, etc., from which the
  57. #   documentation for the Template Toolkit is built.
  58. #------------------------------------------------------------------------
  59.  
  60. =head1 NAME
  61.  
  62. Template::Plugin::GD::Polygon - Interface to GD module Polygon class
  63.  
  64. =head1 SYNOPSIS
  65.  
  66.     [% USE poly = GD.Polygon;
  67.        poly.addPt(50,0);
  68.        poly.addPt(99,99);
  69.     %]
  70.  
  71. =head1 EXAMPLES
  72.  
  73.     [% FILTER null;
  74.         USE im   = GD.Image(100,100);
  75.         USE c    = GD.Constants;
  76.  
  77.         # allocate some colors
  78.         white = im.colorAllocate(255,255,255);
  79.         black = im.colorAllocate(0,  0,  0);
  80.         red   = im.colorAllocate(255,0,  0);
  81.         blue  = im.colorAllocate(0,  0,255);
  82.         green = im.colorAllocate(0,  255,0);
  83.  
  84.         # make the background transparent and interlaced
  85.         im.transparent(white);
  86.         im.interlaced('true');
  87.  
  88.         # Put a black frame around the picture
  89.         im.rectangle(0,0,99,99,black);
  90.  
  91.         # Draw a blue oval
  92.         im.arc(50,50,95,75,0,360,blue);
  93.  
  94.         # And fill it with red
  95.         im.fill(50,50,red);
  96.  
  97.         # Draw a blue triangle by defining a polygon
  98.         USE poly = GD.Polygon;
  99.         poly.addPt(50,0);
  100.         poly.addPt(99,99);
  101.         poly.addPt(0,99);
  102.         im.filledPolygon(poly, blue);
  103.  
  104.         # Output binary image in PNG format
  105.         im.png | stdout(1);
  106.        END;
  107.     -%]
  108.  
  109. =head1 DESCRIPTION
  110.  
  111. The GD.Polygon plugin provides an interface to GD.pm's GD::Polygon class.
  112.  
  113. See L<GD> for a complete description of the GD library and all the
  114. methods that can be called via the GD.Polygon plugin.
  115. See L<Template::Plugin::GD::Image> for the main interface to the
  116. GD functions.
  117. See L<Template::Plugin::GD::Constants> for a plugin that allows you
  118. access to GD.pm's constants.
  119.  
  120. =head1 AUTHOR
  121.  
  122. Craig Barratt E<lt>craig@arraycomm.comE<gt>
  123.  
  124.  
  125. Lincoln D. Stein wrote the GD.pm interface to the GD library.
  126.  
  127.  
  128. =head1 VERSION
  129.  
  130. 1.55, distributed as part of the
  131. Template Toolkit version 2.13, released on 30 January 2004.
  132.  
  133. =head1 COPYRIGHT
  134.  
  135.  
  136. Copyright (C) 2001 Craig Barratt E<lt>craig@arraycomm.comE<gt>
  137.  
  138. The GD.pm interface is copyright 1995-2000, Lincoln D. Stein.
  139.  
  140. This module is free software; you can redistribute it and/or
  141. modify it under the same terms as Perl itself.
  142.  
  143. =head1 SEE ALSO
  144.  
  145. L<Template::Plugin|Template::Plugin>, L<Template::Plugin::GD|Template::Plugin::GD>, L<Template::Plugin::GD::Image|Template::Plugin::GD::Image>, L<Template::Plugin::GD::Constants|Template::Plugin::GD::Constants>, L<GD|GD>
  146.  
  147. =cut
  148.  
  149. # Local Variables:
  150. # mode: perl
  151. # perl-indent-level: 4
  152. # indent-tabs-mode: nil
  153. # End:
  154. #
  155. # vim: expandtab shiftwidth=4:
  156.