home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / gs-2.6.1.4-src.lha / src / amiga / ghostscript-2.6.1 / screen.ps < prev    next >
Encoding:
Text File  |  1994-01-28  |  726 b   |  47 lines
  1. % Test a tilted halftone screen.
  2.  
  3. /dot1
  4.  { dup mul exch dup mul add 1 exch sub
  5.  } bind def
  6.  
  7. /dot2
  8.  { exch abs exch abs   2 copy le { exch } if
  9.    exch 1 sub dup mul exch dup mul add 1 exch sub
  10.  } bind def
  11.  
  12. 72 72 scale
  13. 0 setlinewidth
  14.  
  15. /tiles {
  16. 0 1 7
  17.  { /y exch def
  18.    0 1 7
  19.     { /x exch def
  20.       x y moveto
  21.       1 0 rlineto 0 1 rlineto -1 0 rlineto closepath
  22.       gsave y 8 mul x add 63 div setgray fill grestore
  23.       0 setgray stroke
  24.     } for
  25.   } for
  26. } bind def
  27.  
  28. gsave
  29. 2.3 22 /dot1 load setscreen
  30. currentscreen pop == pop
  31. tiles showpage
  32. grestore
  33.  
  34. gsave
  35. 2.3 45 /dot1 load setscreen
  36. currentscreen pop == pop
  37. tiles showpage
  38. grestore
  39.  
  40. gsave
  41. 2.3 45 /dot2 load setscreen
  42. currentscreen pop == pop
  43. tiles showpage
  44. grestore
  45.  
  46. quit
  47.