<> <> <> DIRECTORY Matrix3d, Vector3d; Misc3d: CEDAR DEFINITIONS ~ BEGIN Triple: TYPE ~ Vector3d.Triple; <<>> <> Frame: TYPE ~ ARRAY {v, n, b} OF Triple; Matrix: TYPE ~ Matrix3d.Matrix; MakeFrame: PROC [v: Triple] RETURNS [Frame]; <> <<>> Basis: PROC [v, vv, rv: Triple] RETURNS [n, b: Triple]; <> <<>> RefMatrix: PROC [p, x, y, z: Triple, s, t: REAL, out: Matrix _ NIL] RETURNS [Matrix]; <> <<>> END.