<> <> <> DIRECTORY IPImagerBasic USING [Transformation], Rope USING [ROPE]; IPFont: CEDAR DEFINITIONS = BEGIN OPEN IPImagerBasic; ROPE: TYPE = Rope.ROPE; FontKey: TYPE = REF FontKeyRep; FontKeyRep: TYPE = RECORD[link: FontKey, name: ROPE, m: Transformation]; New: PROC[name: ROPE] RETURNS[FontKey]; Modify: PROC[f: FontKey, m: Transformation] RETURNS[FontKey]; END.