New implementation of the little inwards move before leaving a loop. #186

This commit is contained in:
Alessandro Ranellucci 2012-12-05 11:31:35 +01:00
parent 283809f5c2
commit f001374c6e
4 changed files with 42 additions and 6 deletions

View file

@ -736,6 +736,7 @@ sub size_3D {
return map $extents[$_][MAX] - $extents[$_][MIN], (X,Y,Z);
}
# this assumes a CCW rotation from $p2 to $p3 around $p1
sub angle3points {
my ($p1, $p2, $p3) = @_;
# p1 is the center