1
package Bio::Graphics::Glyph::line;
2
# an arrow without the arrowheads
5
use base qw(Bio::Graphics::Glyph::generic);
9
my $val = $self->SUPER::bottom(@_);
10
$val += $self->font->height if $self->option('tick');
11
$val += $self->labelheight if $self->option('label');
18
my ($x1,$y1,$x2,$y2) = $self->calculate_boundaries(@_);
20
my $fg = $self->fgcolor;
21
my $a2 = $self->SUPER::height/2;
24
$gd->line($x1,$center,$x2,$center,$fg);
25
# add a label if requested
26
$self->draw_label($gd,@_) if $self->option('label');
36
Bio::Graphics::Glyph::line - The "line" glyph
40
See L<Bio::Graphics::Panel> and L<Bio::Graphics::Glyph>.
44
This glyph draws a line parallel to the sequence segment.
48
This glyph takes only the standard options. See
49
L<Bio::Graphics::Glyph> for a full explanation.
51
Option Description Default
52
------ ----------- -------
54
-fgcolor Foreground color black
56
-outlinecolor Synonym for -fgcolor
58
-bgcolor Background color turquoise
60
-fillcolor Synonym for -bgcolor
62
-linewidth Line width 1
64
-height Height of glyph 10
66
-font Glyph font gdSmallFont
68
-connector Connector type 0 (false)
73
-label Whether to draw a label 0 (false)
75
-description Whether to draw a description 0 (false)
77
-strand_arrow Whether to indicate 0 (false)
80
-hilite Highlight color undef (no color)
88
L<Bio::Graphics::Panel>,
89
L<Bio::Graphics::Glyph>,
90
L<Bio::Graphics::Glyph::arrow>,
91
L<Bio::Graphics::Glyph::cds>,
92
L<Bio::Graphics::Glyph::crossbox>,
93
L<Bio::Graphics::Glyph::diamond>,
94
L<Bio::Graphics::Glyph::dna>,
95
L<Bio::Graphics::Glyph::dot>,
96
L<Bio::Graphics::Glyph::ellipse>,
97
L<Bio::Graphics::Glyph::extending_arrow>,
98
L<Bio::Graphics::Glyph::generic>,
99
L<Bio::Graphics::Glyph::graded_segments>,
100
L<Bio::Graphics::Glyph::heterogeneous_segments>,
101
L<Bio::Graphics::Glyph::line>,
102
L<Bio::Graphics::Glyph::pinsertion>,
103
L<Bio::Graphics::Glyph::primers>,
104
L<Bio::Graphics::Glyph::rndrect>,
105
L<Bio::Graphics::Glyph::segments>,
106
L<Bio::Graphics::Glyph::ruler_arrow>,
107
L<Bio::Graphics::Glyph::toomany>,
108
L<Bio::Graphics::Glyph::transcript>,
109
L<Bio::Graphics::Glyph::transcript2>,
110
L<Bio::Graphics::Glyph::translation>,
111
L<Bio::Graphics::Glyph::triangle>,
120
Allen Day E<lt>day@cshl.orgE<gt>.
122
Copyright (c) 2001 Cold Spring Harbor Laboratory
124
This library is free software; you can redistribute it and/or modify
125
it under the same terms as Perl itself. See DISCLAIMER.txt for
126
disclaimers of warranty.