.\" 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::Text::AttributedString 3"
.TH Pastel::Text::AttributedString 3 "2003-04-29" "perl v5.8.0" "User Contributed Perl Documentation"
Pastel::Text::AttributedString \- For drawing text with attributes.
\& $as = Pastel::Text::AttributedString->new(-text=>"Some text");
\& # create a font object
\& $font = Pastel::Font->new(-family=>"Arial", -style=>"bold", -size=>14);
\& # create a hash containing font
\& $as1 = Pastel:: Text::AttributedString->new(-text=>"Some text",
\& -attributes=> \e%att);
\& my $g = Pastel::Graphics->new();
\& # draw both the string
\& $g->draw_string($as, 10, 20);
\& # no x and y coordinates. Remember, we created the hash containing
\& $g->draw_string($as1);
\& # set some attributes to $as.
\& $as->add_attribute("COLOR", Pastel::Color->red, 0, 3);
\& $g->draw_string($as, 200, 300);
\&\s-1SVG\s0 \*(L"tspan\*(R" elements are supported by this module. Unlike
AttributedString class in Java, you do not pass
AttributedCharacterIterator to the graphics context. But pass the
AttributedString class itself.
The following text attributes are defined and can be used with this module\-
\& FONT A Pastel::Font object
\& FAMILY A string describing the family name of the font. If the
\& FONT attibute is already set then this attribute is ignored.
\& Should not be a composite of more than one attributes. e.g.
\& "Arial" is a valid attibute value but "Arial-Bold" is not.
\& POSTURE REGULAR or OBLIQUE or ITALIC
\& WEIGHT REGULAR or BOLD. Default REGULAR.
\& COLOR Pastel::Color object.
\& ANCHOR START or MIDDLE or END
\& STROKE_WIDTH Numeric value denoting stroke-width in pixels
\& STROKE_COLOR Pastel::Color object
\& ROTATE Numeric value indicating the rotation of the glyph
Note that X and Y coordinates are not valid attributes.
Each AttributedString class contains the \f(CW\*(C`root\*(C'\fR attribute, which is
applied to the whole string. The are three ways to put this root
attributes: (1) pass the attributes as hash in the construtor; (2) use
the \f(CW\*(C`add_attribute()\*(C'\fR method with only the first two arguments; (3)
use \f(CW\*(C`add_attribute()\*(C'\fR method with the first index 0 and the last
index equals to the length of the whole string.
In addition to the \f(CW\*(C`root\*(C'\fR element the AttributedString contains
several \f(CW"runs"\fR. Each run is represented by a single \f(CW\*(C`<tspan\*(C'\fR> element.
.Sh "Pastel::Text::AttributedString\->new(\-text=>$string)"
.IX Subsection "Pastel::Text::AttributedString->new(-text=>$string)"
Creates and returns an AttributedString object with no attributes defined.
.Sh "Pastel::Text::AttributedString\->new(\-text=>$string, \-attributes=>\e%att);"
.IX Subsection "Pastel::Text::AttributedString->new(-text=>$string, -attributes=>%att);"
Creates and returns an AttributedString object with attributes defined
for the whole string.%att is a hash containing the attributes in key
.IX Header "PRIVATE METHODS"
.ie n .Sh "_create_new_run($key, $value\fP, \f(CW$start\fP, \f(CW$end)"
.el .Sh "_create_new_run($key, \f(CW$value\fP, \f(CW$start\fP, \f(CW$end\fP)"
.IX Subsection "_create_new_run($key, $value, $start, $end)"
If there is no run present this method actually creates a new run. Should be called when \f(CW$self\fR\->{runcount} = 0.
\& Arguments: Same as add_attribute()
.IX Subsection "_break_run()"
Describe your function here
.Sh "_valid_key($string)"
.IX Subsection "_valid_key($string)"
Validate the string whether it is a legal \f(CW\*(C`key\*(C'\fR or not. The function
loops through the array in \f(CW\*(C`valid_keys\*(C'\fR attribute and returns true,
if it is present or false it it is not.
\& Returns : 1 if $string is a valid key or return C<undef>.
.Sh "\fI_get_attributes_as_style()\fP"
.IX Subsection "_get_attributes_as_style()"
Describe your function here
Malay <curiouser@ccmb.res.in>
projects / OpenSPARC-T2-DV / blob