lib/CXGN/Cview/Label/Physical.pm

   1
   2 use strict;
   3
   4 use CXGN::Cview::Label;
   5
   6 package CXGN::Cview::Label::Physical;
   7
   8 use GD;
   9
  10 use base qw / CXGN::Cview::Label /;
  11
  12
  13 =head2 function new()
  14
  15   Synopsis:
  16   Arguments:
  17   Returns:
  18   Side effects:
  19   Description:
  20
  21 =cut
  22
  23 sub new {
  24     my $class = shift;
  25     my $self = $class->SUPER::new(@_);
  26
  27     # set some interesting defaults
  28     #
  29     $self->set_align_side("left");
  30     $self->set_label_spacer(20);
  31     $self->set_vertical_stacking_spacing(2);
  32     $self->set_stacking_height(5);
  33
  34
  35     return $self;
  36 }
  37
  38
  39 =head2 function render_line()
  40
  41   Synopsis:
  42   Arguments:
  43   Returns:
  44   Side effects:
  45   Description:
  46
  47 =cut
  48
  49 sub render_line {
  50     my $self = shift;
  51     my $image = shift;
  52
  53     my $line_color = $image->colorResolve($self->get_line_color());
  54
  55     $image -> setAntiAliased($line_color);
  56     my $width = 0;
  57
  58     # calculate the point that the line should connect to
  59     # on the label
  60     #
  61     my ($x, $y, $a, $b) = $self->get_enclosing_rect();
  62
  63     my ($connection_x, $connection_y) = (0, 0);
  64
  65     if ($self->get_align_side() eq "right") {
  66
  67         $connection_x = $a;
  68         $connection_y = $y + CXGN::Cview::ImageObject::round(($b - $y ) /2);
  69
  70         #my $horizontal = ($self->get_reference_point())[0]-$self->get_stacking_level()*$self->get_stacking_height();
  71
  72         $image->line($connection_x, $connection_y,
  73                      ($self->get_reference_point())[0], ($self->get_reference_point())[1],
  74                      gdAntiAliased
  75                      );
  76     }
  77     if ($self->get_align_side() eq "left") {
  78
  79         $connection_x = $x;
  80         $connection_y = $y + CXGN::Cview::ImageObject::round(($b - $y)/2);
  81
  82         #my $horizontal = ($self->get_reference_point())[0]+$self->get_stacking_level()*$self->get_stacking_height();
  83
  84         $image->line($connection_x,
  85                      $connection_y,
  86                      ($self->get_reference_point())[0],
  87                      ($self->get_reference_point())[1],
  88                      gdAntiAliased
  89                      );
  90
  91     }
  92
  93 }
  94
  95 return 1;