home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / gfx / ghostscript / screen.ps < prev    next >
Text File  |  1992-05-01  |  726b  |  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.