.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.IX Title "Pastel::Graphics 3"
.TH Pastel::Graphics 3 "2003-04-29" "perl v5.8.0" "User Contributed Perl Documentation"
Pastel::Graphics \- Graphics context.
\& my $graphics = Pastel::Graphics->new(...);
\& $graphics->show(); #dump the graphics on STDOUT
\& my $string = $graphics->get_svg(); # get the graphic as string
\&\f(CW\*(C`Pastel::Graphics\*(C'\fR is the main workhorse of Pastel. It is equivalent to
Java Graphics2D class. Each program first has to create once instance
of this class, then call methods on this and lastly dump the whole
instance onto \s-1STDOUT\s0 or get it as string.
The class provides the graphics context in that it hold all the
necessary informations for drawing any graphics object correctly.
All styles like fonts, color and strokes are set into this class by
calling appropriate methods. Shapes and Strings are drawn by calling
\&\f(CW\*(C`draw()\*(C'\fR and \f(CW\*(C`draw_string()\*(C'\fR methods. For a tutorial introduction see
Pastel programming manual.
There are certain shortcut methods that are inbuilt into this
module. You can draw shapes without creating additional
objects. Notable among these classes of methods are \f(CW\*(C`draw_3D_rect()\*(C'\fR
and \f(CW\*(C`draw_round_rect()\*(C'\fR which are not availble from the
Pastel::Geometry::Rectangle class.
Creates and returns a new \f(CW\*(C`Pastel::Graphics\*(C'\fR object.
\& Usage : $graphics = Pastel::Graphics->new(-width=>$w,
\& Args : $w - Optional. Width of the SVG document in pixels. If not
\& provided default is 800.
\& $h - Optional. Height of the SVG document in pixels. If not
\& provided the default is 600.
\& $dtd - Optional. DTD used for SVG document. You can pass your
\& Returns: Pastel::Graphics object
.IX Subsection "set_font()"
Set the font for all the graphics object. Any string drawn using
\&\f(CW\*(C`draw_string()\*(C'\fR after calling this method will be drawn using the
font presently set using this method. Note that
\&\f(CW\*(C`Pastel::Text::AttributedString\*(C'\fR objects are immune to font
context. To set the font of \f(CW\*(C`Pastel::Text::AttributedString\*(C'\fR you need
to set the font by setting it as attribute of the \f(CW\*(C`AttributedString\*(C'\fR
\& Usage : set_font($font)
\& Args : $font is a Pastel::Font object.
.IX Subsection "set_paint()"
Sets the color of the graphics context. Any drawing of shapes or text
will be carried out using the color presently set in the graphics
context. The color can be solid color of Pastel::Color object or a
gradient implementing Pastel::GradientI interface.
\& Usage : set_paint($color)
\& Args : $color is a Pastel::Color or Pastel::GradientI object.
.IX Subsection "set_stroke()"
If the current graphics context has the stroke object set then all
further drawings will be stroked. The stroke color will be the current
color set using \f(CW\*(C`set_paint()\*(C'\fR method. The swith off the stroking you
need to unset the stroke by calling this method without any argument.
Because stroking is done using the current color set in the graphics
context, to draw an object with both stroke and fill where the
stroke-color and the fill-color are different, you need to fill the
object first and set a different color before you draw the object. To
draw a rectangle with blue border and red fill you might do this:
\& $g = Pastel::Graphics->new();
\& $g->set_paint(Pastel::Color->red());
\& $g->set_stroke( Pastel::BasicStroke->new(-width=>5) );
\& my $rect = Pastel::Geometry::Rectangle(
\& -width=>100,-height=>150
\& $g->fill($rect); # filled with red color
\& $g->set_paint(Pastel::Color->blue());
\& Usage : set_stroke($stroke) # set the stroke object
\& set_stroke() # unset stroking
\& Args : $stroke is a Pastel::BasicStroke object.
.IX Subsection "get_font()"
Returns the current font object in the graphics context.
\& Returns : Pastel::Font object.
.IX Subsection "get_paint()"
Returns the current paint object in the graphics context.
\& Usage : $g->get_paint()
\& Returns : Pastel::Color or object implementing Pastel::GradientI interface.
.IX Subsection "get_stroke()"
Return the current stroke object in the graphics context.
\& Returns : Pastel::BasicStroke object if stroke is set or undef if not set.
.IX Subsection "draw_rect()"
Shortcut function to draw a rectangle without creating additional
object. The rectangle is stroked with the current \f(CW\*(C`BasicStroke\*(C'\fR
object. If the \f(CW\*(C`BasicStroke\*(C'\fR is not set then the rectangle is created
using an 1 pixel width line. The color of the line is determined by
\& Usage : draw_rect($x, $y, $width, $height)
\& Args : $x - X coordinate of the top left corner vertice of rectangle.
\& $y - Y coordinate of the top left corner vertice of rectangle.
\& $width - Width of the rectangle.
\& $height- Height of the rectangle.
.IX Subsection "fill_rect()"
Shortcut function to draw a filled rectangle without creating
additional objects. The rectangle is filled with the current paint in
\& Usage : fill_rect($x, $y, $width, $height);
\& Args : $x - X coordinate of the top left corner of the rectangle.
\& $y - Y coordinate of the top left corner of the rectangle.
\& $width - Width of the rectangle in pixels.
\& $height- Height of the rectangle in pixels.
.Sh "\fIdraw_round_rect()\fP"
.IX Subsection "draw_round_rect()"
Shortcut fuction to draw open rectangle with rounded corners. The
rectangle is stroked with the current stroke if it is set. Otherwise
it is drawn with 1 pixel width line. The color is determined by the
\& Usage : draw_round_rect($x, $y, $width, $height,
\& $arc_width, $arc_height);
\& Args : $x - X coordinate of the top left hand corner.
\& $y - Y coordinate of the top left hand corner.
\& $width - Width of the rectangle.
\& $height - Height of the rectangle.
\& $arc_width - Horizontal diameter of the arc at the four corners.
\& $arc_height - vertical diameter of the arc at the four corners.
.Sh "\fIdraw_fill_round_rect()\fP"
.IX Subsection "draw_fill_round_rect()"
Draws a filled rectangle with rounded corners. The rectangle is filled
with the current paint object in the graphics context.
\& Usage : $g->draw_fill_round_rect($x, $y, $width, $height,
\& $arc_width, $arc_height);
\& Args : $x - X coordinate of the top left hand corner.
\& $y - Y coordinate of the top left hand corner.
\& $width - Width of the rectangle.
\& $height - Height of the rectangle.
\& $arc_width - Horizontal diameter of the arc at the four corners.
\& $arc_height - vertical diameter of the arc at the four corners.
.Sh "\fIdraw_3D_rect()\fP"
.IX Subsection "draw_3D_rect()"
Draws a highlighted 3D effect rectangle.
\& Usage : $g->draw_3D_rect($x, $y, $width, $height, $raised, $bevel);
\& Args : $x - Top left corner X coordinate of the rectangle.
\& $y - Top left corner Y coordinate of the rectangle.
\& $width - Width of the rectangle.
\& $height - Height of the rectangle.
\& $raised - Optional. Takes value "true" or "false". Default "true".
\& $bevel - Optional. Width of the bevel. Default 1.
Draws a \f(CW\*(C`Pastel::Shape\*(C'\fR object. The object is stroked using the current
stroke object in the graphics context using the current paint object
in the graphics context. The method works for any object which is a
subclass of \f(CW\*(C`Pastel::Shape\*(C'\fR.
If you subclass Pastel::Shape. The child class must implement
\&\f(CW\*(C`get_shape()\*(C'\fR method, which should return an instance of the graphics
primitive (classes in \f(CW\*(C`Pastel::Geometry\*(C'\fR).
\& Args : $shape - an object subclassed from Pastel::Shape. All the
\& classes in Pastel::Geometry are subclass of Pastel::Shape.
.Sh "\fIdraw_string()\fP;"
.IX Subsection "draw_string();"
Draws the string supplied in the co-ordinates specified. Three types
of strings can be drawn using this method. Native perl strings can be
supplied which will be internally converted into suitable format. The
entities are automatically escaped. You can even pass perl unicode
strings directly into the method.
The methods also accepts \f(CW\*(C`Pastel::String\*(C'\fR objects which are nothing
but an \s-1XML\s0 formatted container for the perl string.
In both these above cases the font in which the string will drawn is
the current font object in the graphics context. The strings will also
be stroked with the current stroke in the graphics context and it will
drawn in the current paint color.
The method also accepts \f(CW\*(C`Pastel::Text::AttributedString\*(C'\fR object. In
Java you pass an \f(CW\*(C`AttributedCharacterIterator\*(C'\fR into this method. In
Pastel you pass the \f(CW\*(C`AttributedString\*(C'\fR object
itself. \f(CW\*(C`AttributedString\*(C'\fR object are immune to current graphics
context. If you want to change the stroke or color of the
\&\f(CW\*(C`AttributedString\*(C'\fR do so in the directly in the object.
A major way in which \f(CW\*(C`Pastel\*(C'\fR differs from \f(CW\*(C`Java2D\*(C'\fR is that the
coordinates can be arrays of numbers each determining the coordinated
of each character in the string. See \s-1SVG\s0 specification for more
\& Usage : draw_string("perl string", $x, $y);
\& draw_string("perl string", \e@x, \e@y);
\& draw_string( $string,$x, $y);
\& draw_string( $string, \e@x, \e@y);
\& Args : The method takes 3 arguments. The first argument can be an
\& object of type Pastel::String or a pure perl string or
\& Pastel::Text::AttributedString. The string supplied is converted to
\& XML form automatically. All character code above 126 is converted to
\& "&xff;" form. "<", ">", "&" and other XML entities are automatically
\& The second argument can be a single numerical value
\& indicating the X cordinate of the first character of the
\& string or the middle of the total length of the string or the
\& last character depending on text anchoring. This argument
\& also be a reference to an array indicating the X coordinates
\& of successive characters in the string.
\& The third argument can be a single numerical or a reference
\& to an array of numericals indicating the Y coordinate of the
\& baseline of the glyph used for drawing the font.
Dumps the graphics object as \s-1SVG\s0 on \s-1STDOUT\s0.
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.
projects / OpenSPARC-T2-DV / blob