home *** CD-ROM | disk | FTP | other *** search
/ The Best of Windows 95.com 1996 September / WIN95_09963.iso / ocr / rops3244.zip / ROPSBOOT._PS < prev    next >
Text File  |  1996-04-02  |  22KB  |  625 lines
  1. %!
  2. % RoPS Interpreter - ropsboot._ps
  3. % Copyright Roger Willcocks, 1993-1996
  4. % All Rights Reserved
  5. %
  6. % The RoPS interpreter is an implementation of the level 1 PostScript
  7. % programming language interpreter described in Adobe Systems' book,
  8. % the 'PostScript language reference manual'.  RoPS is not an Adobe
  9. % approved product.  The name 'PostScript' is a registered trademark of
  10. % Adobe Systems Incorporated.
  11. %
  12. % This file, which must be called 'ropsboot._ps', is read automatically
  13. % as RoPS starts up.  After the entire file has been consumed the 'start'
  14. % procedure (which is defined towards the end of this file) is executed.
  15. % Everything that's not an operator is described in this file and can be
  16. % customized.
  17. %
  18. % Version 4.4
  19.  
  20. /true where { pop (ropsboot is already loaded) print flush
  21.         currentfile closefile } if
  22.  
  23. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  24. % At this point there's a prototype 'systemdict' on the dictionary %
  25. % stack which contains an entry for each operator, and that's all. %
  26. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  27. %%Page: 1 1
  28.  
  29. /systemdict currentdict def
  30.  
  31. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  32. % put some dictionaries in systemdict %
  33. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  34.  
  35. /$error 20 dict def
  36. /errordict 100 dict def
  37. /userdict 500 dict def
  38. /FontDirectory 500 dict readonly def
  39. /serverdict 20 dict def
  40. /statusdict 80 dict def
  41.  
  42. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  43. % 'end' requires that there are at least three dictionaries     %
  44. % on the dictionary stack; juggle things so we can safely 'end' %
  45. % the dictionaries we are about to put in to systemdict.        %
  46. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  47.  
  48. userdict begin
  49. systemdict begin
  50.  
  51. /true 1 1 eq def
  52. /false true not def
  53.  
  54. % change this line if your fonts are Unicode-encoded
  55. /unicode false def
  56.  
  57. /build$error {
  58.     $error begin
  59.         /newerror false def
  60.         /errorname null def
  61.         /command null def
  62.         % these will be sub-arrays of the space reserved below
  63.         /ostack [] def 
  64.         /estack [] def
  65.         /dstack [] def
  66.         $error /oreserve 500 array put
  67.         $error /ereserve 260 array put
  68.         $error /dreserve 25  array put
  69.     end % $error dictionary
  70. } def
  71.  
  72. /.error {   % in systemdict
  73. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  74. % following two lines report error as it occurs; not standard behaviour %
  75. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  76.  
  77. %%%    (error: ) print dup print (; ) print
  78. %%%    (command: ) print exch dup =print exch (\n) print pstack flush
  79.  
  80.     % following catches errors in this file (before the server has started)
  81.  
  82.     $error /newerror known not {
  83.         (error: ) print dup print (; ) print
  84.         (command: ) print exch dup =print exch (\n) print flush
  85.         stop
  86.     } if
  87.  
  88.     $error /newerror true put
  89.     $error exch /errorname exch put
  90.     $error exch /command exch put
  91.     count
  92.     $error /oreserve get exch
  93.     0 exch getinterval
  94.     astore
  95.     $error exch /ostack exch put
  96.     $error /dstack
  97.     $error /dreserve get dictstack 
  98.     put
  99.     $error /estack
  100.     $error /ereserve get execstack  
  101.     dup length 2 sub 0 exch getinterval
  102.     put
  103.     $error /ostack get
  104.     aload pop
  105.     stop
  106. } def
  107.  
  108. errordict begin
  109.  
  110. /handleerror {
  111.     $error /newerror get  % remember, dictionary stack may be full
  112.     {
  113.         $error /newerror false put
  114. %%%%%    (%%[ Error: ) print
  115. %%%%%    $error /errorname get =print
  116. %%%%%    (; OffendingCommand: ) print
  117. %%%%%    $error /command get =print
  118. %%%%%    ( ]%%\n) print % flush
  119.  
  120.         $error /errorname get /interrupt ne {
  121.             $error /command get =print (: ) print
  122.             $error /errorname get =print
  123.             (\n\nA fault has been detected in this\n) print
  124.             (document and it has been closed) print
  125.         } if
  126.     } if
  127. } def
  128.  
  129. /dictfull           { (dictfull)           .error } def
  130. /dictstackoverflow  { (dictstackoverflow)  .error } def
  131. /dictstackunderflow { (dictstackunderflow) .error } def
  132. /execstackoverflow  { (execstackoverflow)  .error } def
  133. /invalidaccess      { (invalidaccess)      .error } def
  134. /invalidexit        { (invalidexit)        .error } def
  135. /invalidfileaccess  { (invalidfileaccess)  .error } def
  136. /invalidfont        { (invalidfont)        .error } def
  137. /invalidrestore     { (invalidrestore)     .error } def
  138. /ioerror            { (ioerror)            .error } def
  139. /limitcheck         { (limitcheck)         .error } def
  140. /nocurrentpoint     { (nocurrentpoint)     .error } def
  141. /rangecheck         { (rangecheck)         .error } def
  142. /stackoverflow      { (stackoverflow)      .error } def
  143. /stackunderflow     { (stackunderflow)     .error } def
  144. /syntaxerror        { (syntaxerror)        .error } def
  145. /timeout            { (timeout)            .error } def
  146. /typecheck          { (typecheck)          .error } def
  147. /undefined          { (undefined)          .error } def
  148. /undefinedfilename  { (undefinedfilename)  .error } def
  149. /undefinedresult    { (undefinedresult)    .error } def
  150. /unmatchedmark      { (unmatchedmark)      .error } def
  151. /unregistered       { (unregistered)       .error } def
  152. /VMerror {
  153.     $error /newerror true put
  154.     $error /errorname (VMerror) put
  155.     $error exch /command exch put
  156.     stop
  157. } def
  158. /interrupt          { (interrupt)          .error } def  % ctrl-C
  159.  
  160. end % errordict
  161.  
  162. serverdict begin
  163.  
  164. /exitservercalled false def
  165.  
  166. /statusmsg { (%%[ ) print print ( ]%%\n) print flush } def
  167.  
  168. /exitserver 
  169. { 
  170.     pop
  171.     $error /newerror false put
  172.     serverdict /exitservercalled true put
  173.     stop
  174. } def
  175.  
  176.  
  177. /execjob
  178. {
  179.     { (%stdin) (r) file cvx exec } stopped
  180.     { 
  181.         $error /newerror get {
  182.         { handleerror } stopped pop % catch errors in handler
  183. %%            (Flushing: rest of job (to end-of-file) will be ignored)
  184. %%            serverdict /statusmsg get exec
  185.             (%stdin) (r) file flushfile
  186.         } if % newerror
  187.     } if % stopped
  188.     flush clear
  189.     countdictstack 2 sub { end } repeat
  190. } def
  191.  
  192.  
  193. end % serverdict
  194. % still putting things into systemdict
  195.  
  196. /handleerror { systemdict /errordict get /handleerror get exec } bind def
  197.  
  198. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  199. % compatibility definitions %
  200. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  201.  
  202. statusdict begin
  203.     /setjobtimeout {} def
  204.     /product (RoPS) def
  205. end
  206.  
  207. % temporary, to allow FrameMaker spot colours
  208. /currentcolortransfer { currenttransfer dup dup dup } def
  209.  
  210. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  211. % default halftone screen; 28 lines per inch (on a 100 lpi printer) %
  212. % at an angle of 57 degrees.  Circular dots becoming square at 50%  %
  213. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  214. /ScreenFreq 28 def
  215. /ScreenAngle 57 def
  216. /LPI 100 def
  217. /WidthMM 210 def
  218. /DepthMM 297 def
  219.  
  220. (framebuffer) getprofile { { cvx exec def } forall } if % maybe override
  221.  
  222. %%%%%%%%%%%%%%%%%%%%%%%%%
  223. % create a frame buffer %
  224. %%%%%%%%%%%%%%%%%%%%%%%%%
  225.  
  226. /framescale LPI 72 div def
  227. /pixelwidth WidthMM 25.4 div LPI mul cvi def
  228. /pixeldepth DepthMM 25.4 div LPI mul cvi def
  229.  
  230. [ framescale 0 0 framescale 0 0 ]
  231. pixelwidth pixeldepth {} framedevice  % create frame device (proc unused)
  232.  
  233. ScreenFreq ScreenAngle
  234. { abs exch abs 2 copy add 1 gt
  235.     { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  236.     { dup mul exch dup mul add 1 exch sub }
  237. ifelse } setscreen
  238.  
  239. end % systemdict
  240. systemdict readonly pop
  241.  
  242. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  243. % finished with systemdict; userdict is waiting on the stack ... %
  244. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  245.  
  246. /StandardEncoding
  247. [
  248.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  249.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  250.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  251.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  252.     /.notdef/.notdef/.notdef/.notdef/space/exclam/quotedbl
  253.     /numbersign/dollar/percent/ampersand/quoteright/parenleft
  254.     /parenright/asterisk/plus/comma/hyphen/period/slash/zero/one
  255.     /two/three/four/five/six/seven/eight/nine/colon/semicolon
  256.     /less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K
  257.     /L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash
  258.     /bracketright/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g
  259.     /h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft
  260.     /bar/braceright/asciitilde/.notdef/.notdef/.notdef/.notdef
  261.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  262.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  263.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  264.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  265.     /.notdef/space/exclamdown/cent/sterling/fraction/yen/florin
  266.     /section/currency/quotesingle/quotedblleft/guillemotleft
  267.     /guilsinglleft/guilsinglright/fi/fl/.notdef/endash/dagger
  268.     /daggerdbl/periodcentered/.notdef/paragraph/bullet/quotesinglbase
  269.     /quotedblbase/quotedblright/guillemotright/ellipsis/perthousand
  270.     /.notdef/questiondown/.notdef/grave/acute/circumflex/tilde
  271.     /macron/breve/dotaccent/dieresis/.notdef/degree/cedilla/.notdef
  272.     /hungarumlaut/ogonek/caron/emdash/.notdef/.notdef/.notdef
  273.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  274.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/AE/.notdef
  275.     /ordfeminine/.notdef/.notdef/.notdef/.notdef/Lslash/Oslash/OE
  276.     /ordmasculine/.notdef/.notdef/.notdef/.notdef/.notdef/ae
  277.     /.notdef/.notdef/.notdef/dotlessi/.notdef/.notdef/lslash/oslash
  278.     /oe/germandbls/.notdef/.notdef/.notdef/.notdef
  279. ] def
  280.  
  281. /ISOLatin1Encoding
  282. [
  283.     /grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis
  284.     /ring/cedilla/hungarumlaut/ogonek/caron/dotlessi/fi/fl/Lslash
  285.     /lslash/Zcaron/zcaron/minus/.notdef/.notdef/.notdef/.notdef
  286.     /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/space
  287.     /exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  288.     /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
  289.     /zero/one/two/three/four/five/six/seven/eight/nine/colon
  290.     /semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H
  291.     /I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft
  292.     /backslash/bracketright/asciicircum/underscore/grave/a/b/c/d
  293.     /e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z
  294.     /braceleft/bar/braceright/asciitilde/.notdef/.notdef/.notdef
  295.     /quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
  296.     /circumflex/perthousand/Scaron/guilsinglleft/OE/.notdef/.notdef
  297.     /.notdef/.notdef/quoteleft/quoteright/quotedblleft/quotedblright
  298.     /bullet/endash/emdash/tilde/trademark/scaron/guilsinglright/oe
  299.     /.notdef/.notdef/Ydieresis/.notdef/exclamdown/cent/sterling
  300.     /currency/yen/brokenbar/section/dieresis/copyright/ordfeminine
  301.     /guillemotleft/logicalnot/hyphen/registered/macron/degree
  302.     /plusminus/twosuperior/threesuperior/acute/mu/paragraph
  303.     /periodcentered/cedilla/onesuperior/ordmasculine/guillemotright
  304.     /onequarter/onehalf/threequarters/questiondown/Agrave/Aacute
  305.     /Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute
  306.     /Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth
  307.     /Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply
  308.     /Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn
  309.     /germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae
  310.     /ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute
  311.     /icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex
  312.     /otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex
  313.     /udieresis/yacute/thorn/ydieresis
  314. ] def
  315.  
  316. /findfont {
  317.     dup FontDirectory exch known not {
  318.         (findfont: can't find ) print dup =print
  319.         (; using Courier) print flush
  320.         dup CourierFont ttmap
  321.     } if
  322.     FontDirectory exch get
  323. } bind def
  324.  
  325. /=string 140 string def
  326.  
  327. /=print { =string cvs print } bind def
  328.  
  329. /= { =print (\n) print } bind def
  330.  
  331. /==dict 20 dict def
  332.  
  333. ==dict begin
  334.     /=qc {  /str ( x) def         % quote a character
  335.         str exch 0 exch put
  336.         (\nx\\n\rx\\r\tx\\t\bx\\b\fx\\f\(x\\\(\)x\\\)\\x\\\\)
  337.         str search
  338.         { pop pop 0 2 getinterval }
  339.         { pop str 0 1 getinterval } ifelse print
  340.     } bind def
  341.  
  342.     /indent { 1 1 depth { pop (\t) print } for } def
  343.  
  344.     /expand {
  345.         indent dup type exec print
  346.         (\n) print
  347.     } bind def
  348.     /arraytype {
  349.         dup xcheck { ({\n) } { ([\n) } ifelse print
  350.         /depth depth 1 add def
  351.         dup rcheck { dup {expand} forall }
  352.         { indent (???\n) print } ifelse
  353.         /depth depth 1 sub def
  354.         indent xcheck { (}) } { (]) } ifelse
  355.     } bind def
  356.     /booleantype { { (true) } { (false) } ifelse } bind def
  357.     /dicttype { dup length =print ( ) print maxlength =print
  358.                 ( ) print (-dicttype-) } bind def
  359.     /filetype { pop (-filetype-) } bind def
  360.     /fonttype { pop (-fonttype-) } bind def
  361.     /integertype { =string cvs } bind def
  362.     /marktype { pop (-marktype-) } bind def
  363.     /nametype { dup xcheck not { (/) print } if =string cvs } bind def
  364.     /nulltype { pop (-nulltype-) } bind def
  365.     /operatortype { (--) print =string cvs print (--) } bind def
  366.     /realtype { =string cvs } bind def
  367.     /savetype { pop (-savetype-) } bind def
  368.     /stringtype { dup rcheck { (\() print {=qc} forall (\)) }
  369.             { pop (\(???\)) } ifelse } bind def
  370.  
  371.     /depth 0 def
  372. end
  373.  
  374. /== {
  375.     ==dict begin
  376.     expand
  377.     end
  378. } bind def
  379.  
  380. /stack { count dup 1 add copy { = } repeat pop } bind def
  381. /pstack { count dup 1 add copy { == } repeat pop } bind def
  382. (\004) cvn {} def % ignore ^D in input file
  383. (\032) cvn {} def % and ^Z
  384.  
  385. /server
  386. {
  387.     {
  388.         (%stdin) (r) file status not { exit } if
  389.  
  390.         serverdict /serversave save put
  391.         % has to be done inside save context, since writing
  392.         % to a saved array uses VM, and it could be vmerror
  393.         build$error
  394.         serverdict /execjob get exec
  395.         serverdict /exitservercalled get
  396.         serverdict /serversave get restore
  397.         {
  398.             (exitserver : permanent state may be changed)
  399.             serverdict /statusmsg get exec
  400.             serverdict /execjob get exec
  401.  
  402.         } if % exitservercalled
  403.     } loop
  404. } bind def
  405.  
  406. /quit  { stop } bind def
  407. /start { server } bind def
  408.  
  409. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  410. % userdict is still on stack; system/user specific stuff starts here %
  411. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  412.  
  413. /encode {
  414.     { 1 index def 1 add } forall pop
  415. } def
  416.  
  417. /TT_ANSI_CharStrings 650 dict dup  % map character name to font entry
  418. begin
  419.  
  420. 32 [
  421. /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  422. /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash/zero/one
  423. /two/three/four/five/six/seven/eight/nine/colon/semicolon/less/equal
  424. /greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S
  425. /T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum
  426. /underscore/grave/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t
  427. /u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef
  428. ] encode
  429.  
  430. 16#a0 [
  431. /nbspace/exclamdown/cent/sterling/currency/yen/brokenbar
  432. /section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
  433. /sfthyphen/registered/macron/degree/plusminus/twosuperior
  434. /threesuperior/acute/mu/paragraph/periodcentered/cedilla
  435. /onesuperior/ordmasculine/guillemotright/onequarter/onehalf
  436. /threequarters/questiondown/Agrave/Aacute/Acircumflex/Atilde
  437. /Adieresis/Aring/AE/Ccedilla/Egrave/Eacute/Ecircumflex
  438. /Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde
  439. /Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash
  440. /Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
  441. /agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
  442. /egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex
  443. /idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde
  444. /odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis
  445. /yacute/thorn/ydieresis] encode
  446.  
  447. unicode {
  448.     % Windows encoding
  449.  
  450.     130 [
  451.     /quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
  452.     /circumflex/perthousand/Scaron/guilsinglleft/OE
  453.     ] encode
  454.  
  455.     145 [
  456.     /quoteleft/quoteright/quotedblleft/quotedblright/bullet
  457.     /endash/emdash/tilde/trademark/scaron/guilsinglright/oe
  458.     ] encode
  459.  
  460.     /minus 150 def
  461.     /Ydieresis 159 def
  462.  
  463.     % skip over Unicode encoding
  464.     { currentfile =string readline pop (/xyzzy) eq { exit } if } loop
  465. } if
  466.  
  467. % NT (Unicode) encoding
  468.  
  469. 16#100 [
  470. /Amacron/amacron/Abreve/abreve/Aogonek/aogonek/Cacute/cacute/Ccircumflex
  471. /ccircumflex/Cdot/cdot/Ccaron/ccaron/Dcaron/dcaron/Dslash/dmacron
  472. /Emacron/emacron/Ebreve/ebreve/Edot/edot/Eogonek/eogonek/Ecaron/ecaron
  473. /Gcircumflex/gcircumflex/Gbreve/gbreve/Gdot/gdot/Gcedilla/gcedilla
  474. /Hcircumflex/hcircumflex/Hbar/hbar/Itilde/itilde/Imacron/imacron/Ibreve
  475. /ibreve/Iogonek/iogonek/Idot/dotlessi/IJ/ij/Jcircumflex/jcircumflex
  476. /Kcedilla/kcedilla/kgreenlandic/Lacute/lacute/Lcedilla/lcedilla/Lcaron
  477. /lcaron/Ldot/ldot/Lslash/lslash/Nacute/nacute/Ncedilla/ncedilla/Ncaron
  478. /ncaron/napostrophe/Eng/eng/Omacron/omacron/Obreve/obreve/Odblacute
  479. /odblacute/OE/oe/Racute/racute/Rcedilla/rcedilla/Rcaron/rcaron/Sacute
  480. /sacute/Scircumflex/scircumflex/Scedilla/scedilla/Scaron/scaron/Tcedilla
  481. /tcedilla/Tcaron/tcaron/Tbar/tbar/Utilde/utilde/Umacron/umacron/Ubreve
  482. /ubreve/Uring/uring/Udblacute/udblacute/Uogonek/uogonek/Wcircumflex
  483. /wcircumflex/Ycircumflex/ycircumflex/Ydieresis/Zacute/zacute/Zdot/zdot
  484. /Zcaron/zcaron/longs
  485. ] encode
  486.  
  487. 16#384 [
  488. /tonos/dieresistonos/Alphatonos/anoteleia/Epsilontonos/Etatonos
  489. /Iotatonos/c38b/Omicrontonos/c38d/Upsilontonos/Omegatonos
  490. /iotadieresistonos/Alpha/Beta/Gamma/Delta/Epsilon/Zeta/Eta/Theta/Iota
  491. /Kappa/Lambda/Mu/Nu/Xi/Omicron/Pi/Rho/c3a2/Sigma/Tau/Upsilon/Phi
  492. /Chi/Psi/Omega/Iotadieresis/Upsilondieresis/alphatonos/epsilontonos
  493. /etatonos/iotatonos/upsilon-dieresistonos/alpha/beta/gamma/delta/epsilon
  494. /zeta/eta/theta/iota/kappa/lambda/mu/nu/xi/omicron/pi/rho/sigma1
  495. /sigma/tau/upsilon/phi/chi/psi/omega/iotadieresis/upsilondieresis
  496. /omicrontonos/upsilontonos/omegatonos
  497. ] encode
  498.  
  499. % read and define key / value pairs until key = /zyzzy is seen
  500.  
  501. {
  502.     currentfile token pop dup /xyzzy eq
  503.     { pop exit }
  504.     { currentfile token pop def } ifelse
  505. } loop
  506.  
  507. /florin 16#192/Aringacute 16#1fa/aringacute 16#1fb/AEacute 16#1fc
  508. /aeacute 16#1fd/Oslashacute 16#1fe/oslashacute 16#1ff/circumflex
  509. 16#2c6/caron 16#2c7/macron 16#2c9/tilde 16#2d6/breve 16#2d8
  510. /dotaccent 16#2d9/ring 16#2da/ogonek 16#2db/tilde 16#2dc
  511. /hungarumlaut 16#2dd
  512.  
  513. /Wgrave 16#1e80/wgrave 16#1e81/Wacute 16#1e82/wacute 16#1e83
  514. /Wdieresis 16#1e84/wdieresis 16#1e85/Ygrave 16#1ef2/ygrave 16#1ef3
  515. /endash 16#2013/emdash 16#2014/underscoredbl 16#2017/quoteleft
  516. 16#2018/quoteright 16#2019/quotesinglbase 16#201a/quotereversed
  517. 16#201b/quotedblleft 16#201c/quotedblright 16#201d/quotedblbase
  518. 16#201e/dagger 16#2020/daggerdbl 16#2021/bullet 16#2022/ellipsis
  519. 16#2026/perthousand 16#2030/minute 16#2032/second 16#2033
  520. /guilsinglleft 16#2039/guilsinglright 16#203a/exclamdbl 16#203c
  521. /radicalex 16#203e/fraction 16#2044/nsuperior 16#207f/franc 16#20a3
  522. /peseta 16#20a7/trademark 16#2122/Ohm 16#2126/estimated 16#212e
  523. /oneeighth 16#215b/threeeighths 16#215c/fiveeighths 16#215d
  524. /seveneighths 16#215e/arrowleft 16#2190/arrowup 16#2191/arrowright
  525. 16#2192/arrowdown 16#2193/arrowboth 16#2194/arrowupdn 16#2195
  526. /arrowupdnbse 16#21a8/partialdiff 16#2202/increment 16#2206/product
  527. 16#220f/summation 16#2211/minus 16#2212/fraction 16#2215
  528. /periodcentered 16#2219/radical 16#221a/infinity 16#221e/orthogonal
  529. 16#221f/intersection 16#2229/integral 16#222b/approxequal 16#2248
  530. /notequal 16#2260/equivalence 16#2261/lessequal 16#2264/greaterequal
  531. 16#2265/house 16#2302/revlogicalnot 16#2310/integraltp
  532. 16#2320/integralbt 16#2321/upblock 16#2580/dnblock 16#2584/block
  533. 16#2588/lfblock 16#258c/rtblock 16#2590/ltshade 16#2591/shade
  534. 16#2592/dkshade 16#2593/filledbox 16#25a0/filledrect 16#25ac/triagup
  535. 16#25b2/triagrt 16#25ba/triagdn 16#25bc/triaglf 16#25c4/lozenge
  536. 16#25ca/circle 16#25cb/invbullet 16#25d8/invcircle 16#25d9/openbullet
  537. 16#25e6/smileface 16#263a/invsmileface 16#263b/sun 16#263c/female
  538. 16#2640/male 16#2642/spade 16#2660/club 16#2663/heart 16#2665/diamond
  539. 16#2666/musicalnote 16#266a/musicalnotedbl 16#266b/applelogo
  540. 16#f000/fi 16#f001/fl 16#f002
  541.  
  542. %% do not delete, change or comment the following line !!!
  543. /xyzzy
  544.  
  545. end def
  546.  
  547. /TT_BuildChar {
  548.     exch begin
  549.     FontName (Symbol) eq {
  550. %        unicode { 16#8000 add } if
  551.     }
  552.     {
  553.         Encoding exch get
  554.         dup CharStrings exch known not
  555.         { pop (.notdef) } if
  556.         CharStrings exch get
  557.     } ifelse
  558.     end
  559.     dup 127 ne { ttchar } { pop } ifelse
  560. } def
  561.  
  562. /TT_FontInfo 2 dict dup begin
  563.     /UnderlinePosition -0.1 def
  564.     /UnderlineThickness 0.1 def
  565.     end def
  566.  
  567. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  568. % This function associates PostScript font names with Windows TrueType %
  569. % fonts.  The RoPS interpreter uses the Windows rendering routines to  %
  570. % paint the TrueType characters.                                       %
  571. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  572.  
  573. /ttmap {
  574.     11 dict dup begin
  575.     exch /TTName exch def
  576.     exch /FontName exch def
  577.     /Metrics 0 dict def
  578.     /FontMatrix [ 1.0 0.0 0.0 1.0 0.0 0.0 ] readonly def
  579.     /FontType 3 def
  580.     /Encoding StandardEncoding def
  581.     /FontBBox { 0 0 0 0 } readonly def
  582.     /CharStrings TT_ANSI_CharStrings def
  583.     /BuildChar /TT_BuildChar load def
  584.     /FontInfo TT_FontInfo def
  585.     FontName end
  586.     exch definefont pop
  587. } def
  588.  
  589. (fontlist) getprofile { { ttmap } forall } if
  590. (fontalias) getprofile { { ttmap } forall } if
  591. /CourierFont FontDirectory /Courier get /TTName get def
  592.  
  593. %%%%%%%%%%%
  594. % hackery %
  595. %%%%%%%%%%%
  596.  
  597. /a4tray { a4 } def
  598. /lettertray { letter } def
  599.  
  600. %
  601. % % 8" x 10.92" imageable area centred on letter paper
  602. % % Under Development !  Setting a new device interacts badly with zooming
  603. %
  604. % /letter {
  605. %     [ framescale 0 0 framescale -2.88 framescale mul -18 framescale mul ]
  606. %     8 72 mul framescale mul cvi 10.92 72 mul framescale mul cvi {} framedevice
  607. % } def
  608. % 
  609. % % 8" x 10.92" imageable area centred on A4 paper
  610. % 
  611. % /a4 {
  612. %     [ framescale 0 0 framescale -9.72 framescale mul -27.72 framescale mul ]
  613. %     8 72 mul framescale mul cvi 10.92 72 mul framescale mul cvi {} framedevice
  614. % } def
  615. % 
  616.  
  617. /a4 {} def
  618. /letter {} def
  619.  
  620. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  621. % when we fall off the end of this file, 'start' will be executed %
  622. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  623. % --- end ---
  624.  
  625.