InitColors:
PUBLIC
PROCEDURE[]
RETURNS[ColorRef] = {
create the Griffin color table: "name", h, s, b
colors ← NEW[ColorRec ← [NIL, "black", 0, 0, 0]];
colors ← NEW[ColorRec ← [colors, "darkBrown", 7, 255, 59]];
colors ← NEW[ColorRec ← [colors, "brown", 7, 255, 118]];
colors ← NEW[ColorRec ← [colors, "tan", 0, 131, 217]];
colors ← NEW[ColorRec ← [colors, "maroon", 234, 255, 79]];
colors ← NEW[ColorRec ← [colors, "darkRed", 0, 255, 160]];
colors ← NEW[ColorRec ← [colors, "red", 0, 255, 255]];
colors ← NEW[ColorRec ← [colors, "orange", 10, 255, 255]];
colors ← NEW[ColorRec ← [colors, "darkYellow", 25, 255, 255]];
colors ← NEW[ColorRec ← [colors, "yellow", 40, 255, 255]];
colors ← NEW[ColorRec ← [colors, "lightYellow", 40, 190, 255]];
colors ← NEW[ColorRec ← [colors, "darkGreen", 71, 255, 59]];
colors ← NEW[ColorRec ← [colors, "green", 76, 255, 255]];
colors ← NEW[ColorRec ← [colors, "lightGreen", 71, 193, 255]];
colors ← NEW[ColorRec ← [colors, "darkBlue", 150, 255, 170]];
colors ← NEW[ColorRec ← [colors, "blue", 148, 255, 255]];
colors ← NEW[ColorRec ← [colors, "lightBlue", 141, 150, 255]];
colors ← NEW[ColorRec ← [colors, "darkAqua", 107, 255, 98]];
colors ← NEW[ColorRec ← [colors, "aqua", 107, 224, 255]];
colors ← NEW[ColorRec ← [colors, "cyan", 120, 255, 255]];
colors ← NEW[ColorRec ← [colors, "darkPurple", 178, 255, 178]];
colors ← NEW[ColorRec ← [colors, "purple", 170, 224, 255]];
colors ← NEW[ColorRec ← [colors, "violet", 170, 131, 255]];
colors ← NEW[ColorRec ← [colors, "magenta", 200, 255, 255]];
colors ← NEW[ColorRec ← [colors, "pink", 206, 170, 255]];
colors ← NEW[ColorRec ← [colors, "darkGrey", 0, 0, 40]];
colors ← NEW[ColorRec ← [colors, "grey", 0, 0, 120]];
colors ← NEW[ColorRec ← [colors, "lightGrey", 0, 0, 200]];
colors ← NEW[ColorRec ← [colors, "paleGrey", 0, 0, 230]];
colors ← NEW[ColorRec ← [colors, "white", 0, 0, 255]];
RETURN[colors];
};
}.