Cory G Watson > Graphics-Primitive-0.65 > Graphics::Primitive::Brush

Download:
Graphics-Primitive-0.65.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Source  

NAME ^

Graphics::Primitive::Brush - Description of a stroke

DESCRIPTION ^

Graphics::Primitive::Brush represents the visible trace of 'ink' along a path.

SYNOPSIS ^

  use Graphics::Primitive::Brush;

  my $stroke = Graphics::Primitive::Brush->new({
    line_cap => 'round',
    line_join => 'miter',
    width => 2
  });

METHODS ^

Constructor

new

Creates a new Graphics::Primitive::Brush. Defaults to a width of 1, a line_cap 'butt' and a line_join of 'miter'.

Instance Methods

color

Set/Get this brush's color.

dash_pattern

Set/Get the dash pattern. A dash pattern is an arrayref of numbers representing the lengths of the various line segments of the dash. Even numbered elements are considered opaque and odd elements are transparent.

derive

Clone this brush but change one or more of it's attributes by passing in a hashref of options:

  my $new = $brush->derive({ attr => $newvalue });

The returned font will be identical to the cloned one, save the attributes specified.

equal_to ($other)

Returns 1 if this brush is equal to the supplied one, else returns 0.

line_cap

Set/Get the line_cap of this stroke. Valid values are butt, round and square.

line_join

Set/Get the line_join of this stroke. Valid values are miter, round and bevel.

not_equal_to ($other)

Opposite of equal_to.

width

Set/Get the width of this stroke. Defaults to 1

AUTHOR ^

Cory Watson, <gphat@cpan.org>

COPYRIGHT & LICENSE ^

Copyright 2008-2010 by Cory G Watson.

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

syntax highlighting: