home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / oberon.lha / Oberon / data / Oberon.Header.ps < prev    next >
Encoding:
Text File  |  2001-11-26  |  8.8 KB  |  340 lines
  1. %!PS-Adobe- minimal conforming
  2. %%Creator: Oberon
  3. %%DocumentFonts: Helvetica Helvetica-Bold Helvetica-Oblique Courier Times Times-Bold Times-Oblique
  4. % 
  5. % J. Templ, 1990, 1991, 1992
  6. % m  moveto  x y -> -
  7. % s  String  s -> -
  8. % d  dieresis  ch -> -
  9. % l  Line  x y w h -> -
  10. % x  XLine  x y dx dy -> -
  11. % c  scaled Circle  x y a b -> -
  12. % b  shaded box  x y w h col -> -
  13. % i  pattern image  x y w h mode  -> -
  14. % p  Page  n -> -
  15. % f  font mapping  fnt -> -
  16. % z Bezier cubic section  x1 y1 x2 y2 x3 y3 x0 y0 -> -
  17. % k char  x y w h dx -> -
  18.  
  19. /bdef {bind def} bind def
  20.  
  21. /m {moveto} bdef
  22.  
  23. /s {show} bdef
  24.  
  25. /d  % obsolete
  26.   { /s2 exch def
  27.         /ch0 s2 0 1 getinterval def
  28.         /ch1 s2 1 1 getinterval def
  29.     currentpoint /y0 exch def /x0 exch def
  30.     ch0 show
  31.     currentpoint /y1 exch def /x1 exch def
  32.     ch1 stringwidth /wy exch def /wx exch def
  33.     x1 x0 add wx sub 2 div y0 moveto
  34.     ch0 (Z) le {0 wx 2 div rmoveto} if
  35.     ch1 show
  36.     x1 y1 moveto
  37.   } bdef
  38.  
  39. /l
  40.   { /ph exch def
  41.     /pw exch def
  42.     newpath
  43.     moveto
  44.     pw 0 rlineto
  45.     0 ph rlineto
  46.     pw neg 0 rlineto
  47.     closepath
  48.     fill
  49.   } bdef
  50.  
  51. /x
  52.   { /dy exch def
  53.     /dx exch def
  54.     newpath
  55.     moveto
  56.     dx dy rlineto
  57.     0 setlinewidth
  58.     stroke
  59.   } bdef
  60.  
  61. /c
  62.   { /pb exch def
  63.     /pa exch def
  64.     newpath
  65.     gsave
  66.     translate
  67.     1 pb pa div scale
  68.     0 0 pa 0 360 arc
  69.     0 setlinewidth
  70.     stroke
  71.     grestore
  72.   } bdef
  73.  
  74. /shade
  75.   { gsave
  76.     col 0 eq {1 setgray} if
  77.     col 1 eq {0.99 setgray} if
  78.     col 2 eq {0.9 setgray} if
  79.     col 3 eq {0.65 setgray} if
  80.     col 4 eq {0.35 setgray} if
  81.     col 5 eq {0 setgray} if
  82.     fill
  83.     grestore
  84.   } bdef
  85.  
  86. /max {
  87.   /h1 exch def
  88.   /h2 exch def
  89.   h1 h2 lt {h2} {h1} ifelse
  90.   } bdef
  91.  
  92. /texture
  93.   { gsave
  94.     clip
  95.     newpath
  96.     col 6 eq
  97.       { px 20 idiv 20 mul py ph add 20 idiv 20 mul moveto
  98.         /maxwh pw ph max 20 add def
  99.         maxwh 10 idiv 1 add
  100.           { maxwh maxwh rlineto
  101.             maxwh neg dup 20 sub rmoveto
  102.           } repeat
  103.       } if
  104.     col 7 eq
  105.       { px 20 idiv 20 mul py 20 idiv 20 mul moveto
  106.         /maxwh pw ph max 20 add def
  107.         maxwh 10 idiv 1 add
  108.           { maxwh neg maxwh rlineto
  109.             maxwh 20 add maxwh neg rmoveto
  110.           } repeat
  111.       } if
  112.     col 8 eq
  113.       { px 15 idiv 15 mul py 15 idiv 15 mul moveto
  114.         /ph ph 25 add def
  115.         pw 15 idiv 1 add
  116.           { 0 ph rlineto
  117.             15 ph neg rmoveto
  118.           } repeat
  119.      } if
  120.     col 9 eq
  121.       { px 15 idiv 15 mul py 15 idiv 15 mul moveto
  122.         /pw pw 15 add def
  123.         ph 15 idiv 1 add
  124.          { pw 0 rlineto
  125.             pw neg 15 rmoveto
  126.           } repeat
  127.      } if
  128.     1 setlinewidth
  129.     stroke
  130.     grestore
  131.   } bdef
  132.  
  133. /b
  134.   { /col exch def
  135.     /ph exch def
  136.     /pw exch def
  137.     /py exch def
  138.     /px exch def
  139.     newpath
  140.     px py moveto
  141.     pw 0 rlineto
  142.     0 ph rlineto
  143.     pw neg 0 rlineto
  144.     closepath
  145.     col 6 lt {shade} {texture} ifelse
  146.   } bdef
  147.  
  148. /i % pattern image follows procedure i immediately
  149.   { /mode exch def
  150.     /ph exch def
  151.     /pw exch def
  152.     /py exch def
  153.     /px exch def
  154.     /picstr 256 string def
  155.     /nofbytes pw 7 add 8 idiv ph mul def
  156.     gsave
  157.     px py translate
  158.     pw mode 1 add mul ph mode 1 add mul scale
  159.     pw ph 1 [pw 0 0 ph 0 0]
  160.       {nofbytes 256 ge
  161.         { currentfile picstr readhexstring pop
  162.           /nofbytes nofbytes 256 sub def }
  163.         { /picstr nofbytes string def
  164.           currentfile picstr readhexstring pop
  165.           /nofbytes 0 def
  166.         } ifelse
  167.       } image
  168.     grestore
  169.   } bdef
  170.  
  171. /k % char image follows procedure k immediately
  172.   { /pdx exch def
  173.     /ph exch def
  174.     /pw exch def
  175.     /py exch def
  176.     /px exch def
  177.     /picstr 256 string def
  178.     /nofbytes pw 7 add 8 idiv ph mul def
  179.     gsave
  180.         currentpoint translate
  181.     px py translate
  182.     pw ph scale
  183.     pw ph true [pw 0 0 ph 0 0]
  184.       { nofbytes 256 ge
  185.         { currentfile picstr readhexstring pop
  186.           /nofbytes nofbytes 256 sub def }
  187.         { /picstr nofbytes string def
  188.           currentfile picstr readhexstring pop
  189.           /nofbytes 0 def
  190.         } ifelse
  191.       } imagemask
  192.     grestore
  193.     pdx 0 rmoveto
  194.   } bdef
  195.  
  196.  
  197. /OberonEncoding
  198.   [ 128 /Adieresis
  199.     129 /Odieresis
  200.     130 /Udieresis
  201.     131 /adieresis
  202.     132 /odieresis
  203.     133 /udieresis
  204.     134 /acircumflex
  205.     135 /ecircumflex
  206.     136 /icircumflex
  207.     137 /ocircumflex
  208.     138 /ucircumflex
  209.     139 /agrave
  210.     140 /egrave
  211.     141 /igrave
  212.     142 /ograve
  213.     143 /ugrave
  214.     144 /eacute
  215.     145 /edieresis
  216.     146 /idieresis
  217.     147 /ccedilla
  218.     148 /aacute
  219.     149 /ntilde
  220.   ] def
  221.  
  222. % font reencoding taken from P. Vollenweider, PostScript, Hanser Verlag 1988
  223. % encoding vector is /OberonEncoding
  224. % newfontdict basefontdict recode -
  225.  
  226. /recode
  227.   { findfont /basefontdict exch def
  228.     /OberonFont basefontdict maxlength dict def
  229.     basefontdict
  230.       { exch dup /FID ne
  231.         { dup /Encoding eq
  232.           { exch dup length array copy OberonFont 3 1 roll put }
  233.           { exch OberonFont 3 1 roll put }
  234.           ifelse
  235.         }
  236.         { pop pop }
  237.         ifelse
  238.       } forall
  239.     OberonEncoding aload pop
  240.     OberonEncoding length 2 idiv {OberonFont /Encoding get 3 1 roll put} repeat
  241.     dup OberonFont exch /FontName exch put
  242.     OberonFont definefont pop
  243.   } bdef
  244.  
  245. % font setup.  Recode the basic fonts first
  246.  
  247.   /ObHelv /Helvetica recode
  248.   /ObHelvBold /Helvetica-Bold recode
  249.   /ObHelvOblique /Helvetica-Oblique recode
  250.   /ObCourier /Courier recode
  251.   /ObTimes /Times-Roman recode
  252.   /ObTimesBold /Times-Bold recode
  253.   /ObTimesItalic /Times-Italic recode
  254.  
  255. % now define the scaled versions
  256.  
  257.   /Syntax8.Scn.Fnt   /ObHelv findfont 30 scalefont def
  258.   /Syntax8i.Scn.Fnt  /ObHelvOblique findfont 30 scalefont def
  259.   /Syntax8b.Scn.Fnt  /ObHelvBold findfont 30 scalefont def
  260.   /Syntax8m.Scn.Fnt  /ObHelvBold findfont 30 scalefont def
  261.   /Syntax9m.Scn.Fnt  /ObHelvBold findfont 33 scalefont def
  262.   /Syntax10.Scn.Fnt  /ObHelv findfont 37 scalefont def
  263.   /Syntax10i.Scn.Fnt /ObHelvOblique  findfont 37 scalefont def
  264.   /Syntax10b.Scn.Fnt /ObHelvBold findfont 37 scalefont def
  265.   /Syntax10m.Scn.Fnt /ObHelvBold findfont 37 scalefont def
  266.   /Syntax10w.Scn.Fnt /ObHelv findfont 37 scalefont def
  267.   /Syntax12.Scn.Fnt /ObHelv findfont 44 scalefont def
  268.   /Syntax12i.Scn.Fnt /ObHelvOblique findfont 44 scalefont def
  269.   /Syntax12b.Scn.Fnt /ObHelvBold findfont 44 scalefont def
  270.   /Syntax12m.Scn.Fnt /ObHelvBold findfont 44 scalefont def
  271.   /Syntax14.Scn.Fnt /ObHelv findfont 50 scalefont def
  272.   /Syntax14i.Scn.Fnt /ObHelvOblique findfont 50 scalefont def
  273.   /Syntax14b.Scn.Fnt /ObHelvBold findfont 50 scalefont def
  274.   /Syntax14m.Scn.Fnt /ObHelvBold findfont 50 scalefont def
  275.   /Syntax16.Scn.Fnt /ObHelv findfont 59 scalefont def
  276.   /Syntax16i.Scn.Fnt /ObHelvOblique findfont 59 scalefont def
  277.   /Syntax16b.Scn.Fnt /ObHelvBold findfont 59 scalefont def
  278.   /Syntax16m.Scn.Fnt /ObHelvBold findfont 59 scalefont def
  279.   /Syntax20.Scn.Fnt /ObHelv findfont 74 scalefont def
  280.   /Syntax20i.Scn.Fnt /ObHelvOblique findfont 74 scalefont def
  281.   /Syntax20b.Scn.Fnt /ObHelvBold findfont 74 scalefont def
  282.   /Syntax20m.Scn.Fnt /ObHelvBold findfont 74 scalefont def
  283.   /Syntax24.Scn.Fnt /ObHelv findfont 88 scalefont def
  284.   /Syntax24i.Scn.Fnt /ObHelvOblique findfont 88 scalefont def
  285.   /Syntax24b.Scn.Fnt /ObHelvBold findfont 88 scalefont def
  286.   /Syntax24m.Scn.Fnt  /ObHelvBold findfont 88 scalefont def
  287.  
  288.   /Gacha10l /ObCourier findfont 30 scalefont def
  289.  
  290.   /Courier8.Scn.Fnt /ObCourier findfont 30 scalefont def
  291.   /Courier10.Scn.Fnt /ObCourier findfont 37 scalefont def
  292.   /Courier12.Scn.Fnt  /ObCourier findfont 44 scalefont def
  293.  
  294.   /Times8.Scn.Fnt  /ObTimes findfont 32 scalefont def
  295.   /Times8i.Scn.Fnt /ObTimesItalic  findfont 32 scalefont def
  296.   /Times8b.Scn.Fnt /ObTimesBold findfont 32 scalefont def
  297.   /Times10.Scn.Fnt  /ObTimes findfont 40 scalefont def
  298.   /Times10i.Scn.Fnt /ObTimesItalic  findfont 40 scalefont def
  299.   /Times10b.Scn.Fnt /ObTimesBold findfont 40 scalefont def
  300.   /Times12.Scn.Fnt /ObTimes findfont 48 scalefont def
  301.   /Times12i.Scn.Fnt /ObTimesItalic findfont 48 scalefont def
  302.   /Times12b.Scn.Fnt /ObTimesBold findfont 48 scalefont def
  303.   /Times14.Scn.Fnt /ObTimes findfont 56 scalefont def
  304.   /Times14i.Scn.Fnt /ObTimesItalic findfont 56 scalefont def
  305.   /Times14b.Scn.Fnt /ObTimesBold findfont 56 scalefont def
  306.   /Times16.Scn.Fnt /ObTimes findfont 64 scalefont def
  307.   /Times16i.Scn.Fnt /ObTimesItalic findfont 64 scalefont def
  308.   /Times16b.Scn.Fnt /ObTimesBold findfont 64 scalefont def
  309.   /Times20.Scn.Fnt /ObTimes findfont 80 scalefont def
  310.   /Times20i.Scn.Fnt /ObTimesItalic findfont 80 scalefont def
  311.   /Times20b.Scn.Fnt /ObTimesBold findfont 80 scalefont def
  312.   /Times24.Scn.Fnt /ObTimes findfont 96 scalefont def
  313.   /Times24i.Scn.Fnt /ObTimesItalic findfont 96 scalefont def
  314.   /Times24b.Scn.Fnt /ObTimesBold findfont 96 scalefont def
  315.  
  316.  
  317. /f {
  318.    cvn currentdict exch get setfont
  319.    } bdef
  320.  
  321. % Bezier cubic section
  322. /z { newpath moveto curveto 0 setlinewidth stroke } bdef
  323.  
  324. % show page
  325. /p { /#copies exch def
  326.     showpage
  327.     restore save
  328.   } bdef
  329.  
  330. 0 setgray
  331. %A4 format
  332. .24 .24 scale
  333. %US-letter format
  334. %.24 .22 scale
  335.  
  336. (Syntax10.Scn.Fnt) f
  337. save
  338. %%EndProlog
  339. %%Page: 0 1
  340.