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