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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
package Bio::Graphics::Glyph::dot;
# DAS-compatible package to use for drawing a ring or filled circle
use strict;
use base qw(Bio::Graphics::Glyph::point_glyph);
use constant PI => 3.14159;
sub my_description {
return <<END;
This glyph draws an ellipse the width of the scaled feature passed,
and height a possibly configured height (See Bio::Graphics::Glyph).
END
}
sub my_options {
{
point => [
'boolean',
undef,
'If true, draws a fixed-radius ellipse at the center of the feature,',
'regardless of the feature\'s length.'],
}
}
sub draw {
my $self = shift;
my $gd = shift;
my $fg = $self->fgcolor;
# now draw a circle
my ($left,$top) = @_;
my ($x1,$y1,$x2,$y2) = $self->calculate_boundaries(@_);
my $xmid = (($x1+$x2)/2); my $width = abs($x2-$x1);
my $ymid = (($y1+$y2)/2); my $height = abs($y2-$y1);
# only point ovals allowed now
my $r = $self->height;
# Code to maintain compliancy with gd 1.8.4
# gd 1.8.4 does not support the ellipse() or filledEllipse() methods.
# Let's maintain the filledEllipse approach for installations
# using gd2 or for drawing images with GD::SVG
# Otherwise, we will use fill as before.
# The can() method fails with GD::SVG. Why?
my $bg = $self->bgcolor;
if ($gd->can('filledEllipse') || $gd =~ /SVG/ ) {
$gd->filledEllipse($xmid,$ymid,$r,$r,$bg) if ($bg);
# Draw the border (or unfilled ellipse)
$gd->ellipse($xmid,$ymid,$r,$r,$fg);
} else {
# Let's draw a circle in the gd 1.8.4 manner
$gd->arc($xmid,$ymid,$r,$r,0,360,$fg);
$gd->fillToBorder($xmid,$ymid,$fg,$bg) if ($bg);
}
#how about a fuse for the bomb?
#work in degrees, not radians. So we define PI above
if(defined $self->option('stem')){
my $angle = $self->option('stem');
$gd->line($xmid+($r/PI*sin($angle*PI/180)),
$ymid+($r/PI*cos($angle*PI/180)),
$xmid+($r*sin($angle*PI/180)),
$ymid+($r*cos($angle*PI/180)),$fg);
}
$self->draw_label($gd,@_) if $self->option('label');
}
1;
__END__
=head1 NAME
Bio::Graphics::Glyph::dot - The "dot" glyph
=head1 SYNOPSIS
See L<Bio::Graphics::Panel> and L<Bio::Graphics::Glyph>.
=head1 DESCRIPTION
This glyph draws an ellipse the width of the scaled feature passed,
and height a possibly configured height (See Bio::Graphics::Glyph).
=head2 OPTIONS
The following options are standard among all Glyphs. See
L<Bio::Graphics::Glyph> for a full explanation.
Option Description Default
------ ----------- -------
-fgcolor Foreground color black
-outlinecolor Synonym for -fgcolor
-bgcolor Background color turquoise
-fillcolor Synonym for -bgcolor
-linewidth Line width 1
-height Height of glyph 10
-font Glyph font gdSmallFont
-connector Connector type 0 (false)
-connector_color
Connector color black
-label Whether to draw a label 0 (false)
-description Whether to draw a description 0 (false)
-hilite Highlight color undef (no color)
In addition to the common options, the following glyph-specific
options are recognized:
Option Description Default
------ ----------- -------
-point Whether to draw an ellipse feature width
the scaled width of the
feature or with radius
point.
=head1 BUGS
Please report them.
=head1 SEE ALSO
L<Bio::Graphics::Panel>,
L<Bio::Graphics::Glyph>,
L<Bio::Graphics::Glyph::arrow>,
L<Bio::Graphics::Glyph::cds>,
L<Bio::Graphics::Glyph::crossbox>,
L<Bio::Graphics::Glyph::diamond>,
L<Bio::Graphics::Glyph::dna>,
L<Bio::Graphics::Glyph::dot>,
L<Bio::Graphics::Glyph::ellipse>,
L<Bio::Graphics::Glyph::extending_arrow>,
L<Bio::Graphics::Glyph::generic>,
L<Bio::Graphics::Glyph::graded_segments>,
L<Bio::Graphics::Glyph::heterogeneous_segments>,
L<Bio::Graphics::Glyph::line>,
L<Bio::Graphics::Glyph::pinsertion>,
L<Bio::Graphics::Glyph::primers>,
L<Bio::Graphics::Glyph::rndrect>,
L<Bio::Graphics::Glyph::segments>,
L<Bio::Graphics::Glyph::ruler_arrow>,
L<Bio::Graphics::Glyph::toomany>,
L<Bio::Graphics::Glyph::transcript>,
L<Bio::Graphics::Glyph::transcript2>,
L<Bio::Graphics::Glyph::translation>,
L<Bio::Graphics::Glyph::triangle>,
L<Bio::DB::GFF>,
L<Bio::SeqI>,
L<Bio::SeqFeatureI>,
L<Bio::Das>,
L<GD>
=head1 AUTHOR
Allen Day E<lt>day@cshl.orgE<gt>.
Copyright (c) 2001 Cold Spring Harbor Laboratory
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. See DISCLAIMER.txt for
disclaimers of warranty.
=cut
|
