Lines Matching refs:seq_end

251       my $diff = $prev_dom->{seq_end} - $curr_dom->{seq_start};
254 …my ($prev_len, $cur_len) = ($prev_dom->{seq_end}-$prev_dom->{seq_start}+1, $curr_dom->{seq_end}-$c…
255 …r_dom->{seq_start} >= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} <= $prev_dom->{seq_end})) ||
256 …rr_dom->{seq_start} <= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} >= $prev_dom->{seq_end})));
264 	$diff = $prev_dom->{seq_end} - $curr_dom->{seq_start};
265 …($prev_len, $cur_len) = ($prev_dom->{seq_end}-$prev_dom->{seq_start}+1, $curr_dom->{seq_end}-$curr…
267 …r_dom->{seq_start} >= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} <= $prev_dom->{seq_end})) ||
268 …rr_dom->{seq_start} <= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} >= $prev_dom->{seq_end})));
298       if ($pf_domains[$i-1]->{seq_end} >= $pf_domains[$i]->{seq_start}) {
299 	my $overlap = $pf_domains[$i-1]->{seq_end} - $pf_domains[$i]->{seq_start};
300 	$pf_domains[$i-1]->{seq_end} -= int($overlap/2);
301 	$pf_domains[$i]->{seq_start} = $pf_domains[$i-1]->{seq_end}+1;
308     my $prev_dom={seq_end=>0};
310       if ($curr_dom->{seq_start} - $prev_dom->{seq_end} > $min_nodom) {
311 …my %new_dom = (seq_start=>$prev_dom->{seq_end}+1, seq_end => $curr_dom->{seq_start}-1, info=>'NODO…
317     if ($seq_length - $prev_dom->{seq_end} > $min_nodom) {
318       my %new_dom = (seq_start=>$prev_dom->{seq_end}+1, seq_end=>$seq_length, info=>'NODOM');
319       if ($new_dom{seq_end} > $new_dom{seq_start}) {push @npf_domains, \%new_dom;}
335       push @feats, [$d_ref->{seq_start}, $d_ref->{seq_end}, $d_ref->{info}];
339       push @feats, [$d_ref->{seq_end}, ']', '-', ""];