home *** CD-ROM | disk | FTP | other *** search
/ Altsys Virtuoso 2 / Virtuoso1_german.img / psstr.s < prev   
Text File  |  1992-12-02  |  76KB  |  3,181 lines
  1. q
  2. #
  3. Q
  4. #
  5. [^0] ^1 d
  6. #
  7. ^2 M
  8. #
  9. ^3 w
  10. #
  11. ^4 j
  12. #
  13. ^5 J
  14. #
  15. true setoverprint
  16. #
  17. false setoverprint
  18. #
  19. ^6 O
  20. #
  21. ^7 R
  22. #
  23. vms
  24. #
  25. vmrs
  26. #
  27. vmr
  28. #
  29. ^8 i
  30. #
  31. ^9 concat
  32. #
  33. true eomode
  34. #
  35. false eomode
  36. #
  37. true
  38. #
  39. false
  40. #
  41. vc
  42. #
  43. K
  44. #
  45. k
  46. #
  47. X
  48. #
  49. x
  50. #
  51. m
  52. #
  53. L
  54. #
  55. C
  56. #
  57. h
  58. #
  59. n
  60. #
  61. W
  62. #
  63. ^0 ^1 translate
  64. #
  65. F 
  66. #
  67. f 
  68. #
  69. S 
  70. #
  71. s 
  72. #
  73. fas
  74. #
  75. sas
  76. #
  77. ^1 <^0> pF 
  78. #
  79. ^1 <^0> pf 
  80. #
  81. ^1 <^0> pS 
  82. #
  83. ^1 <^0> ps 
  84. #
  85. ^0 ^1 ^2 ^3 ^4 ^5 rfs
  86. #
  87. ^0 ^1 ^2 ^6 ^7 rfp
  88. #
  89. ^4 ^5 ^6 ^0 ^1 ^2 ^3 lfs
  90. #
  91. ^7 ^8 ^0 ^1 ^2 ^3 lfp
  92. #
  93. /normtaper load
  94. #
  95. /logtaper load
  96. #
  97. ^R 
  98. ^S 
  99. ^T 
  100. setscreen
  101. #
  102. showpage
  103. #
  104. ^0 ^1 ^2 ^3 ^4 (^5) `
  105. %%BeginDocument: ^5
  106. #
  107. %%EndDocument
  108. end -save0- restore 
  109. #
  110. %%ChangeFont: ^0
  111. #
  112. %%IncludeFont: ^0
  113. #
  114. f^1 ^2 makesetfont
  115. #
  116. ^3 dict dup begin
  117. #
  118. end
  119. #
  120. /f^1 /^0 FF def
  121. #
  122. ^3 32 ^4 (^5) ts
  123. #
  124. {
  125. #
  126. }
  127. #
  128. sts
  129. #
  130. dup
  131. #
  132. %. unused
  133. #
  134. /stsh{
  135. /ts{
  136. curtextheight .06 mul dup neg rmoveto awidthshow
  137. curtextheight .06 mul neg dup neg rmoveto
  138. }def 
  139. gsave 
  140. [0 0 0 .5] vc 
  141. 1 index exec 
  142. grestore
  143. /ts{awidthshow}def 
  144. vc exec
  145. }bdf 
  146. #
  147. %. unused -- used to be fill -n- stroke text effect
  148. #
  149. /extrude
  150. { 
  151. /chg xdf /deltay xdf /deltax xdf 
  152. /tc1 xdf storerect /tc2 xdf
  153. /factor .95 def
  154. newpath
  155. tc1 length 2 eq 
  156. {/tc1 tc1 spottoprocess def} if 
  157. tc2 length 2 eq 
  158. {/tc2 tc2 spottoprocess def} if 
  159. /cnt todraw def 
  160. /ts 
  161. {gsave currentpoint pop /xstart xdf blockxoff wordxoff add yoff 
  162. rmoveto scalef dup scale right left sub 2 div xstart left sub sub
  163. neg curtextheight 2 div neg rmoveto awidthshow grestore}def
  164. 1 1 todraw div neg 0
  165. { 
  166. dup .02 le{pop 0}if /frac xdf 
  167. gsave 
  168. 0 1 3
  169. {
  170. bc4 exch 
  171. tc1 1 index get 
  172. tc2 2 index get 
  173. 1 index sub 
  174. frac mul add put 
  175. }for 
  176. bc4 vc 
  177. dup exec 
  178. cnt 1 ne{grestore}if 
  179. /cnt cnt 1 sub def 
  180. } for 
  181. /ts{gsave awidthshow grestore}def 
  182. tc1 vc dup exec tc2 vc 
  183. curtextheight .005 mul setlinewidth
  184. /ts {{false charpath stroke}ta} def exec 
  185. grestore
  186. }bdf
  187. /blockxoff 
  188. {right left sub 2 div currentpoint pop left sub sub}def 
  189. /yoff 
  190. {curtextheight 2 div deltay todraw div cnt mul add}def
  191. /wordxoff 
  192. {deltax todraw div cnt mul}def
  193. /todraw 
  194. { deltax dup mul deltay dup mul add sqrt factor mul
  195. 100 chg sub abs factor mul add 
  196. dup 0 le{pop 1}{round}ifelse} def
  197. /scalef 
  198. {100 chg sub abs 100 div todraw div cnt mul
  199. chg 100 ge{1 add}{1 exch sub}ifelse}def
  200. /spottoprocess
  201. {aload pop spots exch get aload pop pop pop 
  202. 0 1 3{pop 4 index mul 4 -1 roll}for 
  203. 4 array astore exch pop}bdf
  204. #
  205. /inlin
  206. { /miter_lim xdf /iterations xdf /fgstroke xdf /bgstroke xdf
  207. /tc2 xdf /tc1 xdf /textblock xdf
  208. 1.0 miter_lim 2 div sin div M
  209. {
  210. /textblock load tc1 fgstroke bgstroke add iterations mul stol
  211. /textblock load tc2 fgstroke bgstroke add iterations mul fgstroke sub stol
  212. /iterations iterations 1 sub def iterations 0 eq {exit} if
  213. } loop
  214. /textblock load false tc1 sts
  215. } bdf
  216. #
  217. /fhpatdict 10 dict def
  218. fhpatdict begin
  219. /PatternType 1 def
  220. /PaintType 2 def 
  221. /TilingType 1 def
  222. /BBox [0 0 8 8] def
  223. /XStep 8 def
  224. /YStep 8 def
  225. /PatMtx [1 0 0 -1 0 8] def
  226. /PaintProc
  227. {begin 8 8 true PatMtx {PatData} imagemask end} bdf
  228. end
  229. /pF{
  230. gsave 1 setgray filler grestore
  231. fhpatdict /PatData 3 -1 roll put 
  232. save exch
  233. matrix defaultmatrix setmatrix
  234. fhpatdict matrix PATmp PATsp 
  235. /clipper load /eoclip load eq PATfill
  236. restore
  237. }bdf
  238. /pf{closepath pF}bdf
  239. /pS{
  240. gsave 1 setgray stroke grestore
  241. fhpatdict /PatData 3 -1 roll put 
  242. save exch 
  243. PATprestroke 
  244. matrix defaultmatrix setmatrix
  245. fhpatdict matrix PATmp PATsp 
  246. PATstroke
  247. restore
  248. }bdf
  249. /ps{closepath pS}bdf
  250. #
  251. /textopf false def
  252. /curtextmtx{}def
  253. /otw .25 def
  254. /msf{dup/curtextmtx xdf makefont setfont}bdf
  255. /makesetfont/msf load def
  256. /curtextheight{.707104 .707104 curtextmtx dtransform
  257. dup mul exch dup mul add sqrt}bdf
  258. /ta{1 index 
  259. {tempstr 0 2 index put tempstr 2 index 
  260. gsave exec grestore 
  261. tempstr stringwidth rmoveto 
  262. 5 index eq{6 index 6 index rmoveto}if 
  263. 3 index 3 index rmoveto 
  264. }forall 7{pop}repeat}bdf
  265. /sts{/textopf currentoverprint def vc setoverprint
  266. /ts{awidthshow}def exec textopf setoverprint}bdf
  267. /stol{/xt currentlinewidth def 
  268. setlinewidth vc newpath 
  269. /ts{{false charpath stroke}ta}def exec 
  270. xt setlinewidth}bdf 
  271. /strk{/textopf currentoverprint def vc setoverprint
  272. /ts{{false charpath stroke}ta}def exec 
  273. textopf setoverprint
  274. }bdf 
  275. #
  276. %!PS-Adobe-2.0 EPSF-1.2
  277. %%Title: ^0
  278. %%Creator: ^3
  279. %%CreationDate: ^1
  280. %%BoundingBox: ^2
  281. #
  282. %%FHPathName: ^4
  283. %ALDOriginalFile: ^4
  284. %%DocumentProcSets: Altsys_header 4 0
  285. %%DocumentSuppliedProcSets: Altsys_header 4 0
  286. #
  287. %%ColorUsage: Color
  288. #
  289. %%DocumentProcessColors: Cyan Magenta Yellow Black
  290. #
  291. %%DocumentCustomColors: (^1)
  292. #
  293. %%+ (^1)
  294. #
  295. %%CMYKCustomColor: ^0 (^1)
  296. #
  297. %%CMYKProcessColor: ^0 (^1)
  298. #
  299. %%+ ^0 (^1)
  300. #
  301. %%DocumentFonts: ^0
  302. #
  303. %%DocumentNeededFonts: ^0
  304. #
  305. %%+^0
  306. #
  307. %%EndComments
  308. #
  309. AltsysDict begin
  310. #
  311. end %. AltsysDict
  312. #
  313. %%BeginProcSet: Altsys_header 4 0
  314. /AltsysDict 233 dict def
  315. AltsysDict begin
  316. /bdf{bind def}bind def
  317. /xdf{exch def}bdf
  318. /defed{where{pop true}{false}ifelse}bdf
  319. /ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
  320. /d{setdash}bdf
  321. /h{closepath}bdf
  322. /H{}bdf
  323. /J{setlinecap}bdf
  324. /j{setlinejoin}bdf
  325. /M{setmiterlimit}bdf
  326. /n{newpath}bdf
  327. /N{newpath}bdf
  328. /q{gsave}bdf
  329. /Q{grestore}bdf
  330. /w{setlinewidth}bdf
  331. /sepdef{
  332. dup where not
  333. {
  334. AltsysSepDict
  335. }
  336. if 
  337. 3 1 roll exch put
  338. }bdf
  339. /st{settransfer}bdf
  340. /colorimage defed /_rci xdf
  341. /md defed{ 
  342. md type /dicttype eq { 
  343. /colorimage where { 
  344. md eq { 
  345. /_rci false def 
  346. }if
  347. }if
  348. /settransfer where {
  349. md eq {
  350. /st systemdict /settransfer get def
  351. }if
  352. }if
  353. }if 
  354. }if
  355. /setstrokeadjust defed
  356. {
  357. true setstrokeadjust
  358. /C{curveto}bdf
  359. /L{lineto}bdf
  360. /m{moveto}bdf
  361. }
  362. {
  363. /dr{transform .25 sub round .25 add 
  364. exch .25 sub round .25 add exch itransform}bdf
  365. /C{dr curveto}bdf
  366. /L{dr lineto}bdf
  367. /m{dr moveto}bdf
  368. /setstrokeadjust{pop}bdf 
  369. }ifelse
  370. /rectstroke defed /xt xdf
  371. xt {/yt save def} if
  372. /privrectpath { 
  373. 4 -2 roll m
  374. dtransform round exch round exch idtransform 
  375. 2 copy 0 lt exch 0 lt xor
  376. {dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto}
  377. {exch dup 0 rlineto exch 0 exch rlineto neg 0 rlineto}
  378. ifelse
  379. closepath
  380. }bdf
  381. /rectclip{newpath privrectpath clip newpath}def
  382. /rectfill{gsave newpath privrectpath fill grestore}def
  383. /rectstroke{gsave newpath privrectpath stroke grestore}def
  384. xt {yt restore} if
  385. /packedarray{array astore readonly}ndf
  386. /` 
  387. { false setoverprint 
  388. /-save0- save def
  389. pop pop pop pop pop
  390. concat
  391. userdict begin
  392. /showpage {} def
  393. 0 setgray 0 setlinecap 1 setlinewidth
  394. 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
  395. false setstrokeadjust
  396. } bdf
  397. /currentpacking defed{true setpacking}if
  398. /min{2 copy gt{exch}if pop}bdf
  399. /max{2 copy lt{exch}if pop}bdf
  400. /xformfont { currentfont exch makefont setfont } bdf
  401. /fhnumcolors 1 
  402. statusdict begin
  403. /processcolors defed 
  404. {
  405. pop processcolors
  406. }
  407. {
  408. /deviceinfo defed {
  409. deviceinfo /Colors known {
  410. pop deviceinfo /Colors get
  411. } if
  412. } if
  413. } ifelse
  414. end 
  415. def
  416. /printerRes 
  417. gsave
  418. matrix defaultmatrix setmatrix
  419. 72 72 dtransform
  420. abs exch abs
  421. max
  422. grestore
  423. def
  424. /graycalcs
  425. [
  426. {Angle Frequency} 
  427. {GrayAngle GrayFrequency} 
  428. {0 Width Height matrix defaultmatrix idtransform 
  429. dup mul exch dup mul add sqrt 72 exch div} 
  430. {0 GrayWidth GrayHeight matrix defaultmatrix idtransform 
  431. dup mul exch dup mul add sqrt 72 exch div} 
  432. ] def
  433. /calcgraysteps {
  434. /currenthalftone defed
  435. {currenthalftone /dicttype eq}{false}ifelse
  436. {
  437. currenthalftone begin
  438. HalftoneType 4 le
  439. {graycalcs HalftoneType 1 sub get exec}
  440. {
  441. HalftoneType 5 eq
  442. {
  443. Default begin
  444. {graycalcs HalftoneType 1 sub get exec}
  445. end
  446. }
  447. {0 60} 
  448. ifelse
  449. }
  450. ifelse
  451. end
  452. }
  453. {
  454. currentscreen pop exch 
  455. }
  456. ifelse
  457. printerRes 300 max exch div exch 
  458. 2 copy 
  459. sin mul round dup mul 
  460. 3 1 roll 
  461. cos mul round dup mul 
  462. add 1 add 
  463. dup maxsteps gt {pop maxsteps} if 
  464. } bdf
  465. /nextrelease defed { 
  466. /languagelevel defed not { 
  467. /framebuffer defed { 
  468. 0 40 string framebuffer 9 1 roll 8 {pop} repeat
  469. dup 516 eq exch 520 eq or
  470. {
  471. /fhnumcolors 3 def
  472. /currentscreen {60 0 {pop pop 1}}bdf
  473. /calcgraysteps {maxsteps} bdf
  474. }if
  475. }if
  476. }if
  477. }if
  478. /goodsep {
  479. spots exch get 4 get dup sepname eq exch (_vc_Registration) eq or
  480. }bdf
  481. /bottom -0 def 
  482. /delta -0 def 
  483. /frac -0 def 
  484. /height -0 def 
  485. /left -0 def 
  486. /numsteps -0 def 
  487. /numsteps1 -0 def 
  488. /radius -0 def 
  489. /right -0 def 
  490. /top -0 def 
  491. /width -0 def 
  492. /xt -0 def 
  493. /yt -0 def 
  494. /df currentflat def 
  495. /tempstr 1 string def 
  496. /clipflatness currentflat def 
  497. /inverted? 
  498. 0 currenttransfer exec .5 ge def
  499. /tc1 [0 0 0 1] def 
  500. /tc2 [0 0 0 1] def 
  501. /storerect{/top xdf /right xdf /bottom xdf /left xdf 
  502. /width right left sub def /height top bottom sub def}bdf
  503. /concatprocs{
  504. systemdict /packedarray known 
  505. {dup type /packedarraytype eq 2 index type /packedarraytype eq or}{false}ifelse
  506. { 
  507. /proc2 exch cvlit def /proc1 exch cvlit def
  508. proc1 aload pop proc2 aload pop
  509. proc1 length proc2 length add packedarray cvx
  510. }
  511. { 
  512. /proc2 exch cvlit def /proc1 exch cvlit def
  513. /newproc proc1 length proc2 length add array def
  514. newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
  515. newproc cvx
  516. }ifelse
  517. }bdf
  518. /i{dup 0 eq
  519. {pop df dup} 
  520. {dup} ifelse 
  521. /clipflatness xdf setflat
  522. }bdf
  523. version cvr 38.0 le
  524. {/setrgbcolor{
  525. currenttransfer exec 3 1 roll
  526. currenttransfer exec 3 1 roll
  527. currenttransfer exec 3 1 roll
  528. setrgbcolor}bdf}if
  529. /vms {/vmsv save def} bdf
  530. /vmr {vmsv restore} bdf
  531. /vmrs{vmsv restore /vmsv save def}bdf
  532. /eomode{ 
  533. {/filler /eofill load def /clipper /eoclip load def}
  534. {/filler /fill load def /clipper /clip load def}
  535. ifelse
  536. }bdf
  537. /normtaper{}bdf
  538. /logtaper{9 mul 1 add log}bdf
  539. /lfxform {
  540. /yt xdf /xt xdf
  541. xt yt translate 
  542. rotate 
  543. storerect 
  544. left xt sub bottom yt sub translate
  545. right left sub 0.00001 max top bottom sub 0.00001 max scale 
  546. }bdf
  547. /CD{/NF exch def{exch dup/FID ne 1 index/UniqueID ne and{exch NF 3 1 roll put}
  548. {pop pop}ifelse}forall NF}bdf
  549. /MN{1 index length/Len exch def
  550. dup length Len add string dup 
  551. Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}bdf
  552. /RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
  553. {1 index MN cvn/NewN exch def cvn
  554. findfont dup maxlength dict CD dup/FontName NewN put dup
  555. /Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
  556. /RF{dup FontDirectory exch known{pop 3 -1 roll pop}{RC}ifelse}bdf
  557. /FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
  558. {exch pop findfont 3 -1 roll pop}
  559. {pop dup findfont dup maxlength dict CD dup dup
  560. /Encoding exch /Encoding get 256 array copy 7 -1 roll 
  561. {3 -1 roll dup 4 -2 roll put}forall put definefont}
  562. ifelse}bdf
  563. /fps{
  564. currentflat 
  565. exch 
  566. dup 0 le{pop 1}if 
  567. {
  568. dup setflat 3 index stopped
  569. {1.3 mul dup 3 index gt{pop setflat pop pop stop}if} 
  570. {exit} 
  571. ifelse
  572. }loop 
  573. pop setflat pop pop
  574. }bdf
  575. /fp{100 currentflat fps}bdf
  576. /clipper{clip}bdf 
  577. /W{/clipper load 100 clipflatness fps}bdf
  578. #
  579. %. Error handling code - don't do this if printing to hi res imagesetter
  580. printerRes 1000 lt
  581. { 
  582. errordict
  583. dup /shownerr false put
  584. /handleerror
  585. { 
  586. $error begin 
  587. /prt{dup type /stringtype ne{=string cvs}if show}def
  588. newerror
  589. {
  590. /newerror false store 
  591. grestoreall initgraphics
  592. errordict /shownerr get not
  593. {
  594. errordict /shownerr true put
  595. 30 110 moveto 
  596. /Helvetica findfont 14 scalefont setfont 
  597. (POSTSCRIPT ERROR: ) prt errorname prt (    ) prt
  598. (OFFENDING COMMAND: ) prt /command load prt
  599. } if 
  600. }if 
  601. end
  602. }
  603. put
  604. }if
  605. %.
  606. /overlapmark{
  607. -4 xs div 0 rlineto 
  608. 4 xs div 2 div -7 ys div 2 div rmoveto
  609. 0 7 ys div rlineto 
  610. 4 xs div 0 rlineto 
  611. 0 -7 ys div rlineto 
  612. -4 xs div 0 rlineto
  613. .2 xs div setlinewidth 
  614. 0 setseparationgray stroke
  615. }bdf
  616. /amsub{gsave setlinewidth 4 2 roll rmoveto rlineto stroke grestore}bdf
  617. /am{
  618. newpath 
  619. moveto 
  620. 0 setseparationgray
  621. gsave 
  622. currentpoint 5 xs div 0 360 arc 
  623. .3 xs div setlinewidth 
  624. stroke 
  625. grestore 
  626. gsave
  627. currentpoint 3 xs div 0 360 arc 
  628. fill
  629. grestore
  630. 3 xs div 0 5 xs div 0 .3 ys div amsub 
  631. -3 xs div 0 -5 xs div 0 .3 ys div amsub 
  632. 0 3 ys div 0 5 ys div .3 xs div amsub 
  633. 0 -3 ys div 0 -5 ys div .3 xs div amsub 
  634. 1 setseparationgray
  635. -3 xs div 0 6 xs div 0 .3 ys div amsub 
  636. 0 -3 ys div 0 6 ys div .3 xs div amsub 
  637. }bdf
  638. /fhcbox {
  639. xt yt moveto
  640. 13.5 xs div 0 rlineto
  641. 0 13.5 ys div rlineto
  642. -13.5 xs div 0 rlineto
  643. 0 -13.5 ys div rlineto
  644. gsave fill grestore
  645. 0 setseparationgray stroke 
  646. dup length 0 ne {
  647. 0 setseparationgray
  648. dup stringwidth pop neg 13.5 xs div add 2 div xt add yt 5 ys div add moveto show
  649. }
  650. {pop} ifelse
  651. xs div xt add /xt xdf
  652. }bdf
  653. /fhcb {
  654. 0.25 xs div 0.25 ys div add 2 div setlinewidth
  655. 2 copy 
  656. 6.75 ys div sub /yt xdf
  657. 25.5 xs div sub /xt xdf
  658. 0 1 10 { 
  659. 10 div setseparationgray
  660. -13.5 () fhcbox
  661. }for
  662. 6.75 ys div sub /yt xdf
  663. 12 xs div add /xt xdf
  664. /Helvetica findfont 5 ys div scalefont setfont
  665. 1 0 0 0 setcmykcolor 13.5 (C) fhcbox
  666. 0 1 0 0 setcmykcolor 13.5 (M) fhcbox
  667. 0 0 1 0 setcmykcolor 13.5 (Y) fhcbox
  668. 1 1 0 0 setcmykcolor 13.5 (CM) fhcbox
  669. 0 1 1 0 setcmykcolor 13.5 (MY) fhcbox
  670. 1 0 1 0 setcmykcolor 13.5 (CY) fhcbox
  671. 1 1 1 0 setcmykcolor 13.5 (CMY) fhcbox
  672. 0 0 0 1 setcmykcolor 13.5 (K) fhcbox
  673. }def 
  674. /mybleed{bleed 0 eq{wdist 10 sub xs div}{bleed}ifelse}bdf
  675. /cm{mybleed neg 0 rmoveto -9 xs div 0 rlineto
  676. 9 xs div mybleed add mybleed neg rmoveto 0 -9 ys div rlineto
  677. .3 xs div setlinewidth 0 setseparationgray stroke}bdf
  678. #
  679. userdict begin /BDFontDict 20 dict def end
  680. BDFontDict begin
  681. /bu{}def
  682. /bn{}def
  683. /setTxMode{av 70 ge{pop}if pop}def
  684. /gm{m}def
  685. /show{pop}def
  686. /gr{pop}def
  687. /fnt{pop pop pop}def
  688. /fs{pop}def
  689. /fz{pop}def
  690. /lin{pop pop}def
  691. end
  692. /MacVec 256 array def 
  693. MacVec 0 /Helvetica findfont
  694. /Encoding get 0 128 getinterval putinterval
  695. MacVec 127 /DEL put MacVec 16#27 /quotesingle put MacVec 16#60 /grave put
  696. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
  697. /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  698. MacVec 0 32 getinterval astore pop
  699. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  700. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  701. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  702. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  703. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  704. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  705. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  706. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash 
  707. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  708. /guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
  709. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  710. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  711. /daggerdbl/periodcentered/quotesinglbase/quotedblbase
  712. /perthousand/Acircumflex/Ecircumflex/Aacute
  713. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  714. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  715. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  716. MacVec 128 128 getinterval astore pop
  717. #
  718. end %. AltsysDict
  719. %%EndProcSet
  720. #
  721. %%EndProlog
  722. #
  723. %%BeginSetup
  724. #
  725. %%EndSetup
  726. #
  727. %%BeginSeparation: ^Q
  728. %%PlateColor: ^Q
  729. userdict begin /AltsysSepDict 75 dict def end
  730. AltsysSepDict begin
  731. /sepname (^Q) def
  732. AltsysDict begin
  733. AltsysSepDict begin
  734. /_image/image load def
  735. /colorimage defed {/_colorimage /colorimage load def} if
  736. /_imagemask/imagemask load def
  737. /__setgray /setgray load def
  738. /_setgray {dup /_currentgray sepdef __setgray}bdf 
  739. /_currentgray currentgray sepdef
  740. /currentgray{_currentgray}bdf
  741. #
  742. /setgray{pop 1 _setgray}bdf
  743. /setcmykcolor{
  744. overprintcmyk
  745. pop pop pop 1 exch sub _setgray
  746. }bdf
  747. /colorimage{
  748. pop pop
  749. [
  750. 5 -1 roll 
  751. /exec cvx 
  752. 6 -1 roll
  753. /exec cvx 
  754. 7 -1 roll
  755. /exec cvx 
  756. 8 -1 roll
  757. /exec cvx 
  758. /pop cvx
  759. /pop cvx
  760. /pop cvx
  761. ]
  762. cvx 
  763. {1.0 exch sub} bind currenttransfer concatprocs st
  764. _image
  765. }bdf
  766. /image{
  767. 3 1 getprocessoverprint 
  768. {gsave nulldevice _image grestore}
  769. {inverted?{{pop 0}}{{pop 1}}ifelse st _image}
  770. ifelse
  771. }bdf
  772. /setcolortransfer{pop pop pop st}bdf
  773. /lfp{
  774. gsave
  775. W n 
  776. lfxform 
  777. 12 {pop} repeat 
  778. /lfbuf1 xdf 
  779. pop 
  780. {1.0 exch sub} bind currenttransfer concatprocs st
  781. 1 256 8 [1 0 0 -256 0 256] 
  782. {lfbuf1}
  783. _image
  784. grestore
  785. }bdf
  786. #
  787. /setgray{pop 1 _setgray}bdf
  788. /setcmykcolor{
  789. overprintcmyk
  790. pop pop 1 exch sub _setgray pop
  791. }bdf
  792. /colorimage{
  793. pop pop
  794. [
  795. 5 -1 roll 
  796. /exec cvx 
  797. 6 -1 roll
  798. /exec cvx 
  799. 7 -1 roll
  800. /exec cvx 
  801. 8 -1 roll
  802. /exec cvx 
  803. /pop cvx
  804. /pop cvx
  805. /exch cvx
  806. /pop cvx
  807. ]
  808. cvx 
  809. {1.0 exch sub} bind currenttransfer concatprocs st
  810. _image
  811. }bdf
  812. /image{
  813. 3 1 getprocessoverprint 
  814. {gsave nulldevice _image grestore}
  815. {inverted?{{pop 0}}{{pop 1}}ifelse st _image}
  816. ifelse
  817. }bdf
  818. /setcolortransfer{pop pop exch pop st}bdf
  819. /lfp{
  820. gsave
  821. W n 
  822. lfxform 
  823. 11 {pop} repeat 
  824. /lfbuf1 xdf 
  825. pop pop 
  826. {1.0 exch sub} bind currenttransfer concatprocs st
  827. 1 256 8 [1 0 0 -256 0 256] 
  828. {lfbuf1}
  829. _image
  830. grestore
  831. }bdf
  832. #
  833. /setgray{pop 1 _setgray}bdf
  834. /setcmykcolor{
  835. overprintcmyk
  836. pop 1 exch sub _setgray pop pop
  837. }bdf
  838. /colorimage{
  839. pop pop
  840. [
  841. 5 -1 roll 
  842. /exec cvx 
  843. 6 -1 roll
  844. /exec cvx 
  845. 7 -1 roll
  846. /exec cvx 
  847. 8 -1 roll
  848. /exec cvx 
  849. /pop cvx
  850. /exch cvx
  851. /pop cvx
  852. /exch cvx
  853. /pop cvx
  854. ]
  855. cvx 
  856. {1.0 exch sub} bind currenttransfer concatprocs st
  857. _image
  858. }bdf
  859. /image{
  860. 3 1 getprocessoverprint 
  861. {gsave nulldevice _image grestore}
  862. {inverted?{{pop 0}}{{pop 1}}ifelse st _image}
  863. ifelse
  864. }bdf
  865. /setcolortransfer{pop 3 1 roll pop pop st}bdf
  866. /lfp{
  867. gsave
  868. W n 
  869. lfxform 
  870. 10 {pop} repeat 
  871. /lfbuf1 xdf 
  872. pop pop pop 
  873. {1.0 exch sub} bind currenttransfer concatprocs st
  874. 1 256 8 [1 0 0 -256 0 256] 
  875. {lfbuf1}
  876. _image
  877. grestore
  878. }bdf
  879. #
  880. /setgray{_setgray}bdf
  881. /setcmykcolor{
  882. overprintcmyk
  883. 1 exch sub _setgray pop pop pop
  884. }bdf
  885. /colorimage{
  886. pop pop
  887. [
  888. 5 -1 roll 
  889. /exec cvx 
  890. 6 -1 roll
  891. /exec cvx 
  892. 7 -1 roll
  893. /exec cvx 
  894. 8 -1 roll
  895. /exec cvx 
  896. /exch cvx
  897. /pop cvx
  898. /exch cvx
  899. /pop cvx
  900. /exch cvx
  901. /pop cvx
  902. ]
  903. cvx 
  904. {1.0 exch sub} bind currenttransfer concatprocs st
  905. _image
  906. }bdf
  907. /image{_image}bdf
  908. /setcolortransfer{4 1 roll pop pop pop st}bdf
  909. /lfp{
  910. gsave
  911. W n 
  912. lfxform 
  913. 9 {pop} repeat 
  914. /lfbuf1 xdf 
  915. 4 {pop} repeat 
  916. {1.0 exch sub} bind currenttransfer concatprocs st
  917. 1 256 8 [1 0 0 -256 0 256] 
  918. {lfbuf1}
  919. _image
  920. grestore
  921. }bdf
  922. #
  923. %. unused
  924. #
  925. /setgray{pop 1 _setgray}bdf
  926. /setcmykcolor{
  927. overprintcmyk
  928. pop pop pop pop 1 _setgray
  929. }bdf
  930. /colorimage{
  931. pop pop
  932. [
  933. 5 -1 roll 
  934. /exec cvx 
  935. 6 -1 roll
  936. /exec cvx 
  937. 7 -1 roll
  938. /exec cvx 
  939. 8 -1 roll
  940. /exec cvx 
  941. /pop cvx
  942. /pop cvx
  943. /pop cvx
  944. ]
  945. cvx 
  946. inverted?{{pop 0}}{{pop 1}}ifelse st _image
  947. }bdf
  948. /image{
  949. 3 1 getprocessoverprint 
  950. {gsave nulldevice _image grestore}
  951. {inverted?{{pop 0}}{{pop 1}}ifelse st _image}
  952. ifelse
  953. }bdf
  954. /setcolortransfer{4 1 roll pop pop pop st}bdf
  955. /lfp{
  956. gsave 1 setseparationgray {filler} fp grestore
  957. 21 {pop} repeat
  958. }bdf
  959. /rfp{
  960. gsave 1 setseparationgray {filler} fp grestore
  961. 11 {pop} repeat
  962. }bdf
  963. #
  964. /ucrk .5 def 
  965. /ucrm .31 def 
  966. /ucry .48 def 
  967. /boostk 1.25 def 
  968. /cvt1{1 exch sub 3 1 roll}bdf
  969. /cvt2{0 max 3 1 roll}bdf
  970. /setrgbcolor{
  971. cvt1 cvt1 cvt1 
  972. 3 copy min min 
  973. ucrk sub 0 max 
  974. 4 1 roll 
  975. 3 {3 index sub 3 1 roll} repeat 
  976. 1 index ucry mul sub cvt2 
  977. 1 index ucrm mul sub cvt2 
  978. 3 1 roll 
  979. 4 -1 roll boostk mul 
  980. setcmykcolor
  981. }bdf
  982. /_sethsbcolor/sethsbcolor load def
  983. /sethsbcolor{_sethsbcolor currentrgbcolor setrgbcolor}bdf
  984. /setcmybcolor{setcmykcolor}bdf
  985. /setspotcolor{ 
  986. spots exch get 
  987. dup 5 get setinkoverprint 
  988. 4 get dup sepname eq exch (_vc_Registration) eq or 
  989. {1 exch sub _setgray} 
  990. {pop 1 _setgray} 
  991. ifelse
  992. }bdf
  993. /setcmykcoloroverprint{pop pop pop pop}bdf
  994. /findcmykcustomcolor{5 packedarray}bdf
  995. /setcustomcolor{
  996. exch 4 get sepname eq
  997. {1 exch sub _setgray} 
  998. {pop 1 _setgray} 
  999. ifelse
  1000. }bdf
  1001. /setseparationgray{_setgray}bdf
  1002. /inkoverprint false def
  1003. /currentoverprint false def
  1004. /setoverprint{inkoverprint{pop}{/currentoverprint sepdef}ifelse}bdf
  1005. /setinkoverprint{dup /inkoverprint sepdef /currentoverprint sepdef}bdf
  1006. /onlyk{4 copy 0 ne exch 0 eq and exch 0 eq and exch 0 eq and}bdf
  1007. /onlyc{5 copy pop 0 eq exch 0 eq and exch 0 eq and exch 0 ne and}bdf
  1008. /onlym{6 copy pop pop 0 eq exch 0 eq and exch 0 ne and exch 0 eq and}bdf
  1009. /onlyy{7 copy pop pop pop 0 eq exch 0 ne and exch 0 eq and exch 0 eq and}bdf
  1010. /getprocessoverprint
  1011. {0 ne{spots exch get 5 get}{pop false}ifelse}bdf
  1012. /getcustomoverprint{
  1013. 4 get 
  1014. false 
  1015. spots
  1016. { 
  1017. dup 4 get 3 index eq 
  1018. {5 get exch pop} 
  1019. {pop} 
  1020. ifelse
  1021. } forall
  1022. exch pop
  1023. }bdf
  1024. /overprintcmyk{
  1025. onlyk onlyc onlym onlyy or or or
  1026. {4 copy 3 -1 0{exch getprocessoverprint 4 1 roll}for or or or}
  1027. {false}
  1028. ifelse
  1029. setinkoverprint
  1030. }bdf
  1031. /separationimage{_image}bdf
  1032. /paintok{currentoverprint not currentgray 1 ne or}bdf
  1033. /_stroke /stroke load def
  1034. /_fill /fill load def
  1035. /_eofill /eofill load def
  1036. /_rectstroke /rectstroke load def
  1037. /_rectfill /rectfill load def
  1038. /_show /show load def
  1039. /_ashow /ashow load def
  1040. /_widthshow /widthshow load def
  1041. /_awidthshow /awidthshow load def
  1042. /_kshow /kshow load def
  1043. /nullexec{matrix currentmatrix gsave nulldevice setmatrix exec currentpoint grestore moveto}bdf
  1044. /execok{paintok{exec}{nullexec}ifelse}bdf
  1045. /stroke{paintok{_stroke}{newpath}ifelse}bdf
  1046. /fill{paintok{_fill}{newpath}ifelse}bdf
  1047. /eofill{paintok{_eofill}{newpath}ifelse}bdf
  1048. /rectstroke{paintok{_rectstroke}{pop pop pop pop}ifelse}bdf
  1049. /rectfill{paintok{_rectfill}{pop pop pop pop}ifelse}bdf
  1050. /show{{_show} execok}bdf
  1051. /ashow{{_ashow} execok}bdf
  1052. /widthshow{{_widthshow} execok}bdf
  1053. /awidthshow{{_awidthshow} execok}bdf
  1054. /kshow{{_kshow} execok}bdf
  1055. /imagemask{paintok
  1056. {currentgray 1 ne
  1057. {_imagemask} 
  1058. {inverted?{{pop 0}}{{pop 1}}ifelse st _imagemask}
  1059. ifelse}
  1060. {gsave nulldevice _imagemask grestore}
  1061. ifelse}bdf
  1062. /customcolorimage{
  1063. dup 4 get dup sepname eq exch (_vc_Registration) eq or
  1064. {pop _image}
  1065. {
  1066. getcustomoverprint
  1067. {gsave nulldevice _image grestore}
  1068. {inverted?{{pop 0}}{{pop 1}}ifelse st _image}
  1069. ifelse
  1070. }
  1071. ifelse
  1072. }bdf
  1073. /lfs{
  1074. 10 index goodsep
  1075. {
  1076. gsave
  1077. W n 
  1078. lfxform 
  1079. pop pop pop 
  1080. /xt xdf 
  1081. /lfbuf1 xdf 
  1082. 1 256 8 [1 0 0 -256 0 256] 
  1083. {lfbuf1} 
  1084. _image
  1085. grestore
  1086. }
  1087. {
  1088. 10 index 1 getprocessoverprint 
  1089. not {gsave 1 setseparationgray {filler} fp grestore} if
  1090. 12 {pop} repeat
  1091. }
  1092. ifelse
  1093. }bdf
  1094. /rfs{
  1095. 2 index goodsep
  1096. {_rfs}
  1097. {
  1098. 2 index 1 getprocessoverprint 
  1099. not {gsave 1 setseparationgray {filler} fp grestore} if
  1100. 6 {pop} repeat
  1101. }
  1102. ifelse
  1103. }bdf
  1104. /fas{
  1105. currentoverprint not 
  1106. {
  1107. gsave 
  1108. fhspreadsize setlinewidth [] 0 setdash
  1109. currentoverprint 
  1110. true setoverprint stroke setoverprint 
  1111. grestore
  1112. }
  1113. if
  1114. }bdf
  1115. /sas{
  1116. currentoverprint not 
  1117. {
  1118. gsave 
  1119. currentlinewidth fhspreadsize add setlinewidth
  1120. currentoverprint 
  1121. true setoverprint stroke setoverprint 
  1122. grestore
  1123. }
  1124. if
  1125. }bdf
  1126. /fhsetspreadsize{/fhspreadsize sepdef}ndf
  1127. end %.AltsysSepDict
  1128. #
  1129. AltsysDict begin 
  1130. #
  1131. /onlyk{false}ndf
  1132. /ccmyk{dup 5 -1 roll sub 0 max exch}ndf
  1133. /cmyk2gray{
  1134. 4 -1 roll 0.3 mul 4 -1 roll 0.59 mul 4 -1 roll 0.11 mul
  1135. add add add 1 min neg 1 add
  1136. }bdf
  1137. /setcmykcolor{1 exch sub ccmyk ccmyk ccmyk pop setrgbcolor}ndf
  1138. /setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor}ndf
  1139. /findcmykcustomcolor{5 packedarray}ndf
  1140. /setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndf
  1141. /setseparationgray{setgray}ndf
  1142. /setoverprint{pop}ndf 
  1143. /currentoverprint false ndf
  1144. /cmykbufs2gray{
  1145. 0 1 2 index length 1 sub
  1146. { 
  1147. 4 index 1 index get 0.3 mul 
  1148. 4 index 2 index get 0.59 mul 
  1149. 4 index 3 index get 0.11 mul 
  1150. 4 index 4 index get 
  1151. add add add cvi 255 min
  1152. 255 exch sub
  1153. 2 index 3 1 roll put
  1154. }for
  1155. 4 1 roll pop pop pop
  1156. }bdf
  1157. /colorimage{
  1158. pop pop
  1159. [
  1160. 5 -1 roll/exec cvx 
  1161. 6 -1 roll/exec cvx 
  1162. 7 -1 roll/exec cvx 
  1163. 8 -1 roll/exec cvx
  1164. /cmykbufs2gray cvx
  1165. ]cvx 
  1166. image
  1167. }
  1168. %. version 47.1 on Linotronic of Postscript defines colorimage incorrectly (rgb model only)
  1169. version cvr 47.1 le 
  1170. statusdict /product get (Lino) anchorsearch{pop pop true}{pop false}ifelse
  1171. and{userdict begin bdf end}{ndf}ifelse
  1172. fhnumcolors 1 ne {/yt save def} if
  1173. /customcolorimage{
  1174. aload pop
  1175. (_vc_Registration) eq 
  1176. {
  1177. pop pop pop pop separationimage
  1178. }
  1179. {
  1180. /ik xdf /iy xdf /im xdf /ic xdf
  1181. ic im iy ik cmyk2gray /xt xdf
  1182. currenttransfer
  1183. {dup 1.0 exch sub xt mul add}concatprocs
  1184. st 
  1185. image
  1186. }
  1187. ifelse
  1188. }ndf
  1189. fhnumcolors 1 ne {yt restore} if
  1190. fhnumcolors 3 ne {/yt save def} if
  1191. /customcolorimage{
  1192. aload pop 
  1193. (_vc_Registration) eq 
  1194. {
  1195. pop pop pop pop separationimage
  1196. }
  1197. {
  1198. /ik xdf /iy xdf /im xdf /ic xdf
  1199. 1.0 dup ic ik add min sub 
  1200. 1.0 dup im ik add min sub 
  1201. 1.0 dup iy ik add min sub 
  1202. /ic xdf /iy xdf /im xdf
  1203. currentcolortransfer
  1204. 4 1 roll 
  1205. {dup 1.0 exch sub ic mul add}concatprocs 4 1 roll 
  1206. {dup 1.0 exch sub iy mul add}concatprocs 4 1 roll 
  1207. {dup 1.0 exch sub im mul add}concatprocs 4 1 roll 
  1208. setcolortransfer
  1209. {/dummy xdf dummy}concatprocs{dummy}{dummy}true 3 colorimage
  1210. }
  1211. ifelse
  1212. }ndf
  1213. fhnumcolors 3 ne {yt restore} if
  1214. fhnumcolors 4 ne {/yt save def} if
  1215. /customcolorimage{
  1216. aload pop
  1217. (_vc_Registration) eq 
  1218. {
  1219. pop pop pop pop separationimage
  1220. }
  1221. {
  1222. /ik xdf /iy xdf /im xdf /ic xdf
  1223. currentcolortransfer
  1224. {1.0 exch sub ik mul ik sub 1 add}concatprocs 4 1 roll
  1225. {1.0 exch sub iy mul iy sub 1 add}concatprocs 4 1 roll
  1226. {1.0 exch sub im mul im sub 1 add}concatprocs 4 1 roll
  1227. {1.0 exch sub ic mul ic sub 1 add}concatprocs 4 1 roll
  1228. setcolortransfer
  1229. {/dummy xdf dummy}concatprocs{dummy}{dummy}{dummy}
  1230. true 4 colorimage
  1231. }
  1232. ifelse
  1233. }ndf
  1234. fhnumcolors 4 ne {yt restore} if
  1235. /separationimage{image}ndf
  1236. /newcmykcustomcolor{6 packedarray}ndf
  1237. /inkoverprint false ndf
  1238. /setinkoverprint{pop}ndf 
  1239. /setspotcolor { 
  1240. spots exch get
  1241. dup 4 get (_vc_Registration) eq
  1242. {pop 1 exch sub setseparationgray}
  1243. {0 5 getinterval exch setcustomcolor}
  1244. ifelse
  1245. }ndf
  1246. /currentcolortransfer{currenttransfer dup dup dup}ndf
  1247. /setcolortransfer{st pop pop pop}ndf
  1248. /fas{}ndf
  1249. /sas{}ndf
  1250. /fhsetspreadsize{pop}ndf
  1251. /filler{fill}bdf 
  1252. /F{gsave {filler}fp grestore}bdf
  1253. /f{closepath F}bdf
  1254. /S{gsave {stroke}fp grestore}bdf
  1255. /s{closepath S}bdf
  1256. /lfs{
  1257. gsave
  1258. W n 
  1259. lfxform 
  1260. pop pop pop 
  1261. /xt xdf 
  1262. /lfbuf1 xdf 
  1263. 1 256 8 [1 0 0 -256 0 256] 
  1264. {lfbuf1} 
  1265. [spots xt get aload pop pop] 
  1266. customcolorimage
  1267. grestore
  1268. }ndf
  1269. /lfp{
  1270. gsave
  1271. W n 
  1272. lfxform 
  1273. 9 {pop} repeat 
  1274. _rci 
  1275. {
  1276. /lfbuf4 xdf
  1277. /lfbuf3 xdf
  1278. /lfbuf2 xdf
  1279. /lfbuf1 xdf
  1280. pop
  1281. 1 256 8 [1 0 0 -256 0 256] 
  1282. {lfbuf1}{lfbuf2}{lfbuf3}{lfbuf4}
  1283. true 4 colorimage
  1284. }
  1285. { 
  1286. 4 {pop} repeat
  1287. /lfbuf1 xdf
  1288. 1 256 8 [1 0 0 -256 0 256] 
  1289. {lfbuf1}
  1290. image
  1291. }
  1292. ifelse
  1293. grestore
  1294. }ndf
  1295. /bcs [0 0] def 
  1296. /_rfs {
  1297. /tint2 xdf 
  1298. /tint1 xdf 
  1299. bcs exch 1 exch put 
  1300. /radius xdf 
  1301. /yt xdf 
  1302. /xt xdf 
  1303. tint1 tint2 sub abs 
  1304. calcgraysteps mul abs round 
  1305. dup 2 lt {pop 2} if 
  1306. 1 sub /numsteps1 xdf
  1307. currentflat mark 
  1308. currentflat clipflatness 
  1309. {
  1310. {
  1311. dup setflat 
  1312. W 
  1313. 0 1 numsteps1 
  1314. {
  1315. numsteps1 div /frac xdf
  1316. bcs 0
  1317. tint2 tint1 sub frac mul tint1 add
  1318. put bcs vc
  1319. 1 index setflat 
  1320. { 
  1321. newpath mark xt yt radius 1 frac sub mul 0 360
  1322. {arc fill}stopped
  1323. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  1324. {cleartomark exit}ifelse
  1325. }loop
  1326. }for
  1327. }
  1328. gsave stopped grestore
  1329. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  1330. {exit}ifelse
  1331. }loop
  1332. cleartomark setflat
  1333. }bdf
  1334. /bc4 [0 0 0 0] def 
  1335. /_rfp {
  1336. /k2 xdf /y2 xdf /m2 xdf /c2 xdf
  1337. /k1 xdf /y1 xdf /m1 xdf /c1 xdf
  1338. /radius xdf 
  1339. /yt xdf 
  1340. /xt xdf 
  1341. c1 c2 sub abs
  1342. m1 m2 sub abs
  1343. y1 y2 sub abs
  1344. k1 k2 sub abs
  1345. max max max 
  1346. calcgraysteps mul abs round 
  1347. dup 2 lt {pop 2} if 
  1348. 1 sub /numsteps1 xdf
  1349. currentflat mark 
  1350. currentflat clipflatness 
  1351. {
  1352. {
  1353. dup setflat 
  1354. W 
  1355. 0 1 numsteps1 
  1356. {
  1357. numsteps1 div /frac xdf
  1358. bc4 0 c2 c1 sub frac mul c1 add put
  1359. bc4 1 m2 m1 sub frac mul m1 add put
  1360. bc4 2 y2 y1 sub frac mul y1 add put
  1361. bc4 3 k2 k1 sub frac mul k1 add put
  1362. bc4 vc
  1363. 1 index setflat 
  1364. { 
  1365. newpath mark xt yt radius 1 frac sub mul 0 360
  1366. {arc fill}stopped
  1367. {cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
  1368. {cleartomark exit}ifelse
  1369. }loop
  1370. }for
  1371. }
  1372. gsave stopped grestore
  1373. {exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
  1374. {exit}ifelse
  1375. }loop
  1376. cleartomark setflat
  1377. }bdf
  1378. /rfs{_rfs}ndf
  1379. /rfp{_rfp}ndf
  1380. /cvc [0 0 0 1] def 
  1381. /vc{
  1382. AltsysDict /cvc 2 index put 
  1383. aload length 4 eq
  1384. {setcmykcolor}
  1385. {setspotcolor}
  1386. ifelse
  1387. }bdf 
  1388. /origmtx matrix currentmatrix def
  1389. /ImMatrix matrix currentmatrix def
  1390. #
  1391. %%EndSeparation: ^Q
  1392. #
  1393. %%Trailer
  1394. #
  1395. AltsysDict begin /SeparationSave save def end
  1396. #
  1397. SeparationSave restore
  1398. #
  1399. end
  1400. #
  1401. /currentpacking defed{false setpacking}if 
  1402. /spots[
  1403. #
  1404. ^0 (^2) true newcmykcustomcolor
  1405. #
  1406. ^0 (^2) false newcmykcustomcolor
  1407. #
  1408. ]def
  1409. #
  1410. ^Z storerect left bottom width height rectclip
  1411. #
  1412. %%Page: ^Z ^Z
  1413. #
  1414. %%BeginPageSetup
  1415. %%PaperSize: ^Y
  1416. #
  1417. 0 setseparationgray
  1418. /imgr {^0} def 
  1419. /bleed ^1 def 
  1420. /clpr {^2} def 
  1421. /xs ^3 def 
  1422. /ys ^3 def 
  1423. /botx ^4 def 
  1424. /overlap ^5 def 
  1425. /wdist ^6 def 
  1426. ^7 2 mul fhsetspreadsize 
  1427. ^8 0 ne {/df ^8 def /clipflatness ^8 def} if 
  1428. /maxsteps ^U def 
  1429. #
  1430. statusdict /setpageparams known
  1431. {
  1432. statusdict begin ^0 ^1 ^2{exch}if 0 ^2{0}{1}ifelse setpageparams end
  1433. }
  1434. {
  1435. ^2 {-90 rotate ^4 neg 0 translate} if
  1436. }ifelse
  1437. #
  1438. ^C ^A sub 0 translate
  1439. -1 1 scale
  1440. #
  1441. ^E ^F translate
  1442. #
  1443. ^3 ^3 scale
  1444. #
  1445. ^I ^J translate %. translate for this tile
  1446. ^K xs div ^L ys div translate %. center on paper
  1447. #
  1448. ^M xs div ^N ys div translate %. extra translation for margin marks
  1449. #
  1450. %%EndPageSetup
  1451. #
  1452. save
  1453. clpr storerect
  1454. left top wdist 1 add ys div add moveto
  1455. /Helvetica findfont 8 ys div scalefont setfont
  1456. 0 setseparationgray (^a   ^b) show
  1457. restore
  1458. #
  1459. save
  1460. clpr storerect
  1461. left top wdist 1 add ys div add moveto
  1462. /Helvetica findfont 8 ys div scalefont setfont
  1463. 0 setseparationgray (^a   ^b   Row ^c of ^d     Column ^e of ^f) show
  1464. restore
  1465. #
  1466. save
  1467. clpr storerect
  1468. left botx xs div add bottom wdist 1.5 mul 1 sub ys div sub moveto
  1469. /Helvetica findfont 8 ys div scalefont setfont
  1470. 0 setseparationgray (^Q) show
  1471. restore
  1472. #
  1473. %. cut marks
  1474. save
  1475. imgr storerect
  1476. clpr /cliptop xdf /clipright xdf /clipbottom xdf /clipleft xdf
  1477. left bleed sub clipleft sub abs xs mul 1 le 
  1478. bottom bleed sub clipbottom sub abs ys mul 1 le and
  1479. {gsave left bottom moveto cm grestore} if
  1480. left bleed sub clipleft sub abs xs mul 1 le 
  1481. top bleed add cliptop sub abs ys mul 1 le and
  1482. {gsave left top moveto 1 -1 scale cm grestore} if
  1483. right bleed add clipright sub abs xs mul 1 le 
  1484. top bleed add cliptop sub abs ys mul 1 le and
  1485. {gsave right top moveto -1 -1 scale cm grestore} if
  1486. right bleed add clipright sub abs xs mul 1 le 
  1487. bottom bleed sub clipbottom sub abs ys mul 1 le and
  1488. {gsave right bottom moveto -1 1 scale cm grestore} if
  1489. restore
  1490. #
  1491. %. alignment marks
  1492. save
  1493. imgr storerect
  1494. clpr /cliptop xdf /clipright xdf /clipbottom xdf /clipleft xdf
  1495. top bleed add cliptop sub abs ys mul 1 le 
  1496. {left right add 2 div top bleed add 9 ys div add am} if
  1497. bottom bleed sub clipbottom sub abs ys mul 1 le 
  1498. {left right add 2 div bottom bleed sub 9 ys div sub am} if
  1499. left bleed sub clipleft sub abs xs mul 1 le 
  1500. {left bleed sub 9 xs div sub top bottom add 2 div am} if
  1501. right bleed add clipright sub abs xs mul 1 le 
  1502. {right bleed add 9 xs div add top bottom add 2 div am} if
  1503. right bleed add clipright sub abs xs mul 1 le 
  1504. {right bleed add 9 xs div add 20 ys div bottom add am} if
  1505. %. color bars
  1506. top bleed add cliptop sub abs ys mul 1 le 
  1507. {left right add 2 div top bleed add 9 ys div add fhcb} if
  1508. restore
  1509. #
  1510. %. overlap top alignment markers
  1511. save
  1512. clpr storerect
  1513. gsave 
  1514. left wdist 2 div xs div sub top overlap 2 div ys div sub moveto 180 rotate overlapmark 
  1515. grestore
  1516. gsave 
  1517. right wdist 2 div xs div add top overlap 2 div ys div sub moveto 180 rotate overlapmark 
  1518. grestore
  1519. restore
  1520. #
  1521. %. overlap bottom alignment markers
  1522. save
  1523. clpr storerect
  1524. gsave 
  1525. left wdist 2 div xs div sub bottom overlap 2 div ys div add moveto overlapmark 
  1526. grestore
  1527. gsave 
  1528. right wdist 2 div xs div add bottom overlap 2 div ys div add moveto overlapmark 
  1529. grestore
  1530. restore
  1531. #
  1532. %. overlap right alignment markers
  1533. save
  1534. clpr storerect
  1535. gsave 
  1536. right overlap 2 div xs div sub top wdist 2 div ys div add moveto 270 rotate overlapmark 
  1537. grestore
  1538. gsave 
  1539. right overlap 2 div xs div sub bottom wdist 2 div ys div sub moveto 270 rotate overlapmark 
  1540. grestore
  1541. restore
  1542. #
  1543. %. overlap left alignment markers
  1544. save
  1545. clpr storerect
  1546. gsave 
  1547. left overlap 2 div xs div add bottom wdist 2 div ys div sub moveto 90 rotate overlapmark 
  1548. grestore
  1549. gsave 
  1550. left overlap 2 div xs div add top wdist 2 div ys div add moveto 90 rotate overlapmark 
  1551. grestore
  1552. restore
  1553. #
  1554. clpr storerect left bottom width height rectclip
  1555. #
  1556. %%PageTrailer
  1557. #
  1558. currenttransfer concatprocs st
  1559. #
  1560. %. erase page after inverting so that background is
  1561. %. inverted by default.
  1562. 1 setgray -32000 -32000 64000 64000 rectfill
  1563. /inverted? true store
  1564. #
  1565. {}
  1566. #
  1567. {dup .5 le{.25 le{0}{.33}ifelse}
  1568. {.75 le{.67}{1}ifelse}ifelse}bind
  1569. #
  1570. {1 exch sub} bind
  1571. #
  1572. {dup .5 le{.25 le{1}{.67}ifelse}
  1573. {.75 le{.33}{0}ifelse}ifelse}bind
  1574. #
  1575. currentscreen exch pop exch pop
  1576. #
  1577. {dup mul exch dup mul add 1 exch sub}
  1578. #
  1579. {exch pop abs 1 exch sub}
  1580. #
  1581. {dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub}
  1582. #
  1583. currentscreen pop pop 
  1584. #
  1585. currentscreen pop exch pop 
  1586. #
  1587. /supdict 65 dict def 
  1588. supdict begin 
  1589. /str1 512 string def 
  1590. /dx 500 def 
  1591. /dy 700 def 
  1592. /cnt 0 def 
  1593. /newinside { 
  1594. {flattenpath}fp clipper 
  1595. pathbbox
  1596. 1 index 4 index sub round cvi /dx xdf
  1597. 0 index 3 index sub round cvi /dy xdf
  1598. pop pop translate 
  1599. 222 srand 
  1600. newpath 
  1601. } bind def
  1602. /randint { 
  1603. rand exch mod } def
  1604. /rand8 { rand -16 bitshift 255 and} def
  1605. /rand2 
  1606. { rand -16 bitshift 3 and } def
  1607. /brandxy {
  1608. dx randint dy randint } def
  1609. /x1 
  1610. { angle cos abs dx mul } def
  1611. /x2 
  1612. { 90 angle sub cos abs dy mul } def 
  1613. /y1 
  1614. { angle sin abs dx mul } def
  1615. /y2 
  1616. { 90 angle sub sin abs dy mul } def
  1617. /backgnd 
  1618. { xstart ystart m
  1619. xstart ystart abs L
  1620. xstart abs ystart abs L
  1621. xstart abs ystart L
  1622. closepath fill } def 
  1623. /incrcnt 
  1624. { /cnt cnt 1 add def } def
  1625. /colorchoice
  1626. {
  1627. /found false def 
  1628. gray? 
  1629. {/CCblack [0 0 0 0] def
  1630. color 1 exch sub
  1631. CCblack 3 3 -1 roll put
  1632. CCblack vc} 
  1633. {color length 2 eq
  1634. {color 1 get type (text) type eq 
  1635. {0 1 spots length 1 sub
  1636. {/cnt xdf 
  1637. spots cnt get 4 get color 1 get eq 
  1638. {/found true def exit} if 
  1639. } for
  1640. found {color 1 cnt put} {color 1 3 put} ifelse
  1641. } if 
  1642. color vc 
  1643. } if 
  1644. color length 4 eq {color vc} if 
  1645. } ifelse 
  1646. } def
  1647. /gray? 
  1648. { color type 0 type eq color type .0 type eq or } def 
  1649. end 
  1650. #
  1651. /ropedict 85 dict def 
  1652. ropedict begin 
  1653. /blocksetup
  1654. { q translate rotate scale n } def 
  1655. /blockend
  1656. { closepath fill } def
  1657. /blockfinish
  1658. { closepath fill Q } def
  1659. /movetoproc { 
  1660. dup /sby xdf 
  1661. /spy xdf 
  1662. dup /sbx xdf 
  1663. /spx xdf 
  1664. sbx sby m
  1665. } def
  1666. /1stlinetoproc 
  1667. { /esy xdf /esx xdf 
  1668. blockdata 
  1669. /totdist totdist dist add def
  1670. /sbx esx def /sby esy def
  1671. deltax 0 ne deltay 0 ne and
  1672. { /prevtotdeltax deltax def /prevtotdeltay deltay def } if
  1673. } def
  1674. /2ndlinetoproc 
  1675. { /esy xdf /esx xdf 
  1676. bdflag false eq 
  1677. {blockdata esx spx eq esy spy eq and{lastsegdist}if}if 
  1678. offset ldelta add dist le 
  1679. { 
  1680. deltax 0 eq deltay 0 eq and
  1681. {/ang 0 def}{/ang deltay deltax atan def}ifelse
  1682. offset 0 lt 
  1683. {/prevang prevdeltax 0 eq prevdeltay 0 eq and
  1684. {0}{prevdeltay neg prevdeltax neg atan}ifelse def
  1685. ang prevang sub abs dup 120 le exch 240 ge or
  1686. {/offset 0 def bdflag true eq
  1687. { 
  1688. lastsegdist
  1689. }if 
  1690. }if
  1691. }if
  1692. offset ldelta dist
  1693. {/curdelta xdf 
  1694. /ldeltax ang cos curdelta ldelta 2 div add mul def
  1695. /ldeltay ang sin curdelta ldelta 2 div add mul def
  1696. bll2 blw ang sbx ldeltax add sby ldeltay add drawblock
  1697. /offset curdelta ldelta add dist sub def
  1698. ldelta offset abs .001 add gt {exit} if
  1699. }for
  1700. /prevdeltax deltax def /prevdeltay deltay def
  1701. /deltax 0 def /deltay 0 def
  1702. /sbx esx def /sby esy def 
  1703. }if
  1704. }def
  1705. /1stcloseproc 
  1706. { spx spy 1stlinetoproc
  1707. }def
  1708. /2ndcloseproc 
  1709. {sbx spx ne sby spy ne or{
  1710. /esx spx def /esy spy def blockdata /bdflag true def lastsegdist
  1711. spx spy 2ndlinetoproc}if
  1712. }def
  1713. /blockdata 
  1714. { /deltay esy sby sub def 
  1715. /deltax esx sbx sub def
  1716. /dist deltay dup mul deltax dup mul add sqrt def
  1717. }def
  1718. /lastsegdist 
  1719. {/dist dist offset sub ldelta div round ldelta mul offset add def
  1720. }def
  1721. end 
  1722. /newrope 
  1723. {
  1724. supdict begin 
  1725. ropedict begin 
  1726. /color xdf 
  1727. colorchoice
  1728. /spacing xdf
  1729. /blw xdf 
  1730. /bll xdf 
  1731. /drawblock xdf
  1732. q {flattenpath}fp
  1733. /totdist 0 def /totdeltax 0 def /totdeltay 0 def
  1734. {movetoproc} {1stlinetoproc} {} {1stcloseproc} pathforall
  1735. /nm totdist bll spacing add div def 
  1736. /nm2 nm floor def 
  1737. nm2 0 ne
  1738. {
  1739. /fr nm nm2 sub def 
  1740. /nm2 fr 0.5 ge {nm2 1 add} {nm2} ifelse def 
  1741. /bll2 fr 0.5 ge {fr 1.0 sub} {fr} ifelse 
  1742. bll spacing add mul nm2 div bll add spacing add def 
  1743. /ldelta bll2 def 
  1744. /bll2 bll2 bll bll spacing add div mul def
  1745. /offset 0 def /totdeltax 0 def /totdeltay 0 def /cnt 0 def
  1746. /prevtotdeltax 0 def /prevtotdeltay 0 def /bdflag false def
  1747. {movetoproc} {2ndlinetoproc} {} {2ndcloseproc} pathforall
  1748. } if
  1749. Q n end end 
  1750. } def
  1751. #
  1752. /texturedict 50 dict def
  1753. texturedict begin
  1754. /scalefactor .24 def
  1755. /angarray [0 90 180 270] def
  1756. /imagesize 72 def
  1757. /scaledsize
  1758. {
  1759. imagesize scalefactor mul 
  1760. } def
  1761. /angget
  1762. {
  1763. angarray aryindex get 
  1764. } def
  1765. /xtransget
  1766. {
  1767. xtrans aryindex get 
  1768. } def
  1769. /ytransget
  1770. {
  1771. ytrans aryindex get 
  1772. } def
  1773. /imageloop 
  1774. {
  1775. 0 scaledsize dy 
  1776. {
  1777. /ycur exch def 
  1778. 0 scaledsize dx 
  1779. {
  1780. /xcur exch def
  1781. gsave
  1782. xcur ycur translate 
  1783. /aryindex rand2 def 
  1784. angget rotate
  1785. xtransget ytransget translate 
  1786. imagesize imagesize scale 
  1787. 0 0 moveto
  1788. (a) show
  1789. grestore
  1790. } for
  1791. } for 
  1792. } def
  1793. end
  1794. /invbuf{
  1795. 0 1 
  1796. 2 index length 1 sub
  1797. {
  1798. dup 
  1799. 2 index exch 
  1800. get 
  1801. 255 xor 
  1802. 2 index 
  1803. 3 1 roll put 
  1804. }
  1805. for
  1806. }bdf
  1807. /settexturepattern
  1808. {
  1809. texturedict fhtexturepattern get
  1810. invflag
  1811. {
  1812. dup length /str2 exch string def str2 copy invbuf
  1813. } if
  1814. /fhtexturepattern xdf
  1815. } bdf
  1816. /texture { 
  1817. gsave
  1818. [0 0 0 0] vc
  1819. filler 
  1820. grestore
  1821. supdict begin 
  1822. /txsave save def
  1823. newinside
  1824. vc 
  1825. texturedict begin
  1826. /fhtexturepattern xdf 
  1827. /invflag false def
  1828. fhtexturepattern (burlap) eq 
  1829. {/imagesize 144 def}{/imagesize 72 def} ifelse
  1830. fhtexturepattern (light-mezzo) eq {/invflag true def} if
  1831. fhtexturepattern (light-mezzo) eq fhtexturepattern (heavy-mezzo) eq or 
  1832. {/fhtexturepattern (mezzo) def} if
  1833. 9 dict begin
  1834. /FontType 3 def
  1835. /FontMatrix [1 imagesize div 0 0 1 imagesize div 0 0] def
  1836. /FontBBox [0 0 imagesize imagesize] def
  1837. /PaintType 3 def
  1838. /Encoding 256 array def
  1839. 0 1 255 {Encoding exch /.notdef put} bind for
  1840. Encoding 97 /thetile put
  1841. /CharProcs 2 dict def
  1842. CharProcs begin
  1843. /.notdef {} def
  1844. /thetile {
  1845. imagesize imagesize true 
  1846. [imagesize 0 0 imagesize 0 0] 
  1847. {fhtexturepattern} systemdict begin imagemask end
  1848. } def
  1849. end
  1850. /BuildChar {
  1851. imagesize 0
  1852. 0 0 imagesize imagesize
  1853. setcachedevice
  1854. exch begin
  1855. Encoding exch get
  1856. CharProcs exch get
  1857. end
  1858. exec
  1859. } bdf
  1860. currentdict
  1861. end
  1862. /TextureFont exch definefont pop
  1863. /xtrans [0 0 scaledsize neg scaledsize neg] def 
  1864. /ytrans [0 scaledsize neg scaledsize neg 0] def 
  1865. /TextureFont findfont scaledsize scalefont setfont
  1866. fhtexturepattern (burlap) eq fhtexturepattern (denim) eq or
  1867. {
  1868. fhtexturepattern (burlap) eq 
  1869. {settexturepattern burlapimageloop} 
  1870. {settexturepattern denimimageloop} 
  1871. ifelse
  1872. }
  1873. {settexturepattern imageloop} ifelse 
  1874. txsave restore
  1875. end 
  1876. end 
  1877. } def
  1878. #
  1879. supdict begin
  1880. /getwidth 
  1881. { xsize ysize ge
  1882. { xsize } { ysize } ifelse .05 mul } def
  1883. /brickloop 
  1884. { ystart ysize ystart abs 
  1885. { /ycur xdf 
  1886. xstart ycur m 
  1887. xstart abs ycur L stroke
  1888. xstart xsize xstart abs 
  1889. { cnt 1 and 0 eq 
  1890. { /xcur xdf } 
  1891. { /xcur exch xsize .5 mul add def } ifelse
  1892. xcur ycur m
  1893. xcur ycur ysize add L stroke 
  1894. } for
  1895. incrcnt
  1896. } for } def
  1897. end 
  1898. /bricks 
  1899. {
  1900. supdict begin 
  1901. q newinside 
  1902. /color xdf
  1903. colorchoice 
  1904. /color xdf 
  1905. /angle xdf 
  1906. /ysize xdf 
  1907. /xsize xdf
  1908. /xstart x1 x2 add 2 div neg def 
  1909. /ystart y1 y2 add 2 div neg def 
  1910. dx 2 div dy 2 div translate
  1911. angle rotate
  1912. backgnd 
  1913. colorchoice 
  1914. getwidth w
  1915. brickloop 
  1916. Q end 
  1917. } def
  1918. #
  1919. supdict begin
  1920. /teethsize 
  1921. { dy teeth div } def
  1922. /drawtooth 
  1923. { dx teethsize 2 div rlineto
  1924. dx neg teethsize 2 div rlineto } def 
  1925. /teethloop 
  1926. { teeth { drawtooth } repeat } def
  1927. /sfx 
  1928. { x1 x2 add dx div } def
  1929. /sfy 
  1930. { y1 y2 add dy div } def
  1931. end 
  1932. /tigerteeth 
  1933. {
  1934. supdict begin 
  1935. q newinside 
  1936. /color xdf
  1937. colorchoice 
  1938. /color xdf 
  1939. /angle xdf 
  1940. /teeth xdf 
  1941. dx 2 div dy 2 div translate
  1942. angle rotate
  1943. sfx sfy scale
  1944. /xstart dx 2 div neg def
  1945. /ystart dy 2 div neg def
  1946. backgnd 
  1947. colorchoice 
  1948. xstart ystart m teethloop fill 
  1949. Q end
  1950. } def
  1951. #
  1952. supdict begin
  1953. /circloop 
  1954. { ystart spacing ystart abs 
  1955. { /ycur xdf 
  1956. xstart spacing xstart abs 
  1957. { 
  1958. ycur size 0 360 arc stroke
  1959. } for
  1960. } for } def
  1961. end 
  1962. /circles 
  1963. {
  1964. supdict begin 
  1965. q newinside 
  1966. /color xdf
  1967. colorchoice 
  1968. w
  1969. /angle xdf 
  1970. /spacing xdf 
  1971. /size xdf 
  1972. /xstart x1 x2 add 2 div neg spacing sub def 
  1973. /ystart y1 y2 add 2 div neg spacing sub def 
  1974. dx 2 div dy 2 div translate
  1975. angle rotate circloop 
  1976. Q end
  1977. } def
  1978. #
  1979. supdict begin
  1980. /squareloop 
  1981. { ystart spacing ystart abs 
  1982. { /ycur xdf 
  1983. xstart spacing xstart abs 
  1984. { 
  1985. ycur m
  1986. size 2 div neg size 2 div neg rmoveto
  1987. 0 size rlineto
  1988. size 0 rlineto
  1989. 0 size neg rlineto
  1990. closepath stroke
  1991. } for
  1992. } for } def
  1993. end 
  1994. /squares 
  1995. {
  1996. supdict begin 
  1997. q newinside 
  1998. /color xdf
  1999. colorchoice 
  2000. w
  2001. /angle xdf 
  2002. /spacing xdf 
  2003. /size xdf 
  2004. /xstart x1 x2 add 2 div neg spacing sub def 
  2005. /ystart y1 y2 add 2 div neg spacing sub def 
  2006. dx 2 div dy 2 div translate
  2007. angle rotate squareloop 
  2008. Q end
  2009. } def
  2010. #
  2011. supdict begin
  2012. /dashpat [12 3] def 
  2013. /lineloop 
  2014. { ystart spacing ystart abs
  2015. { /ycur xdf 
  2016. dashes? 
  2017. { 
  2018. cnt 1 and 0 eq { dashpat 0 setdash } 
  2019. { dashpat dashpat 0 get dashpat 1 get add 2 div setdash } 
  2020. ifelse } if
  2021. xstart ycur m
  2022. xstart abs ycur L
  2023. stroke incrcnt
  2024. } for } def
  2025. end 
  2026. /newhatch 
  2027. {
  2028. supdict begin 
  2029. q newinside
  2030. /dashes? xdf 
  2031. /color xdf
  2032. colorchoice 
  2033. w
  2034. /spacing xdf 
  2035. /ang2 xdf 
  2036. /angle xdf 
  2037. /xstart {x1 x2 add 2 div neg} bdf 
  2038. /ystart {y1 y2 add 2 div neg} bdf 
  2039. dx 2 div dy 2 div translate
  2040. q angle rotate
  2041. lineloop Q 
  2042. ang2 angle sub abs 180 ne 
  2043. {
  2044. ang2 rotate 
  2045. /angle ang2 def 
  2046. lineloop 
  2047. } if
  2048. Q end
  2049. } def 
  2050. #
  2051. supdict begin
  2052. /leaf { 
  2053. brandxy translate 
  2054. 360 randint rotate
  2055. /wid 10 randint 15 add def
  2056. 0 0 m
  2057. 0 wid 0 wid wid wid C
  2058. wid 0 wid 0 0 0 C } def
  2059. end 
  2060. /randomleaves 
  2061. {supdict begin 
  2062. newinside 
  2063. {q leaf 
  2064. [0 0 0 0] vc q fill Q
  2065. [0 0 0 1] vc 1 w stroke Q 
  2066. } repeat end 
  2067. } def
  2068. #
  2069. supdict begin
  2070. /blade { 
  2071. brandxy translate 
  2072. /wid 5 randint 5 add def
  2073. 0 0 m
  2074. 0 3 3 10 wid 10 C } def
  2075. end 
  2076. /randomgrass
  2077. {supdict begin 
  2078. newinside q
  2079. [0 0 0 1] vc
  2080. {q blade
  2081. 1 w stroke Q 
  2082. } repeat end 
  2083. Q
  2084. } def
  2085. #
  2086. /newnoise 
  2087. { supdict begin 
  2088. q newinside
  2089. [0 0 0 1] vc
  2090. /mx exch 255 mul cvi def 
  2091. /mn exch 255 mul cvi def 
  2092. /dff mx mn sub def
  2093. dx dy scale 
  2094. dx dy 8 [ dx 0 0 dy 0 0 ]
  2095. { 0 1 511{ str1 exch rand -16 bitshift 255 and dff mod mn add put } for str1} 
  2096. image Q end } def
  2097. #
  2098. /bwnoise 
  2099. {supdict begin 
  2100. q newinside 
  2101. [0 0 0 1] vc
  2102. dx 1.5 mul dy 1.5 mul scale 
  2103. dx dy 1 [ dx 0 0 dy 0 0 ]
  2104. {0 1 511 {str1 exch rand8 rand8 or put} for str1} 
  2105. image Q end 
  2106. } def
  2107. #
  2108. /topnoise 
  2109. { supdict begin 
  2110. q newinside 
  2111. dx 1.5 mul dy 1.5 mul scale 
  2112. dx dy true [ dx 0 0 dy 0 0 ]
  2113. { 0 1 511{ str1 exch rand8 rand8 and put } for str1} 
  2114. imagemask Q end } def
  2115. #
  2116. /neon 
  2117. { supdict begin 
  2118. /wd xdf 
  2119. q wd w 0.5 setgray stroke Q
  2120. q wd 2 div w 0 setgray stroke Q
  2121. q 1 w 1 setgray stroke Q n end } def
  2122. #
  2123. texturedict begin
  2124. /burlapimageloop
  2125. { 0 scaledsize dy
  2126. { /ycur xdf
  2127. 0 scaledsize dx
  2128. { /xcur xdf
  2129. gsave
  2130. xcur ycur translate
  2131. /aryindex rand2 def
  2132. aryindex 1 and 0 eq
  2133. { angget rotate
  2134. xtransget ytransget translate } if
  2135. imagesize imagesize scale
  2136. 0 0 moveto
  2137. (a) show
  2138. grestore
  2139. } for
  2140. } for } def
  2141. /burlap
  2142. < 
  2143. FC 00 00 00 07 E0 00 00 00 FC 00 00 00 7E 00 00 00 3F 
  2144. E1 FE 0E 00 23 FC 00 00 3F FC 03 FF FF BF FF FF F0 0F 
  2145. C0 7F 1F 80 21 F8 00 3E 3F EC 03 FF FE 31 FF FF 38 07 
  2146. C0 7F FF C0 71 F8 01 FF FF CC 07 FF FE 01 BF FF 08 07 
  2147. E9 FF FF C1 F9 FF F3 FF FF C6 07 FF FC 00 1F FF 08 07 
  2148. E3 FF FF C0 79 FF FF FF FF 86 07 FF 88 00 4F FF 88 07 
  2149. F3 FF FF 60 39 FE 01 FF FF 82 03 FF CE DC 0F FF D0 3F 
  2150. F0 FF FF 20 79 FE 21 FF FF 98 03 FF FF 84 0F FF E0 7F 
  2151. D0 7F FF 00 79 FF F8 1F FF 9D 03 FF FF 00 07 FF E0 FF 
  2152. 90 7F FF 00 7F FF E0 07 FF 8E 03 FF FF 00 07 FF E0 7F 
  2153. 10 FF FF 01 FF FF C0 07 FF 98 03 FF FC 00 07 FF E0 7E 
  2154. 30 FF FF 87 FF FF C0 07 FF F1 87 FF FC 00 0F FF F0 FA 
  2155. 70 3F FF E1 FF FF 80 03 FF 80 C7 FF FE 00 1F FF FF F0 
  2156. 78 3F FF F1 FF FF C0 03 FF 80 FF FF FC 00 2F FF FF F0 
  2157. 78 3F FF F3 FF FD 80 13 FF C7 FF FF FC 10 0F F9 FF FC 
  2158. 78 7F FF FF FF F8 80 1F FF FF FF FF FC 10 0F F8 81 3E 
  2159. 78 FF 8F FF FF F8 00 1F FE C7 FF FF FC 00 07 F0 00 0E 
  2160. 78 F6 00 3F FF FE 00 1F 00 80 7F FF FE 00 70 E0 00 06 
  2161. 38 E0 00 0C FF FE 00 3E 00 00 01 FF FC 00 FF 80 00 00 
  2162. 10 E0 00 10 00 FE 00 1E 02 00 00 3F FC 61 FF C0 00 00 
  2163. 00 60 00 20 00 3E 00 1E 06 00 00 3F FF C3 FF C0 00 00 
  2164. 00 20 00 00 00 1C 00 FE 00 00 00 78 FF 8F DF C0 00 60 
  2165. 00 00 00 00 00 0F 8F FC 00 00 00 60 7F 1F 1F C0 00 60 
  2166. 0C 00 40 00 00 1F F4 1C 00 00 00 00 FF 3E 13 C0 01 F8 
  2167. 1C 00 40 00 00 4F E0 00 00 00 00 00 FF FE 11 C3 E7 FC 
  2168. 7F 00 40 00 00 EF 60 00 04 00 00 21 FB FE 01 FF FF FE 
  2169. 7E 00 40 00 00 7F 00 00 3C 00 00 63 F0 3E 01 FF FF FE 
  2170. 7C 0C C0 00 00 FF 00 01 FE 00 02 FF E0 0C 01 FF F8 FE 
  2171. 40 0F E0 00 01 FF 80 07 FF 39 E3 FF E0 00 01 FF F8 06 
  2172. 18 0F FF FF 9F FF C0 0F FF FF FF FF EF 00 01 FF 80 00 
  2173. 98 1F FF F9 FF FF C0 1F FF FF FF FF FF F0 01 FF C0 03 
  2174. 98 1F FF FB FF FF C0 7F FF FF F8 FF C9 FF B3 FF C0 0F 
  2175. F8 1F FF FA 0F FF 80 7F FF FF F0 7F F8 7F FF FF 60 0F
  2176. F8 3F FF F0 0F FF 83 FF FF FF E0 3F FF FF FF FE 30 07 
  2177. F8 3F FF F0 1F FF 83 FF FF FF E0 1F FF FF FF FC 30 03 
  2178. F8 7F FF E0 3F F8 03 FF FF F9 F0 1C 7F FF FF F8 10 03 
  2179. F0 3F FF C0 1F C0 00 FF FF F8 70 38 70 01 FF F8 10 C3 
  2180. FE 1F FF C0 1F 00 00 0F FF FF 30 30 00 00 18 00 18 F7 
  2181. FF 3F FF C0 0E 00 00 01 FF FF 94 30 00 00 03 80 0C F7 
  2182. F8 0F FC C6 06 00 00 03 FF 90 0C 30 00 00 01 C6 00 7F 
  2183. F8 03 FC 00 06 00 00 00 FF 90 1C 20 00 00 01 E1 88 7F 
  2184. F0 00 FC 01 C2 00 00 00 FF F0 18 02 00 00 03 F0 7C 3F 
  2185. 80 00 1D 80 E2 00 00 00 EF F8 18 07 80 00 03 F8 10 1F 
  2186. 80 00 1F C0 62 00 00 01 8F F1 18 1F 80 00 43 FF 10 1F 
  2187. 00 00 1F E0 03 00 00 03 9F F0 3C 1F E0 03 8F FF 88 0E 
  2188. 00 00 1F FC 03 C7 FF FF DF F0 1C 1F FF FF FF FF C8 00 
  2189. 1F E0 3F FC 03 CF F7 77 FF FE 06 3F FF BC 1F FF F8 20 
  2190. 1F 8C FF FC 03 FF 81 21 FF FF 07 7F FF F0 1F FF 90 38 
  2191. 3C 04 7F FC 03 FF 80 00 FF FF 07 FF FF E0 0F FF 80 1C 
  2192. 78 00 7F F8 03 FF F0 00 FF F8 20 FF FF E0 07 FF E0 1E 
  2193. 78 00 FF F8 03 FF E0 00 7F F8 03 FF FF F0 07 FF F8 7E 
  2194. 30 00 7F F8 07 FF E0 00 3F FC 0F FF FF E0 07 FF FC 7E 
  2195. 70 00 3F F8 0F FF E0 00 3F FE 0F 7F FF E0 0F FF E0 7E 
  2196. 70 00 3F F9 FF FF F0 00 FF FF 1C 7F FF E0 1F FF F4 3E 
  2197. 60 00 3F FF BF FF F0 01 FF FF F8 7F FF C0 03 FF FE 2E 
  2198. 78 00 7F FE 3F FF F0 00 FF FF B0 3F FF 80 03 F0 00 0E 
  2199. 70 04 7F FE 7F FF F0 00 FF FE F0 1F FF 80 03 E0 00 3E 
  2200. 70 07 FE 43 FF FF 00 00 FF B8 0E 0F F0 80 07 E0 01 FE 
  2201. 70 07 C0 03 FF FF C0 03 FC 00 03 CF F0 00 1F C0 07 FC 
  2202. 70 07 C0 04 BF FF C0 03 D0 00 00 FF FE 40 3F 80 00 18 
  2203. 70 07 80 18 9F FF C0 1F C0 00 00 7F FF 80 FF 00 00 0C 
  2204. 70 07 80 7C 00 3F C0 1F 80 00 00 6F FF 01 FF 80 03 80 
  2205. 70 07 80 E4 00 7F C0 1E 00 00 00 CF FF 00 79 80 00 00 
  2206. 71 03 83 C0 00 FF C0 1E 00 00 C1 1F FF C0 11 80 00 02 
  2207. 71 00 87 C0 01 9F CE 1C 00 01 E0 3F FF E0 00 00 00 06 
  2208. FF 00 8F C0 01 99 FF 00 22 1F E0 3F FF C0 00 01 FE 03 
  2209. FD 00 DF C0 03 9B FF 00 FF 1F 80 1F FF E0 00 7F FF EF 
  2210. FC 01 FF C0 07 FF FF 00 FF FF 80 3F FF F0 01 FF FF E7 
  2211. FC 01 FF FF FF FF FF 00 FF C6 03 FF FF F8 01 FF FE 0F 
  2212. F8 03 FF FF FF FF FF 00 FF FF FF FF FF F8 01 FF FC 07 
  2213. F8 03 FF FF FF FF FC 00 FF FF FF BF FF F8 01 FF FC 07 
  2214. FC 03 FF FF C7 FF 20 03 FF FF FF 3F FF F8 01 FF FC 0F 
  2215. FC 07 FF F3 03 FF 10 0F FF FF FE 39 FF F0 03 FF FE 0F 
  2216. F8 0F FF C0 00 FF B0 FF FF FF F8 13 FF F0 03 FF FE 1F 
  2217. F8 3F FF C0 01 FF F1 F9 FF FF F8 87 FF E0 47 FF FE 1F 
  2218. F0 3F FF F0 03 FF F9 C1 FF FF F8 07 FF F0 07 FF FE 1F 
  2219. F8 3F FF F8 03 FF FF 83 FF FF 7C 07 FF F8 07 FF FE 1F 
  2220. F8 3F FF F8 03 FF FF 1F FF FF 78 03 FF F0 2F FF FE 0F 
  2221. BC 7F FF E0 03 FF FF FF FF FF F0 03 DF F1 FF FF FF 0F 
  2222. 1F FF FF E0 03 FF FF FF FF FF 90 03 8F F3 FF FF FF 0A 
  2223. 1F FF FF C0 07 FF FF FF FF FF C0 07 0F FF FF FF FF 02 
  2224. 1F FF FF C0 0F E3 F7 FF FF FF C0 0F 1F FF 3F FF FC 02 
  2225. 0E 7F FF C0 0F C2 01 FF FF FF 80 BF 3E 00 1F FF FC 00 
  2226. 00 7F FF 80 07 F8 03 F8 67 BF 80 EF FC 00 00 07 F8 30 
  2227. 00 07 FF 00 67 E0 07 C0 00 07 00 FF FC 00 00 00 18 78 
  2228. 00 00 7E 00 73 80 0C 00 00 01 00 FF BE 00 00 00 00 F8 
  2229. 00 00 1C 01 F3 00 10 00 00 01 80 FD DF 00 00 00 01 F8 
  2230. 00 00 18 01 F0 00 00 00 00 01 00 7C FF C0 00 06 0F F0 
  2231. 0F 80 18 1F E0 00 00 00 00 0E 04 7F FF C0 00 1E 0F E0 
  2232. 0F 00 11 98 60 00 00 00 00 1C 04 7C CF E0 00 7E 3F 00 
  2233. 1F 01 11 80 00 E0 01 84 00 1C 20 3C 07 F0 60 7F FC 00 
  2234. 3F 03 B1 80 07 FF FF FF 40 1D F0 0C 41 FF BC FF F8 00 
  2235. 3E 7F FB F0 0F FF FF C1 8F FF FC 00 61 FF 81 FF F8 0C 
  2236. 3F FF FF C0 0F FF FF C1 FF FF FC 01 E7 FF E0 FF FE 1E 
  2237. 38 3F FF C0 1F FF FF C1 FF FF FC 07 FF FF E0 FF FE 1E 
  2238. 30 3F FF E0 7F FF FE 00 FF FF F8 07 FF FF F0 FF FE 1E 
  2239. 38 3F FF E0 7F FF F8 00 7F FF F0 03 FF 3C 00 7F FE 3C 
  2240. 38 1F FF E0 7F FF FC 00 3F FF F0 01 FF 3C 00 7F FE 30 
  2241. 00 1F FF F0 FF FF FC 00 1F FF F0 01 FF FC 01 7F FC 00 
  2242. 00 1F FE 01 FF FF FC 01 FF FF F0 01 FF FE 01 3F FC 00 
  2243. 80 1F FF 00 7F FF FC 01 FF FF F0 01 FF FE 00 9F FC 00 
  2244. FE 0F FF 00 7F FF FE 04 FF FF F0 03 FF FE 00 5F FE 01 
  2245. FC 0F FF DE 7F FF FB 06 7F FF FE 7F FF FE 00 7F FF C3 
  2246. F8 0F FF FF FF FF F8 80 3F FF FF FF FF FF 00 7F FF 8F 
  2247. F8 07 FF FF FF FF FC 00 1F FF F3 FF FF FE 00 7F FF DF 
  2248. FC 03 FF FF FF FF FE 00 1F FF 81 FF FF FE 00 FF FF FF 
  2249. FE 0F BF BD FF FF FC 00 7F FE 01 FF FF FC 00 FF FF FF 
  2250. FE 1C 3E 10 FF FF F0 00 FF FC 00 FF FF F8 00 FF 81 FF 
  2251. FE 1E 7C 00 7F F3 F0 03 FA 38 00 FF FF C0 00 FE 00 3F 
  2252. FE 0F 8C 00 7F F3 E0 01 F8 00 00 9C FF C0 00 F0 00 3F 
  2253. FE 1F 00 00 03 FF 00 00 7E 00 00 00 FF C0 00 60 00 07 
  2254. FC 1F 20 00 01 FF A0 00 7F 00 00 01 FF C0 00 E0 00 0F 
  2255. F9 9F F0 00 00 9F F8 01 7F 00 00 00 7F C0 44 F0 00 8F 
  2256. F9 8F F0 00 00 1F FC 03 3F 00 78 00 7F E0 0C 70 00 1F 
  2257. 39 C0 78 00 00 3F FC 00 1F 88 7C 00 FF E1 3E 00 07 FF 
  2258. 21 80 20 00 00 3F FC 04 1F 80 0C 03 FF B3 3C 00 07 FC 
  2259. 20 80 00 00 00 7F FC 20 1C 00 04 00 7F FF 38 00 07 F8 
  2260. 18 03 00 00 00 8F FC 70 1C 00 02 00 1F FF B8 00 00 18 
  2261. 4F 00 00 00 00 0F F8 70 38 00 01 00 1F FF 80 00 00 18 
  2262. 7E 00 00 00 00 3F FF F0 30 00 01 00 7F FF 80 00 00 00 
  2263. 7E 00 00 00 00 FF FF D0 30 00 01 80 7F FF 80 10 00 00 
  2264. 3C 00 00 00 00 FF FE C0 30 00 00 00 3F E7 00 10 00 0C 
  2265. 38 0C 00 00 07 FF FE 00 70 07 F0 00 3F EF 00 10 01 FC 
  2266. 10 1F 00 00 1F FF FE 00 7F 9F F0 00 7F F8 00 1E 07 FC 
  2267. 10 1F 00 00 3F FF FE 00 7F FF C0 0F FF F0 00 1F FF F0 
  2268. 00 3F DF C0 0F FF FE 00 FF FF C3 9F FF F0 00 1F FF FC 
  2269. 00 7F FF 80 1F FF FF C1 FF FF FF C3 FF F0 00 9F FF FC 
  2270. 00 7F F7 98 7F FF E0 00 FF FF FE 01 FF F3 00 BF FF 00 
  2271. 3F FF FF FC 03 FC 00 00 FF FF F0 01 FF FF 87 FF F8 00 
  2272. 7F FF FF FE 01 F0 1F 80 3F FF F0 01 FF E0 07 FF F0 00 
  2273. 7F FF FF F8 01 FF C3 C0 1F FF C0 03 7F FC 1F FF F0 00 
  2274. 18 FF FF F0 01 FF 80 00 0F FF C0 02 7F FE 0F FF F8 38 
  2275. 08 3F FF F0 03 FF C0 00 07 FF C0 00 7F FF EF FF F8 3C 
  2276. 00 3F FF F0 03 C1 C3 80 03 FF F0 00 7F FF FF FF F0 74 
  2277. 80 7F FF E0 03 C3 E7 FF 00 FF F8 00 77 F7 FF FF E0 61 
  2278. 87 FF FF 80 0F 80 01 1F C0 7F F0 00 E0 01 FF FF C0 C3 
  2279. 8F FF FF 80 0F 00 00 00 7F FF 60 00 E0 1F C3 FF C0 87 
  2280. E7 FF FF 80 1F 00 00 00 1F FE 00 00 00 09 07 FF E1 87 
  2281. F0 1D FC 80 3B 00 00 00 1F FE 00 00 00 00 07 FF E0 0F 
  2282. F0 00 FC 00 71 00 00 00 04 FC 00 0C 30 00 3F FF E0 3F 
  2283. F0 00 DC 01 FE 00 03 0C 1C 3F C0 19 E0 30 0E 03 C0 7F 
  2284. F8 00 00 01 FC 00 0F 80 03 FB C0 10 80 F0 28 03 80 7F 
  2285. F8 00 00 01 FC 00 1F C0 03 FB E0 20 00 F0 30 02 00 1F 
  2286. FC 00 00 00 3F 00 00 00 0F C0 00 00 01 F8 00 00 00 3F
  2287. > def
  2288. end 
  2289. #
  2290. texturedict begin
  2291. /outerloopcnt -1 def
  2292. /denimimageloop
  2293. { 0 scaledsize dy
  2294. { /ycur xdf
  2295. /outerloopcnt outerloopcnt 1 add def
  2296. outerloopcnt 1 and 1 eq
  2297. { /cnt 0 def } { /cnt -1 def } ifelse
  2298. 0 scaledsize dx
  2299. { /xcur xdf
  2300. gsave
  2301. xcur ycur translate
  2302. incrcnt
  2303. cnt 1 and 1 eq
  2304. { 180 rotate
  2305. scaledsize neg scaledsize neg translate } if
  2306. imagesize imagesize scale
  2307. 0 0 moveto
  2308. (a) show
  2309. grestore
  2310. } for
  2311. } for } def
  2312. /denim 
  2313. < 
  2314. E6 66 66 66 66 66 66 66 67 F7 E7 E6 3F E6 66 66 24 66 
  2315. B2 66 66 77 62 22 32 2C 62 F3 27 E6 77 63 33 13 2C F2 
  2316. F3 F7 67 7F F3 FB 3F 0C F2 93 27 27 77 73 BB BF 9C F6 
  2317. 99 27 26 23 33 33 9B 88 F6 FB E7 67 77 33 3B 9B 8C FE 
  2318. DB 27 67 77 33 3B 9B 0D F6 99 02 62 32 21 11 91 00 90 
  2319. FB 23 67 33 33 39 93 08 92 FB E7 E7 7F 73 3B FB 1D F2 
  2320. B3 27 67 32 33 31 B3 08 80 93 27 23 32 33 11 13 00 00 
  2321. BB E7 77 3F 33 BB 9B 08 D2 BB 26 23 33 33 B3 B3 09 F2 
  2322. 11 02 22 02 21 11 12 00 00 FB E7 73 3B 33 11 93 09 90 
  2323. FB E7 77 3F 73 BB BB 1D F6 9B A3 22 33 33 31 93 19 F2 
  2324. 9B 03 22 33 31 11 93 09 92 FB F3 33 3F 33 33 B3 99 F7 
  2325. B9 A3 33 33 33 11 92 09 F2 19 23 32 13 21 01 00 00 80 
  2326. B9 E3 33 33 33 11 99 08 B3 BB F3 37 33 33 B9 F9 19 F3 
  2327. 99 A3 33 33 31 11 99 09 F3 9B B3 B7 3B 31 19 99 08 F3 
  2328. 9B F3 B7 3F 3B B9 DB 1D FF 99 B3 33 33 31 19 99 08 F3 
  2329. BB F3 B3 3B 39 99 99 08 F3 FF F3 FF 3F BB B9 FF 9C F3 
  2330. 9B F3 B7 3F BB B9 DF 9D FB 99 83 93 13 31 99 DB 8C F1 
  2331. 9B F3 B3 3B B1 BD DB 8C F3 DF FF F3 3F B9 FD FF 9C FB 
  2332. 99 F3 B1 19 19 98 D9 8C F3 9D F3 91 19 19 9C D9 8C 79 
  2333. FF FB FB 9F 99 DC FD 8C FB FF FB FB 9F 99 DD FD CE FB 
  2334. DD FB BB 9F 99 DC FD CE FB DD FF FB 9F 99 DC FF CE FF 
  2335. DD FB BB 9F 99 CC FF CE FF DC FB 99 9D 99 CC FD CE F9 
  2336. FF FF F9 DF DD DC FD CE F9 FF FB F9 DF DD DF FD CE FD 
  2337. CD F9 D9 DF 9D CD FD CE F9 CD D9 F9 DF 9D CC DD CE FD 
  2338. DD FD F9 DF DD EC FD CE FF 8C D8 99 8D 9C CC CD C6 FD 
  2339. 0C C8 98 8D 9C CE FC C6 7C CF FD F9 CF DC EE FD CE 7F 
  2340. CF FD DD CF DC EE FD CE 7F CF FC 89 CC CC 4E 6C C6 3C 
  2341. EF FD CD CE CE E6 6D C6 3C FF FD FD CF CE E6 7F C6 7F 
  2342. 6F FC CC CC CC E6 7D C6 3C 6F FC CC CE CC 66 6C C6 3C 
  2343. FF FC FD CF CE E6 7C CE 7C EE FC CD CF CC E6 7C CE 7F 
  2344. 44 6C C8 C6 CC E6 64 C6 3C EE FC ED CF CE E6 74 C6 3C 
  2345. EF FE FD CF CF E6 7C C7 3F EE FE CC CE CC C6 7C C6 3E 
  2346. EE FE EC CE CC E6 7C C6 3E EE FC EC EF CC EE 7C CF 7F 
  2347. CC EC CC E6 CC E6 6C C6 3F 4E EC EC E6 CC E6 64 C6 3C 
  2348. E7 FC 6C EE CC E6 6C C6 77 46 EE 44 E6 CC E6 7C 46 37 
  2349. 66 6E 4C 66 44 66 6E 46 36 E6 66 66 66 66 66 66 66 67
  2350. > def
  2351. end 
  2352. #
  2353. texturedict begin
  2354. /sand
  2355. < 
  2356. 00 18 00 00 00 40 06 00 18 C0 00 00 60 00 00 00 00 00 
  2357. C0 00 00 20 00 00 00 00 00 00 00 00 00 06 00 60 00 00 
  2358. 00 00 00 00 00 00 60 40 00 00 40 0C 02 00 00 00 60 00 
  2359. 00 40 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2360. 00 00 00 00 00 00 00 00 C0 00 00 00 00 00 18 00 00 00 
  2361. 00 00 80 00 00 18 00 00 00 04 00 C0 00 00 00 04 00 00 
  2362. 06 00 00 38 0C 00 06 00 00 00 00 00 38 0C 00 00 00 00 
  2363. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 00 
  2364. 00 00 00 00 00 01 00 03 00 00 00 00 00 00 00 00 00 06 
  2365. 00 00 06 00 00 00 00 00 07 10 0C 04 00 00 00 00 C0 00 
  2366. 10 08 00 01 80 00 00 80 00 00 00 00 00 00 00 00 00 00 
  2367. 00 00 00 00 00 C0 00 00 00 00 00 00 00 00 C0 00 00 00 
  2368. 00 00 00 00 00 00 60 00 C0 00 00 60 30 00 00 00 00 C0 
  2369. 00 C0 00 30 00 00 00 00 00 C0 00 00 00 10 00 00 C0 00 
  2370. 80 00 00 00 10 00 00 C0 00 00 00 00 00 00 00 00 00 00 
  2371. 00 00 00 00 00 06 00 00 01 00 00 00 00 00 00 00 00 01 
  2372. 00 00 60 20 00 00 00 03 81 00 60 60 30 00 00 00 03 80 
  2373. 40 20 00 00 1C 00 00 00 00 60 00 00 00 18 00 07 00 00 
  2374. 00 00 00 00 00 00 02 00 00 00 00 00 00 00 06 00 00 00 
  2375. 00 00 00 00 00 02 00 00 00 00 00 60 30 00 00 00 00 00 
  2376. 00 C0 60 10 00 00 00 00 60 00 C0 00 00 0C 00 00 00 70 
  2377. 00 00 00 00 0C 00 01 80 00 00 00 00 00 00 00 01 80 00 
  2378. 00 00 00 00 00 00 00 00 00 00 00 0C 00 00 06 00 00 00 
  2379. 20 00 1C 08 00 00 00 00 04 30 00 18 0C 00 00 00 00 06 
  2380. 00 30 00 00 00 00 00 10 00 00 20 00 00 06 00 00 10 00 
  2381. 00 00 00 00 00 00 10 00 00 60 00 00 00 00 00 10 00 00 
  2382. 00 00 00 00 00 00 00 00 00 00 00 01 80 00 00 00 00 00 
  2383. 00 01 01 80 00 30 00 00 80 00 03 80 03 00 00 00 00 C0 
  2384. 00 00 00 00 00 00 00 00 00 03 00 00 00 00 00 01 80 00 
  2385. 03 00 00 00 0C 00 00 00 00 00 00 00 00 0C 00 00 00 00 
  2386. 00 00 00 00 00 00 00 00 00 80 00 06 00 00 03 00 00 0C 
  2387. 00 00 06 00 00 03 00 08 0C 00 04 00 00 00 00 00 0C 00 
  2388. 00 06 00 06 00 00 00 00 00 00 00 00 00 00 00 08 00 00 
  2389. 00 00 00 00 04 00 0C 00 00 01 80 00 00 06 00 00 00 00 
  2390. 00 00 00 00 00 06 00 00 40 00 00 01 00 00 07 00 00 20 
  2391. 00 00 03 80 00 00 00 60 00 00 03 00 00 00 00 00 20 00 
  2392. > def
  2393. end 
  2394. #
  2395. texturedict begin
  2396. /coarse-gravel
  2397. < 
  2398. 00 00 00 00 60 00 70 00 00 00 00 3F 00 20 00 70 00 00 
  2399. 80 00 FF F0 00 00 20 00 0C C0 03 F1 FC 01 80 00 06 04 
  2400. 00 07 80 3F 03 C0 00 06 00 0E 0F 00 0F C0 00 00 03 00 
  2401. 04 0F 00 03 C0 00 00 00 00 04 0E 00 01 E0 00 00 00 03 
  2402. 00 1E 00 01 E0 00 0F 00 01 00 3E 00 01 E0 00 3F E0 00 
  2403. 00 7C 00 FF E0 C0 7F F0 00 00 F8 01 FF C0 80 F0 F8 00 
  2404. 00 F0 07 FF 80 00 E0 3C 00 01 C0 0F C0 00 01 E0 1E 00 
  2405. 01 E0 3F 00 00 01 C0 0E 08 00 F0 7C 00 00 01 C0 0E 18 
  2406. 00 7F F8 00 00 01 C0 0E 08 00 3F E0 00 00 00 C0 07 18 
  2407. 00 0F C0 00 00 00 E0 07 00 1C 00 00 1C 00 40 78 03 00 
  2408. 0C 00 00 1C 00 60 3E 03 00 00 00 00 1C 00 F0 1F 87 80 
  2409. 00 00 00 0C 00 20 07 CF 80 00 00 00 00 00 00 07 FF 80 
  2410. 00 20 00 00 00 00 01 FF 00 00 30 00 07 E0 00 00 FC 00 
  2411. 00 00 00 1F F0 00 00 00 00 00 00 00 3F F8 00 00 00 00 
  2412. E0 00 00 FC 3C 00 00 00 03 60 00 01 F0 1C 00 08 00 03 
  2413. 00 00 03 E0 1C 00 18 00 00 00 00 0F C0 1E 00 38 01 80 
  2414. 00 00 1F 00 1E 00 00 03 80 00 00 3E 00 1E 00 00 00 00 
  2415. 08 00 3C 00 1E 00 00 00 00 1C 00 78 00 1C 00 00 00 00 
  2416. 10 00 78 00 3C 00 00 00 00 00 00 F0 00 3C 00 00 00 00 
  2417. 00 00 F0 00 38 02 00 00 00 00 01 E0 00 38 06 00 F0 00 
  2418. 00 01 E0 00 38 04 03 FC 08 00 01 E0 00 38 00 0F 9E 18 
  2419. 00 C0 E0 00 38 00 1E 06 00 00 E0 E0 00 38 00 38 06 00 
  2420. 00 C0 F0 00 3C 00 78 0E 00 00 00 F0 00 3C 00 E0 1C 00 
  2421. 20 00 78 00 1F 01 C0 38 00 60 00 78 00 0F 01 80 70 00 
  2422. 40 00 3C 00 07 01 C0 E0 00 00 00 3C 00 07 00 C0 C0 04 
  2423. 00 00 0F 00 07 00 E0 C0 0E 00 00 07 80 07 00 70 C0 04 
  2424. 00 00 03 FE 07 00 70 C0 00 00 00 01 FF 87 00 30 C0 00 
  2425. 03 80 00 7F FF 00 70 E0 00 07 C0 00 00 FF 00 60 70 00 
  2426. 0E F0 00 00 1F 00 E0 38 00 1C 7C 00 00 0E 00 C0 18 00 
  2427. 18 3F 00 00 00 00 70 1C 00 30 0F 80 10 00 00 78 1C 00 
  2428. 38 07 E0 18 00 00 3C 38 00 38 01 F0 38 00 00 1F F0 00 
  2429. 1C 00 70 10 00 00 0F E0 00 1E 00 30 00 00 00 00 01 00 
  2430. 0F 00 70 00 00 00 00 00 00 07 81 E0 00 00 20 00 00 60 
  2431. 01 E7 C0 00 00 60 00 01 E0 00 FF 00 01 80 70 06 00 60 
  2432. 60 3C 00 03 00 30 04 00 00 20 00 00 03 80 00 00 04 00 
  2433. 00 00 18 00 00 00 00 06 00 00 00 30 00 00 00 00 04 00 
  2434. > def
  2435. end 
  2436. #
  2437. texturedict begin
  2438. /fine-gravel 
  2439. <
  2440. 00 00 00 00 00 00 00 00 80 00 00 00 00 20 00 00 00 00 
  2441. 00 00 0C 00 00 10 00 20 00 08 00 00 00 00 00 00 00 00 
  2442. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2443. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 
  2444. 08 00 00 00 00 00 40 00 00 08 00 00 00 00 00 00 00 00 
  2445. 00 00 60 04 00 00 00 08 00 00 00 00 00 00 00 00 00 02 
  2446. 00 00 00 00 00 00 00 00 03 00 00 00 00 20 00 00 00 00 
  2447. 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 
  2448. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2449. 00 00 F0 00 02 00 40 00 00 00 00 00 00 03 80 00 40 00 
  2450. 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 
  2451. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2452. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 04 00 
  2453. 00 00 00 08 00 00 00 0F 00 00 00 00 00 00 00 00 86 00 
  2454. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2455. 00 00 00 00 00 00 00 00 20 00 1E 00 00 00 00 00 00 00 
  2456. 00 0E 00 00 20 00 00 00 00 00 00 00 00 00 00 04 00 00 
  2457. 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 
  2458. 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00 
  2459. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2460. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2461. 00 00 00 30 00 20 00 00 1C 00 00 00 00 00 00 00 40 3C 
  2462. 00 10 00 00 00 00 00 00 3C 00 00 00 00 00 00 00 00 00 
  2463. 00 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00 
  2464. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2465. 30 00 40 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00 
  2466. 00 00 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 
  2467. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 
  2468. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 
  2469. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C0 
  2470. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2471. 00 00 00 00 00 00 00 00 00 00 00 00 E0 00 00 00 00 00 
  2472. 00 00 80 E0 80 00 10 00 00 00 00 00 E0 00 40 00 08 00 
  2473. 00 00 00 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00 
  2474. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2475. 00 00 00 00 00 00 00 00 03 00 00 10 00 00 00 00 00 00 
  2476. > def
  2477. end 
  2478. #
  2479. texturedict begin
  2480. /light-mezzo 
  2481. <> def
  2482. /heavy-mezzo
  2483. <> def
  2484. /mezzo 
  2485. < 
  2486. FF 00 FF 00 FF 00 FF 00 FF 9E 7E 1F A8 FF E1 FD F1 C7 
  2487. DC FC 3F F8 FF F8 FD FB 83 FC 78 7F F0 F0 F8 FC FF FF 
  2488. FF F0 7F F0 F0 78 7D 9F FF BF FC F1 F1 E0 7F 3F DF 87 
  2489. 8F FF E1 F1 E7 FF 3F CF 07 E3 FF EF 73 C7 FF 1F 80 1F 
  2490. 60 1F E7 03 C3 FE 1F 00 FE 70 07 E7 83 81 F8 1F 01 FC 
  2491. 70 03 CF 83 C1 F0 7F 3F F8 7F 83 FF E7 C1 E3 FE 7F FC 
  2492. 3F C7 FF FF E0 E7 FE 7F DE 1F FF C3 FF F0 EF FE 7F 0E 
  2493. 3F FF 87 FF F8 FE 7E 7E 06 79 FF EE 7E 7C FC 3F FC 06 
  2494. F0 FC CC 3C 1E FE 3F FC 07 E0 61 CE 08 0E 7F 1F FC FF 
  2495. E0 01 DF 81 E4 7F 1F FF FF E7 83 FF C3 F0 7E 1F FF FF 
  2496. E7 E3 FF C7 F0 7C 3F 8F FF E7 FF FF FF FF FC 7F 8F FF 
  2497. E7 FF E3 FF FF F9 FF 8F F9 F7 FF C1 FE FF E3 FF 8F C1 
  2498. 3F 9F C1 FC FE 07 E3 1F C0 3E 0F C1 F9 FC 1F E0 3F E0 
  2499. 7E 07 F1 F1 F0 1F E0 FF F8 7C 0F F9 F1 E0 1F F1 FF FE 
  2500. 7C CF FF F0 F0 3F FF F3 7E 7C EF FF F0 F8 78 FF F0 3E 
  2501. 3F E0 3F E0 7F F8 7F FC 3E 3F F0 1F 80 7F F0 7F FE 3C 
  2502. 9F F8 7F 8F FF F0 7C FF 79 8F FF FF 9F FF F0 78 7F F9 
  2503. 87 FF F3 FF C1 F0 F8 7F F1 9F FF E1 FF E1 FB FC 7F F9 
  2504. FF 83 E0 FF F7 FF FF FF FF FF 01 E0 FF FF FF FF FF FF 
  2505. F7 39 E0 F8 FF FF 8F F7 FF E3 79 E0 F8 FE 1F 07 F3 DF 
  2506. 63 3B E1 F8 7C 1E 37 FB C6 43 BF F1 FC 78 0F F7 FF 80 
  2507. 43 FF F0 FC 78 1F F3 FF 80 63 FF FD FE 78 7F F8 7F 80 
  2508. 60 FF BF FE 78 FF F8 7F 80 20 3F 0F FF F8 FF F8 7F F0 
  2509. 00 3E 07 FF F8 FC 3C FF FE 03 FE 07 FF FD FC 1F FB FE 
  2510. FF FC 07 FE 5F FE 1F F0 7F FF FC 0F CE 0F FF 9F E0 3F 
  2511. FF FE 1F 8F 1F FF FF E0 7F FF 7F 3F 87 1F E3 FF F0 7F 
  2512. FF 1F FF 8F 9F C1 E1 F3 F9 CF 8F FF 0F 9F 03 F0 7F F9 
  2513. 87 87 FF 0F FC 07 F8 7F F9 87 CF FF 0F F8 1F F8 7F F9 
  2514. 07 CF 9F FF F8 7F FC 7F FC 0F FF 8F FF F8 FF FF FE 3E 
  2515. 7F FE C3 FF FC F8 FF FC 1C 7F 78 E1 FF FF F8 7F FC 0C 
  2516. 7F 20 E0 FF FF FC 7F FE 0E 1F 00 F9 F8 FF FC 7F FF 0E 
  2517. 1F 81 FF F8 06 FC 20 3F FE 1F FF FF F8 00 FE 00 3F FC 
  2518. FF FF FF F0 73 FF 80 3F FD FF FF 7F E0 FF FF FC 3B F9 
  2519. FF FC 77 C1 FF CF FE 30 F9 F3 F8 F3 C7 C3 CF FF F8 79 
  2520. D3 C3 F9 FF 87 E0 7F FE 3D 83 CF F9 FE 07 E0 C7 FE 1F 
  2521. C3 9F FD F0 7F E7 E3 FC 3F FF 00 FF 00 FF 00 FF 00 FF 
  2522. > def
  2523. end 
  2524. #
  2525. texturedict begin
  2526. /med-mezzo
  2527. <
  2528. 00 3F 00 3F 00 FC 00 FC 00 13 0D C7 E2 01 E0 18 64 66 
  2529. 33 80 01 E0 30 43 18 00 F2 70 00 00 E0 78 03 88 11 F0 
  2530. 30 03 80 C3 FC 03 8F 1F 80 10 01 E1 C7 CE C1 83 1F 02 
  2531. 01 E0 E3 87 07 F1 83 8E 06 07 F0 73 07 00 31 87 06 06 
  2532. 7F F0 73 0E 00 13 0E 00 C2 47 00 F1 84 30 0F 00 00 E0 
  2533. 86 01 F1 80 70 07 80 C0 F1 86 01 E1 C1 F1 87 03 83 E1 
  2534. E3 C1 C3 C7 E3 80 07 07 C1 F3 E3 87 87 C3 80 07 0F 87 
  2535. B0 E3 07 08 07 00 4E 0F 07 80 63 03 98 0E 20 7C 07 07 
  2536. 00 60 00 F8 0C 30 70 40 04 01 E0 18 1F C4 3E 01 E0 02 
  2537. 47 C0 F8 03 C6 3F 03 E0 E2 47 EF EC 01 C7 0F 87 C3 E2 
  2538. 46 30 84 40 C7 80 87 C3 C2 06 00 07 F0 0F 80 C3 81 C6 
  2539. 07 00 07 E0 0F 00 E0 00 C2 07 87 C0 00 00 18 E0 10 E0 
  2540. 01 C7 F0 06 00 18 E0 10 60 60 47 D8 3F 00 38 02 10 00 
  2541. F0 60 0C 7F 01 F8 0F 00 07 B8 60 0C 7F 39 E0 0F 01 07 
  2542. 8E 30 0C E3 F8 E0 0F 1F 87 83 38 0C 60 78 E1 80 3F EF 
  2543. C1 18 CC 70 00 E3 C0 3E 79 C1 80 FC 30 00 43 C2 3C 01 
  2544. 43 80 78 30 00 03 C7 08 00 07 00 30 F0 8C 01 C7 00 00 
  2545. 0C 18 01 E0 78 01 C0 00 00 1C 3C 00 00 20 60 00 7F 18 
  2546. 1C 1C 70 06 00 F0 00 73 FC 1E 0C F0 0F 01 F8 38 71 FC 
  2547. 1F 8C E0 8F 81 FE 7C 78 5C 1F EC 43 DF E1 8F 9C 78 1C 
  2548. 8F 78 43 7C 01 8C 0E 38 1D 80 70 44 10 01 80 1C 08 51 
  2549. E0 70 EE 00 03 80 F8 01 81 E0 70 FC 03 87 80 F0 01 87 
  2550. E0 38 E0 07 C7 18 F0 03 87 86 30 00 C6 60 38 C0 C3 87 
  2551. 0E 00 00 F6 20 3C 00 E1 82 1E 02 18 FC 30 FC 01 E1 80 
  2552. 1E 07 F8 38 30 F8 11 FF 1C 0F 07 F8 00 30 00 39 FF 04 
  2553. 07 C0 18 00 20 00 38 03 06 03 E0 00 E0 30 06 18 01 00 
  2554. 31 F0 00 FE 3C 7E 18 01 18 30 F1 80 70 3E 7F 98 0F 38 
  2555. 1C F1 C0 00 0E 0F F0 0F 3C 18 C0 C6 00 0E 01 E0 07 FC 
  2556. 88 00 C7 0F 0E 00 47 03 C5 80 00 0F 0F 8E 38 0F 80 01 
  2557. 84 00 0F 83 8C 3C 0F 98 01 9C 38 0F C3 80 38 0D FC 1D 
  2558. BE 38 1F E1 80 38 88 1C 67 FE 38 FF 80 00 39 C0 0C C3 
  2559. 6E 38 F0 00 3F F3 80 0D C0 40 78 C0 0C 3F C3 07 0D 00 
  2560. 00 78 C0 1E 1C 03 9F C6 1C 00 00 61 0F 00 01 FC C6 1C 
  2561. 30 00 30 07 00 60 F0 E2 06 38 80 38 00 00 78 01 E2 82 
  2562. 79 E0 38 10 00 3C 01 C3 C6 71 E3 F1 FC 3C 1F C3 8B E6 
  2563. 11 87 B1 CE 3E 18 E0 1B E0 00 3F 00 3F 00 FC 00 FC 00
  2564. > def
  2565. end 
  2566. #
  2567. texturedict begin
  2568. /coquille
  2569. < 
  2570. 00 00 00 00 01 E0 00 00 00 00 03 80 00 00 70 00 00 00 
  2571. 00 07 E0 00 00 3E 00 00 00 00 1F F8 00 00 1F 80 00 00 
  2572. 00 7E 3E 00 00 07 80 00 00 01 FC 04 00 00 03 C0 00 00 
  2573. 03 E0 00 00 00 01 E0 00 00 0E 00 00 00 00 00 40 00 00 
  2574. 38 00 00 00 00 00 00 00 00 F0 00 00 00 00 00 00 00 00 
  2575. F0 00 00 1F 80 00 00 00 0E F0 00 01 FF 80 00 03 00 06 
  2576. F8 00 00 63 C0 00 03 80 00 F0 00 00 00 60 00 03 80 00 
  2577. 00 00 00 00 30 00 01 80 00 00 00 00 00 0C 00 01 80 00 
  2578. 00 00 00 00 03 E0 01 80 00 00 00 00 00 01 F0 00 80 00 
  2579. 00 00 00 00 00 F0 00 C0 00 00 00 00 00 00 F0 00 70 00 
  2580. 00 00 00 00 00 F0 00 38 00 03 E0 00 00 00 E0 00 1C 00 
  2581. 01 F0 00 00 00 00 00 0C 00 00 E0 1C 00 00 00 00 1F 00 
  2582. 00 C0 1F 00 00 00 00 1F F0 00 00 0F 80 00 00 00 30 7C 
  2583. 00 00 07 80 00 00 00 60 1C 00 00 00 00 00 00 00 C0 0C 
  2584. 00 00 00 00 00 00 00 80 04 00 00 00 00 00 00 00 00 00 
  2585. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2586. 00 00 00 00 1A 00 00 00 00 00 00 00 00 3E 00 00 00 00 
  2587. 00 00 00 00 3C 00 00 00 00 00 00 00 00 7C 00 00 00 00 
  2588. 00 00 00 00 7C 00 00 00 00 00 00 C0 00 FE 00 00 00 00 
  2589. 3F FB C0 01 FF 80 00 00 00 01 FF E0 00 0F F0 00 00 00 
  2590. 00 3F F0 00 00 0F F0 00 00 00 07 FF 00 00 03 F0 00 00 
  2591. 00 01 FC 00 00 01 F0 1F C0 00 00 78 00 00 00 F0 1F E0 
  2592. 00 00 70 00 00 00 E0 03 E0 00 00 78 00 00 00 E0 01 E0 
  2593. 00 00 78 00 00 00 C0 01 E0 00 00 38 00 00 00 C0 00 E0 
  2594. 00 00 0C 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00 
  2595. 00 00 01 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00 
  2596. 00 00 00 77 00 00 00 00 00 80 00 00 3F C0 00 00 00 00 
  2597. F0 00 00 01 F8 00 00 00 00 3F 00 00 00 1C 00 00 00 00 
  2598. 0F 80 00 00 00 00 00 00 00 07 80 00 00 00 00 00 00 00 
  2599. 03 80 00 00 00 00 00 1C 00 01 80 00 00 00 00 00 3E 00 
  2600. 00 80 00 00 00 00 00 78 00 00 80 00 00 00 00 07 F0 00 
  2601. 00 C0 00 1E 00 00 3F F0 00 00 F0 00 3F E0 00 7F F0 00 
  2602. 00 FF 00 FF F0 00 7F 30 00 00 FF FF C0 00 00 70 00 00 
  2603. 00 01 78 00 00 00 C0 00 00 00 00 00 00 00 01 80 00 00 
  2604. 00 00 00 00 00 03 80 00 00 00 00 00 00 00 3F 00 00 00 
  2605. 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  2606. > def
  2607. end 
  2608. #
  2609. ropedict begin
  2610. /arrow 
  2611. { cnt 0 eq 
  2612. { q blw w stroke Q [0 0 0 0] vc } if incrcnt
  2613. blocksetup -.4 0 m .15 .4 L 0 0 L 
  2614. .15 -.4 L blockend .2 0 m .2 .2 .25 .4 .35 .4 C
  2615. .45 .4 .5 .2 .5 0 C .5 -.2 .45 -.4 .35 -.4 C
  2616. .25 -.4 .2 -.2 .2 0 C blockend .1 0 m .2 .1 L 
  2617. .2 -.1 L blockfinish} def
  2618. end 
  2619. #
  2620. ropedict begin
  2621. /braid 
  2622. { cnt 0 eq 
  2623. { q blw w stroke Q [0 0 0 0] vc } if incrcnt
  2624. blocksetup .5 .1 m .47 .24 L .4 .36 L 
  2625. .3 .44 L .2 .4 L .1 .34 L 0 .2 L 
  2626. -.16 -.08 L -.25 -.2 L -.35 -.24 L 
  2627. -.43 -.2 L -.5 -.1 L -.47 -.24 L -.4 -.36 L 
  2628. -.3 -.44 L -.2 -.4 L -.1 -.34 L 0 -.2 L
  2629. .16 .08 L .25 .2 L .35 .24 L .43 .2 L
  2630. blockfinish } def
  2631. end 
  2632. #
  2633. ropedict begin
  2634. /crepe 
  2635. { blocksetup -.5 .01 m -.35 .03 L -.2 .12 L
  2636. .03 .33 L .15 .37 L .22 .32 L .38 .08 L 
  2637. .44 .04 L .5 .01 L .5 -.01 m .35 -.03 L
  2638. .2 -.12 L -.03 -.33 L -.15 -.37 L -.22 -.32 L 
  2639. -.38 -.08 L -.44 -.04 L -.5 -.01 L blockfinish } def
  2640. end 
  2641. #
  2642. ropedict begin
  2643. /snowflake 
  2644. { blocksetup -.45 .5 m -.35 .3 L -.4 .25 L 
  2645. blockend -.35 .5 m -.15 .5 L -.25 .4 L 
  2646. blockend .15 .5 m .35 .5 L .25 .4 L blockend 
  2647. .45 .5 m .45 .25 L .35 .3 L blockend 
  2648. .45 -.25 m .45 -.5 L .35 -.3 L blockend
  2649. .35 -.5 m .15 -.5 L .25 -.4 L blockend
  2650. -.15 -.5 m -.35 -.5 L -.25 -.4 L blockend 
  2651. -.45 -.5 m -.45 -.25 L -.35 -.3 L blockend 
  2652. 0 .45 m .1 .35 L 0 .25 L -.1 .35 L blockend 
  2653. 0 .08 m .15 .25 L .28 .08 L .25 .05 L
  2654. -.25 .05 L -.28 .08 L -.15 .25 L blockend
  2655. 0 -.08 m -.15 -.25 L -.28 -.08 L -.25 -.05 L 
  2656. .25 -.05 L .28 -.08 L .15 -.25 L blockend 
  2657. 0 -.25 m .1 -.35 L 0 -.45 L -.1 -.35 L 
  2658. blockfinish } def
  2659. end 
  2660. #
  2661. ropedict begin
  2662. /teeth 
  2663. { blocksetup -.5 -.28 m .5 -.28 L .5 -.3 L
  2664. -.5 -.3 L blockend -.5 0 m -.35 .08 L 
  2665. -.27 .17 L -.25 .25 L -.25 .5 L .25 .5 L
  2666. .25 .25 L .27 .17 L .35 .08 L .5 0 L 
  2667. blockfinish } def
  2668. end 
  2669. #
  2670. ropedict begin
  2671. /twowaves 
  2672. { blocksetup 
  2673. -.5 .33 m 0 .13 L .5 .33 L
  2674. .5 .3 L 0 .1 L -.5 .3 L blockend
  2675. -.5 -.1 m 0 -.3 L .5 -.1 L
  2676. .5 -.13 L 0 -.33 L -.5 -.13 L closepath fill
  2677. Q } def
  2678. end 
  2679. #
  2680. ropedict begin
  2681. /threewaves 
  2682. { blocksetup -.5 .38 m 0 .23 L .5 .38 L 
  2683. .5 .35 L 0 .2 L -.5 .35 L blockend
  2684. -.5 .08 m 0 -.07 L .5 .08 L .5 .05 L
  2685. 0 -.1 L -.5 .05 L blockend -.5 -.25 m 
  2686. 0 -.4 L .5 -.25 L .5 -.28 L 0 -.43 L 
  2687. -.5 -.28 L blockfinish } def
  2688. end 
  2689. #
  2690. ropedict begin
  2691. /wedge 
  2692. { blocksetup 
  2693. .5 .5 m 0 -1 rlineto -1 .5 rlineto blockfinish } def
  2694. end 
  2695. #
  2696. ropedict begin
  2697. /star
  2698. { blocksetup 0 .5 m .3 -.4 L -.47 .15 L 
  2699. .47 .15 L -.3 -.4 L blockfinish } def
  2700. end 
  2701. #
  2702. ropedict begin
  2703. /cartographer 
  2704. { blocksetup -.5 .4 m -.5 .5 L .5 .5 L .5 0 L 
  2705. 0 0 L 0 -.4 L .5 -.4 L .5 -.5 L -.5 -.5 L 
  2706. -.5 0 L 0 0 L 0 .4 L blockfinish } def
  2707. end 
  2708. #
  2709. ropedict begin
  2710. /checker 
  2711. { blocksetup -.5 0 m -.5 .5 L 0 .5 L 0 0 L
  2712. .5 0 L .5 -.5 L 0 -.5 L 0 0 L blockfinish } def
  2713. end 
  2714. #
  2715. ropedict begin
  2716. /dot
  2717. { blocksetup 0 0 .5 0 360 arc fill Q } def
  2718. end 
  2719. #
  2720. ropedict begin
  2721. /diamond 
  2722. { blocksetup -.5 0 m .5 .5 rlineto .5 -.5 rlineto
  2723. -.5 -.5 rlineto blockfinish } def
  2724. end 
  2725. #
  2726. ropedict begin
  2727. /right-diagonal 
  2728. { blocksetup -.5 -.5 m -.25 .5 L .5 .5 L
  2729. .25 -.5 L blockfinish } def
  2730. end 
  2731. #
  2732. ropedict begin
  2733. /left-diagonal
  2734. { blocksetup -.25 -.5 m -.5 .5 L .25 .5 L 
  2735. .5 -.5 L blockfinish } def
  2736. end 
  2737. #
  2738. ropedict begin
  2739. /rect 
  2740. { blocksetup .5 .5 m 0 -1 rlineto -1 0 rlineto 
  2741. 0 1 rlineto blockfinish } def
  2742. end 
  2743. #
  2744. ropedict begin
  2745. /ball 
  2746. { q .05 w n translate rotate 
  2747. scale 0 0 0.5 0 360 arc -.5 0 m
  2748. -.4 .4 .4 .4 .5 0 C .4 -.4 -.4 -.4 -.5 0 
  2749. C .5 0 L stroke n Q } def
  2750. end 
  2751. #
  2752. ropedict begin
  2753. /squiggle 
  2754. { q .05 w n translate rotate 
  2755. scale -.5 0 m .25 0 .75 .5 0 .5 C
  2756. -.75 0.5 .75 -.5 0 -.5 C -.75 -.5 -.25 0 .5 0.0 
  2757. C stroke n Q } def
  2758. end 
  2759. #
  2760. ropedict begin
  2761. /swirl 
  2762. { blocksetup -.5 0 m .25 0 .75 .5 0 .5 C
  2763. -.75 .5 .75 -.5 0 -.5 C -.75 -.5 -.25 0 .5 0 C 
  2764. -.25 0 -.75 .5 0 0.5 C .75 .5 -.75 -.5 0 -.5 C 
  2765. .75 -.5 .25 0 0 0 C fill Q } def
  2766. end 
  2767. #
  2768. ropedict begin
  2769. /zigzag
  2770. { q .05 w n translate rotate 
  2771. scale -.5 0 m 0 .5 L 0 -.5 L .5 0 L 
  2772. stroke Q } def
  2773. end 
  2774. #
  2775. ropedict begin
  2776. /roman 
  2777. { q .05 w n translate rotate 
  2778. scale -.5 0 m -.5 .4 L .3 .4 L
  2779. .3 -.25 L -.1 -.25 L -.1 0 L .1 0 L
  2780. .1 .25 L -.3 .25 L -.3 -.4 L .5 -.4 L
  2781. .5 0 L stroke Q } def
  2782. end 
  2783. #
  2784. ropedict begin
  2785. /heart 
  2786. { blocksetup 0 -.5 m -.42 -0.1 L
  2787. -.52 0 -.52 .2 -.42 .3 C -.3 .4 -.1 .4 0 .2 C
  2788. .1 .4 .3 .4 .42 .3 C .52 .2 .52 0 .42 -.1 C
  2789. blockfinish } def
  2790. end 
  2791. #
  2792. {currentfile fhimbuf1 readhexstring pop}
  2793. #
  2794. {currentfile fhimbuf1 readstring pop}
  2795. #
  2796. {currentfile fhimbuf1 readhexstring pop}
  2797. {currentfile fhimbuf2 readhexstring pop}
  2798. {currentfile fhimbuf3 readhexstring pop}
  2799. #
  2800. {currentfile fhimbuf1 readstring pop}
  2801. {currentfile fhimbuf2 readstring pop}
  2802. {currentfile fhimbuf3 readstring pop}
  2803. #
  2804. {currentfile fhimbuf1 readhexstring pop}
  2805. {currentfile fhimbuf2 readhexstring pop}
  2806. {currentfile fhimbuf3 readhexstring pop}
  2807. {currentfile fhimbuf4 readhexstring pop}
  2808. #
  2809. {currentfile fhimbuf1 readstring pop}
  2810. {currentfile fhimbuf2 readstring pop}
  2811. {currentfile fhimbuf3 readstring pop}
  2812. {currentfile fhimbuf4 readstring pop}
  2813. #
  2814. /fhimbuf1 ^0 string def
  2815. ^1 ^2 ^3 ^4 ^5
  2816. #
  2817. separationimage
  2818. #
  2819. /fhimbuf1 ^0 string def
  2820. ^1 ^2 ^3 ^4 ^5
  2821. #
  2822. image
  2823. #
  2824. ^A vc
  2825. /fhimbuf1 ^0 string def
  2826. ^1 ^2 ^C ^4 ^5
  2827. #
  2828. imagemask
  2829. #
  2830. /fhimbuf1 ^0 string def
  2831. /fhimbuf2 ^0 string def
  2832. /fhimbuf3 ^0 string def
  2833. /fhimbuf4 ^0 string def
  2834. ^1 ^2 ^3 ^4 ^5 ^B ^6
  2835. #
  2836. colorimage
  2837. #
  2838. /fhimbuf1 ^0 string def
  2839. ^1 ^2 ^3 ^4 ^5 [^8 (^9)]
  2840. #
  2841. customcolorimage
  2842. #
  2843. %%BeginBinary: ^7
  2844. #
  2845. %%EndBinary
  2846. #
  2847. ImMatrix currentmatrix pop 
  2848. origmtx setmatrix 
  2849. %ALDImageFileName: ^Z
  2850. %ALDImageDimensions: ^1 ^2
  2851. %ALDImageCropRect: ^3 ^4 ^5 ^6
  2852. %ALDImagePosition: ^7
  2853. %ALDImageResolution: ^A ^B
  2854. %ALDImageColor: ^C (^D)
  2855. %ALDImageType: ^E ^F
  2856. %ALDImageTransparency: ^G
  2857. %%BeginObject: image
  2858. ImMatrix setmatrix 
  2859. #
  2860. %%EndObject
  2861. #
  2862. [0 0 0 0] vc ^0 ^1 ^2 ^3 rectfill
  2863. #
  2864. AltsysDict begin
  2865. ^0 eomode
  2866. ^2 vc
  2867. {^1}stopped pop
  2868. end
  2869. #
  2870. AltsysDict begin
  2871. {^1 <^0> pS}stopped pop
  2872. end
  2873. #
  2874. AltsysDict begin
  2875. ^2 eomode
  2876. {^1 <^0> pF}stopped pop
  2877. end
  2878. #
  2879. /fhtiledict ^0 dict def
  2880. #
  2881. fhtiledict begin
  2882. 10 dict
  2883. begin
  2884. /PatternType 1 def
  2885. /PaintType 1 def 
  2886. /Multi 1 def 
  2887. /TilingType 1 def
  2888. /BBox [0 0 ^1 ^2] def
  2889. /XStep ^1 def
  2890. /YStep ^2 def
  2891. /PaintProc {
  2892. pop 
  2893. AltsysDict begin
  2894. save
  2895. ^3 neg ^4 neg translate
  2896. #
  2897. (
  2898. #
  2899. ) cvx exec
  2900. #
  2901. restore
  2902. end
  2903. }bdf
  2904. currentdict 
  2905. end 
  2906. /tile^0 xdf 
  2907. end 
  2908. #
  2909. fhtiledict /tile^0 get 
  2910. ^5 PATmp PATsp
  2911. /clipper load /eoclip load eq PATfill
  2912. #
  2913. setcolorscreen
  2914. #
  2915. initmatrix newpath initclip
  2916. 1 setlinewidth 0 setlinecap 0 setlinejoin
  2917. [] 0 setdash 0 setgray 10 setmiterlimit
  2918. #
  2919. MacVec 256 array copy
  2920. #
  2921. dup ^0 /^1 put
  2922. #
  2923. ^0 /^1 def
  2924. #
  2925. md begin BDFontDict begin userdict begin
  2926. #
  2927. end end end
  2928. #
  2929. /f^1 /|______^0 dup RF findfont def
  2930. #
  2931. %!PS-Adobe-2.0 EPSF-1.2
  2932. %%BoundingBox: 0 0 72 72
  2933. /BogusEPSDict 1 dict def
  2934. BogusEPSDict /EPSError false put
  2935. /_VrtSaveObj1 save def
  2936. /CheckerDict 50 dict def 
  2937. CheckerDict begin
  2938. /_VrtDictCount countdictstack def 
  2939. /_VrtOperandCount count 1 sub def 
  2940. /_VrtsaveCnt 0 def 
  2941. /_VrtgsaveCnt 0 def 
  2942. /_VrtdidRestore 0 def 
  2943. /_VrtbadSaveCnt 0 def 
  2944. /_VrtbadGSAVECnt 0 def 
  2945. /save 
  2946. {CheckerDict /_VrtsaveCnt _VrtsaveCnt 1 add put save} bind def
  2947. /restore 
  2948. {_VrtsaveCnt 1 ge
  2949. {
  2950. BogusEPSDict /EPSError get exch
  2951. restore 
  2952. BogusEPSDict /EPSError 3 -1 roll put
  2953. CheckerDict /_VrtsaveCnt _VrtsaveCnt 1 sub put /_VrtdidRestore 1 def}
  2954. {CheckerDict /_VrtbadSaveCnt 1 put pop (in PS from user) errordict /invalidrestore get exec}
  2955. ifelse
  2956. } bind def
  2957. /gsave
  2958. {CheckerDict /_VrtgsaveCnt _VrtgsaveCnt 1 add put gsave} bind def
  2959. /grestore
  2960. {_VrtgsaveCnt 1 ge
  2961. {grestore CheckerDict /_VrtgsaveCnt _VrtgsaveCnt 1 sub put}
  2962. {CheckerDict /_VrtbadGSAVECnt 1 put}
  2963. ifelse
  2964. } bind def
  2965. /makeSyntaxError {errordict /syntaxerror get exec} def
  2966. /initgraphics {(initgraphics operator should not be called in User PS)
  2967. makeSyntaxError} def
  2968. /banddevice {(banddevice operator should not be called in User PS)
  2969. makeSyntaxError} def
  2970. /clear {(clear operator should not be called in User PS)
  2971. makeSyntaxError} def
  2972. /cleardictstack {(cleardictstack operator should not be called in User PS)
  2973. makeSyntaxError} def
  2974. /copypage {(copypage operator should not be called in User PS)
  2975. makeSyntaxError} def
  2976. /erasepage {(erasepage operator should not be called in User PS)
  2977. makeSyntaxError} def
  2978. /exitserver {(exitserver operator should not be called in User PS)
  2979. makeSyntaxError} def
  2980. /framedevice {(framedevice operator should not be called in User PS)
  2981. makeSyntaxError} def
  2982. /grestoreall {(grestoreall operator should not be called in User PS)
  2983. makeSyntaxError} def
  2984. /initclip {(initclip operator should not be called in User PS)
  2985. makeSyntaxError} def
  2986. /initmatrix {(initmatrix operator should not be called in User PS)
  2987. makeSyntaxError} def
  2988. /quit {(quit operator should not be called in User PS)
  2989. makeSyntaxError} def
  2990. /renderbands {(renderbands operator should not be called in User PS)
  2991. makeSyntaxError} def
  2992. /setglobal {pop (setglobal operator should not be called in User PS)
  2993. makeSyntaxError} def
  2994. /setpagedevice {pop (setpagedevice operator should not be called in User PS)
  2995. makeSyntaxError} def
  2996. /setpagedevice {pop (setpagedevice operator should not be called in User PS)
  2997. makeSyntaxError} def
  2998. /startjob {pop pop (startjob operator should not be called in User PS)
  2999. makeSyntaxError} def
  3000. #
  3001. count _VrtOperandCount ne {
  3002. count _VrtOperandCount sub {pop} repeat
  3003. (operand stack was not returned to original state in User PS)
  3004. makeSyntaxError
  3005. } if 
  3006. _VrtDictCount countdictstack ne {
  3007. countdictstack _VrtDictCount sub {end} repeat
  3008. (dictionary stack were not returned to original state in User PS)
  3009. makeSyntaxError
  3010. } if
  3011. _VrtbadSaveCnt 0 gt 
  3012. {(too many restore calls in User PS) makeSyntaxError} if
  3013. _VrtbadGSAVECnt 0 gt 
  3014. {(too many grestore calls in User PS) makeSyntaxError} if 
  3015. _VrtdidRestore 0 eq {
  3016. _VrtsaveCnt 0 gt 
  3017. {(missing restore call(s) in User PS) makeSyntaxError} if 
  3018. _VrtgsaveCnt 0 gt 
  3019. {(missing grestore call(s) in User PS) makeSyntaxError} if
  3020. } if 
  3021. BogusEPSDict /EPSError get 
  3022. _VrtSaveObj2 systemdict /restore get exec
  3023. BogusEPSDict /EPSError 3 -1 roll put
  3024. end
  3025. BogusEPSDict /EPSError get 
  3026. _VrtSaveObj1 restore
  3027. BogusEPSDict /EPSError 3 -1 roll put
  3028. #
  3029. /image{_image}bind def
  3030. /_colorimage defed { /colorimage { _colorimage } bind def } if
  3031. #
  3032. -90 rotate ^4 neg 0 translate 
  3033. #
  3034. /makepattern defed /xt xdf
  3035. xt not {/yt save def} if
  3036. /PATmp{
  3037. exch dup length 3 add dict copy
  3038. begin
  3039. currentdict /Multi known not {/Multi 1 def} if
  3040. Multi 1 ne {
  3041. /UserProc /PaintProc load def
  3042. /PaintProc {
  3043. begin
  3044. 0 1 Multi 1 sub {
  3045. PaintColors 1 index get PATsc
  3046. PaintData exch get
  3047. gsave currentdict UserProc grestore
  3048. }for 
  3049. end
  3050. } bdf
  3051. } if
  3052. currentdict
  3053. end
  3054. exch makepattern
  3055. }bdf
  3056. /PATsp{
  3057. dup /PaintType get 2 eq
  3058. {
  3059. exch aload length 4 eq
  3060. {5 -1 roll}
  3061. {spots exch get 0 4 getinterval aload pop
  3062. 4 {4 index mul 4 1 roll} repeat 6 -2 roll pop}ifelse 
  3063. [/Pattern /DeviceCMYK] setcolorspace
  3064. }if
  3065. setpattern
  3066. }bdf
  3067. /PATfill{{{eofill}fp}{{fill}fp}ifelse}bdf
  3068. /PATprestroke{}bdf
  3069. /PATstroke{stroke}bdf
  3070. xt not {yt restore} if
  3071. xt {/yt save def} if
  3072. /PATtcalc{
  3073. gsave
  3074. exch concat 
  3075. matrix currentmatrix exch 
  3076. 2 ne {
  3077. dup 4 get exch dup 5 get exch
  3078. XStep 0 dtransform round exch round exch
  3079. XStep div exch XStep div exch
  3080. 0 YStep dtransform round exch round exch
  3081. YStep div exch YStep div exch
  3082. 7 -3 roll astore
  3083. } if
  3084. grestore
  3085. }bdf
  3086. /PATmp{
  3087. exch 
  3088. dup 
  3089. length 8 add 
  3090. dict copy 
  3091. begin 
  3092. TilingType PATtcalc 
  3093. /PATcurrentMtx xdf 
  3094. currentdict /Multi known not {/Multi 1 def} if
  3095. /FontType 3 def
  3096. /Encoding 256 array def
  3097. 3 string 0 1 255 
  3098. {Encoding exch dup 3 index cvs cvn put} for pop
  3099. /FontMatrix matrix def
  3100. /FontBBox BBox def
  3101. /BuildChar {
  3102. mark 3 1 roll
  3103. exch begin
  3104. Multi 1 ne {PaintData exch get}{pop}ifelse
  3105. PaintType 2 eq Multi 1 ne or
  3106. {XStep 0 FontBBox aload pop setcachedevice}
  3107. {XStep 0 setcharwidth}ifelse
  3108. currentdict 
  3109. /PaintProc load 
  3110. end
  3111. gsave exec grestore
  3112. cleartomark
  3113. }bdf
  3114. currentdict 
  3115. end
  3116. /foo exch
  3117. definefont
  3118. }bdf
  3119. /PATsp{
  3120. /PATcurrent xdf
  3121. PATcurrent /PaintType get 2 eq
  3122. {/PATcolor xdf}if
  3123. }bdf
  3124. /PATpcalc{
  3125. PATcurrent begin
  3126. gsave
  3127. PATcurrentMtx setmatrix
  3128. BBox aload pop pop pop translate
  3129. pathbbox
  3130. grestore
  3131. YStep div ceiling 4 1 roll
  3132. XStep div ceiling 4 1 roll
  3133. YStep div floor 4 1 roll
  3134. XStep div floor 4 1 roll
  3135. 2 index sub cvi abs
  3136. exch 3 index sub cvi abs exch
  3137. 4 2 roll
  3138. YStep mul exch XStep mul exch
  3139. end
  3140. }bdf
  3141. /PATfill{
  3142. {{eoclip}fp}{{clip}fp}ifelse
  3143. PATpcalc 
  3144. newpath
  3145. PATcurrent dup begin
  3146. setfont
  3147. PATcurrentMtx setmatrix
  3148. PaintType 2 eq {PATcolor vc} if
  3149. 3 index string 
  3150. 0 1 Multi 1 sub { 
  3151. 3 index 3 index moveto
  3152. Multi 1 ne {dup PaintColors exch get vc} if
  3153. 0 1 7 index 1 sub { 
  3154. 2 index 
  3155. exch 
  3156. 2 index put
  3157. } for
  3158. pop 
  3159. 3 index 
  3160. {
  3161. currentpoint 
  3162. 2 index show
  3163. YStep add moveto
  3164. }repeat
  3165. }for
  3166. 5 {pop} repeat 
  3167. end
  3168. }bdf
  3169. /PATprestroke{strokepath}bdf
  3170. /PATstroke{false PATfill}bdf
  3171. xt {yt restore} if
  3172. #
  3173. /showpage {(showpage operator should not be called in User PS)
  3174. makeSyntaxError} def
  3175. #
  3176. /_VrtSaveObj2 save def 
  3177. /_VrtsaveCnt 0 def
  3178. #
  3179. exch pop setpageparams
  3180. #
  3181.