|
0
|
1 package Bio::Graphics::Glyph::ellipse;
|
|
|
2
|
|
|
3 use strict;
|
|
|
4 use vars '@ISA';
|
|
|
5 use Bio::Graphics::Glyph;
|
|
|
6 @ISA = 'Bio::Graphics::Glyph';
|
|
|
7
|
|
|
8 # override draw_component to draw an oval rather than a rectangle (weird)
|
|
|
9 sub draw_component {
|
|
|
10 my $self = shift;
|
|
|
11 my $gd = shift;
|
|
|
12 my ($left,$top) = @_;
|
|
|
13 my($x1,$y1,$x2,$y2) = $self->bounds(@_);
|
|
|
14 $self->filled_oval($gd,
|
|
|
15 $x1, $y1,
|
|
|
16 $x2, $y2);
|
|
|
17 }
|
|
|
18
|
|
|
19 1;
|
|
|
20
|
|
|
21 __END__
|
|
|
22
|
|
|
23 =head1 NAME
|
|
|
24
|
|
|
25 Bio::Graphics::Glyph::ellipse - The "ellipse" glyph
|
|
|
26
|
|
|
27 =head1 SYNOPSIS
|
|
|
28
|
|
|
29 See L<Bio::Graphics::Panel> and L<Bio::Graphics::Glyph>.
|
|
|
30
|
|
|
31 =head1 DESCRIPTION
|
|
|
32
|
|
|
33 This glyph draws an oval instead of a box; otherwise it is similar to
|
|
|
34 the "generic" or "box" glyphs. The width of the oval is determined by
|
|
|
35 the feature width, and the height by the -height option.
|
|
|
36
|
|
|
37 =head2 OPTIONS
|
|
|
38
|
|
|
39 The following options are standard among all Glyphs. See
|
|
|
40 L<Bio::Graphics::Glyph> for a full explanation.
|
|
|
41
|
|
|
42 Option Description Default
|
|
|
43 ------ ----------- -------
|
|
|
44
|
|
|
45 -fgcolor Foreground color black
|
|
|
46
|
|
|
47 -outlinecolor Synonym for -fgcolor
|
|
|
48
|
|
|
49 -bgcolor Background color turquoise
|
|
|
50
|
|
|
51 -fillcolor Synonym for -bgcolor
|
|
|
52
|
|
|
53 -linewidth Line width 1
|
|
|
54
|
|
|
55 -height Height of glyph 10
|
|
|
56
|
|
|
57 -font Glyph font gdSmallFont
|
|
|
58
|
|
|
59 -connector Connector type 0 (false)
|
|
|
60
|
|
|
61 -connector_color
|
|
|
62 Connector color black
|
|
|
63
|
|
|
64 -label Whether to draw a label 0 (false)
|
|
|
65
|
|
|
66 -description Whether to draw a description 0 (false)
|
|
|
67
|
|
|
68 =head1 BUGS
|
|
|
69
|
|
|
70 Please report them.
|
|
|
71
|
|
|
72 =head1 SEE ALSO
|
|
|
73
|
|
|
74 L<Bio::Graphics::Panel>,
|
|
|
75 L<Bio::Graphics::Glyph>,
|
|
|
76 L<Bio::Graphics::Glyph::arrow>,
|
|
|
77 L<Bio::Graphics::Glyph::cds>,
|
|
|
78 L<Bio::Graphics::Glyph::crossbox>,
|
|
|
79 L<Bio::Graphics::Glyph::diamond>,
|
|
|
80 L<Bio::Graphics::Glyph::dna>,
|
|
|
81 L<Bio::Graphics::Glyph::dot>,
|
|
|
82 L<Bio::Graphics::Glyph::ellipse>,
|
|
|
83 L<Bio::Graphics::Glyph::extending_arrow>,
|
|
|
84 L<Bio::Graphics::Glyph::generic>,
|
|
|
85 L<Bio::Graphics::Glyph::graded_segments>,
|
|
|
86 L<Bio::Graphics::Glyph::heterogeneous_segments>,
|
|
|
87 L<Bio::Graphics::Glyph::line>,
|
|
|
88 L<Bio::Graphics::Glyph::pinsertion>,
|
|
|
89 L<Bio::Graphics::Glyph::primers>,
|
|
|
90 L<Bio::Graphics::Glyph::rndrect>,
|
|
|
91 L<Bio::Graphics::Glyph::segments>,
|
|
|
92 L<Bio::Graphics::Glyph::ruler_arrow>,
|
|
|
93 L<Bio::Graphics::Glyph::toomany>,
|
|
|
94 L<Bio::Graphics::Glyph::transcript>,
|
|
|
95 L<Bio::Graphics::Glyph::transcript2>,
|
|
|
96 L<Bio::Graphics::Glyph::translation>,
|
|
|
97 L<Bio::Graphics::Glyph::triangle>,
|
|
|
98 L<Bio::DB::GFF>,
|
|
|
99 L<Bio::SeqI>,
|
|
|
100 L<Bio::SeqFeatureI>,
|
|
|
101 L<Bio::Das>,
|
|
|
102 L<GD>
|
|
|
103
|
|
|
104 =head1 AUTHOR
|
|
|
105
|
|
|
106 Lincoln Stein E<lt>lstein@cshl.orgE<gt>
|
|
|
107
|
|
|
108 Copyright (c) 2001 Cold Spring Harbor Laboratory
|
|
|
109
|
|
|
110 This library is free software; you can redistribute it and/or modify
|
|
|
111 it under the same terms as Perl itself. See DISCLAIMER.txt for
|
|
|
112 disclaimers of warranty.
|
|
|
113
|
|
|
114 =cut
|
