home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / tex / oztex.sit / PS-files / LaserPrep65.ps < prev    next >
Text File  |  1990-09-11  |  20KB  |  432 lines
  1. % See LaserPrep70.ps for how to create your own modified Laser Prep.
  2.  
  3. %%Title: "Laser Prep -- The Apple PostScript Dictionary (md)"
  4. %%Creator: Apple Software Engineering
  5. %%CreationDate: Thursday, March 19, 1987
  6. %{appledict version #65
  7. %  CopyRight Apple Computer, Inc. 1984,1985,1986,1987 All Rights Reserved.
  8. %%EndComments
  9. %%BeginProcSet: "(AppleDict md)" 65 0
  10. systemdict/currentpacking known{currentpacking true setpacking}if
  11. /LW{save statusdict/product get(LaserWriter)anchorsearch
  12. exch pop{length 0 eq{1}{2}ifelse}{0}ifelse exch restore}bind def
  13. /LW+{LW 2 eq}bind def
  14. /ok{systemdict/statusdict known dup{LW 0 gt and}if}bind def
  15.  
  16. %AKT ok{statusdict begin 9 sccinteractive 3 ne exch 0 ne or{9 0 3 setsccinteractive}if end}if
  17.  
  18. /md 250 dict def md begin
  19. /av 65 def
  20. /T true def/F false def/mtx matrix def/s75 75 string def/s8 8 string def/s1 ( ) def/pxs 1 def/pys 1 def
  21. 1 0 mtx defaultmatrix dtransform exch atan/pa exch def/nlw .24 def/ppr [-32 -29.52 762 582.48] def
  22. /pgs 1 def/por true def/xb 500 array def/so true def/fillflag false def/pnm 1 def/fmv true def
  23. /sfl false def/ma 0 def/invertflag false def/xflip false def/yflip false def/noflips true def/scaleby96 false def/fNote true def/fBitStretch true def
  24. /fg (Rvd\001\001\000\000\177) def
  25. /bdf{bind def}bind def
  26. /xdf{exch def}bdf
  27. /xl{neg exch neg translate}bdf
  28. /fp{pnsh 0 ne pnsv 0 ne and}bdf
  29. /nop{}bdf/lnop[/nop load]cvx bdf
  30. /vrb[
  31. {fp{gsave 1 setlinewidth pnsh pnsv scale stroke grestore}if newpath}bind
  32. /eofill load
  33. dup
  34. /newpath load
  35. 2 index
  36. dup
  37. {clip newpath}bind
  38. {}bind
  39. dup
  40. 2 copy
  41. ]def
  42. currentscreen/spf xdf/rot xdf/freq xdf
  43. /doop{vrb exch get exec}bdf
  44. /psu{/fNote xdf/fBitStretch xdf/scaleby96 xdf/yflip xdf/xflip xdf/invertflag xdf xflip yflip or{/noflips false def}if
  45. /pgs xdf 2 index .72 mul exch div/pys xdf div .72 mul/pxs xdf ppr astore pop/por xdf sn and/so xdf}bdf
  46. /txpose{fNote{smalls}{bigs}ifelse pgs get exec pxs pys scale ppr aload pop por{noflips{pop exch neg exch translate pop 1 -1 scale}if
  47. xflip yflip and{pop exch neg exch translate 180 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg translate}if
  48. xflip yflip not and{pop exch neg exch translate pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0 translate}if yflip xflip not and{ppr 1 get neg ppr 0 get neg translate}if}
  49. {noflips{translate pop pop 270 rotate 1 -1 scale}if xflip yflip and{translate pop pop 90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg translate}if
  50. xflip yflip not and{translate pop pop 90 rotate ppr 3 get ppr 1 get neg sub neg 0 translate}if yflip xflip not and{translate pop pop 270 rotate ppr 2 get ppr 0 get neg sub neg 0 exch translate}if}ifelse
  51. statusdict begin waittimeout 300 lt{/waittimeout 300 def}if end scaleby96{ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy translate .96 dup scale neg exch neg exch translate}if}bdf
  52. /fr{3 index 3 index xl ppr aload pop 3 -1 roll 2 mul add 3 1 roll exch 2 mul add
  53. 6 2 roll 3 -1 roll sub 3 1 roll exch sub 3 1 roll exch 3 -1 roll div 3 1 roll div exch scale} bdf
  54. /lws{show}bdf
  55. /tv{show pop pop}bdf
  56. /obl{{0.212557 mul}{pop 0}ifelse}bdf
  57. /sfd{ps fg 5 -1 roll get mul 100 div 0 ps 5 -1 roll obl ps neg 0 0 6a astore makefont setfont}bdf
  58. /fnt{findfont sfd}bdf
  59. /bt{sa 3 1 roll 3 index and put}bdf
  60. /sa(\000\000\000\000\000\000\000\000\000\000)def
  61. /fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put}bdf
  62. /mx1 matrix def
  63. /mx2 matrix def
  64. /mx3 matrix def
  65. /bu{currentpoint currentgray currentlinewidth currentlinecap currentlinejoin currentdash exch aload length
  66. fg 5 sfl{1}{0}ifelse put pnsv pnsh
  67. 2t aload pop 3a aload pop mx2 aload pop mx1 aload pop mtx currentmatrix aload pop
  68. mx3 aload pop ps pm restore/ps xdf mx3 astore pop}bdf
  69. /bn{/pm save def mx3 setmatrix newpath 0 0 moveto ct dup 39 get 0 exch getinterval cvx exec
  70. mtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop
  71. 2t astore pop/pnsh xdf/pnsv xdf gw
  72. /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap
  73. setlinewidth setgray moveto}bdf
  74. /fc{save vmstatus exch sub 50000 lt
  75. {(%%[|0|]%%)=print flush}if pop restore}bdf
  76. /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
  77. /3a [0 0 0] def
  78. /2t 2 array def
  79. /tp{3a astore pop}bdf
  80. /tt{mx2 currentmatrix pop currentpoint 2 copy 2t aload pop qa 2 copy translate 3a aload pop exch dup 0 eq
  81. {pop}{1 eq{-1 1}{1 -1}ifelse scale}ifelse rotate pop neg exch neg exch translate moveto}bdf
  82. /te{mx2 setmatrix}bdf
  83. /th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale/sfl true def}bdf
  84. /tu{1 1 mx1 itransform scale/sfl false def}bdf
  85. /ts{1 1 mx1 transform scale/sfl true def}bdf
  86. /fz{/ps xdf}bdf
  87. /dv{dup 0 ne{div}{pop}ifelse}bdf
  88. /pop4{pop pop pop pop}bdf
  89. /it{sfl{mx1 itransform}if}bdf
  90. /gm{exch it moveto}bdf/rm{it rmoveto}bdf
  91. /lm{currentpoint sfl{mx1 transform}if exch pop sub 0 exch it rmoveto}bdf
  92. /fm{statusdict/manualfeed known}bdf
  93. /se{statusdict exch/manualfeed exch put}bdf
  94. /mf
  95. {dup /ma exch def               % Copy argument to /ma.
  96.  0 gt                           % Eat argument and push boolean (arg > 0).
  97.     {fm se
  98.      /t1 5 st                   % Define value t1
  99.      ok ma 1 gt and
  100.      {/t2 0 st                                   % Define value t2.
  101.       /t3 0 st                                   % Define value t3.
  102.       statusdict /manualfeedtimeout 3600 put     % Set timeout value.
  103.      } if
  104.     } if
  105. } bdf
  106. /jn {/statusdict where exch pop{statusdict exch /jobname exch put}if} bdf
  107. /pen{pnm mul/pnsh xdf pnm mul/pnsv xdf pnsh setlinewidth}bdf
  108. /min{2 copy gt{exch}if pop}bdf
  109. /max{2 copy lt{exch}if pop}bdf
  110. /dh{fg 6 1 put array astore exch pop exch pop exch setdash}bdf
  111. /ih[currentdash]def
  112. /rh{fg 6 0 put ih aload pop setdash}bdf
  113. /dl{gsave nlw pys div setlinewidth 0 setgray}bdf
  114. /dlin{exch currentpoint currentlinewidth 2 div dup
  115. translate newpath moveto lineto currentpoint stroke grestore moveto}bdf
  116. /lin{fg 6 get 0 ne{exch lineto currentpoint 0 doop moveto}
  117. {exch currentpoint/pnlv xdf/pnlh xdf gsave newpath/@1 xdf/@2 xdf fp{pnlh @2 lt{pnlv @1 ge
  118. {pnlh pnlv moveto @2 @1 lineto pnsh 0 rlineto
  119. 0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}
  120. {pnlh pnlv moveto pnsh 0 rlineto @2 pnsh add @1 lineto 0 pnsv rlineto
  121. pnsh neg 0 rlineto pnlh pnlv pnsv add lineto}ifelse}{pnlv @1 gt
  122. {@2 @1 moveto pnsh 0 rlineto pnlh pnsh add pnlv lineto 0 pnsv rlineto
  123. pnsh neg 0 rlineto @2 @1 pnsv add lineto}{pnlh pnlv moveto pnsh 0 rlineto
  124. 0 pnsv rlineto @2 pnsh add @1 pnsv add lineto pnsh neg 0 rlineto
  125. 0 pnsv neg rlineto}ifelse}ifelse
  126. closepath fill}if @2 @1 grestore moveto}ifelse}bdf
  127. /gw{/pnm fg 3 get fg 4 get div def}bdf
  128. /lw{fg exch 4 exch put fg exch 3 exch put gw pnsv pnsh pen}bdf
  129. /barc{/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf
  130. /@6 xdf/@7 xdf/@8 xdf gsave
  131. @5 @7 add 2 div @6 @8 add 2 div translate newpath 0 0 moveto
  132. @5 @7 sub @6 @8 sub mtx currentmatrix pop scale @1{newpath}if
  133. 0 0 0.5 @4 @3 arc @4 @3 sub abs 360 ge{closepath}if
  134. mtx setmatrix @2 doop grestore}bdf
  135. /ar{dup 0 eq barc}bdf
  136. /ov{0 exch 360 exch true barc}bdf
  137. /rc{/@t xdf currentpoint 6 2 roll newpath 4 copy 4 2 roll exch moveto
  138. 6 -1 roll lineto lineto lineto closepath @t doop moveto}bdf
  139. /mup{dup pnsh 2 div le exch pnsv 2 div le or}bdf
  140. /rr{/@1 xdf 2. div/@2 xdf 2. div/@3 xdf
  141. /@4 xdf/@5 xdf/@6 xdf/@7 xdf
  142. @7 @5 eq @6 @4 eq @2 mup or or{@7 @6 @5 @4 @1 rc}
  143. {@4 @6 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse
  144. @5 @7 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse
  145. @1 0 eq{/@2 @2 pnsh 2 div 2 copy gt{sub def}{0 pop4}ifelse}if
  146. currentpoint newpath
  147. @4 @6 add 2. div @7 moveto
  148. @4 @7 @4 @5 @2 arcto pop4
  149. @4 @5 @6 @5 @2 arcto pop4
  150. @6 @5 @6 @7 @2 arcto pop4
  151. @6 @7 @4 @7 @2 arcto pop4
  152. closepath @1 doop moveto}ifelse}bdf
  153. /pr{gsave newpath/pl{exch moveto/pl{exch lineto}def}def}bdf
  154. /pl{exch lineto}bdf
  155. /ep{dup 0 eq{{moveto}{exch lin}{}{(%%[|1|]%%)= flush}pathforall
  156. pop grestore}{doop grestore}ifelse currentpoint newpath moveto}bdf
  157. /gr{64. div setgray}bdf
  158. /pat{s8 copy pop 9.375 pa por not{90 add}if{1 add 4 mul cvi s8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and}setscreen gr}bdf
  159. /sg{freq rot/spf load setscreen gr}bdf
  160. /dc{transform round .5 sub exch round .5 sub exch itransform}bdf
  161. /sn{userdict/smooth4 known}bdf
  162. /x8{3 bitshift}bdf
  163. /x4{2 bitshift}bdf
  164. /d4{-2 bitshift}bdf
  165. /d8{-3 bitshift}bdf
  166. /rb{15 add -4 bitshift 1 bitshift}bdf
  167. /db{/@7 save def/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf/@6 @5 @3 4 add mul def
  168. dc translate scale/xdbit 1 1 idtransform abs/ydbit exch def abs def{0 0 1 ydbit add 1 10 rc clip}if
  169. @1 0 eq @1 4 eq or{1 setgray ydbit 0 1 ydbit add 1 2 rc}if
  170. @1 3 eq @1 7 eq or{1}{0}ifelse setgray/@9 @1 0 eq @1 1 eq @1 3 eq or or invertflag xor def/@13 @6 def
  171. @2 fBitStretch or{/@10 @4 x4 def/@11 @3 x4 def/@12 @10 rb def/@13 @12 @11 mul def/@15 1 1 dtransform abs/calcY 1 index def round cvi/@14 exch def
  172. abs/calcX 1 index def round cvi scaleby96 not{1 add}if def/@16 @15 rb def/@17 @16 @14 mul def}if
  173. sn @13 60000 lt and @2 fBitStretch or and{mtx currentmatrix dup 1 get exch 2 get 0. eq exch 0. eq and @17 60000 lt and fBitStretch and{@16 3 bitshift @14 @9 [calcX 0 0 calcY 0 0]{@17 string @13 string
  174. currentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4
  175. @10 @11 @12 dup string 5 index @15 @14 @16 dup string stretch}imagemask}{@12 x8 @11 @9 [@10 0 0 @11 0 0]{@13 string
  176. currentfile @6 string readhexstring pop 1 index @4 @3 @5 @12 @2 smooth4}imagemask}ifelse}{@5 3 bitshift @3 4 add @9 [@4 0 0 @3 0 2]{currentfile @6 string readhexstring pop}imagemask}ifelse
  177. @7 restore}bdf
  178. /wd 16 dict def
  179. /mfont 14 dict def
  180. /mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin xdf end}bdf
  181. /cf{{1 index/FID ne{def}{pop pop}ifelse}forall}bdf
  182. /rf{/@1 exch def/@2 exch def
  183. FontDirectory @2 known{cleartomark pop}{findfont dup begin dup length @1 add dict begin
  184. cf {/Encoding macvec def}{Encoding dup length array copy/Encoding exch def
  185. counttomark 2 idiv{Encoding 3 1 roll put}repeat}ifelse
  186. pop
  187. exec currentdict end end @2 exch definefont pop}ifelse}bdf
  188. /bmbc{exch begin wd begin
  189. /cr xdf
  190. save
  191. CharTable cr 6 mul 6 getinterval{}forall
  192. /bitheight xdf/bitwidth xdf
  193. .96 div/width xdf
  194. Gkernmax add/XOffset xdf Gdescent add/YOffset xdf/rowbytes xdf
  195. rowbytes 255 eq{0 0 0 0 0 0 setcachedevice}
  196. {Gnormsize dup scale
  197. width 0 XOffset YOffset bitwidth XOffset add bitheight YOffset add
  198. setcachedevice
  199. rowbytes 0 ne{
  200. XOffset YOffset translate newpath 0 0 moveto
  201. bitwidth bitheight scale
  202. sn{
  203. /xSmt bitwidth x4 def
  204. /ySmt bitheight x4 def
  205. /rSmt xSmt rb def
  206. rSmt x8 ySmt true
  207. [xSmt 0 0 ySmt neg 0 ySmt]
  208. {rSmt ySmt mul string CharData cr get
  209. 1 index bitwidth bitheight rowbytes rSmt so smooth4}
  210. }{rowbytes 3 bitshift bitheight 4 add true
  211. [bitwidth 0 0 bitheight neg 0 bitheight 2 add]
  212. {CharData cr get}
  213. }ifelse
  214. imagemask
  215. }if
  216. }ifelse
  217. restore
  218. end end
  219. }bdf
  220. /bb{.96 exch div/Gnormsize mdf 2 index
  221. /Gkernmax mdf 1 index/Gdescent mdf
  222. 3 index div 4 1 roll
  223. 2 index div 1. 5 2 roll
  224. exch div 4 1 roll
  225. 4 array astore/FontBBox mdf
  226. }bdf
  227. /cdf{mfont/CharData get 3 1 roll put}bdf
  228. /bf{
  229. mfont begin
  230. /FontType 3 def
  231. /FontMatrix [1 0 0 1 0 0] def
  232. /Encoding macvec def
  233. /BuildChar/bmbc load def
  234. end
  235. mfont definefont pop
  236. }bdf
  237. /wi LW 1 eq{{gsave 0 0 0 0 0 0 0 0 moveto lineto lineto lineto closepath clip stringwidth grestore}bind}{/stringwidth load}ifelse def
  238. /aps{0 get 124 eq}bdf
  239. /xc{s75 cvs dup}bdf
  240. /xp{put cvn}bdf
  241. /scs{xc 3 67 put dup 0 95 xp}bdf
  242. /sos{xc 3 79 xp}bdf
  243. /sbs{xc 1 66 xp}bdf
  244. /sis{xc 2 73 xp}bdf
  245. /sob{xc 2 79 xp}bdf
  246. /sss{xc 4 83 xp}bdf
  247. /dd{exch 1 index add 3 1 roll add exch}bdf
  248. /smc{moveto dup lws}bdf
  249. /kwn{FontDirectory 1 index known{findfont exch pop}}bdf
  250. /gl{1 currentgray sub setgray}bdf
  251. /mm{/mfont 10 dict def mfont begin
  252. /FontMatrix [1 0 0 1 0 0] def
  253. /FontType 3 def
  254. /Encoding macvec def
  255. /df 4 index findfont def
  256. /FontBBox [0 0 1 1] def
  257. /xda xdf/mbc xdf
  258. /BuildChar{wd begin/cr xdf/fd xdf/cs s1 dup 0 cr put def fd/mbc get exec end}def
  259. exec end mfont definefont}bdf
  260. /ac{dup scs kwn{exch findfont dup length 1 add dict begin
  261. cf fmv{/Encoding macvec def}if/StrokeWidth nlw 1000 mul pys div ps div dup 12 lt{pop 12}if def
  262. /PaintType 2 def currentdict /UniqueID known{/UniqueID UniqueID 16#A80000 xor def}if currentdict end definefont}ifelse}bdf
  263. /mb{dup sbs kwn{exch{pop}{bbc}{}mm}ifelse sfd}bdf
  264. /mo{dup sos kwn{exch{pop}{boc}{}mm}ifelse sfd}bdf
  265. /ms{dup sss kwn{exch{pop}{bsc}{}mm}ifelse sfd}bdf
  266. /ou{dup sos kwn{exch dup ac pop{scs findfont /df2 xdf}{aoc}{}mm}ifelse sfd}bdf
  267. /su{dup sss kwn{exch dup ac pop{scs findfont /df2 xdf}{asc}{}mm}ifelse sfd}bdf
  268. /ao{/fmv true def ou}bdf/as{/fmv true def su}bdf
  269. /vo{/fmv false def ou}bdf/vs{/fmv false def su}bdf
  270. /bbc{/da .03 def fd/df get setfont
  271. gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth
  272. cs 0 0 smc da 0 smc da da smc 0 da moveto lws}bdf
  273. /boc{/da 1 ps div def fd/df get setfont
  274. gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth
  275. cs 0 0 smc da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf
  276. /bsc{/da 1 ps div def
  277. /ds .05 def/da2 da 2. div def fd/df get setfont
  278. gsave cs wi 1 index 0 ne{exch ds add da2 add exch}if grestore setcharwidth
  279. cs ds da2 add .01 add 0 smc 0 ds da2 sub translate 0 0 smc
  280. da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf
  281. /aoc{fd/df get setfont
  282. gsave cs wi grestore setcharwidth
  283. gl cs 0 0 smc fd/df2 get setfont gl 0 0 moveto lws}bdf
  284. /asc{/da .05 def fd/df get setfont
  285. gsave cs wi 1 index 0 ne{exch da add exch}if grestore setcharwidth
  286. cs da .01 add 0 smc 0 da translate gl 0 0 smc gl fd/df2 get setfont 0 0 moveto lws}bdf
  287. /st
  288. {1000 mul usertime add                   % arg=1000*arg+usertime
  289.  dup 2147483647 gt {2147483647 sub} if   % arg=arg mod (2^31)
  290.  def                                     % Define
  291. } bdf
  292. /the{usertime sub dup 0 lt exch -2147483648 gt and}bdf
  293. /6a 6 array def
  294. /2a 2 array def
  295. /3q 3 array def
  296. /qs{3 -1 roll sub exch 3 -1 roll sub exch}bdf
  297. /qa{3 -1 roll add exch 3 -1 roll add exch}bdf
  298. /qm{3 -1 roll 1 index mul 3 1 roll mul}bdf
  299. /qn{6a exch get mul}bdf
  300. /qA .166667 def/qB .833333 def/qC .5 def
  301. /qx{6a astore pop
  302. qA 0 qn qB 2 qn add   qA 1 qn qB 3 qn add
  303. qB 2 qn qA 4 qn add   qB 3 qn qA 5 qn add
  304. qC 2 qn qC 4 qn add   qC 3 qn qC 5 qn add}bdf
  305. /qp{6 copy 12 -2 roll pop pop}bdf
  306. /qc{exch qp qx curveto}bdf
  307. /qi{{exch 4 copy 2a astore aload pop qa .5 qm newpath moveto}{exch 2 copy 6 -2 roll 2 qm qs 4 2 roll}ifelse}bdf
  308. /qq{{qc 2a aload pop qx curveto}{exch 4 copy qs qa qx curveto}ifelse}bdf
  309. /pt{currentpoint newpath moveto}bdf
  310. /qf{/fillflag true def}bdf
  311. /ec{1 and 0 ne{0 doop}if grestore currentpoint newpath moveto/fillflag false def}bdf
  312. /eu{currentpoint fp{0 ep}{grestore newpath}ifelse moveto/fillflag false def}bdf
  313. /bp{currentpoint newpath 2 copy moveto}bdf
  314. /ef{gsave fillflag{gsave eofill grestore}if}bdf
  315. /sm{0 exch{@1 eq{1 add}if}forall}bdf
  316. /lshow{4 1 roll exch/@1 exch def{1 index wi pop sub 1 index sm dv 0 @1 4 -1 roll widthshow}{1 index wi pop sub
  317. 1 index dup sm 10 mul exch length 1 sub add dv dup 10. mul 0 @1 4 -1 roll 0 6 -1 roll awidthshow}ifelse}bdf
  318. /setTxMode{sa 9 2 index put 3 eq{1}{0}ifelse setgray}bdf
  319. /SwToSym{{}mark false/Symbol/|______Symbol 0 rf 0 sa 6 get 0 ne{pop 1}{sa 7 get 0 eq{pop 2}if}ifelse
  320. sa 1 get 0 ne/|______Symbol
  321. sa 4 get 0 ne{vs}{sa 3 get 0 ne{vo}{fnt}ifelse}ifelse}bdf
  322. /mc{0 3 1 roll transform neg exch pop}bdf
  323. /ul{dup 0 ne sa 2 get 0 ne and{gsave 0 0
  324. /UnderlinePosition kif{mc}{ps -10 div}ifelse/UnderlineThickness kif{mc}{ps 15 div}ifelse
  325. abs setlinewidth neg rmoveto
  326. sa 4 get 0 ne{gsave currentlinewidth 2. div dup rmoveto currentpoint newpath moveto
  327. 2 copy rlineto stroke grestore}if
  328. sa 3 get sa 4 get or 0 ne{gsave gl 2 copy rlineto stroke grestore rlineto strokepath nlw pys div setlinewidth}{rlineto}ifelse
  329. stroke grestore}{pop}ifelse}bdf
  330. /sgt{2 copy known{get true}{pop pop false}ifelse}bdf
  331. /kif{currentfont dup/FontMatrix get exch/FontInfo sgt{true}{currentfont/df sgt
  332. {dup/FontInfo sgt{3 1 roll/FontMatrix get mtx concatmatrix exch true}{pop pop pop false}
  333. ifelse}{pop pop false}ifelse}ifelse{3 -1 roll sgt{exch true}{pop false}ifelse}{false}ifelse}bdf
  334. /blank/Times-Roman findfont/CharStrings get/space get def
  335. /macvec 256 array def
  336. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
  337. /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  338. macvec 0 32 getinterval astore pop
  339. macvec 32/Times-Roman findfont/Encoding get
  340. 32 96 getinterval putinterval macvec dup 39/quotesingle put 96/grave put
  341. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  342. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  343. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  344. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  345. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  346. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  347. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  348. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  349. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  350. /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe
  351. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  352. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  353. /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute
  354. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  355. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  356. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  357. macvec 128 128 getinterval astore pop
  358. {}mark true/Courier/|______Courier 0 rf
  359. {/Metrics 21 dict begin/zero 600 def/one 600 def/two 600 def/three 600 def/four 600 def/five 600 def/six 600 def/seven 600 def/eight 600 def
  360. /nine 600 def/comma 600 def/period 600 def/dollar 600 def/numbersign 600 def/percent 600 def/plus 600 def/hyphen 600 def/E 600 def/parenleft 600 def/parenright 600 def/space 600 def
  361. currentdict end def currentdict/UniqueID known{/UniqueID 16#800000 def}if/FontBBox FontBBox 4 array astore def}mark true/Helvetica/|______Seattle 1 rf
  362. /oldsettransfer/settransfer load def
  363. /concatprocs{/proc2 exch cvlit def/proc1 exch cvlit def/newproc proc1 length proc2 length add array def
  364. newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval newproc cvx}def
  365. /settransfer{currenttransfer concatprocs oldsettransfer}def
  366. /PaintBlack{{1 exch sub}settransfer gsave newpath clippath 1 setgray fill grestore}def
  367. /od
  368. {
  369.  %AKT (Rvd\001\001\000\000\177) fg copy pop txpose
  370.  1 -1 scale    %AKT
  371.  1 0 mtx defaultmatrix dtransform exch atan /pa exch def
  372.  newpath
  373.     clippath
  374.     mark
  375.     {transform {itransform moveto}}
  376.     {transform {itransform lineto}}
  377.     {6 -2 roll transform
  378.      6 -2 roll transform
  379.      6 -2 roll transform
  380.      {itransform
  381.       6 2 roll itransform
  382.       6 2 roll itransform
  383.       6 2 roll curveto
  384.      }
  385.     }
  386.     {{closepath}}
  387.  pathforall
  388.  newpath
  389.     counttomark array astore /gc xdf pop ct 39 0 put
  390.  10 fz 0 fs 2 F/|______Courier fnt invertflag {PaintBlack} if
  391. } bdf
  392. /cd {} bdf
  393. /op
  394. {/sfl false def
  395.  /pm save def
  396. } bdf
  397. /cp
  398. {
  399.  pop pop             %AKT ignore arguments to cp
  400.  pm restore
  401. } bdf
  402. /px{0 3 1 roll tp tt}bdf
  403. /psb{/us save def}bdf
  404. /pse{us restore}bdf
  405. /ct 40 string def
  406. /nc{currentpoint initclip newpath gc{dup type dup/arraytype eq exch/packedarraytype eq or{exec}if}
  407. forall clip newpath moveto}bdf
  408. /kp{ct 0 2 index length 2 index 39 2 index put getinterval copy cvx exec mx3 currentmatrix pop}bdf
  409. end
  410. LW 1 eq userdict/a4small known not and{/a4small
  411. [[300 72 div 0 0 -300 72 div -120 3381]
  412. 280 3255
  413. {statusdict/jobstate (printing) put 0 setblink
  414. margins
  415. exch 196 add exch 304 add 8 div round cvi frametoroket
  416. statusdict/jobstate (busy) put
  417. 1 setblink}
  418. /framedevice load
  419. 60 45{dup mul exch dup mul add 1.0 exch sub}/setscreen load
  420. {}/settransfer load/initgraphics load/erasepage load]cvx
  421. statusdict begin bind end readonly def}if
  422. md begin/bigs[lnop lnop/legal load userdict/a4 known{/a4 load}{lnop}ifelse lnop lnop lnop lnop lnop]def
  423. /smalls[lnop userdict/note known{/note load}{dup}ifelse lnop userdict/a4small known{/a4small load}{lnop}ifelse 2 index lnop lnop lnop lnop ]def end
  424. systemdict/currentpacking known{setpacking}if
  425.  
  426. %AKT Removed /stretch and /smooth4 eexec patches to avoid flushfile problem
  427. %AKT if md previously downloaded.
  428.  
  429. %%EndProcSet
  430.  
  431. %%EOF
  432.