home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d101 / psintrp.lha / PsIntrp / color-chart < prev    next >
Text File  |  1987-09-05  |  2KB  |  91 lines
  1.  
  2. % Set up colors and show chart
  3.  
  4. save
  5. 1 penmode
  6.  
  7. erasepage
  8.  
  9. /xpos 0 def
  10. /ypos 364 def
  11.  
  12. /boxwidth 10 def
  13. /boxheight 20 def
  14.  
  15. /nextx { /xpos xpos boxwidth add def } def
  16. /nexty { /xpos 0 def /ypos ypos boxheight sub def } def
  17.  
  18. /onebox {
  19.    xpos ypos xpos boxwidth add ypos boxheight sub box
  20.    nextx
  21.    } def
  22.  
  23. /fourbox {
  24.    .6 setgray onebox
  25.    .3 setgray onebox
  26.    .1 setgray onebox
  27.    0  setgray onebox
  28.    } def
  29.  
  30. /boxrow {
  31.    0 1 15
  32.    { pencolor fourbox }
  33.    for
  34.    } def
  35.  
  36. /allbox {
  37.    0 1 15
  38.    { penbcolor boxrow nexty }
  39.    for
  40.    } def
  41.  
  42.  0 pencolor  2  2  2 setrgbcolor    % black
  43.  1 pencolor 11 11 11 setrgbcolor    % white
  44.  2 pencolor  3 12  3 setrgbcolor    % green
  45.  3 pencolor 13  4  2 setrgbcolor    % red
  46.  4 pencolor  0  0 15 setrgbcolor    % blue
  47.  5 pencolor 12 12  0 setrgbcolor    % yellow
  48.  6 pencolor  0  8  2 setrgbcolor    % olive
  49.  7 pencolor 10  0  9 setrgbcolor    % wine
  50.  8 pencolor  6  2  0 setrgbcolor    % rust
  51.  9 pencolor  0  6  6 setrgbcolor    % sea
  52. 10 pencolor  9 15  1 setrgbcolor    % apple
  53. 11 pencolor 14 11  0 setrgbcolor    % orange
  54. 12 pencolor 12  0  4 setrgbcolor    % fire
  55. 13 pencolor  9  2 15 setrgbcolor    % grape
  56. 14 pencolor 12  7  7 setrgbcolor    % salmon
  57. 15 pencolor  0 15  8 setrgbcolor    % sky
  58.  
  59.   allbox
  60.  
  61.  
  62.  2 pencolor 0 penbcolor 1 penmode
  63. /topaz findfont 8 scalefont setfont
  64. /theight  364 boxheight sub 6 add def
  65. /txpos 2 def
  66. /nexttext { txpos theight moveto
  67.             /txpos txpos 4 boxwidth mul add def
  68.             /theight theight boxheight sub def
  69.           } def
  70.  
  71.   nexttext (black)  show
  72.   nexttext (white)  show
  73.   nexttext (green)  show
  74.   nexttext (red)    show
  75.   nexttext (blue)   show
  76.   nexttext (yellow) show
  77.   nexttext (olive)  show
  78.   nexttext (wine)   show
  79.   nexttext (rust)   show
  80.   nexttext (sea)    show
  81.   nexttext (apple)  show
  82.   nexttext (orange) show
  83.   nexttext (fire)   show
  84.   nexttext (grape)  show
  85.   nexttext (salmon) show
  86.   nexttext (sky)    show
  87.  
  88. restore
  89.  
  90.  
  91.