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.