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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
package SVG::Graph::Glyph::wedge;
use base SVG::Graph::Glyph;
use strict;
use constant PI => 3.14159;
=head2 draw
Title : draw
Usage :
Function:
Example :
Returns :
Args :
=cut
sub draw{
my ($self,@args) = @_;
my %fill = (1=>'red',
2=>'orange',
3=>'yellow',
4=>'green',
5=>'blue',
6=>'indigo',
7=>'violet',
);
my $total = 0;
my $wedge_count = 0;
foreach my $datum ($self->group->data){
$wedge_count++;
$total += $datum->x;
die __PACKAGE__." can't take negative values" if $datum->x < 0;
}
my $cx = ($self->xsize / 2) + $self->xoffset;
my $cy = ($self->ysize / 2) + $self->yoffset;
my $r = ($self->xsize) / 2;
my $s = $r;
my $offset = 0;
my $old_offset;
my $wedge = 0;
foreach my $datum ($self->group->data){
$wedge++;
$old_offset = $offset;
$offset += ($datum->x / $total);
my $v = $old_offset * 2 * PI;
my $w = $offset * 2 * PI;
my $x1 = $cx + cos($v)*$r;
my $y1 = $cy + sin($v)*$s;
my $x2 = $cx + cos($w)*$r;
my $y2 = $cy + sin($w)*$s;
my $large = $datum->x < $total / 2 ? 0 : 1;
my %extra = ();
my $id = 'n'.sprintf("%07d",int(rand(9999999)));
my $group = $self->svg->group(id=>"wedge$id",%extra);
# $group->line(x1=>$cx,y1=>$cy , x2=>$x2 , y2=> $y2,style=>{'stroke-width'=>1,'stroke'=>'black'});
# $group->ellipse(cx=>$cx,cy=>$cy,rx=>$r,ry=>$s,style=>{'fill-opacity'=>0,'stroke'=>'black'});
$group->path(d=>"M$cx,$cy L$x1,$y1 A$r,$s 0 $large 1 $x2,$y2 L$cx,$cy",
style=>{'fill-opacity'=>0.4,'fill'=>$fill{$wedge},stroke=>$fill{$wedge},'stroke-width'=>1},
);
}
}
1;
|
