1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl
use strict;
use warnings;
use SVG;
# create an SVG object with a size of 200x200 pixels
my $svg = SVG->new(
width => 40,
height => 40,
);
# add a circle with style
# fill is the color used tof fill the circle
# stroke is the color of the line used to draw the circle
# these both can be either a name of a color or an RGB triplet
# stroke-width is a non-negative integer, thw width of thr drawing line
# stroke-opacity and fill-opacity are floating point numbers between 0 and 1.
# 1 means the line is totally opaque
# 0 means the line is totally transparent
$svg->circle(
cx => 20,
cy => 20,
r => 15,
style => {
'fill' => 'rgb(255, 0, 0)',
'stroke' => 'blue',
'stroke-width' => 5,
'stroke-opacity' => 0.5,
'fill-opacity' => 0.5,
},
);
# now render the SVG object, implicitly use svg namespace
print $svg->xmlify, "\n";
|
