More files!
This commit is contained in:
rsc
parent
36a9115fcb
commit
13f7391e4a
213 changed files with 54952 additions and 0 deletions
197
postscript/prologues/dpost.ps
Normal file
197
postscript/prologues/dpost.ps
Normal file
|
|
@ -0,0 +1,197 @@
|
|||
%
|
||||
% Version 3.3.2 prologue for troff files.
|
||||
%
|
||||
|
||||
/#copies 1 store
|
||||
/aspectratio 1 def
|
||||
/formsperpage 1 def
|
||||
/landscape false def
|
||||
/linewidth .3 def
|
||||
/magnification 1 def
|
||||
/margin 0 def
|
||||
/orientation 0 def
|
||||
/resolution 720 def
|
||||
/rotation 1 def
|
||||
/xoffset 0 def
|
||||
/yoffset 0 def
|
||||
|
||||
/roundpage true def
|
||||
/useclippath true def
|
||||
/pagebbox [0 0 612 792] def
|
||||
|
||||
/R /Times-Roman def
|
||||
/I /Times-Italic def
|
||||
/B /Times-Bold def
|
||||
/BI /Times-BoldItalic def
|
||||
/H /Helvetica def
|
||||
/HI /Helvetica-Oblique def
|
||||
/HB /Helvetica-Bold def
|
||||
/HX /Helvetica-BoldOblique def
|
||||
/CW /Courier def
|
||||
/CO /Courier def
|
||||
/CI /Courier-Oblique def
|
||||
/CB /Courier-Bold def
|
||||
/CX /Courier-BoldOblique def
|
||||
/PA /Palatino-Roman def
|
||||
/PI /Palatino-Italic def
|
||||
/PB /Palatino-Bold def
|
||||
/PX /Palatino-BoldItalic def
|
||||
/Hr /Helvetica-Narrow def
|
||||
/Hi /Helvetica-Narrow-Oblique def
|
||||
/Hb /Helvetica-Narrow-Bold def
|
||||
/Hx /Helvetica-Narrow-BoldOblique def
|
||||
/KR /Bookman-Light def
|
||||
/KI /Bookman-LightItalic def
|
||||
/KB /Bookman-Demi def
|
||||
/KX /Bookman-DemiItalic def
|
||||
/AR /AvantGarde-Book def
|
||||
/AI /AvantGarde-BookOblique def
|
||||
/AB /AvantGarde-Demi def
|
||||
/AX /AvantGarde-DemiOblique def
|
||||
/NR /NewCenturySchlbk-Roman def
|
||||
/NI /NewCenturySchlbk-Italic def
|
||||
/NB /NewCenturySchlbk-Bold def
|
||||
/NX /NewCenturySchlbk-BoldItalic def
|
||||
/ZD /ZapfDingbats def
|
||||
/ZI /ZapfChancery-MediumItalic def
|
||||
/S /S def
|
||||
/S1 /S1 def
|
||||
/GR /Symbol def
|
||||
|
||||
/inch {72 mul} bind def
|
||||
/min {2 copy gt {exch} if pop} bind def
|
||||
|
||||
/setup {
|
||||
counttomark 2 idiv {def} repeat pop
|
||||
|
||||
landscape {/orientation 90 orientation add def} if
|
||||
/scaling 72 resolution div def
|
||||
linewidth setlinewidth
|
||||
1 setlinecap
|
||||
|
||||
pagedimensions
|
||||
xcenter ycenter translate
|
||||
orientation rotation mul rotate
|
||||
width 2 div neg height 2 div translate
|
||||
xoffset inch yoffset inch neg translate
|
||||
margin 2 div dup neg translate
|
||||
magnification dup aspectratio mul scale
|
||||
scaling scaling scale
|
||||
|
||||
addmetrics
|
||||
0 0 moveto
|
||||
} def
|
||||
|
||||
/pagedimensions {
|
||||
useclippath userdict /gotpagebbox known not and {
|
||||
/pagebbox [clippath pathbbox newpath] def
|
||||
roundpage currentdict /roundpagebbox known and {roundpagebbox} if
|
||||
} if
|
||||
pagebbox aload pop
|
||||
4 -1 roll exch 4 1 roll 4 copy
|
||||
landscape {4 2 roll} if
|
||||
sub /width exch def
|
||||
sub /height exch def
|
||||
add 2 div /xcenter exch def
|
||||
add 2 div /ycenter exch def
|
||||
userdict /gotpagebbox true put
|
||||
} def
|
||||
|
||||
/addmetrics {
|
||||
/Symbol /S null Sdefs cf
|
||||
/Times-Roman /S1 StandardEncoding dup length array copy S1defs cf
|
||||
} def
|
||||
|
||||
/pagesetup {
|
||||
/page exch def
|
||||
currentdict /pagedict known currentdict page known and {
|
||||
page load pagedict exch get cvx exec
|
||||
} if
|
||||
} def
|
||||
|
||||
/decodingdefs [
|
||||
{counttomark 2 idiv {y moveto show} repeat}
|
||||
{neg /y exch def counttomark 2 idiv {y moveto show} repeat}
|
||||
{neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
|
||||
{neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
|
||||
{counttomark 2 idiv {y moveto show} repeat}
|
||||
{neg setfunnytext}
|
||||
] def
|
||||
|
||||
/setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def
|
||||
|
||||
/w {neg moveto show} bind def
|
||||
/m {neg dup /y exch def moveto} bind def
|
||||
/done {/lastpage where {pop lastpage} if} def
|
||||
|
||||
/f {
|
||||
dup /font exch def findfont exch
|
||||
dup /ptsize exch def scaling div dup /size exch def scalefont setfont
|
||||
linewidth ptsize mul scaling 10 mul div setlinewidth
|
||||
/spacewidth ( ) stringwidth pop def
|
||||
} bind def
|
||||
|
||||
/changefont {
|
||||
/fontheight exch def
|
||||
/fontslant exch def
|
||||
currentfont [
|
||||
1 0
|
||||
fontheight ptsize div fontslant sin mul fontslant cos div
|
||||
fontheight ptsize div
|
||||
0 0
|
||||
] makefont setfont
|
||||
} bind def
|
||||
|
||||
/sf {f} bind def
|
||||
|
||||
/cf {
|
||||
dup length 2 idiv
|
||||
/entries exch def
|
||||
/chtab exch def
|
||||
/newencoding exch def
|
||||
/newfont exch def
|
||||
|
||||
findfont dup length 1 add dict
|
||||
/newdict exch def
|
||||
{1 index /FID ne {newdict 3 1 roll put}{pop pop} ifelse} forall
|
||||
|
||||
newencoding type /arraytype eq {newdict /Encoding newencoding put} if
|
||||
|
||||
newdict /Metrics entries dict put
|
||||
newdict /Metrics get
|
||||
begin
|
||||
chtab aload pop
|
||||
1 1 entries {pop def} for
|
||||
newfont newdict definefont pop
|
||||
end
|
||||
} bind def
|
||||
|
||||
%
|
||||
% A few arrays used to adjust reference points and character widths in some
|
||||
% of the printer resident fonts. If square roots are too high try changing
|
||||
% the lines describing /radical and /radicalex to,
|
||||
%
|
||||
% /radical [0 -75 550 0]
|
||||
% /radicalex [-50 -75 500 0]
|
||||
%
|
||||
% Move braceleftbt a bit - default PostScript character is off a bit.
|
||||
%
|
||||
|
||||
/Sdefs [
|
||||
/bracketlefttp [201 500]
|
||||
/bracketleftbt [201 500]
|
||||
/bracketrighttp [-81 380]
|
||||
/bracketrightbt [-83 380]
|
||||
/braceleftbt [203 490]
|
||||
/bracketrightex [220 -125 500 0]
|
||||
/radical [0 0 550 0]
|
||||
/radicalex [-50 0 500 0]
|
||||
/parenleftex [-20 -170 0 0]
|
||||
/integral [100 -50 500 0]
|
||||
/infinity [10 -75 730 0]
|
||||
] def
|
||||
|
||||
/S1defs [
|
||||
/underscore [0 80 500 0]
|
||||
/endash [7 90 650 0]
|
||||
] def
|
||||
Loading…
Add table
Add a link
Reference in a new issue