[system] / trunk / pg / macros / parserImplicitPlane.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/parserImplicitPlane.pl

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

Revision 2935 Revision 2982
135 my ($l,$r,$flag) = @_; 135 my ($l,$r,$flag) = @_;
136 $r = ImplicitPlane->new($r); 136 $r = ImplicitPlane->new($r);
137 if ($flag) {my $tmp = $l; $l = $r; $r = $tmp} 137 if ($flag) {my $tmp = $l; $l = $r; $r = $tmp}
138 my ($lN,$ld) = ($l->{N},$l->{d}); 138 my ($lN,$ld) = ($l->{N},$l->{d});
139 my ($rN,$rd) = ($r->{N},$r->{d}); 139 my ($rN,$rd) = ($r->{N},$r->{d});
140 if ($rd == 0 || $ld == 0) {
141 return $rd <=> $ld unless $ld == $rd;
142 return $lN <=> $rN unless (areParallel $lN $rN);
143 return 0;
144 }
140 return $rd*$lN <=> $ld*$rN; 145 return $rd*$lN <=> $ld*$rN;
141} 146}
142 147
143sub cmp_class {'an Implicit '.(shift->{implicit})}; 148sub cmp_class {'an Implicit '.(shift->{implicit})};
144 149

Legend:
Removed from v.2935  
changed lines
  Added in v.2982

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9