summaryrefslogtreecommitdiff
path: root/ipl/mprocs/colormap.icn
diff options
context:
space:
mode:
Diffstat (limited to 'ipl/mprocs/colormap.icn')
-rw-r--r--ipl/mprocs/colormap.icn232
1 files changed, 0 insertions, 232 deletions
diff --git a/ipl/mprocs/colormap.icn b/ipl/mprocs/colormap.icn
deleted file mode 100644
index 2bfcd70..0000000
--- a/ipl/mprocs/colormap.icn
+++ /dev/null
@@ -1,232 +0,0 @@
-############################################################################
-#
-# File: colormap.icn
-#
-# Subject: Procedures to map type event to color
-#
-# Author: Ralph E. Griswold
-#
-# Date: July 1, 1997
-#
-############################################################################
-#
-# This file is in the public domain.
-#
-############################################################################
-#
-# colormap(palette) returns a table that maps event-monitoring codes
-# for allocation events into RGB specifications for Icon. The
-# argument is the name of a palette, as given in the MemMon
-# system. The default for palette is "standard".
-#
-############################################################################
-#
-# Includes: evdefs.icn
-#
-############################################################################
-
-$include "evdefs.icn"
-
-procedure colormap(palette)
- static maps
- local x
-
- initial {
- maps := table()
-
-# Color map for doc.clr
-
- x := table()
-
- x[E_Coexpr] := "18724,18724,18724"
- x[E_String] := "65535,65535,65535"
- x[E_Tvsubs] := "65535,65535,65535"
- x[E_File] := "56172,56172,56172"
- x[E_Refresh] := "18724,18724,18724"
- x[E_Lrgint] := "65535,65535,65535"
- x[E_Real] := "65535,65535,65535"
- x[E_Record] := "28086,28086,28086"
- x[E_Set] := "28086,28086,28086"
- x[E_Selem] := "46810,46810,46810"
- x[E_List] := "18724,18724,18724"
- x[E_Lelem] := "37448,37448,37448"
- x[E_Table] := "18724,18724,18724"
- x[E_Telem] := "56172,56172,56172"
- x[E_Tvtbl] := "37448,37448,37448"
- x[E_Slots] := "28086,28086,28086"
- x[E_Cset] := "46810,46810,46810"
-
- maps["doc"] := x
-
-# Color map for lw.clr
-
- x := table()
-
- x[E_Coexpr] := "28086,28086,28086"
- x[E_String] := "65535,65535,65535"
- x[E_Tvsubs] := "65535,65535,56172"
- x[E_File] := "09362,00000,00000"
- x[E_Refresh] := "09362,00000,00000"
- x[E_Lrgint] := "65535,65535,65535"
- x[E_Real] := "65535,65535,65535"
- x[E_Record] := "65535,65535,65535"
- x[E_Set] := "09362,18724,18724"
- x[E_Selem] := "09362,18724,18724"
- x[E_List] := "37448,37448,37448"
- x[E_Lelem] := "37448,37448,37448"
- x[E_Table] := "65535,65535,56172"
- x[E_Telem] := "65535,65535,56172"
- x[E_Tvtbl] := "65535,65535,56172"
- x[E_Slots] := "18724,18724,18724"
- x[E_Cset] := "09362,09362,09362"
-
- maps["lw"] := x
-
-# Color map for pastel.clr
-
- x := table()
-
- x[E_Coexpr] := "65535,46810,28086" # peach
- x[E_String] := "56172,28086,09362" # reddish brown
- x[E_Tvsubs] := "56172,28086,09362" # reddish brown
- x[E_File] := "00000,00000,28086" # dark blue
- x[E_Refresh] := "37448,00000,00000" # dark red
- x[E_Lrgint] := "65535,65535,00000" # yellow
- x[E_Real] := "65535,28086,28086" # salmon
- x[E_Record] := "65535,46810,28086" # peach
- x[E_Set] := "56172,46810,65535" # light purple
- x[E_Selem] := "56172,28086,65535" # medium purple
- x[E_List] := "18724,37448,56172" # medium blue
- x[E_Lelem] := "18724,56172,65535" # pastel blue
- x[E_Table] := "46810,65535,37448" # light yellow-green
- x[E_Telem] := "18724,56172,18724" # light green
- x[E_Tvtbl] := "09362,37448,09362" # dark green
- x[E_Slots] := "37448,65535,65535" # light blue
- x[E_Cset] := "65535,65535,46810" # ivory
-
- maps["pastel"] := x
-
-# Color map for qms.clr
-
- x := table()
-
- x[E_Coexpr] := "37448,18724,00000" # brown
- x[E_String] := "65535,65535,46810" # ivory
- x[E_Tvsubs] := "65535,65535,46810" # ivory
- x[E_File] := "56172,65535,00000" # light green
- x[E_Refresh] := "37448,18724,00000" # brown
- x[E_Lrgint] := "65535,46810,28086" # peach
- x[E_Real] := "65535,65535,00000" # yellow
- x[E_Record] := "56172,00000,65535" # magenta
- x[E_Set] := "37448,00000,00000" # medium red
- x[E_Selem] := "65535,00000,00000" # red
- x[E_List] := "00000,46810,46810" # medium cyan
- x[E_Lelem] := "00000,65535,65535" # cyan
- x[E_Table] := "00000,37448,00000" # dark green
- x[E_Telem] := "00000,65535,00000" # green
- x[E_Tvtbl] := "28086,65535,00000" # light green
- x[E_Slots] := "37448,00000,56172" # purple
- x[E_Cset] := "65535,56172,00000" # yellow orange
-
- maps["qms"] := x
-
-# Color map for qmscomb.clr
-
- x := table()
-
- x[E_Coexpr] := "37448,18724,00000" # brown
- x[E_String] := "65535,65535,46810" # ivory
- x[E_Tvsubs] := "65535,65535,46810" # ivory
- x[E_File] := "56172,65535,00000" # light green
- x[E_Refresh] := "37448,18724,00000" # brown
- x[E_Lrgint] := "65535,46810,28086" # peach
- x[E_Real] := "65535,65535,00000" # yellow
- x[E_Record] := "56172,00000,65535" # magenta
- x[E_Set] := "65535,00000,00000" # red
- x[E_Selem] := "65535,00000,00000" # red
- x[E_List] := "00000,65535,65535" # cyan
- x[E_Lelem] := "00000,65535,65535" # cyan
- x[E_Table] := "00000,65535,00000" # green
- x[E_Telem] := "00000,65535,00000" # green
- x[E_Tvtbl] := "00000,65535,00000" # green
- x[E_Slots] := "37448,00000,56172" # purple
- x[E_Cset] := "65535,56172,00000" # yellow orange
-
- maps["qmscomb"] := x
-
-# Color map for rt.clr
-
- x := table()
-
- x[E_Coexpr] := "37448,28086,18724" # light brown
- x[E_String] := "65535,65535,46810" # ivory
- x[E_Tvsubs] := "65535,28086,56172" # pink
- x[E_File] := "37448,00000,56172" # purple
- x[E_Refresh] := "00000,00000,37448" # navy blue
- x[E_Lrgint] := "65535,46810,28086" # peach
- x[E_Real] := "65535,65535,00000" # yellow
- x[E_Record] := "65535,37448,00000" # orange
- x[E_Set] := "37448,00000,00000" # dark red
- x[E_Selem] := "56172,00000,00000" # red
- x[E_List] := "18724,46810,65535" # pastel blue
- x[E_Lelem] := "09362,28086,46810" # medium blue
- x[E_Table] := "00000,28086,00000" # dark green
- x[E_Telem] := "00000,46810,00000" # medium green
- x[E_Tvtbl] := "28086,65535,28086" # light green
- x[E_Slots] := "37448,28086,18724" # light brown
- x[E_Cset] := "46810,28086,00000" # reddish brown
-
- maps["rt"] := x
-
-# Color map for sun.clr
-
- x := table()
-
- x[E_Coexpr] := "37448,28086,18724" # light brown
- x[E_String] := "65535,65535,46810" # ivory
- x[E_Tvsubs] := "65535,28086,56172" # pink
- x[E_File] := "37448,00000,56172" # purple
- x[E_Refresh] := "00000,00000,37448" # navy blue
- x[E_Lrgint] := "65535,46810,28086" # peach
- x[E_Real] := "65535,65535,00000" # yellow
- x[E_Record] := "65535,37448,00000" # orange
- x[E_Set] := "46810,00000,00000" # dark red
- x[E_Selem] := "56172,00000,00000" # red
- x[E_List] := "18724,46810,65535" # pastel blue
- x[E_Lelem] := "09362,28086,46810" # medium blue
- x[E_Table] := "00000,28086,00000" # dark green
- x[E_Telem] := "00000,37448,00000" # medium green
- x[E_Tvtbl] := "00000,65535,00000" # light green
- x[E_Slots] := "37448,28086,18724" # light brown
- x[E_Cset] := "46810,28086,00000" # reddish brown
-
- maps["sun"] := x
-
-# Color map for standard colors
-
- x := table()
-
- x[E_Coexpr] := "deep gray"
- x[E_String] := "pale yellow"
- x[E_Tvsubs] := "yellow"
- x[E_File] := "pale gray"
- x[E_Refresh] := "deep gray"
- x[E_Lrgint] := "pale brown"
- x[E_Real] := "pale purple"
- x[E_Record] := "magenta"
- x[E_Set] := "dark red"
- x[E_Selem] := "red"
- x[E_List] := "dark blue green"
- x[E_Lelem] := "blue green"
- x[E_Table] := "dark green"
- x[E_Telem] := "green"
- x[E_Tvtbl] := "light green"
- x[E_Slots] := "purple"
- x[E_Cset] := "orange"
-
- maps["standard"] := x
- }
-
- return \maps[\palette | "standard"]
-
-end
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-18 10:26:28 +0000