ImagerConic.mesa
Copyright © 1984 Xerox Corporation. All rights reserved.
Michael Plass, October 24, 1983 11:25 am
Doug Wyatt, July 20, 1984 2:19:23 pm PDT
DIRECTORY
ImagerBasic USING [Pair];
ImagerConic: CEDAR DEFINITIONS
Pair:
TYPE ~ ImagerBasic.Pair;
ToCurves:
PROC[p0, p1, p2: Pair, r:
REAL, curve:
PROC[p1, p2, p3: Pair]];
Turns a ConicTo into a sequence of CurveTo commands. Unless the conic is a parabola, this will necessarily involve some approximation, but the error will be in the range of floating-point fuzz. The first curve should be assumed to start at p0.
FromArc:
PROC[p0, p1, p2: Pair, conic:
PROC[p1, p2: Pair, r:
REAL]];
Turns an ArcTo into a sequence of ConicTo commands.
END.