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 / colortyp.icn < prev    next >
Text File  |  2000-07-29  |  949b  |  45 lines
  1. ############################################################################
  2. #
  3. #    File:     colortyp.icn
  4. #
  5. #    Subject:  Procedure to produce table of colors for Icon types
  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. #  Links:  typecode
  18. #
  19. ############################################################################
  20.  
  21. #  Color table for Icon type codes
  22.  
  23. procedure colortyp()
  24.    local x
  25.  
  26.    x := table()
  27.  
  28.    x["C"] := "deep gray"
  29.    x["s"] := "pale yellow"
  30.    x["r"] := "pale purple"
  31.    x["R"] := "magenta"
  32.    x["S"] := "dark red"
  33.    x["L"] := "dark blue green"
  34.    x["T"] := "dark green"
  35.    x["c"] := "orange"
  36.    x["f"] := "pink"
  37.    x["i"] := "white"
  38.    x["n"] := "gray"
  39.    x["p"] := "red viole"
  40.    x["w"] := "deep blue"
  41.  
  42.    return x
  43.  
  44. end
  45.