annotate svgExample.pl @ 39:8b3b5753ad41 laserkard

[svn r40] created succesuful interface to corel Draw :)
author rlm
date Sun, 24 Jan 2010 15:06:22 -0500
parents
children
rev   line source
rlm@39 1 #!/usr/bin/perl -w
rlm@39 2 use strict;
rlm@39 3 use SVG;
rlm@39 4
rlm@39 5 # create an SVG object
rlm@39 6 my $svg= SVG->new(width=>200,height=>200);
rlm@39 7 #or
rlm@39 8 my $svg= SVG->new(width=>200,height=>200);
rlm@39 9
rlm@39 10 # use explicit element constructor to generate a group element
rlm@39 11 my $y=$svg->group(
rlm@39 12 id => 'group_y',
rlm@39 13 style => { stroke=>'red', fill=>'green' }
rlm@39 14 );
rlm@39 15
rlm@39 16 # add a circle to the group
rlm@39 17 $y->circle(cx=>100, cy=>100, r=>50, id=>'circle_in_group_y');
rlm@39 18
rlm@39 19 # or, use the generic 'tag' method to generate a group element by name
rlm@39 20 my $z=$svg->tag('g',
rlm@39 21 id => 'group_z',
rlm@39 22 style => {
rlm@39 23 stroke => 'rgb(100,200,50)',
rlm@39 24 fill => 'rgb(10,100,150)'
rlm@39 25 }
rlm@39 26 );
rlm@39 27
rlm@39 28 # create and add a circle using the generic 'tag' method
rlm@39 29 $z->tag('circle', cx=>50, cy=>50, r=>100, id=>'circle_in_group_z');
rlm@39 30
rlm@39 31 # create an anchor on a rectangle within a group within the group z
rlm@39 32 my $k = $z->anchor(
rlm@39 33 id => 'anchor_k',
rlm@39 34 -href => 'http://test.hackmare.com/',
rlm@39 35 target => 'new_window_0'
rlm@39 36 )->rectangle(
rlm@39 37 x => 20, y => 50,
rlm@39 38 width => 20, height => 30,
rlm@39 39 rx => 10, ry => 5,
rlm@39 40 id => 'rect_k_in_anchor_k_in_group_z'
rlm@39 41 );
rlm@39 42
rlm@39 43 # now render the SVG object, implicitly use svg namespace
rlm@39 44 print $svg->xmlify;
rlm@39 45
rlm@39 46 # or render a child node of the SVG object without rendering the entire object
rlm@39 47 print $k->xmlify; #renders the anchor $k above containing a rectangle, but does not
rlm@39 48 #render any of the ancestor nodes of $k
rlm@39 49
rlm@39 50
rlm@39 51 # or, explicitly use svg namespace and generate a document with its own DTD
rlm@39 52 print $svg->xmlify(-namespace=>'svg');
rlm@39 53
rlm@39 54 # or, explicitly use svg namespace and generate an in-line docunent
rlm@39 55 print $svg->xmlify(
rlm@39 56 -namespace => "svg",
rlm@39 57 -pubid => "-//W3C//DTD SVG 1.0//EN",
rlm@39 58 -inline => 1
rlm@39 59 );