Bézier curves/Intersections: Difference between revisions
→{{header|Scheme}}: Scheme predicates should have ? in their names.
(→{{header|Scheme}}: Scheme predicates should have ? in their names.) |
|||
Line 3,971:
(else (compare-to-tol-inf-norm))))
(define (flat-enough? portion norm rtol atol)
;; Is the portion flat enough or small enough to be treated as
;; if it were a line segment?
Line 4,124:
(endpt1@ qportion)))
(loop workload params)
(if (flat-enough? pportion norm rtol atol)
(if (flat-enough? qportion norm rtol atol)
(let-values
(((tp tq)
Line 4,149:
. ,workload)
params)))
(if (flat-enough? qportion norm rtol atol)
(let-values (((pport1 pport2)
(bisect-portion pportion)))
| |||