<> <> <> <> <> DIRECTORY Rope USING [ROPE]; ColorNames: CEDAR DEFINITIONS = BEGIN UndefinedName: SIGNAL; BadGrammar: SIGNAL; ColorType: TYPE = { black, white, gray, grey, red, orange, brown, yellow, green, cyan, blue, purple, magenta, achromatic, weak, moderate, strong, vivid, bright, dark, medium, light }; ParseColorName: PUBLIC PROCEDURE [rope: Rope.ROPE] RETURNS [h,s,l: REAL]; <> <> <<>> <> <> <> <> <> <> <> <> << Dark Dark Purple, Lightish Very Dark Blue, Strong Light Brown, Vivid Red>> <<>> HSLToRope: PUBLIC PROCEDURE [h,s,l: REAL, level: NAT _ 3] RETURNS [rope: Rope.ROPE]; <> END.