summaryrefslogtreecommitdiff
path: root/ipl/mprocs/colortyp.icn
diff options
context:
space:
mode:
Diffstat (limited to 'ipl/mprocs/colortyp.icn')
-rw-r--r--ipl/mprocs/colortyp.icn44
1 files changed, 0 insertions, 44 deletions
diff --git a/ipl/mprocs/colortyp.icn b/ipl/mprocs/colortyp.icn
deleted file mode 100644
index 2592e0f..0000000
--- a/ipl/mprocs/colortyp.icn
+++ /dev/null
@@ -1,44 +0,0 @@
-############################################################################
-#
-# 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