home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 August / PCWorld_1999-08_cd.bin / Novinky / adobe / Instal / archive.z / AIRes.dll / TEXT / 1022 < prev    next >
Text File  |  1998-10-05  |  2KB  |  136 lines
  1. %%BeginResource: procset Adobe_cshow 2.0 8
  2. %%Title: (Writing System Operators)
  3. %%Version: 2.0 8
  4. %%CreationDate: (1/23/89) ()
  5. %%Copyright: ((C) 1992-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_cshow 14 dict dup begin put
  8. /initialize
  9. {
  10.     Adobe_cshow begin
  11.     Adobe_cshow
  12.     {
  13.         dup xcheck
  14.         {
  15.             bind
  16.         } if
  17.         pop pop
  18.     } forall
  19.  end
  20.     Adobe_cshow begin
  21. } def
  22. /terminate
  23. {
  24. currentdict Adobe_cshow eq
  25.     {
  26.  end
  27.     } if
  28. } def
  29. /cforall
  30. {
  31.     /_lobyte 0 ddef
  32.     /_hibyte 0 ddef
  33.     /_cproc exch ddef
  34.     /_cscript currentfont /FontScript known { currentfont /FontScript get } { -1 } ifelse ddef
  35.     {
  36.         /_lobyte exch ddef
  37.         _hibyte 0 eq
  38.         _cscript 1 eq
  39.         _lobyte 129 ge _lobyte 159 le and
  40.         _lobyte 224 ge _lobyte 252 le and or and
  41.         _cscript 2 eq
  42.         _lobyte 161 ge _lobyte 254 le and and
  43.         _cscript 3 eq
  44.         _lobyte 161 ge _lobyte 254 le and and
  45.         _cscript 25 eq
  46.         _lobyte 161 ge _lobyte 254 le and and
  47.         _cscript -1 eq
  48.         or or or or and
  49.         {
  50.             /_hibyte _lobyte ddef
  51.         }
  52.         {
  53.             _hibyte 256 mul _lobyte add
  54.             _cproc
  55.             /_hibyte 0 ddef
  56.         } ifelse
  57.     } forall
  58. } def
  59. /cstring
  60. {
  61.     dup 256 lt
  62.     {
  63.         (s) dup 0 4 3 roll put
  64.     }
  65.     {
  66.         dup 256 idiv exch 256 mod
  67.         (hl) dup dup 0 6 5 roll put 1 4 3 roll put
  68.     } ifelse
  69. } def
  70. /clength
  71. {
  72.     0 exch
  73.     { 256 lt { 1 } { 2 } ifelse add } cforall
  74. } def
  75. /hawidthshow
  76. {
  77.     {
  78.         dup cstring
  79.         show
  80.         _hvax _hvay rmoveto
  81.         _hvwb eq { _hvcx _hvcy rmoveto } if
  82.     } cforall
  83. } def
  84. /vawidthshow
  85. {
  86.     {
  87.         dup 255 le
  88.         _charorientation 1 eq
  89.         and
  90.         {
  91.             -90 rotate
  92.             0 _fontRotateAdjust rmoveto
  93.             cstring
  94.             _hvcx _hvcy _hvwb _hvax _hvay 6 -1 roll awidthshow
  95.             0 _fontRotateAdjust neg rmoveto
  96.             90 rotate
  97.         }
  98.         {
  99.             currentpoint
  100.             _fontHeight sub
  101.             exch _hvay sub exch _hvax sub
  102.             2 index _hvwb eq { exch _hvcy sub exch _hvcx sub } if
  103.             3 2 roll
  104.             cstring
  105.             dup stringwidth pop 2 div neg _fontAscent neg rmoveto
  106.             show
  107.             moveto
  108.         } ifelse
  109.     } cforall
  110. } def
  111. /hvawidthshow
  112. {
  113.     6 1 roll
  114.     /_hvay exch ddef
  115.     /_hvax exch ddef
  116.     /_hvwb exch ddef
  117.     /_hvcy exch ddef
  118.     /_hvcx exch ddef
  119.     _lineorientation 0 eq { hawidthshow } { vawidthshow } ifelse
  120. } def
  121. /hvwidthshow
  122. {
  123.     0 0 3 -1 roll hvawidthshow
  124. } def
  125. /hvashow
  126. {
  127.     0 0 0 6 -3 roll hvawidthshow
  128. } def
  129. /hvshow
  130. {
  131.     0 0 0 0 0 6 -1 roll hvawidthshow
  132. } def
  133. currentdict readonly pop end
  134. setpacking
  135. %%EndResource
  136.