diff options
Diffstat (limited to 'ipl/mprocs/colortyp.icn')
-rw-r--r-- | ipl/mprocs/colortyp.icn | 44 |
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 |