home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / mprocs / colormap.icn next >
Text File  |  2000-07-29  |  9KB  |  233 lines
  1. ############################################################################
  2. #
  3. #    File:     colormap.icn
  4. #
  5. #    Subject:  Procedures to map type event to color
  6. #
  7. #    Author:   Ralph E. Griswold
  8. #
  9. #    Date:     July 1, 1997
  10. #
  11. ############################################################################
  12. #
  13. #   This file is in the public domain.
  14. #
  15. ############################################################################
  16. #
  17. #  colormap(palette) returns a table that maps event-monitoring codes
  18. #  for allocation events into RGB specifications for Icon. The
  19. #  argument is the name of a palette, as given in the MemMon
  20. #  system.  The default for palette is "standard".
  21. #
  22. ############################################################################
  23. #
  24. #  Includes:  evdefs.icn
  25. #
  26. ############################################################################
  27.  
  28. $include "evdefs.icn"
  29.  
  30. procedure colormap(palette)
  31.    static maps
  32.    local x
  33.  
  34.    initial {
  35.       maps := table()
  36.  
  37. #  Color map for doc.clr
  38.  
  39.       x := table()
  40.  
  41.       x[E_Coexpr]        := "18724,18724,18724"
  42.       x[E_String]        := "65535,65535,65535"
  43.       x[E_Tvsubs]        := "65535,65535,65535"
  44.       x[E_File]          := "56172,56172,56172"
  45.       x[E_Refresh]       := "18724,18724,18724"
  46.       x[E_Lrgint]        := "65535,65535,65535"
  47.       x[E_Real]          := "65535,65535,65535"
  48.       x[E_Record]        := "28086,28086,28086"
  49.       x[E_Set]           := "28086,28086,28086"
  50.       x[E_Selem]         := "46810,46810,46810"
  51.       x[E_List]          := "18724,18724,18724"
  52.       x[E_Lelem]         := "37448,37448,37448"
  53.       x[E_Table]         := "18724,18724,18724"
  54.       x[E_Telem]         := "56172,56172,56172"
  55.       x[E_Tvtbl]         := "37448,37448,37448"
  56.       x[E_Slots]         := "28086,28086,28086"
  57.       x[E_Cset]          := "46810,46810,46810"
  58.  
  59.       maps["doc"] := x
  60.  
  61. #  Color map for lw.clr
  62.  
  63.       x := table()
  64.  
  65.       x[E_Coexpr]        := "28086,28086,28086"
  66.       x[E_String]        := "65535,65535,65535"
  67.       x[E_Tvsubs]        := "65535,65535,56172"
  68.       x[E_File]          := "09362,00000,00000"
  69.       x[E_Refresh]       := "09362,00000,00000"
  70.       x[E_Lrgint]        := "65535,65535,65535"
  71.       x[E_Real]          := "65535,65535,65535"
  72.       x[E_Record]        := "65535,65535,65535"
  73.       x[E_Set]           := "09362,18724,18724"
  74.       x[E_Selem]         := "09362,18724,18724"
  75.       x[E_List]          := "37448,37448,37448"
  76.       x[E_Lelem]         := "37448,37448,37448"
  77.       x[E_Table]         := "65535,65535,56172"
  78.       x[E_Telem]         := "65535,65535,56172"
  79.       x[E_Tvtbl]         := "65535,65535,56172"
  80.       x[E_Slots]         := "18724,18724,18724"
  81.       x[E_Cset]          := "09362,09362,09362"
  82.  
  83.       maps["lw"] := x
  84.  
  85. #  Color map for pastel.clr
  86.  
  87.       x := table()
  88.  
  89.       x[E_Coexpr]        := "65535,46810,28086"    # peach
  90.       x[E_String]        := "56172,28086,09362"    # reddish brown
  91.       x[E_Tvsubs]        := "56172,28086,09362"    # reddish brown
  92.       x[E_File]          := "00000,00000,28086"    # dark blue
  93.       x[E_Refresh]       := "37448,00000,00000"    # dark red
  94.       x[E_Lrgint]        := "65535,65535,00000"    # yellow
  95.       x[E_Real]          := "65535,28086,28086"    # salmon
  96.       x[E_Record]        := "65535,46810,28086"    # peach
  97.       x[E_Set]           := "56172,46810,65535"    # light purple
  98.       x[E_Selem]         := "56172,28086,65535"    # medium purple
  99.       x[E_List]          := "18724,37448,56172"    # medium blue
  100.       x[E_Lelem]         := "18724,56172,65535"    # pastel blue
  101.       x[E_Table]         := "46810,65535,37448"    # light yellow-green
  102.       x[E_Telem]         := "18724,56172,18724"    # light green
  103.       x[E_Tvtbl]         := "09362,37448,09362"    # dark green
  104.       x[E_Slots]         := "37448,65535,65535"    # light blue
  105.       x[E_Cset]          := "65535,65535,46810"    # ivory
  106.  
  107.       maps["pastel"] := x
  108.  
  109. #  Color map for qms.clr
  110.  
  111.       x := table()
  112.  
  113.       x[E_Coexpr]        := "37448,18724,00000"    # brown
  114.       x[E_String]        := "65535,65535,46810"    # ivory
  115.       x[E_Tvsubs]        := "65535,65535,46810"    # ivory
  116.       x[E_File]          := "56172,65535,00000"    # light green
  117.       x[E_Refresh]       := "37448,18724,00000"    # brown
  118.       x[E_Lrgint]        := "65535,46810,28086"    # peach
  119.       x[E_Real]          := "65535,65535,00000"    # yellow
  120.       x[E_Record]        := "56172,00000,65535"    # magenta
  121.       x[E_Set]           := "37448,00000,00000"    # medium red
  122.       x[E_Selem]         := "65535,00000,00000"    # red
  123.       x[E_List]          := "00000,46810,46810"    # medium cyan
  124.       x[E_Lelem]         := "00000,65535,65535"    # cyan
  125.       x[E_Table]         := "00000,37448,00000"    # dark green
  126.       x[E_Telem]         := "00000,65535,00000"    # green
  127.       x[E_Tvtbl]         := "28086,65535,00000"    # light green
  128.       x[E_Slots]         := "37448,00000,56172"    # purple
  129.       x[E_Cset]          := "65535,56172,00000"    # yellow orange
  130.  
  131.       maps["qms"] := x
  132.  
  133. #  Color map for qmscomb.clr
  134.  
  135.       x := table()
  136.  
  137.       x[E_Coexpr]        := "37448,18724,00000"    # brown
  138.       x[E_String]        := "65535,65535,46810"    # ivory
  139.       x[E_Tvsubs]        := "65535,65535,46810"    # ivory
  140.       x[E_File]          := "56172,65535,00000"    # light green
  141.       x[E_Refresh]       := "37448,18724,00000"    # brown
  142.       x[E_Lrgint]        := "65535,46810,28086"    # peach
  143.       x[E_Real]          := "65535,65535,00000"    # yellow
  144.       x[E_Record]        := "56172,00000,65535"    # magenta
  145.       x[E_Set]           := "65535,00000,00000"    # red
  146.       x[E_Selem]         := "65535,00000,00000"    # red
  147.       x[E_List]          := "00000,65535,65535"    # cyan
  148.       x[E_Lelem]         := "00000,65535,65535"    # cyan
  149.       x[E_Table]         := "00000,65535,00000"    # green
  150.       x[E_Telem]         := "00000,65535,00000"    # green
  151.       x[E_Tvtbl]         := "00000,65535,00000"    # green
  152.       x[E_Slots]         := "37448,00000,56172"    # purple
  153.       x[E_Cset]          := "65535,56172,00000"    # yellow orange
  154.  
  155.       maps["qmscomb"] := x
  156.  
  157. #  Color map for rt.clr
  158.  
  159.       x := table()
  160.  
  161.       x[E_Coexpr]        := "37448,28086,18724"    # light brown
  162.       x[E_String]        := "65535,65535,46810"    # ivory
  163.       x[E_Tvsubs]        := "65535,28086,56172"    # pink
  164.       x[E_File]          := "37448,00000,56172"    # purple
  165.       x[E_Refresh]       := "00000,00000,37448"    # navy blue
  166.       x[E_Lrgint]        := "65535,46810,28086"    # peach
  167.       x[E_Real]          := "65535,65535,00000"    # yellow
  168.       x[E_Record]        := "65535,37448,00000"    # orange
  169.       x[E_Set]           := "37448,00000,00000"    # dark red
  170.       x[E_Selem]         := "56172,00000,00000"    # red
  171.       x[E_List]          := "18724,46810,65535"    # pastel blue
  172.       x[E_Lelem]         := "09362,28086,46810"    # medium blue
  173.       x[E_Table]         := "00000,28086,00000"    # dark green
  174.       x[E_Telem]         := "00000,46810,00000"    # medium green
  175.       x[E_Tvtbl]         := "28086,65535,28086"    # light green
  176.       x[E_Slots]         := "37448,28086,18724"    # light brown
  177.       x[E_Cset]          := "46810,28086,00000"    # reddish brown
  178.  
  179.       maps["rt"] := x
  180.  
  181. #  Color map for sun.clr
  182.  
  183.       x := table()
  184.  
  185.       x[E_Coexpr]        := "37448,28086,18724"    # light brown
  186.       x[E_String]        := "65535,65535,46810"    # ivory
  187.       x[E_Tvsubs]        := "65535,28086,56172"    # pink
  188.       x[E_File]          := "37448,00000,56172"    # purple
  189.       x[E_Refresh]       := "00000,00000,37448"    # navy blue
  190.       x[E_Lrgint]        := "65535,46810,28086"    # peach
  191.       x[E_Real]          := "65535,65535,00000"    # yellow
  192.       x[E_Record]        := "65535,37448,00000"    # orange
  193.       x[E_Set]           := "46810,00000,00000"    # dark red
  194.       x[E_Selem]         := "56172,00000,00000"    # red
  195.       x[E_List]          := "18724,46810,65535"    # pastel blue
  196.       x[E_Lelem]         := "09362,28086,46810"    # medium blue
  197.       x[E_Table]         := "00000,28086,00000"    # dark green
  198.       x[E_Telem]         := "00000,37448,00000"    # medium green
  199.       x[E_Tvtbl]         := "00000,65535,00000"    # light green
  200.       x[E_Slots]         := "37448,28086,18724"    # light brown
  201.       x[E_Cset]          := "46810,28086,00000"    # reddish brown
  202.  
  203.       maps["sun"] := x
  204.  
  205. #  Color map for standard colors
  206.  
  207.       x := table()
  208.  
  209.       x[E_Coexpr]        := "deep gray"
  210.       x[E_String]        := "pale yellow"
  211.       x[E_Tvsubs]        := "yellow"
  212.       x[E_File]          := "pale gray"
  213.       x[E_Refresh]       := "deep gray"
  214.       x[E_Lrgint]        := "pale brown"
  215.       x[E_Real]          := "pale purple"
  216.       x[E_Record]        := "magenta"
  217.       x[E_Set]           := "dark red"
  218.       x[E_Selem]         := "red"
  219.       x[E_List]          := "dark blue green"
  220.       x[E_Lelem]         := "blue green"
  221.       x[E_Table]         := "dark green"
  222.       x[E_Telem]         := "green"
  223.       x[E_Tvtbl]         := "light green"
  224.       x[E_Slots]         := "purple"
  225.       x[E_Cset]          := "orange"
  226.  
  227.       maps["standard"] := x
  228.       }
  229.  
  230.    return \maps[\palette | "standard"]
  231.  
  232. end
  233.