home *** CD-ROM | disk | FTP | other *** search
/ Internet Standards / CD1.mdf / nist / oiw / agreemnt / 1993 / 22s_9306.ps < prev    next >
Text File  |  1993-07-30  |  13KB  |  452 lines

  1. %!PS-Adobe
  2. /wpdict    120 dict def
  3. wpdict    begin
  4. /bdef    {bind def} bind def
  5.  
  6. /bflg    false def
  7. /Bfont    0 def
  8. /bon    false def
  9.  
  10. /psz    0 def
  11. /_S    /show load def
  12. /_t    {0 rmoveto} bdef
  13.  
  14. /_pixelsnap
  15.     {transform .25 sub round .25 add
  16.      exch .25 sub round .25 add exch itransform
  17.     } bdef
  18. /_pixeldsnap
  19.     { dtransform round exch round exch idtransform } bdef
  20.  
  21. /_lt    {_pixelsnap lineto} bdef
  22. /_rlt    {_pixeldsnap rlineto} bdef
  23. /_mt    {_pixelsnap moveto} bdef
  24. /_rmt    {_pixeldsnap rmoveto} bdef
  25.  
  26. /bshow    {gsave psz 30 div 0 _rmt dup show grestore show} bdef
  27.  
  28. /DUx    0 def
  29. /DUy    0 def
  30. /hscl    0 def
  31.  
  32. /M    {_mt
  33.      2 mul -2 2
  34.      { -2 roll 0 _rmt _S } for
  35.     } bdef
  36.  
  37. /makeoutl
  38.     { dup /OutlineFlag known not
  39.       { dup dup length 2 add dict begin
  40.         {1 index /FID ne { def }{ pop pop } ifelse } forall
  41.         /UniqueID known {/UniqueID UniqueID 10000 add def} if
  42.         /PaintType PaintType 0 eq { 2 }{ PaintType } ifelse def
  43.         /StrokeWidth 15 def
  44.         /OutlineFlag true def
  45.         /OutlineFont currentdict end definefont
  46.       } if
  47.     } bdef
  48.  
  49. /nbuff    50 string def
  50. /orntsv    0 def
  51. /plen    0 def
  52. /pwid    0 def
  53. /picstr    1 string def
  54.  
  55. /WPencoding StandardEncoding 256 array copy def 0
  56.  [ 127/Aacute/Acircumflex/Adieresis/Agrave/Aring/Atilde/Ccedilla
  57.   /Delta/Eacute/Ecircumflex/Edieresis/Egrave/Eth/Gamma/Iacute
  58.   /Icircumflex/Idieresis/Igrave/Lambda/Ntilde/Oacute
  59.   /Ocircumflex/Odieresis/Ograve/Omega/Otilde/Phi/Pi/Psi
  60.   /Scaron/Sigma/TeXtext32/Theta/Thorn
  61.   209/Uacute/Ucircumflex/Udieresis/Ugrave/Upsilon/Xi/Yacute
  62.   /Ydieresis/Zcaron/aacute/acircumflex/adieresis/agrave
  63.   /aring/atilde/brokenbar
  64.   228/ccedilla/copyright/degree/divide
  65.   236/dotlessj/eacute/ecircumflex/edieresis/egrave
  66.   242/eth/ff/ffi
  67.   246/ffl/iacute
  68.   252/icircumflex/idieresis/igrave/logicalnot
  69.   1/minus/mu/multiply/ntilde/oacute/ocircumflex/odieresis
  70.   /ograve/onehalf/onequarter/onesuperior/otilde/plusminus
  71.   /registered/scaron/thorn/threequarters/threesuperior
  72.   /trademark/twosuperior/uacute/ucircumflex/udieresis
  73.   /ugrave/yacute/ydieresis/zcaron
  74. ]
  75. { dup type /nametype eq
  76.   { WPencoding 2 index 2 index put pop 1 add }
  77.   { exch pop } ifelse
  78. } forall pop
  79.  
  80. /reencode
  81. { dup FontDirectory exch known
  82.    { findfont }
  83.    {  dup nbuff cvs dup length 1 sub get 82 eq
  84.    {dup nbuff cvs dup length 1 sub 0 exch getinterval
  85.    findfont begin
  86.    currentdict dup length dict begin
  87. { 1 index /FID ne {def} {pop pop} ifelse } forall
  88. /FontName exch def
  89.  
  90. /Encoding WPencoding def
  91. currentdict dup end end
  92. /FontName get exch definefont
  93.      }
  94.      { findfont } ifelse
  95.   } ifelse
  96. } bdef
  97.  
  98. /WPDLencoding StandardEncoding 256 array copy def 0
  99. [ 127     /SA420000/SD630000/SF010000/SF020000/SF030000
  100. /SF040000/SF050000/SF060000/SF070000/SF080000/SF090000
  101. /SF100000/SF110000/SF140000/SF150000/SF160000/SF190000
  102. /SF200000/SF210000/SF220000/SF230000/SF240000/SF250000/SF260000
  103. /SF270000/SF280000/SF360000/SF370000/SF380000/SF390000/SF400000
  104. /SF410000/SF420000/SF430000
  105. 209 /SF440000/SF450000/SF460000/SF470000/SF480000
  106. /SF490000/SF500000/SF510000/SF520000/SF530000/SF540000
  107. /SF570000/SF580000/SF590000/SF600000/SF610000
  108. 228 /SM570001/SM590000/SM600000/SM630000
  109. 236 /SM680000/SM690000/SM700000/SM750000/SM750002
  110. 242 /SM770000/SM790000/SP320000
  111. 246 /SS000000/SS010000
  112. 252 /SS260000/SS270000/SV040000/apostrophereverse
  113. 1/arrowboth/arrowdown/arrowleft/arrowright/arrowup/club
  114. /deutschmark/diamond/diamondopen/exclamdbl/female
  115. /fiveeighths/franc/heart/male/musicalnote/musicalnotedbl
  116. /napostrophe/nsuperior/oneeighths/seveneighths/spade
  117. /threeeights/underscoredbl/SM760000
  118. ]
  119. { dup type /nametype eq
  120.   { WPDLencoding 2 index 2 index put pop 1 add }
  121.   { exch pop } ifelse
  122. } forall pop
  123.  
  124. /reencodeL
  125.     { dup FontDirectory exch known
  126.       { findfont }
  127.       {  dup nbuff cvs dup length 1 sub get 76 eq
  128.          {    dup nbuff cvs dup length 1 sub 0 exch getinterval
  129.          findfont begin
  130.          currentdict dup length dict begin
  131.          { 1 index /FID ne {def} {pop pop} ifelse } forall
  132.          /FontName exch def
  133.          /Encoding WPDLencoding def
  134.          currentdict dup end end
  135.          /FontName get exch definefont
  136.          }
  137.          { findfont } ifelse
  138.       } ifelse
  139.     } bdef
  140.  
  141. /ron    false def
  142. /sflg    false def
  143. /slan    0 def
  144. /sp    32 def
  145.  
  146. /sshow
  147.     { save exch
  148.        gsave
  149.         psz 20 div dup neg _rmt dup show
  150.        grestore
  151.        dup
  152.        save exch
  153.         Bfont setfont
  154.         1 setgray show
  155.        restore
  156.        currentfont makeoutl setfont show
  157.        currentpoint 3 -1 roll
  158.       restore _mt
  159.     } bdef
  160.  
  161. /Sx    0 def
  162. /Sy    0 def
  163. /Ux    0 def
  164. /Uy    0 def
  165. /W    /widthshow load def
  166.  
  167. /_B    {/bflg true def
  168.      sflg not {/_S /bshow load def /bon true def} if
  169.     } bdef
  170. /_b    {/bflg false def
  171.      bon {/_S /show load def /bon false def} if
  172.     } bdef
  173. /_bd    {save} bdef
  174. /_bp    {save 2 setmiterlimit .06 .06 scale 0 0 _mt} bdef
  175. /_ccprocs
  176.     {/proc2 exch cvlit def
  177.      /proc1 exch cvlit def
  178.      /newproc proc1 length proc2 length add
  179.      array def
  180.      newproc 0 proc1 putinterval
  181.      newproc proc1 length proc2 putinterval
  182.      newproc cvx
  183.     } def
  184. /_clr    {3 {255 div 3 1 roll} repeat
  185.      ron {6 3 roll pop pop pop} {setrgbcolor} ifelse
  186.     } bdef
  187. /_cp    /closepath load def
  188. /_cw    {stroke initclip _mt 0 2 index
  189.      _rlt 0 _rlt 0 exch neg
  190.      _rlt clip newpath
  191.     } bdef
  192. /_d    /setdash load def
  193. /_DU    {currentpoint /DUy exch def /DUx exch def} bdef
  194. /_du    {gsave
  195.       save
  196.       8 setlinewidth
  197.       currentpoint -30 add _mt
  198.       DUx DUy -30 add _lt stroke
  199.       restore
  200.       8 setlinewidth
  201.       currentpoint -50 add _mt
  202.       DUx DUy -50 add _lt stroke
  203.      grestore
  204.     } bdef
  205. /_ed    {restore} bdef
  206. /_ep    {restore showpage 0 0 _mt} bdef
  207. /_f    /eofill load def
  208. /_ff    { exch reencode exch
  209.       3 div dup /psz exch def
  210.       scalefont dup /Bfont exch def setfont
  211.     } bdef
  212. /_ffs    { /slan exch 10 div def /hscl exch 1000 div def
  213.       /psz exch 3 div def
  214.       [ psz hscl mul 0 slan dup sin exch cos div psz mul psz 0 0 ]
  215.       exch reencode exch makefont dup /Bfont exch def setfont
  216.     } bdef
  217. /_g    /setgray load def
  218. /_gs    {neg 100 add 100 div setgray} bdef
  219. /_i    {gsave
  220.       dup /picstr exch 7 add 8 idiv string def
  221.       3 1 roll translate dup 1 scale
  222.       dup 1 1 [5 -1 roll 0 0 1 0 0]
  223.       {currentfile picstr readhexstring pop} image
  224.          grestore
  225.         } bdef
  226. /_is    {save 4 1 roll
  227.       dup /picstr exch 7 add 8 idiv string def
  228.       3 1 roll translate dup 1 scale
  229.       dup 1 1 [5 -1 roll 0 0 1 0 0]
  230.       {currentfile picstr readhexstring pop} image
  231.      restore
  232.     } bdef
  233. /_ie    {1 eq { {1 exch sub} currenttransfer _ccprocs settransfer} if
  234.      /_isx exch def /_isy exch def
  235.      _isx mul exch _isy mul translate
  236.      add 2 div /_txc exch def
  237.      add 2 div /_tyc exch def
  238.      _txc _isx mul _tyc _isy mul translate
  239.      360 exch sub rotate
  240.      1 eq { _isx neg _isy scale }
  241.      { _isx _isy scale }
  242.      ifelse _txc neg _tyc neg translate
  243.     } bdef
  244. /_irms    {save
  245.       12 1 roll
  246.       1 eq {{1 exch sub} currenttransfer _ccprocs settransfer} if
  247.       /picstr exch string def translate
  248.       2 index 6 index sub 2 div 2 index 6 index sub 2 div neg
  249.       translate
  250.       5 index 5 index 2 div neg exch 2 div exch
  251.       2 copy neg exch neg exch 5 2 roll translate
  252.       360 exch sub rotate
  253.       3 index 3 index 7 index div exch 8 index div exch scale
  254.       translate pop pop 2 index 2 index scale
  255.       3 index 0 eq
  256.       { [ 3 index 0 0 5 index neg 0 0 ] }
  257.       { 3 index 1 eq
  258.       { [ 3 index 0 0 5 index 0 7 index ] }
  259.       { 3 index 128 eq
  260.       { [ 3 index neg 0 0 5 index neg 7 index 0 ] }
  261.       { [ 3 index neg 0 0 5 index 7 index 7 index ] } ifelse
  262.         } ifelse
  263.       } ifelse
  264.           {currentfile picstr readhexstring pop} image
  265.           pop
  266.      restore
  267.     } bdef
  268.  
  269. /_l    {_lt} bdef
  270. /_lr    {_rlt} bdef
  271. /_m    {_mt} bdef
  272. /_O    {currentfont makeoutl setfont} bdef
  273. /_o    {Bfont setfont} bdef
  274. /_ornt    {/pwid exch def /plen exch def
  275.      orntsv 1 eq {0 pwid translate -90 rotate} if
  276.      orntsv 2 eq {pwid plen translate 180 rotate} if
  277.      orntsv 3 eq {plen 0 translate 90 rotate} if
  278.      dup 1 eq {pwid 0 translate 90 rotate} if
  279.      dup 2 eq {pwid plen translate 180 rotate} if
  280.      dup 3 eq {0 plen translate -90 rotate} if
  281.      /orntsv exch def
  282.     } bdef
  283. /_lod1    {currentpoint orntsv plen pwid 6 -1 roll restore save} bdef
  284. /_lod2    {_bp 7 2 roll _ornt _mt} bdef
  285. /_unlod    {currentpoint orntsv plen pwid 7 -2 roll restore restore
  286.      _bp 6 1 roll _ornt _mt
  287.     } bdef
  288. /_p    {2 copy _mt 1 0 _rlt _mt} bdef
  289. /_pl    {{_lt} repeat} bdef
  290. /_R      { /ron true def /_S /_rshow load def /_t /_red load def} bdef
  291. /_rshow     { save exch
  292.        currentpoint
  293.        /RSy exch def /RSx exch def
  294.        ron {
  295.          sflg
  296.          {    currentpoint
  297.             /Ry exch def /Rx exch def
  298.             dup stringwidth pop Rx Ry psz 4 div add _mt
  299.             Rx psz 15 add setlinewidth .95 setgray 0 setlinecap
  300.             add Ry psz 4 div add _lt stroke Rx Ry _mt 0 0 0 setrgbcolor
  301.             dup show Rx Ry _mt
  302.             sshow
  303.          }
  304.          { _redshow
  305.          }ifelse
  306.        }
  307.        {     sflg {sshow} if
  308.        }ifelse
  309.        currentpoint 3 -1 roll
  310.        restore _mt
  311.      } bdef
  312. /_red    { gsave dup
  313.          currentpoint /Ry exch def /Rx exch def
  314.          Rx Ry psz 4 div add _mt
  315.          Rx psz 15 add setlinewidth .95 setgray 0 setlinecap
  316.          add Ry psz 4 div add _lt stroke
  317.          Rx Ry _mt
  318.          grestore
  319.          0 rmoveto
  320.     }bdef
  321. /_redshow {currentpoint
  322.          /Ry exch def /Rx exch def
  323.          dup stringwidth pop Rx Ry psz 4 div add _mt
  324.          Rx psz 15 add setlinewidth .95 setgray 0 setlinecap
  325.          add Ry psz 4 div add _lt stroke Rx Ry _mt 0 0 0 setrgbcolor
  326.          show currentpoint _mt
  327.     }bdef
  328. /_rmxy    {_rmt} bdef
  329. /_s    /stroke load def
  330. /_SH    bon {/bon false def} if
  331.     {/sflg true def /_S /_rshow load def
  332.     } bdef
  333. /_sh    { ron     {/sflg false def bflg {_B} if}
  334.         {/_S /show load def /sflg false def bflg {_B} if}ifelse
  335.     }bdef
  336. /_sp    { gsave stroke grestore } bdef
  337. /_ST    {currentpoint /Sy exch def /Sx exch def} bdef
  338. /_st    {gsave
  339.       currentpoint pop
  340.       Sx dup Sy _mt sub
  341.       (\320) stringwidth pop div
  342.       dup floor cvi dup
  343.       dup 0 gt {{(\320) show} repeat}{pop} ifelse sub
  344.       dup 0 gt {1 scale (\320) show}{pop} ifelse
  345.      grestore
  346.     } bdef
  347. /_U    {currentpoint /Uy exch def /Ux exch def} bdef
  348. /_u    {gsave
  349.       currentpoint
  350.       -30 add _mt
  351.       Ux Uy -30 add _lt
  352.       12 setlinewidth
  353.       stroke
  354.      grestore
  355.     } bdef
  356. /_w    /setlinewidth load def
  357. end
  358. /#copies 1 def /wpdict2 100 dict def
  359. wpdict begin wpdict2 begin
  360. _bd
  361. /_rhs{readhexstring}bdef/_tr{translate}bdef
  362. /_ix{index}bdef/_mx{matrix}bdef
  363. /ife{ifelse}bdef/_x{exch}bdef
  364. /_is{save 4 1 roll
  365. dup/picstr _x 7 add 8 idiv string def
  366. 3 1 roll _tr dup 1 scale
  367. dup 1 1[5 -1 roll 0 0 1 0 0]
  368. {currentfile picstr _rhs pop}image restore}bdef
  369. /_epsi{1 eq{{1 _x sub}currenttransfer _ccprocs settransfer}if
  370. /yp _x def/xp _x def/dhgt _x def/dwid _x def
  371. 4 copy sub/swid _x def
  372. sub/shgt _x def
  373. add 2 div/icx _x def add 2 div/icy _x def
  374. xp dwid 2 div add icx sub yp dhgt 2 div sub
  375. icy sub _tr icx icy _tr
  376. 360 _x sub rotate
  377. dwid swid div/xsc _x def _x
  378. dhgt shgt div/ysc _x def _x
  379. dup 1 eq{xsc neg/xsc _x def pop}
  380. {dup 2 eq{ysc neg /ysc _x def pop}
  381. {3 eq{ysc neg/ysc _x def xsc neg/xsc _x def}
  382. {}ife}ife}ife
  383. xsc ysc scale
  384. 100 div _x 100 div _x scale
  385. icx neg icy neg _tr}bdef
  386. /_c{3{255 div 3 1 roll}repeat setrgbcolor}bdef
  387. /eq3{3 copy 2 _ix eq{eq{true}{false}ife}{pop
  388. pop false}ife}bdef
  389. /g{255 div setgray}bdef
  390. /_clr{ron{6 3 roll pop pop pop}{eq3{pop
  391. pop g}{_c}ife}ife}bdef
  392. /_r{/ron false def eq3{1 sub neg g pop
  393. pop}{setrgbcolor}ife}bdef
  394. /_ircms{save 15 1 roll
  395. 1 eq{{1 exch sub}currenttransfer _ccprocs settransfer}if
  396. /pstr _x string def _tr
  397. /Cli _x def/USy _x def/USx _x def/Rot _x def/HTd _x def
  398. /WDd _x def/Bdep _x def/HTs _x def/WDs _x def/MIR _x def
  399. USx 100 div USy 100 div scale
  400. WDd WDs sub 2 div HTd HTs sub 2 div neg _tr
  401. WDs HTs 2 div neg _x 2 div _x _tr
  402. Rot 360 _x sub rotate WDd HTd HTs div _x WDs div _x scale
  403. WDs 2 div neg HTs 2 div _tr
  404. WDs HTs scale WDs HTs Bdep MIR 0
  405. eq{[WDs 0 0 HTs neg 0 0]}{MIR 1 eq{[WDs 0 0 HTs 0 HTs]}
  406. {MIR 128 eq{[WDs neg 0 0 HTs neg WDs 0]}
  407. {[WDs neg 0 0 HTs WDs HTs]}ife}ife}ife
  408. {currentfile pstr _rhs pop}Cli
  409. 0 eq{image}{false 3 colorimage}ife
  410. restore}bdef
  411. /_bp{save 2 setlinecap 2 setmiterlimit
  412. .06 .06 scale 0 0 moveto}bdef
  413. /tctm _mx def/trot _mx def/tscale _mx def/rmtx _mx def
  414. /fr{72 0 rmtx defaultmatrix dtransform
  415. /yres _x def/xres _x def
  416. xres dup mul yres dup mul add sqrt}bdef
  417. /sus{/spotf _x def/sang _x def/csz _x def
  418. /m tctm currentmatrix def/rm sang trot rotate def
  419. /sm csz dup tscale scale def
  420. sm rm m m concatmatrix m concatmatrix pop
  421. 1 0 m dtransform /y1 _x def/x1 _x def
  422. /veclength x1 dup mul y1 dup mul add sqrt def
  423. /frcy fr veclength div def /nsang y1 x1 atan def
  424. frcy nsang/spotf load setscreen}bdef
  425. /bitis{/ybit _x def /xbit _x def
  426. /bval bstring ybit bwidth mul xbit 8 idiv add get def
  427. /mask 1 7 xbit 8 mod sub bitshift def
  428. bval mask and 0 ne}bdef
  429. /bps{/y _x def /x _x def
  430. /xndx x 1 add 2 div bpside mul cvi def
  431. /yndx y 1 add 2 div bpside mul cvi def
  432. xndx yndx bitis
  433. {/onb onb 1 add def 1}{/ofb ofb 1 add def 0}ife}bdef
  434. /stpatt{/csz _x def /angle _x def /bwidth _x def
  435. /bpside _x def /bstring _x def
  436. /onb 0 def /ofb 0 def
  437. csz angle /bps load
  438. sus{}settransfer
  439. ofb ofb onb add div _g}bdef
  440. /_fp{8 1 0 cpi stpatt}bdef
  441. /_pf{gsave eofill grestore}bdef
  442. /_np{newpath}bdef/_lc{setlinecap}bdef
  443. /_sr{/cpi _x def}bdef
  444. /nbuff 50 string def
  445. letter _bp 0 13200 10200 _ornt /CourierR 600 _ff
  446. 0 13200 10200 _ornt 
  447. /_r      { sflg {/_t {0 rmoveto}bdef /ron false def}
  448.          { /_S /show load def /_t {0 rmoveto}bdef /ron false def}ifelse
  449.      }bdef
  450. _ep
  451. _ed end end
  452.