NAME

SVG::Element - Generate the element bits for SVG.pm

VERSION

1.22

AUTHOR

Ronan Oger, ronan@roasp.com

# generate an anchor	
$tag = $SVG->anchor(
	-href=>'http://here.com/some/simpler/SVG.SVG'
);
# add a circle to the anchor. The circle can be clicked on.
$tag->circle(cx=>10,cy=>10,r=>1);

# more complex anchor with both URL and target
$tag = $SVG->anchor(
	  -href   => 'http://somewhere.org/some/other/page.html',
	  -target => 'new_window'
);

circle

$tag = $SVG->circle(%attributes)

Draw a circle at (cx,cy) with radius r.

Example:

my $tag = $SVG->circlecx=>4, cy=>2, r=>1);

ellipse

$tag = $SVG->ellipse(%attributes)

Draw an ellipse at (cx,cy) with radii rx,ry.

Example:

my $tag = $SVG->ellipse(
	cx=>10, cy=>10,
	rx=>5, ry=>7,
	id=>'ellipse',
	style=>{
		'stroke'=>'red',
		'fill'=>'green',
		'stroke-width'=>'4',
		'stroke-opacity'=>'0.5',
		'fill-opacity'=>'0.2'
	}
);

rectangle (alias: rect)

$tag = $SVG->rectangle(%attributes)

Draw a rectangle at (x,y) with width 'width' and height 'height' and side radii 'rx' and 'ry'.

Example:

$tag = $SVG->rectangle(
	x=>10, y=>20,
	width=>4, height=>5,
	rx=>5.2, ry=>2.4,
	id=>'rect_1'
);

image

$tag = $SVG->image(%attributes)

Draw an image at (x,y) with width 'width' and height 'height' linked to image resource '-href'. See also "use".

Example:

$tag = $SVG->image(
	x=>100, y=>100,
	width=>300, height=>200,
	'-href'=>"image.png", #may also embed SVG, e.g. "image.SVG"
	id=>'image_1'
);

Output:

<image xlink:href="image.png" x="100" y="100" width="300" height="200"/>

use

$tag = $SVG->use(%attributes)

Retrieve the content from an entity within an SVG document and apply it at (x,y) with width 'width' and height 'height' linked to image resource '-href'.

Example:

$tag = $SVG->use(
	x=>100, y=>100,
	width=>300, height=>200,
	'-href'=>"pic.SVG#image_1",
	id=>'image_1'
);

Output:

<use xlink:href="pic.SVG#image_1" x="100" y="100" width="300" height="200"/>

According to the SVG specification, the 'use' element in SVG can point to a single element within an external SVG file.

polygon

$tag = $SVG->polygon(%attributes)

Draw an n-sided polygon with vertices at points defined by a string of the form 'x1,y1,x2,y2,x3,y3,... xy,yn'. The "get_path" method is provided as a convenience to generate a suitable string from coordinate data.

Example:

# a five-sided polygon
my $xv = [0,2,4,5,1];
my $yv = [0,0,2,7,5];

$points = $a->get_path(
	x=>$xv, y=>$yv,
	-type=>'polygon'
);

$c = $a->polygon(
	%$points,
	id=>'pgon1',
	style=>\%polygon_style
);

SEE ALSO:

"polyline", "path", "get_path".

polyline

$tag = $SVG->polyline(%attributes)

Draw an n-point polyline with points defined by a string of the form 'x1,y1,x2,y2,x3,y3,... xy,yn'. The "get_path" method is provided as a convenience to generate a suitable string from coordinate data.

Example:

# a 10-pointsaw-tooth pattern
my $xv = [0,1,2,3,4,5,6,7,8,9];
my $yv = [0,1,0,1,0,1,0,1,0,1];

$points = $a->get_path(
	x=>$xv, y=>$yv,
	-type=>'polyline',
	-closed=>'true' #specify that the polyline is closed.
);

my $tag = $a->polyline (
	%$points,
	id=>'pline_1',
	style=>{
		'fill-opacity'=>0,
		'stroke-color'=>'rgb(250,123,23)'
	}
);

line

$tag = $SVG->line(%attributes)

Draw a straight line between two points (x1,y1) and (x2,y2).

Example:

my $tag = $SVG->line(
	id=>'l1',
	x1=>0, y1=>10,
	x2=>10, y2=>0
);

To draw multiple connected lines, use "polyline".

text

$text = $SVG->text(%attributes)->cdata();

$text_path = $SVG->text(-type=>'path'); $text_span = $text_path->text(-type=>'span')->cdata('A'); $text_span = $text_path->text(-type=>'span')->cdata('B'); $text_span = $text_path->text(-type=>'span')->cdata('C');

define the container for a text string to be drawn in the image.

Input: -type = path type (path | polyline | polygon) -type = text element type (path | span | normal [default])

Example:

my $text1 = $SVG->text(
	id=>'l1', x=>10, y=>10
)->cdata('hello, world');

my $text2 = $SVG->text(
	id=>'l1', x=>10, y=>10, -cdata=>'hello, world');

my $text = $SVG->text(
	id=>'tp', x=>10, y=>10 -type=>path)
	->text(id=>'ts' -type=>'span')
	->cdata('hello, world');

SEE ALSO:

L<"desc">, L<"cdata">.

title

$tag = $SVG->title(%attributes)

Generate the title of the image.

Example:

my $tag = $SVG->title(id=>'document-title')->cdata('This is the title');

desc

$tag = $SVG->desc(%attributes)

Generate the description of the image.

Example:

my $tag = $SVG->desc(id=>'document-desc')->cdata('This is a description');

comment

$tag = $SVG->comment(@comments)

Generate the description of the image.

Example:

my $tag = $SVG->comment('comment 1','comment 2','comment 3');

$tag = $SVG->pi(@pi)

Generate a set of processing instructions

Example:

my $tag = $SVG->pi('instruction one','instruction two','instruction three');

returns: 
  <lt>?instruction one?<gt>
  <lt>?instruction two?<gt>
  <lt>?instruction three?<gt>

script

$tag = $SVG->script(%attributes)

Generate a script container for dynamic (client-side) scripting using ECMAscript, Javascript or other compatible scripting language.

Example:

my $tag = $SVG->script(-type=>"text/ecmascript");

# populate the script tag with cdata
# be careful to manage the javascript line ends.
# qq|text| or qq§text§ where text is the script 
# works well for this.

$tag->cdata(qq|function d(){
	//simple display function
	for(cnt = 0; cnt < d.length; cnt++)
		document.write(d[cnt]);//end for loop
	document.write("<BR>");//write a line break
  }|
);

path

$tag = $SVG->path(%attributes)

Draw a path element. The path vertices may be imputed as a parameter or calculated usingthe "get_path" method.

Example:

# a 10-pointsaw-tooth pattern drawn with a path definition
my $xv = [0,1,2,3,4,5,6,7,8,9];
my $yv = [0,1,0,1,0,1,0,1,0,1];

$points = $a->get_path(
	x => $xv,
	y => $yv,
	-type   => 'path',
	-closed => 'true'  #specify that the polyline is closed
);

$tag = $SVG->path(
	%$points,
	id	=> 'pline_1',
	style => {
		'fill-opacity' => 0,
		'fill-color'   => 'green',
		'stroke-color' => 'rgb(250,123,23)'
	}
);

SEE ALSO:

"get_path".

get_path

$path = $SVG->get_path(%attributes)

Returns the text string of points correctly formatted to be incorporated into the multi-point SVG drawing object definitions (path, polyline, polygon)

Input: attributes including:

-type	 = path type (path | polyline | polygon)
x		 = reference to array of x coordinates
y		 = reference to array of y coordinates

Output: a hash reference consisting of the following key-value pair:

points	= the appropriate points-definition string
-type	 = path|polygon|polyline
-relative = 1 (define relative position rather than absolute position)
-closed   = 1 (close the curve - path and polygon only)

Example:

	#generate an open path definition for a path.
	my ($points,$p);
	$points = $SVG->get_path(x=&gt\@x,y=&gt\@y,-relative=&gt1,-type=&gt'path');
 
	#add the path to the SVG document
	my $p = $SVG->path(%$path, style=>\%style_definition);

	#generate an closed path definition for a a polyline.
	$points = $SVG->get_path(
		x=>\@x,
		y=>\@y,
		-relative=>1,
		-type=>'polyline',
		-closed=>1
	); # generate a closed path definition for a polyline

	# add the polyline to the SVG document
	$p = $SVG->polyline(%$points, id=>'pline1');

Aliases: get_path set_path

animate

$tag = $SVG->animate(%attributes)

Generate an SMIL animation tag. This is allowed within any nonempty tag. Refer\ to the W3C for detailed information on the subtleties of the animate SMIL commands.

Inputs: -method = Transform | Motion | Color

  my $an_ellipse = $SVG->ellipse(
	  cx=>30,cy=>150,rx=>10,ry=>10,id=>'an_ellipse',
	  stroke=>'rgb(130,220,70)',fill=>'rgb(30,20,50)'); 

  $an_ellipse-> animate(
	  attributeName=>"cx",values=>"20; 200; 20",dur=>"10s", repeatDur=>'indefinite');

  $an_ellipse-> animate(
	  attributeName=>"rx",values=>"10;30;20;100;50",
	  dur=>"10s", repeatDur=>'indefinite');

  $an_ellipse-> animate(
	  attributeName=>"ry",values=>"30;50;10;20;70;150",
	  dur=>"15s", repeatDur=>'indefinite');

  $an_ellipse-> animate(
	  attributeName=>"rx",values=>"30;75;10;100;20;20;150",
	  dur=>"20s", repeatDur=>'indefinite');

  $an_ellipse-> animate(
	  attributeName=>"fill",values=>"red;green;blue;cyan;yellow",
	  dur=>"5s", repeatDur=>'indefinite');

  $an_ellipse-> animate(
	  attributeName=>"fill-opacity",values=>"0;1;0.5;0.75;1",
	  dur=>"20s",repeatDur=>'indefinite');

  $an_ellipse-> animate(
	  attributeName=>"stroke-width",values=>"1;3;2;10;5",
	  dur=>"20s",repeatDur=>'indefinite');

group

$tag = $SVG->group(%attributes)

Define a group of objects with common properties. groups can have style, animation, filters, transformations, and mouse actions assigned to them.

Example:

$tag = $SVG->group(
	id		=> 'xvs000248',
	style	 => {
		'font'	  => [ qw( Arial Helvetica sans ) ],
		'font-size' => 10,
		'fill'	  => 'red',
	},
	transform => 'rotate(-45)'
);

defs

$tag = $SVG->defs(%attributes)

define a definition segment. A Defs requires children when defined using SVG.pm Example:

$tag = $SVG->defs(id  =>  'def_con_one',);

style

$SVG->style(%styledef)

Sets/Adds style-definition for the following objects being created.

Style definitions apply to an object and all its children for all properties for which the value of the property is not redefined by the child.

mouseaction

$SVG->mouseaction(%attributes)

Sets/Adds mouse action definitions for tag

$SVG->attrib($name, $value)

Sets/Adds attributes of an element.

Retrieve an attribute:

$svg->attrib($name);

Set a scalar attribute:

$SVG->attrib $name, $value

Set a list attribute:

$SVG->attrib $name, \@value

Set a hash attribute (i.e. style definitions):

$SVG->attrib $name, \%value

Remove an attribute:

$svg->attrib($name,undef);

Aliases: attr attribute

cdata

$SVG->cdata($text)

Sets cdata to $text. SVG.pm allows you to set cdata for any tag. If the tag is meant to be an empty tag, SVG.pm will not complain, but the rendering agent will fail. In the SVG DTD, cdata is generally only meant for adding text or script content.

Example:

$SVG->text(
	style => {
		'font'	  => 'Arial',
		'font-size' => 20
	})->cdata('SVG.pm is a perl module on CPAN!');

my $text = $SVG->text(style=>{'font'=>'Arial','font-size'=>20});
$text->cdata('SVG.pm is a perl module on CPAN!');

Result:

E<lt>text style="font: Arial; font-size: 20" E<gt>SVG.pm is a perl module on CPAN!E<lt>/text E<gt>

SEE ALSO:

L<"CDATA"> L<"desc">, L<"title">, L<"text">, L<"script">.

CDATA

$script = $SVG->script();
$script->CDATA($text);

Generates a <![CDATA[ ... ]]> tag with the contents of $text rendered exactly as supplied. SVG.pm allows you to set cdata for any tag. If the tag is meant to be an empty tag, SVG.pm will not complain, but the rendering agent will fail. In the SVG DTD, cdata is generally only meant for adding text or script content.

Example:

  my $text = qq§
	var SVGDoc;
	var groups = new Array();
	var last_group;
	
	/*****
	*
	*   init
	*
	*   Find this SVG's document element
	*   Define members of each group by id
	*
	*****/
	function init(e) {
		SVGDoc = e.getTarget().getOwnerDocument();
		append_group(1, 4, 6); // group 0
		append_group(5, 4, 3); // group 1
		append_group(2, 3);	// group 2
	}§;
	$SVG->script()->CDATA($text);

Result:

E<lt>script E<gt>
  <gt>![CDATA[
	var SVGDoc;
	var groups = new Array();
	var last_group;
	
	/*****
	*
	*   init
	*
	*   Find this SVG's document element
	*   Define members of each group by id
	*
	*****/
	function init(e) {
		SVGDoc = e.getTarget().getOwnerDocument();
		append_group(1, 4, 6); // group 0
		append_group(5, 4, 3); // group 1
		append_group(2, 3);	// group 2
	}
	]]E<gt>

SEE ALSO:

L<"cdata">, L<"script">.

filter

$tag = $SVG->filter(%attributes)

Generate a filter. Filter elements contain "fe" filter sub-elements.

Example:

my $filter = $SVG->filter(
	filterUnits=>"objectBoundingBox",
	x=>"-10%",
	y=>"-10%",
	width=>"150%",
	height=>"150%",
	filterUnits=>'objectBoundingBox'
);

$filter->fe();

SEE ALSO:

"fe".

fe

$tag = $SVG->fe(-type=>'type', %attributes)

Generate a filter sub-element. Must be a child of a "filter" element.

Example:

my $fe = $SVG->fe(
	-type	 => 'DiffuseLighting'  # required - element name omiting 'fe'
	id		=> 'filter_1',
	style	 => {
		'font'	  => [ qw(Arial Helvetica sans) ],
		'font-size' => 10,
		'fill'	  => 'red',
	},
	transform => 'rotate(-45)'
);

Note that the following filter elements are currently supported:

feBlend
feColorMatrix
feComponentTransfer
feComposite
feConvolveMatrix
feDiffuseLighting
feDisplacementMap
feDistantLight
feFlood
feFuncA
feFuncB
feFuncG
feFuncR
feGaussianBlur
feImage
feMerge
feMergeNode
feMorphology
feOffset
fePointLight
feSpecularLighting
feSpotLight
feTile
feTurbulence

SEE ALSO:

"filter".

pattern

$tag = $SVG->pattern(%attributes)

Define a pattern for later reference by url.

Example:

my $pattern = $SVG->pattern(
	id	 => "Argyle_1",
	width  => "50",
	height => "50",
	patternUnits		=> "userSpaceOnUse",
	patternContentUnits => "userSpaceOnUse"
);

set

$tag = $SVG->set(%attributes)

Set a definition for an SVG object in one section, to be referenced in other sections as needed.

Example:

my $set = $SVG->set(
	id	 => "Argyle_1",
	width  => "50",
	height => "50",
	patternUnits		=> "userSpaceOnUse",
	patternContentUnits => "userSpaceOnUse"
);

stop

$tag = $SVG->stop(%attributes)

Define a stop boundary for "gradient"

Example:

   my $pattern = $SVG->stop(
	   id	 => "Argyle_1",
	   width  => "50",
	   height => "50",
	   patternUnits		=> "userSpaceOnUse",
	   patternContentUnits => "userSpaceOnUse"
   );

$tag = $SVG->gradient(%attributes)

Define a color gradient. Can be of type linear or radial

Example:

my $gradient = $SVG->gradient(
	-type => "linear",
	id	=> "gradient_1"
);

GENERIC ELEMENT METHODS

The following elements are generically supported by SVG:

altGlyph
altGlyphDef
altGlyphItem
clipPath
color-profile
cursor
definition-src
font-face-format
font-face-name
font-face-src
font-face-url
foreignObject
glyph
glyphRef
hkern
marker
mask
metadata
missing-glyph
mpath
switch
symbol
tref
view
vkern

See e.g. "pattern" for an example of the use of these methods.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 617:: Non-ASCII character seen before =encoding in 'qq§text§'. Assuming CP1252

To install SVG, copy and paste the appropriate command in to your terminal.

cpanm

cpanm SVG

CPAN shell

perl -MCPAN -e shell
install SVG

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

VERSION

AUTHOR

SEE ALSO

tag (alias: element)

anchor

circle

ellipse

rectangle (alias: rect)

image

use

polygon

polyline

line

text

title

desc

comment

script

path

get_path

animate

group

defs

style

mouseaction

cdata

CDATA

filter

fe

pattern

set

stop

GENERIC ELEMENT METHODS

Module Install Instructions