Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel.pm

#$Id: Pastel.pm,v 1.12 2003/05/08 18:00:44 malay Exp $
# Perl module for Pastel
# Author: Malay < curiouser@ccmb.res.in >
# Copyright (c) 2003 by Malay. All rights reserved.
# You may distribute this module under the same terms as Perl itself

=head1 NAME

Pastel - 2D graphic library and Scalable Vector Graphics (SVG) generator

=head1 SYNOPSIS

  use Pastel;
  my $g = Pastel::Graphics->new(); # create a graphics context
  ...
  # various graphics routines here
  ...
  $g->show();    # dump the SVG graphics on STDOUT
  $g->get_svg(); # get the SVG graphics as string

=head1 DESCRIPTION

This module is just a wrapper class to call all the other module. The
main work-horse of the whole package is C<Pastel::Graphics>. After
calling C<use Pastel> a graphics context should be created by creating
an instance of C<Pastel::Graphics>. After calling various method
calls, the graphics object can be dumped as SVG on STDOUT by calling
C<show()> method of the graphics object. Alternatively, the graphics
object can be returned as string by calling C<get_svg()> method.

=cut


package Pastel;

$VERSION = 0.04;

use strict;

use Pastel::Mixin::Mixin; # For _rearrange function
use Pastel::Graphics;
use Pastel::BasicStroke;
#use Pastel::Geometry::Shape;
use Pastel::Shape;
use Pastel::Geometry::Point;
use Pastel::Geometry::Line;
use Pastel::Geometry::Rectangle;
use Pastel::Geometry::GeneralPath;
use Pastel::Color;
use Pastel::Tools::Writer;
use Pastel::Font;
#use Pastel::Text;
use Pastel::String;
use Pastel::Geometry::Ellipse;
use Pastel::GradientStop;
use Pastel::GradientI;
use Pastel::LinearGradient;
use Pastel::Geometry::AffineTransform;
use Pastel::Text::AttributedString;
use Pastel::Geometry::Circle;


=head1 SEE ALSO

  L<Pastel::Graphics>

=head1 COPYRIGHTS

Copyright (c) 2003 by Malay <curiouser@ccmb.res.in>. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

=cut




1;