1 files changed, 44 insertions, 0 deletions
diff --git a/ipl/mprocs/colortyp.icn b/ipl/mprocs/colortyp.icn
new file mode 100644
index 0000000..2592e0f
--- /dev/null
+++ b/ipl/mprocs/colortyp.icn
@@ -0,0 +1,44 @@
+############################################################################
+#
+#	File:     colortyp.icn
+#
+#	Subject:  Procedure to produce table of colors for Icon types
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     July 1, 1997
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  Links:  typecode
+#
+############################################################################
+
+#  Color table for Icon type codes
+
+procedure colortyp()
+   local x
+
+   x := table()
+
+   x["C"] := "deep gray"
+   x["s"] := "pale yellow"
+   x["r"] := "pale purple"
+   x["R"] := "magenta"
+   x["S"] := "dark red"
+   x["L"] := "dark blue green"
+   x["T"] := "dark green"
+   x["c"] := "orange"
+   x["f"] := "pink"
+   x["i"] := "white"
+   x["n"] := "gray"
+   x["p"] := "red viole"
+   x["w"] := "deep blue"
+
+   return x
+
+end