home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / AT_WORLD / AWRLD04B.ZIP / AWRLD04B.MSA / PSCRIPT.PTD < prev    next >
Text File  |  1991-11-15  |  12KB  |  286 lines
  1. %% New PS driver
  2. statusdict begin /waittimeout 0 def end
  3. initgraphics erasepage
  4. /bd{bind def}bind def /ed{exch def}bind def
  5. 72 300 div dup scale
  6. /gr {grestore}bd /gs {gsave}bd
  7. /np {newpath}bd /cp {currentpoint}bd
  8. /lto {lineto}bd /mto {moveto}bd
  9. /clw {currentlinewidth}bd
  10. np 1 setlinejoin
  11. /bwin{/lry ed /lrx ed /uly ed /ulx ed
  12. gs 0 av 49 add uly sub translate np
  13. ulx uly mto ulx lry lto lrx lry lto lrx uly lto clip
  14. /av av uly lry sub 50 div ceiling 50 mul sub def /ah 0 def}bd
  15. /ewin{gr}bd
  16. /path{np mto{lto}repeat}bd
  17. /circle{np 0 0 1 0 360 arc}bd
  18. /ah 0 def /av 2960 def /CR{/ah 0 def}bd
  19. /LF{av 50 sub dup /av ed 0 le {FF}if}bd
  20. /FF{av 2960 ne ah 0 ne or{showpage gr gs /ah 0 def /av 2960 def}if}bd
  21. /aface 0 def /au false def
  22. /atext{fonts aface get findfont 50 scalefont setfont
  23. dup length /al ed np ah av mto show
  24. au{ah av mto al{(_)show}repeat}if cp /av ed /ah ed}bd
  25. /rend{gs 1 setlinecap np mto cp lto stroke gr}bd
  26. /vl{dup /st ed dup apath exch get tx sub dup mul
  27. exch 1 add apath exch get ty sub dup mul add sqrt}bd
  28. /doarrow{/rot ed /ty ed /tx ed
  29. 6 array currentmatrix tx ty translate
  30. clw 4 lt{4}{clw}ifelse dup scale rot rotate
  31. np 0 0 mto -3 1.5 lto -3 -1.5 lto fill setmatrix}bd
  32. /arpath{np apath 0 get apath 1 get mto 2 2 points 1 sub
  33. {dup apath exch get exch 1 add apath exch get lto}for}bd
  34. /arrowline{/apath ed /lend ed /lbeg ed
  35. /len clw 3 mul def /points apath length def
  36. lbeg{apath 0 get dup /tx ed /x1 ed
  37. apath 1 get dup /ty ed /y1 ed
  38. true 2 2 points 1 sub{vl len ge{pop false exit}if}for
  39. {/lbeg false def /lend false def}{apath 2 apath st points st sub
  40. getinterval putinterval /r1 y1 apath 3 get sub x1 apath 2 get sub atan def
  41. apath 0 x1 r1 cos len mul sub put apath 1 y1 r1 sin len mul sub put
  42. /points points st 2 sub sub def}ifelse }if
  43. lend{apath points 2 sub get dup /tx ed /x2 ed
  44. apath points 1 sub get dup /ty ed /y2 ed
  45. true points 4 sub -2 0{vl len ge{pop false exit}if}for
  46. {/lbeg false def /lend false def}
  47. {/r2 y2 apath st 1 add get sub x2 apath st get sub atan def
  48. /st st 2 add def apath st x2 r2 cos len mul sub put
  49. apath st 1 add y2 r2 sin len mul sub put /points st 2 add def}ifelse}if
  50. lbeg {x1 y1 r1 doarrow}if lend {x2 y2 r2 doarrow}if arpath}bd
  51. /ac{6 array currentmatrix xt yt translate xs ys scale}bd
  52. /shorten{dup mul exch dup mul add sqrt clw 150 mul exch div}bd
  53. /xang{}bd
  54. /arrowarc{/eang ed /bang ed /ys ed /xs ed
  55. /yt ed /xt ed /lend ed /lbeg ed
  56. ac np 0 0 1 bang xang eang xang arc setmatrix
  57. cp /y2 ed /x2 ed
  58. ac np 0 0 1 bang xang dup arc setmatrix
  59. cp /y1 ed /x1 ed
  60. lbeg{/bang bang xs ys shorten add def}if
  61. lend{/eang eang xs ys shorten sub def}if
  62. ac np 0 0 1 bang xang eang xang arc setmatrix
  63. gs stroke gr
  64. lend{x2 y2 cp y2 exch sub exch x2 exch sub atan doarrow}if
  65. lbeg{ac np 0 0 1 bang xang dup arc setmatrix
  66. x1 y1 cp y1 exch sub exch x1 exch sub atan doarrow}if}bd
  67. /rbox{/ury ed /urx ed /lly ed /llx ed
  68. urx llx sub 4 div dup 50 gt{pop 50}if /radius ed
  69. ury lly sub 4 div dup radius gt{pop radius}if /radius ed
  70. np urx radius sub ury mto
  71. llx ury llx lly radius arcto 4{pop}repeat
  72. llx lly urx lly radius arcto 4{pop}repeat
  73. urx lly urx ury radius arcto 4{pop}repeat
  74. urx ury llx ury radius arcto 4{pop}repeat}bd
  75. /marker{1 sub mdef exch get /mproc ed 32 div /msize ed
  76. {gs np translate msize dup scale mproc stroke gr}repeat}bd
  77. /mdef[{0 0 mto 1 0 lto 1 1 lto 0 1 lto closepath}
  78. {-16 0 mto 16 0 lto 0 -16 mto 0 16 lto}
  79. {0 -16 mto 0 16 lto 13.9 8 mto -13.9 -8 lto 13.9 -8 mto -13.9 8 lto}
  80. {16 16 mto -16 16 lto -16 -16 lto 16 -16 lto closepath}
  81. {16 16 mto -16 -16 lto -16 16 mto 16 -16 lto}
  82. {16 0 mto 0 16 lto -16 0 lto 0 -16 lto closepath}]def
  83. /patdef{/patbits exch store /patname exch store
  84. CharStrings patname[16 16 true[16 0 0 16 0 0]patbits /imagemask load]cvx put}bd
  85. /patname null def /patbits null def /BuildCharDict 10 dict def
  86. /ExFont 7 dict def ExFont begin /FontType 3 def /FontMatrix[1 0 0 1 0 0 ]def
  87. /FontBBox[0 0 1 1]def /Encoding 256 array def 0 1 255{Encoding exch /.notdef put}for
  88. /CharStrings 39 dict def CharStrings /.notdef{}put
  89. /BuildChar{BuildCharDict begin /char ed /fontdict ed
  90. /charproc fontdict /Encoding get char get fontdict /CharStrings get exch get def
  91. 1 0 0 0 1 1 setcachedevice gs charproc gr end}bd end
  92. /PatFont ExFont definefont pop
  93. /tile{/tchar ed /txl ed /tyl ed /ty ed /tx ed
  94. gs 1 setgray eofill gr gs eoclip np
  95. /PatFont findfont 32 scalefont setfont
  96. tx ty mto tyl{gs txl{tchar show}repeat
  97. gr 0 -32 rmoveto}repeat gr}bd
  98. /ellpie{/pie ed /eang ed /bang ed
  99. /ys ed /xs ed /yt ed /xt ed
  100. 6 array currentmatrix xt yt translate xs ys scale
  101. np pie{0 0 mto}if
  102. 0 0 1 bang xang eang xang arc setmatrix}bd
  103. /roundarc{gs 1 setlinecap cp np mto
  104. cp lto stroke gr}bd
  105. /decode{{vrep 0.1 gt{/vrep vrep 1 sub def scan}
  106. {/spos 0 def{currentfile token pop currentfile token pop
  107. exch imop exch get exec spos smax ge{scan exit}if}loop}ifelse}image}bd
  108. /imop[{<ff> psc}{<00> psc}
  109. {currentfile patlen string readhexstring pop psc}
  110. {string currentfile exch readhexstring pop 1 exch psc}
  111. {1 sub /vrep ed}]def
  112. /psc{dup length /plen ed exch -1 1 {pop dup scan exch
  113. spos exch putinterval /spos spos plen add def}for pop}bd
  114. /gtext{gs /msg ed /ty ed /tx ed
  115. tx ty translate trotate rotate tcolor setgray
  116. fonts tface get findfont tscale scalefont setfont
  117. 10 setflat horz halign get exec vert valign get exec
  118. tpos msg show
  119. tunder{extents pop /x1 ed 5 div dup neg setlinewidth 1.5 mul ty add /ty ed
  120. pop np tx ty mto x1 tx add ty lto stroke}if gr}bd
  121. /tpos{np tx ty mto}bd
  122. /jtext{gs /msg ed /just ed
  123. /dx ed /ty ed /tx ed
  124. tx ty translate trotate rotate tcolor setgray
  125. fonts tface get findfont tscale scalefont setfont
  126. 10 setflat jhorz halign get exec vert valign get exec
  127. justify just get exec
  128. tunder{cp extents pop /x1 ed 5 div dup neg setlinewidth
  129. 1.5 mul ty add /ty ed pop
  130. np tx ty mto dx tx add ty lto stroke}if gr}bd
  131. /justify[{tpos msg show}{countsp spaces 0 eq{tpos msg show}
  132. {extra spaces div 0 32 tpos msg widthshow}ifelse}
  133. {extra msg length 1 sub dup 0 eq {pop pop tpos msg show}{div 0 tpos msg ashow}ifelse}]def
  134. /countsp{/spaces 0 def msg( ){search{/spaces spaces 1 add def pop}{pop exit}ifelse}loop}bd
  135. /extra{extents pop exch pop exch sub dx exch sub}def
  136. /horz[{/tx 0 def}{msg stringwidth pop -2 div /tx ed}
  137. {msg stringwidth pop neg /tx ed}]def
  138. /extents{(_) bbox pop pop msg stringwidth pop (]) bbox 3{exch pop}repeat}bd
  139. /bbox{np 0 0 mto false charpath flattenpath pathbbox np}bd
  140. /vert[{/ty 0 def}{extents -2 div /ty ed pop pop pop}
  141. {extents neg /ty ed pop pop pop}{extents pop pop neg /ty ed pop}]def
  142. /jhorz[{/tx 0 def}{/tx dx -2 div def}{/tx dx neg def}]def
  143. /reencd 12 dict def /ReEncode { reencd begin
  144. /newcodes ed /newfname ed /basefname
  145. ed /basefd basefname findfont def /newfont
  146. basefd maxlength dict def basefd { exch dup /FID ne {
  147. dup /Encoding eq { exch dup length array copy newfont 3 1 roll
  148. put } { exch newfont 3 1 roll put } ifelse } { pop pop } ifelse }
  149. forall newfont /FontName newfname put newcodes aload
  150. pop newcodes length 2 idiv { newfont /Encoding get 3 1
  151. roll put } repeat newfname newfont definefont pop end }bd
  152. /mkod 7 dict def
  153. /MkOutF { mkod begin /uniqueid ed
  154. /strokewidth ed /newfname ed /basefname ed
  155. /basefd basefname findfont def
  156. /numentries basefd maxlength 3 add def
  157. basefd /UniqueID known not
  158. { /numentries numentries 1 add def } if
  159. /outfd numentries dict def
  160. basefd { exch dup /FID ne { exch outfd 3 1 roll put }
  161. { pop pop } ifelse } forall
  162. outfd /FontName newfname put
  163. outfd /PaintType 2 put
  164. outfd /StrokeWidth strokewidth put
  165. outfd /UniqueId uniqueid put
  166. newfname outfd definefont pop end }bd
  167. /Evec [ 128 /Ccedilla 129 /udieresis 130 /eacute 131
  168. /acircumflex 132 /adieresis 133 /agrave 134 /aring 135 /ccedilla
  169. 136 /ecircumflex 137 /edieresis 138 /egrave 139 /idieresis 140
  170. /icircumflex 141 /igrave 142 /Adieresis 143 /Aring 144 /Eacute
  171. 145 /ae 146 /AE 147 /ocircumflex 148 /odieresis 149 /ograve 150
  172. /ucircumflex 151 /ugrave 152 /ydieresis 153 /Odieresis 154
  173. /Udieresis 155 /oslash 156 /sterling 157 /Oslash 158 /germandbls 159
  174. /florin 160 /aacute 161 /iacute 162 /oacute 163 /uacute 164
  175. /ntilde 165 /Ntilde 166 /a 167 /o 168 /questiondown 169
  176. /guilsinglleft 170 /guilsinglright 171 /space 172 /space 173
  177. /exclamdown 174 /guillemotleft 175 /guillemotright 176 /atilde 177
  178. /otilde 178 /yen 179 /cent 180 /oe 181 /OE 182 /Agrave 183
  179. /Atilde 184 /Otilde 185 /dieresis 186 /acute 187 /dagger
  180. 188 /paragraph 189 /space 190 /space 191 /space 249 /bullet
  181. 225 /germandbls ] def
  182. /makpenf { /penf ed /name ed
  183. FontDirectory name known { name penf Evec ReEncode } if } def
  184. /makoutf { /id ed /sw ed /outl ed /intm ed /name ed
  185. FontDirectory name known { name intm Evec ReEncode intm outl sw id MkOutF } if } def
  186. /Courier /Courier-RM makpenf
  187. /Courier-Bold /Courier-BD makpenf
  188. /Courier-Oblique /Courier-IT makpenf
  189. /Courier-BoldOblique /Courier-BI makpenf
  190. /Helvetica /Helv-RM /Helv-RMO 16 4201 makoutf
  191. /Helvetica-Bold /Helv-BD /Helv-BDO 25 4202 makoutf
  192. /Helvetica-Oblique /Helv-IT /Helv-ITO 16 4203 makoutf
  193. /Helvetica-BoldOblique /Helv-BI /Helv-BIO 25 4204 makoutf
  194. /Times-Roman /Times-RM /Times-RMO 12 4205 makoutf
  195. /Times-Bold /Times-BD /Times-BDO 20 4206 makoutf
  196. /Times-Italic /Times-IT /Times-ITO 12 4207 makoutf
  197. /Times-BoldItalic /Times-BI /Times-BIO 20 4208 makoutf
  198. /AvantGarde-Book /AvGarde-RM /AvGarde-RMO 16 4209 makoutf
  199. /AvantGarde-Demi /AvGarde-BD /AvGarde-BDO 25 4210 makoutf
  200. /AvantGarde-BookOblique /AvGarde-IT /AvGarde-ITO 16 4211 makoutf
  201. /AvantGarde-DemiOblique /AvGarde-BI /AvGarde-BIO 25 4212 makoutf
  202. /Bookman-Light /Bookman-RM /Bookman-RMO 12 4213 makoutf
  203. /Bookman-Demi /Bookman-BD /Bookman-BDO 20 4214 makoutf
  204. /Bookman-LightItalic /Bookman-IT /Bookman-ITO 12 4215 makoutf
  205. /Bookman-DemiItalic /Bookman-BI /Bookman-BIO 20 4216 makoutf
  206. /NewCenturySchlbk-Roman /Century-RM /Century-RMO 12 4217 makoutf
  207. /NewCenturySchlbk-Bold /Century-BD /Century-BDO 20 4218 makoutf
  208. /NewCenturySchlbk-Italic /Century-IT /Century-ITO 12 4219 makoutf
  209. /NewCenturySchlbk-BoldItalic /Century-BI /Century-BIO 20 4220 makoutf
  210. /Palatino-Roman /Palatino-RM /Palatino-RMO 12 4221 makoutf
  211. /Palatino-Bold /Palatino-BD /Palatino-BDO 20 4222 makoutf
  212. /Palatino-Italic /Palatino-IT /Palatino-ITO 12 4223 makoutf
  213. /Palatino-BoldItalic /Palatino-BI /Palatino-BIO 20 4224 makoutf
  214. /ZapfChancery-MediumItalic /Zapf-IT /Zapf-ITO 12 4225 makoutf
  215. /fonts [ /Courier-RM /Courier-BD
  216. /Courier-IT /Courier-BI
  217. /Courier-RM /Courier-BD
  218. /Courier-IT /Courier-BI
  219. /Helv-RM /Helv-BD
  220. /Helv-IT /Helv-BI
  221. /Helv-RMO /Helv-BDO
  222. /Helv-ITO /Helv-BIO
  223. /Times-RM /Times-BD
  224. /Times-IT /Times-BI
  225. /Times-RMO /Times-BDO
  226. /Times-ITO /Times-BIO
  227. /AvGarde-RM /AvGarde-BD
  228. /AvGarde-IT /AvGarde-BI
  229. /AvGarde-RMO /AvGarde-BDO
  230. /AvGarde-ITO /AvGarde-BIO
  231. /Bookman-RM /Bookman-BD
  232. /Bookman-IT /Bookman-BI
  233. /Bookman-RMO /Bookman-BDO
  234. /Bookman-ITO /Bookman-BIO
  235. /Century-RM /Century-BD
  236. /Century-IT /Century-BI
  237. /Century-RMO /Century-BDO
  238. /Century-ITO /Century-BIO
  239. /Palatino-RM /Palatino-BD
  240. /Palatino-IT /Palatino-BI
  241. /Palatino-RMO /Palatino-BDO
  242. /Palatino-ITO /Palatino-BIO
  243. /Zapf-IT /Zapf-IT
  244. /Zapf-IT /Zapf-IT
  245. /Zapf-ITO /Zapf-ITO
  246. /Zapf-ITO /Zapf-ITO
  247. ] def
  248. /#copies 1 def
  249. gs
  250. /saveobj save def
  251. /rs{saveobj restore /saveobj save def}bd
  252. /saveobj save def
  253. gs initclip
  254. 0 3494 2470 3494 2470 0 0 0 np mto lto lto lto clip np
  255. 300 3075 675 3075 675 3194 3 300 3194 path
  256. 0 setgray
  257. gs 1 setgray
  258. gs eofill gr gr
  259. 300 3192 675 3192 675 3194 3 300 3194 path
  260. 0 setgray
  261. gs 0 setgray
  262. gs eofill gr gr
  263. 300 3075 675 3075 675 3077 3 300 3077 path
  264. 0 setgray
  265. gs 0 setgray
  266. gs eofill gr gr
  267. 300 3075 302 3075 302 3194 3 300 3194 path
  268. 0 setgray
  269. gs 0 setgray
  270. gs eofill gr gr
  271. 673 3075 675 3075 675 3194 3 673 3194 path
  272. 0 setgray
  273. gs 0 setgray
  274. gs eofill gr gr
  275. 16 /tface exch def
  276. 0 2 div /tcolor exch def
  277. 58 /tscale exch def
  278. 0 /trotate exch def
  279. 0 /halign exch def
  280. 0 /valign exch def
  281. /tunder false def
  282. 371 3123 (Print) gtext
  283. 501 3123 (Test) gtext
  284. gr rs
  285. /av 0 def FF
  286. ⇦