home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Anwendungen / Kurztests / PostScript / PsIntrp / palette < prev    next >
Text File  |  1987-09-06  |  422b  |  30 lines
  1.  
  2. save
  3.  
  4. 0 setgray
  5.  
  6. /boxheight 100 def
  7. /boxwidth   50 def
  8. /thecolor    0 def
  9.  
  10. /dab {
  11.    thecolor pencolor
  12.    currentpoint
  13.    currentpoint boxheight add
  14.    currentpoint exch boxwidth add exch
  15.    box
  16.    exch boxwidth add exch moveto
  17.    /thecolor thecolor 1 add def
  18. } def
  19.  
  20.  640 8 boxwidth mul sub 2 idiv
  21.  400 2 boxheight mul sub 2 idiv
  22.  2 copy
  23.  boxheight add moveto
  24.  8 {dab} repeat
  25.  moveto
  26.  8 {dab} repeat
  27.  
  28. 1 pencolor
  29. restore
  30.