[Bio] / Sprout / Sapling.pm Repository:
ViewVC logotype

Diff of /Sprout/Sapling.pm

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

revision 1.19, Sun Aug 30 22:12:57 2009 UTC revision 1.20, Mon Aug 31 22:07:53 2009 UTC
# Line 316  Line 316 
316  sub ComputeDNA {  sub ComputeDNA {
317      # Get the parameters.      # Get the parameters.
318      my ($self, $location) = @_;      my ($self, $location) = @_;
319      # Get the contig, left end, and right end of the location.      # Get the contig, left end, and right end of the location. Note we subtract
320        # 1 to convert contig positions to string offsets.
321      my $contig = $location->Contig;      my $contig = $location->Contig;
322      my $left = $location->Left;      my $left = $location->Left - 1;
323      my $right = $location->Right;      my $right = $location->Right - 1;
324      # Get the DNA segment length.      # Get the DNA segment length.
325      my $maxSequenceLength = $self->TuningParameter("maxSequenceLength");      my $maxSequenceLength = $self->TuningParameter("maxSequenceLength");
326      # Compute the key of the first segment of our DNA and the starting      # Compute the key of the first segment of our DNA and the starting

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3