home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8188 < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.2 KB  |  160 lines
  1. %%BeginFile: lw8_NON-uniform_graphics-2.0
  2. /@d
  3. {
  4. gS
  5. np
  6. :M
  7. 1 index 0 rl
  8. 0 exch rl
  9. neg 0 rl
  10. :K
  11. scale
  12. 1 lw
  13. stroke
  14. gR
  15. }bd
  16. /oh Z
  17. /ow Z
  18. /y2 Z
  19. /y1 Z
  20. /x2 Z
  21. /x1 Z
  22. /rad Z
  23. /ph Z
  24. /pw Z
  25. /arct where
  26. {
  27. pop
  28. }{
  29. /arct
  30. {
  31. arcto pop pop pop pop
  32. }bd
  33. }ifelse
  34. /@r
  35. {
  36. /oh xs
  37. /ow xs
  38. oh div
  39. /y2 xs
  40. ow div
  41. /x2 xs
  42. oh div
  43. /y1 xs
  44. ow div
  45. /x1 xs
  46. gS
  47. np
  48. ow oh scale
  49. x2 x1 add 2 div y1 :M
  50. x2 y1 x2 y2 .5 arct
  51. x2 y2 x1 y2 .5 arct
  52. x1 y2 x1 y1 .5 arct
  53. x1 y1 x2 y1 .5 arct
  54. fill
  55. gR
  56. }bd
  57. /@t
  58. {
  59. /rad xs
  60. /y2 xs
  61. /x2 xs
  62. /y1 xs
  63. /x1 xs
  64. gS
  65. np
  66. x2 x1 add 2 div y1 :M
  67. x2 y1 x2 y2 rad arct
  68. x2 y2 x1 y2 rad arct
  69. x1 y2 x1 y1 rad arct
  70. x1 y1 x2 y1 rad arct
  71. :K
  72. scale
  73. 1 lw
  74. stroke
  75. gR
  76. }bd
  77. /@u
  78. {
  79. /oh xs
  80. /ow xs
  81. /ph xs
  82. /pw xs
  83. oh div
  84. /y2 xs
  85. ow div
  86. /x2 xs
  87. oh div
  88. /y1 xs
  89. ow div
  90. /x1 xs
  91. gS
  92. np
  93. $m currentmatrix
  94. ow oh scale
  95. x2 x1 add 2 div y1 :M
  96. x2 y1 x2 y2 .5 arct
  97. x2 y2 x1 y2 .5 arct
  98. x1 y2 x1 y1 .5 arct
  99. x1 y1 x2 y1 .5 arct
  100. :K
  101. setmatrix
  102. pw ph scale
  103. 1 lw
  104. stroke
  105. gR
  106. }bd
  107. /@g
  108. {
  109. gS
  110. np
  111. 0 360 arc
  112. :K
  113. scale
  114. 1 lw
  115. stroke
  116. gR
  117. }bd
  118. /@h
  119. {
  120. gS
  121. np
  122. $m currentmatrix
  123. pop
  124. :T
  125. scale
  126. 0 0 .5 0 360 arc
  127. $m setmatrix
  128. scale
  129. 1 lw
  130. :K
  131. stroke
  132. gR
  133. }bd
  134. /@o
  135. {
  136. gS
  137. np
  138. arc
  139. scale
  140. 1 lw
  141. stroke
  142. gR
  143. }bd
  144. /@p
  145. {
  146. gS
  147. np
  148. $m currentmatrix
  149. pop
  150. :T
  151. scale
  152. 0 0 .5 5 -2 roll arc
  153. $m setmatrix
  154. scale
  155. 1 lw
  156. stroke
  157. gR
  158. }bd
  159. %%EndFile
  160.