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_-8186 < prev    next >
Encoding:
Text File  |  1996-09-10  |  3.7 KB  |  310 lines
  1. %%BeginFile: lw8_derived_styles-2.0
  2. /wi
  3. version(23.0)eq
  4. {
  5. {
  6. gS 0 0 0 0 rC stringwidth gR
  7. }bind
  8. }{
  9. /stringwidth load
  10. }ifelse
  11. def
  12. /$o 1. def
  13. /gl{$o G}bd
  14. /ms{:M S}bd
  15. /condensedmtx[.82 0 0 1 0 0]def
  16. /:mc
  17. {
  18. condensedmtx :mf fD
  19. }bd
  20. /extendedmtx[1.18 0 0 1 0 0]def
  21. /:me
  22. {
  23. extendedmtx :mf fD
  24. }bd
  25. /basefont Z
  26. /basefonto Z
  27. /dxa Z
  28. /dxb Z
  29. /dxc Z
  30. /dxd Z
  31. /dsdx2 Z
  32. /bfproc Z
  33. /:fbase
  34. {
  35. dup/FontType get 0 eq{
  36. dup length dict begin
  37. dup{1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall
  38. /FDepVector exch/FDepVector get[exch/:fbase load forall]def
  39. }/bfproc load ifelse
  40. /customfont currentdict end definefont
  41. }bd
  42. /:mo
  43. {
  44. /bfproc{
  45. dup dup length 2 add dict
  46. begin
  47. {
  48. 1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse
  49. }forall
  50. /PaintType 2 def
  51. /StrokeWidth .012 0 FontMatrix idtransform pop def
  52. /customfont currentdict
  53. end
  54. definefont
  55. 8 dict begin
  56. /basefonto xdf
  57. /basefont xdf
  58. /FontType 3 def
  59. /FontMatrix[1 0 0 1 0 0]def
  60. /FontBBox[0 0 1 1]def
  61. /Encoding StandardEncoding def
  62. /BuildChar
  63. {
  64. exch begin
  65. basefont setfont
  66. ( )dup 0 4 -1 roll put
  67. dup wi
  68. setcharwidth
  69. 0 0 :M
  70. gS
  71. gl
  72. dup show
  73. gR
  74. basefonto setfont
  75. show
  76. end
  77. }def
  78. }store :fbase
  79. }bd
  80. /:mso
  81. {
  82. /bfproc{
  83. 7 dict begin
  84. /basefont xdf
  85. /FontType 3 def
  86. /FontMatrix[1 0 0 1 0 0]def
  87. /FontBBox[0 0 1 1]def
  88. /Encoding StandardEncoding def
  89. /BuildChar
  90. {
  91. exch begin
  92. sD begin
  93. /dxa 1 ps div def
  94. basefont setfont
  95. ( )dup 0 4 -1 roll put
  96. dup wi
  97. 1 index 0 ne
  98. {
  99. exch dxa add exch
  100. }if
  101. setcharwidth
  102. dup 0 0 ms
  103. dup dxa 0 ms
  104. dup dxa dxa ms
  105. dup 0 dxa ms
  106. gl
  107. dxa 2. div dup ms
  108. end
  109. end
  110. }def
  111. }store :fbase
  112. }bd
  113. /:ms
  114. {
  115. /bfproc{
  116. dup dup length 2 add dict
  117. begin
  118. {
  119. 1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse
  120. }forall
  121. /PaintType 2 def
  122. /StrokeWidth .012 0 FontMatrix idtransform pop def
  123. /customfont currentdict
  124. end
  125. definefont
  126. 8 dict begin
  127. /basefonto xdf
  128. /basefont xdf
  129. /FontType 3 def
  130. /FontMatrix[1 0 0 1 0 0]def
  131. /FontBBox[0 0 1 1]def
  132. /Encoding StandardEncoding def
  133. /BuildChar
  134. {
  135. exch begin
  136. sD begin
  137. /dxb .05 def
  138. basefont setfont
  139. ( )dup 0 4 -1 roll put
  140. dup wi
  141. exch dup 0 ne
  142. {
  143. dxb add
  144. }if
  145. exch setcharwidth
  146. dup dxb .01 add 0 ms
  147. 0 dxb :T
  148. gS
  149. gl
  150. dup 0 0 ms
  151. gR
  152. basefonto setfont
  153. 0 0 ms
  154. end
  155. end
  156. }def
  157. }store :fbase
  158. }bd
  159. /:mss
  160. {
  161. /bfproc{
  162. 7 dict begin
  163. /basefont xdf
  164. /FontType 3 def
  165. /FontMatrix[1 0 0 1 0 0]def
  166. /FontBBox[0 0 1 1]def
  167. /Encoding StandardEncoding def
  168. /BuildChar
  169. {
  170. exch begin
  171. sD begin
  172. /dxc 1 ps div def
  173. /dsdx2 .05 dxc 2 div add def
  174. basefont setfont
  175. ( )dup 0 4 -1 roll put
  176. dup wi
  177. exch dup 0 ne
  178. {
  179. dsdx2 add
  180. }if
  181. exch setcharwidth
  182. dup dsdx2 .01 add 0 ms
  183. 0 .05 dxc 2 div sub :T
  184. dup 0 0 ms
  185. dup dxc 0 ms
  186. dup dxc dxc ms
  187. dup 0 dxc ms
  188. gl
  189. dxc 2 div dup ms
  190. end
  191. end
  192. }def
  193. }store :fbase
  194. }bd
  195. /:msb
  196. {
  197. /bfproc{
  198. 7 dict begin
  199. /basefont xdf
  200. /FontType 3 def
  201. /FontMatrix[1 0 0 1 0 0]def
  202. /FontBBox[0 0 1 1]def
  203. /Encoding StandardEncoding def
  204. /BuildChar
  205. {
  206. exch begin
  207. sD begin
  208. /dxd .03 def
  209. basefont setfont
  210. ( )dup 0 4 -1 roll put
  211. dup wi
  212. 1 index 0 ne
  213. {
  214. exch dxd add exch
  215. }if
  216. setcharwidth
  217. dup 0 0 ms
  218. dup dxd 0 ms
  219. dup dxd dxd ms
  220. 0 dxd ms
  221. end
  222. end
  223. }def
  224. }store :fbase
  225. }bd
  226. /italicmtx[1 0 -.212557 1 0 0]def
  227. /:mi
  228. {
  229. italicmtx :mf fD
  230. }bd
  231. /:v
  232. {
  233. [exch dup/FontMatrix get exch
  234. dup/FontInfo known
  235. {
  236. /FontInfo get
  237. dup/UnderlinePosition known
  238. {
  239. dup/UnderlinePosition get
  240. 2 index 0
  241. 3 1 roll
  242. transform
  243. exch pop
  244. }{
  245. .1
  246. }ifelse
  247. 3 1 roll
  248. dup/UnderlineThickness known
  249. {
  250. /UnderlineThickness get
  251. exch 0 3 1 roll
  252. transform
  253. exch pop
  254. abs
  255. }{
  256. pop pop .067
  257. }ifelse
  258. }{
  259. pop pop .1 .067
  260. }ifelse
  261. ]
  262. }bd
  263. /$t Z
  264. /$p Z
  265. /$s Z
  266. /:p
  267. {
  268. aload pop
  269. 2 index mul/$t xs
  270. 1 index mul/$p xs
  271. .012 mul/$s xs
  272. }bd
  273. /:m
  274. {gS
  275. 0 $p rm
  276. $t lw
  277. 0 rl stroke
  278. gR
  279. }bd
  280. /:n
  281. {
  282. gS
  283. 0 $p rm
  284. $t lw
  285. 0 rl
  286. gS
  287. gl
  288. stroke
  289. gR
  290. strokepath
  291. $s lw
  292. /setstrokeadjust where{pop
  293. currentstrokeadjust T setstrokeadjust stroke setstrokeadjust
  294. }{
  295. stroke
  296. }ifelse
  297. gR
  298. }bd
  299. /:o
  300. {gS
  301. 0 $p rm
  302. $t 2 div dup rm
  303. $t lw
  304. dup 0 rl
  305. stroke
  306. gR
  307. :n
  308. }bd
  309. %%EndFile
  310.