summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9b3087a)
Calculation ordering changed but answers should be the same.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
}
# triangle i-j-k, splitting edge i-m
# gives i-m-k, k-m-j
}
# triangle i-j-k, splitting edge i-m
# gives i-m-k, k-m-j
- push @$changed,
- [ $t->[$ix], \@midp, $t->[$kx] ],
- [ $t->[$kx], \@midp, $t->[$jx] ];
+ my $n = [ @$t ]; $n->[$ix] = \@midp; unshift @$changed, $n;
+ my $n = [ @$t ]; $n->[$jx] = \@midp; unshift @$changed, $n;