home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / Mathscript_cr.lzx / MathScript / init.ps next >
Encoding:
Text File  |  1996-09-15  |  7.1 KB  |  219 lines
  1. %! Post V1.7 initialisation file
  2. % (C) Adrian Aylward 1989, 1991
  3. %
  4. % Modified by Simon Ihmig for use with programs using post.library
  5. % and MathScript.
  6. % Fixes ISOLatin1Encoding bug and makes findfont look for
  7. % font in PSFonts:
  8.  
  9. % Version string, real number for programs that check it
  10.  
  11. /version (48.0) def
  12.  
  13. % Ignore CTRL/D
  14.  
  15. <04> cvn {} def
  16.  
  17. % A dummy status dictionary
  18.  
  19. /statusdict 10 dict dup begin
  20. /waittimeout 0 def
  21. /checkpassword { 0 eq } bind def
  22. /product (Post V1.7) def
  23. end def
  24.  
  25. % A dummy server dictionary
  26.  
  27. /serverdict 5 dict dup begin
  28. /exitserver { pop } bind def
  29. end def
  30.  
  31. % The internal dictionary
  32.  
  33. %/internaldict { pop null } dup 1 5 dict put def
  34. %1183615869 internaldict begin
  35. %/StemSnapLength 12 def
  36. %end
  37.  
  38. % A scratch string
  39.  
  40. /=string 256 string def
  41.  
  42. % ISO Latin 1 encoding vector
  43.  
  44. /ISOLatin1Encoding [
  45.   /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  46.   /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  47.   /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  48.   /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  49.   /space /exclam /quotedbl /numbersign /dollar /percent /ampersand
  50.   /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period
  51.   /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon
  52.   /semicolon /less /equal /greater /question /at /A /B /C /D /E /F /G /H
  53.   /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft
  54.   /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c
  55.   /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z
  56.   /braceleft /bar /braceright /asciitilde /.notdef /.notdef /.notdef
  57.   /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  58.   /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /dotlessi /grave
  59.   /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef
  60.   /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space /exclamdown
  61.   /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright
  62.   /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
  63.   /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
  64.   /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright
  65.   /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute
  66.   /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
  67.   /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth
  68.   /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
  69.   /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
  70.   /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae
  71.   /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute
  72.   /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex
  73.   /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex
  74.   /udieresis /yacute /thorn /ydieresis
  75.   ] def
  76.  
  77. % Run a program with save and restore
  78.  
  79. /runsave
  80. { /saveobject save def
  81.   run
  82.   saveobject restore
  83. } bind def
  84.  
  85. % Run a program displaying its name
  86.  
  87. /runprog
  88. { dup print (\n) print
  89.   runsave
  90. } bind def
  91.  
  92. % New cache parameters ops
  93.  
  94. systemdict
  95. /setcacheparams
  96. { counttomark 1 ge { dup setcachelimit } if
  97.   cleartomark
  98. } bind put
  99.  
  100. systemdict
  101. /currentcacheparams
  102. { mark cachestatus 6 { exch pop} repeat dup
  103. } bind put
  104.  
  105. % Load a font file.  Build the file name string from the font name, prefix
  106. % and suffix strings.  We pop the dictionary stack first, so that the
  107. % contents of any additional entries on it can't interfere with the font
  108. % definition - e.g. if it uses the bind operator.  Then we try to open the
  109. % file.  If it opens OK we execute it; if the open fails we return without
  110. % error: presumabaly we don't have the font.  Before returning we restore the
  111. % dictionary stack.
  112.  
  113. systemdict
  114. /loadfont
  115. { 1 index =string copy                         % Prefix:
  116.   length                                       % length
  117.   3 index =string 2 index 100 getinterval cvs  % Prefix:name
  118.   length add                                   % length
  119.   1 index =string 2 index 100 getinterval copy % Prefix:name.suffix
  120.   length add                                   % length
  121.   =string exch 0 exch getinterval              % Truncate to length
  122.   mark countdictstack 2 sub
  123.       { currentdict end } repeat               % Pop dict stack
  124.   counttomark 1 add index                      % Get the file name
  125.   { fontfile } stopped                         % Try to open the file
  126.   { pop }                                      % Can't open it, ignore
  127.   { cvx exec }                                 % Opened OK, execute it
  128.   ifelse
  129.   counttomark { begin } repeat pop             % Restore dictionary stack
  130.   pop pop pop pop                              % Pop file name and arguments
  131. } bind put
  132.  
  133. % Find a font.  If it is not there we try in order:
  134. %
  135. %    Load       PSFonts:name
  136. %    Load       PSFonts:name.pfb
  137. %    Load       PSFonts:name.pfa
  138. %    Load       PSFonts:name.psfont
  139. %    Substitute DefaultFont
  140. %
  141. % If none of these succeeds, the result will an invalidfont error.
  142.  
  143. systemdict /.findfont systemdict /findfont get put
  144.  
  145. systemdict
  146. /findfont
  147. {
  148.   dup FontDirectory exch known not             % Not in FontDirectory?
  149.   { dup (PSFonts:) () loadfont                 % Try to load from PSFonts:
  150.   } if
  151.   dup FontDirectory exch known not             % Not in FontDirectory?
  152.   { dup (PSFonts:) (.pfb) loadfont             % Try to load from PSFonts:
  153.   } if
  154.   dup FontDirectory exch known not             % Not in FontDirectory?
  155.   { dup (PSFonts:) (.pfa) loadfont             % Try to load from PSFonts:
  156.   } if
  157.   dup FontDirectory exch known not             % Not in FontDirectory?
  158.   { dup (PSFonts:) (.psfont) loadfont          % Try to load from PSFonts:
  159.   } if
  160.  
  161. % Substitute DefaultFont
  162.   dup FontDirectory exch known not             % Not in FontDirectory?
  163.   { dup userdict /DefaultFontName get ne       % Not the DefaultFont
  164.     { pop userdict /DefaultFontName get        % Substitue DefaultFont
  165.       dup systemdict /findfont get exec pop    % Recurse so it gets loaded
  166.     }
  167.     if
  168.   }
  169.   if
  170.   dup FontDirectory exch known not             % Not in FontDirectory?
  171.   { pop /DummyFont } if                        % Fall back on DummyFont
  172.   .findfont                                    % If errors, will fail now
  173. } bind put
  174.  
  175. % Select a font
  176.  
  177. systemdict
  178. /selectfont
  179. { exch findfont exch
  180.   dup type /arraytype eq
  181.   { makefont }
  182.   { scalefont }
  183.   ifelse
  184.   setfont
  185. } bind put
  186.  
  187. % Define a dummy font - prints out big dots ...
  188.  
  189. /DummyFont 10 dict dup begin
  190. /FontName /DummyFont def
  191. /FontMatrix [0.001 0 0 0.001 0 0] def
  192. /FontType 3 def
  193. /FontBBox [0 -300 500 700] def
  194. /Encoding StandardEncoding def
  195. /BuildChar
  196. { pop pop
  197.   500 0 50 0 450 400 setcachedevice
  198.   250 200 200 0 360 arc fill
  199. } bind def
  200. /Painttype 0 def
  201. end definefont pop
  202.  
  203. % Establish the dummy font as the default, as some fonts need it to
  204. % define themselves.
  205.  
  206. /DefaultFontName /DummyFont def
  207.  
  208. % Uncomment the following line to use FunkyFont as the default font
  209.  
  210. %/DefaultFontName /NimbusSansL-Regular def
  211.  
  212. % Uncomment the following line to use Courier as the default font
  213.  
  214. %/DefaultFontName /Courier def
  215.  
  216. % undefine showpage for EPS
  217. systemdict /showpage {} put
  218.  
  219.