Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix up ellipse arc approximation.
The previous version could blow the stack.
  • Loading branch information
xach committed Oct 14, 2014
1 parent dc09a35 commit 4be3ce9
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion arc.lisp
Expand Up @@ -132,7 +132,7 @@
(cond ((< eta2 eta1)
(error "approximate-arc: eta2 must be bigger than eta1"))
((> eta2 (+ eta1 (/ pi 2) (* eta2 long-float-epsilon)))
(let ((etamid (+ eta1 (/ pi 2))))
(let ((etamid (+ eta1 (/ pi 2) (* eta2 long-float-epsilon))))
(nconc
(approximate-arc cx cy a b theta eta1 etamid err)
(approximate-arc cx cy a b theta etamid eta2 err))))
Expand Down

0 comments on commit 4be3ce9

Please sign in to comment.