lib/CXGN/Cview/Label/RangeLabel.pm

   1
   2 use strict;
   3
   4 use CXGN::Cview::Label;
   5
   6 package CXGN::Cview::Label::RangeLabel;
   7
   8 use base qw / CXGN::Cview::Label /;
   9
  10
  11 =head2 function new()
  12
  13   Synopsis:
  14   Arguments:
  15   Returns:
  16   Side effects:
  17   Description:
  18
  19 =cut
  20
  21 sub new {
  22     my $class = shift;
  23     my $self = $class->SUPER::new(@_);
  24
  25     # set some interesting defaults
  26     #
  27     $self->set_align_side("left");
  28     $self->set_label_spacer(20);
  29     $self->set_vertical_stacking_spacing(0);
  30
  31     return $self;
  32 }
  33
  34
  35 =head2 function render_line()
  36
  37   Synopsis:
  38   Arguments:
  39   Returns:
  40   Side effects:
  41   Description:
  42
  43 =cut
  44
  45 sub render_line {
  46     my $self = shift;
  47     my $image = shift;
  48
  49     my $line_color = $image->colorResolve($self->get_line_color());
  50
  51     $image -> setAntiAliased($line_color);
  52     my $width = 0;
  53
  54     # calculate the point that the line should connect to
  55     # on the label
  56     #
  57     my ($x, $y, $a, $b) = $self->get_enclosing_rect();
  58     my ($connection_x, $connection_y) = (0, 0);
  59
  60     if ($self->get_align_side() eq "right") {
  61
  62         $connection_x = $a;
  63         $connection_y = $y + CXGN::Cview::ImageObject::round(($b - $y ) /2);
  64
  65         my $horizontal = ($self->get_reference_point())[0]-$self->get_stacking_level()*$self->get_stacking_height();
  66
  67         $image->line($connection_x, $connection_y,
  68                      $horizontal, ($self->get_reference_point())[1],
  69                      $line_color
  70                      #$image->colorResolve(255,0,0)
  71                      );
  72
  73         # draw the lines for the northern range
  74         #
  75         $image->line($horizontal, $self->get_north_position(),
  76                      $horizontal, $self->get_south_position(), $line_color);
  77
  78         # northern tick
  79         #
  80         $image->line($horizontal, $self->get_north_position(), $horizontal+$self->get_stacking_level()* $self->get_stacking_height(), $self->get_north_position(), $line_color);
  81
  82         # draw the line for the southern range tick
  83         #
  84         $image->line($horizontal, $self->get_south_position(), $horizontal + $self->get_stacking_level()*$self->get_stacking_height(), $self->get_south_position(), $line_color);
  85
  86     }
  87     if ($self->get_align_side() eq "left") {
  88
  89         $connection_x = $x;
  90         $connection_y = $y + CXGN::Cview::ImageObject::round(($b - $y)/2);
  91
  92         my $horizontal = ($self->get_reference_point())[0]+$self->get_stacking_level()*$self->get_stacking_height();
  93
  94         # draw the line from the text box to the chromosome
  95         #
  96         $image->line($connection_x, $connection_y,
  97                      $horizontal, ($self->get_reference_point())[1], $line_color );
  98
  99         # draw the line of the region
 100         #
 101         $image->line($horizontal, $self->get_north_position(), $horizontal, $self->get_south_position(), $line_color);
 102
 103         # draw the lines for the northern range
 104         #
 105         $image->line($horizontal, $self->get_north_position(), $horizontal-$self->get_stacking_level()*$self->get_stacking_height(), $self->get_north_position(), $line_color);
 106
 107         # draw the line for the southern range
 108         #
 109         $image->line($horizontal, $self->get_south_position(), $horizontal-$self->get_stacking_level()*$self->get_stacking_height(), $self->get_south_position(), $line_color);
 110     }
 111     #$image->rectangle($self->get_enclosing_rect(), $line_color);
 112 }
 113
 114 =head2 function get_stacking_height
 115
 116   Synopsis:
 117   Arguments:
 118   Returns:
 119   Side effects:
 120   Description:
 121
 122 =cut
 123
 124 sub get_stacking_height {
 125     my $self=shift;
 126     return $self->{stacking_height} || 3;
 127 }
 128
 129 =head2 function set_stacking_height
 130
 131   Synopsis:
 132   Arguments:
 133   Returns:
 134   Side effects:
 135   Description:
 136
 137 =cut
 138
 139 sub set_stacking_height {
 140     my $self=shift;
 141     $self->{stacking_height}=shift;
 142 }
 143
 144
 145
 146 1;