[Bio] / FigKernelPackages / raedraw.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raedraw.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3, Thu Feb 3 19:36:47 2005 UTC revision 1.4, Thu Feb 3 20:43:02 2005 UTC
# Line 172  Line 172 
172   print OUT $self->{'svg'}->xmlify;   print OUT $self->{'svg'}->xmlify;
173   close OUT;   close OUT;
174    
175   my $height=(1 + $self->{'rowcount'}) * (((scalar (keys %{$self->{'trackposn'}})) * $self->{'box_height'}* 3) + $self->{'top_marg'}+ $self->{'box_height'}), "\n";   my $height=(1 + $self->{'rowcount'}) * (((scalar (keys %{$self->{'trackposn'}})) * $self->{'box_height'}* 3) + $self->{'top_marg'}+ $self->{'box_height'} + $self->{'bot_marg'}) +  $self->{'top_marg'}+ $self->{'bot_marg'};
176    
177   print STDERR "The image should be width: ", $self->{'width'}, " height: $height\n";   print STDERR "The image should be width: ", $self->{'width'}, " height: $height\n";
178    
# Line 352  Line 352 
352    }    }
353    
354    # show the function if we are supposed to    # show the function if we are supposed to
355    unless ($pegcount % $self->{'show_function'}) {$self->_add_functions($defs, $peg, $x, $boxwidth, $row)}    if ($self->{'show_function'} && !($pegcount % $self->{'show_function'})) {$self->_add_functions($defs, $peg, $x, $boxwidth, $row)}
356    
357    
358    # add a tick mark for the peg    # add a tick mark for the peg
# Line 461  Line 461 
461    
462     next if ($number && $min && $val < $min);     next if ($number && $min && $val < $min);
463     next if ($number && $max && $val > $max);     next if ($number && $max && $val > $max);
464    print STDERR "Adding a box at $x\n";
465     # now color the box. We can do this based on the number. We should probably have a scale factor here, but I don't know what it is     # now color the box. We can do this based on the number. We should probably have a scale factor here, but I don't know what it is
466     # so we'll let people supply it.     # so we'll let people supply it.
467     my @color=(0,1,1); # maybe 1,1,1?     my @color=(0,1,1); # maybe 1,1,1?

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3