<> <<>> <> <> DIRECTORY Font USING [FONT], IP USING [State, Transformation, Vector]; IPFont: CEDAR DEFINITIONS = BEGIN OPEN IP; <<>> FONT: TYPE ~ Font.FONT; VectorFromFont: PROC[FONT] RETURNS[Vector]; FontFromVector: PROC[Vector] RETURNS[FONT]; FindFont: PROC[self: State, v: Vector] RETURNS[Vector]; FindFontVec: PROC[self: State, v: Vector] RETURNS[Vector]; ModifyFont: PROC[v: Vector, m: Transformation] RETURNS[Vector]; END.