henesyinit from p9fce6d0435 years agoHistory
1456 lines · 32.7 KB · Text
RawDownload
%!PS-Adobe-3.0 EPSF-3.0%%Creator: (Interleaf, Inc.)%%Copyright: (Copyright(c) 1991 Interleaf, Inc.)%%Version: 5.3 0%%BoundingBox: (atend)%%For: (ctg)%%CreationDate: (Fri, Mar 26, 1993 13:47:34)%%Title: (Document:)%%Pages: (atend)%%DocumentFonts: (atend)%%EndComments%%BeginProloguserdict /Ileaf_5.3.0 200 dict dup begin put/MAJOR 5 def/MINOR 3 def/SUB 0 def/bdf{bind def}bind def/xdf{exch def}bdf/msg{ print(\n)print flush}bdf/imatrix[1 0 0 -1 0 0]def/MAXCHARS 128 def/VMHEAD 1000 def/BOGUSWIDTH -1 def/mesg 64 string def/charstr 12 string def/istr 3 string def/ILEncoding 256 array def/ILSymBEnc 256 array def/ILDingbats 256 array def/trashheap 1024 string def/emsg1 256 string def/emsg2 256 string def/inch{72 mul}bdf/pgstate 0 def/DPIx 0 def/DPIy 0 def/PSfontobj 1024 dict def/BinaryMode false def%/mark 0 def/rl {rlineto} bdf/rm {rmoveto} bdf/rc {rcurveto} bdf/L {lineto} bdf/M {moveto} bdf/sw {setlinewidth} bdf% User definable macros for custom prologues/BOJ {} bdf/EOJ {} bdf/BOS {} bdf/EOS {} bdf%/initialize {Ileaf_5.3.0 begin userdict begin} bdf/terminate {end end} bdf/hline 0 def/headerpage{ 	0 begin	/nl {} def	/y 11 def/nl{/y y .33 sub def 1 inch y inch M}bdf	/#copies 1 def	/Helvetica-Bold/ILhelvb ILEncoding ReEncode	/ILhelvb findfont 18 scalefont setfont	nl nl nl         hline length dup dup	25 gt{26 sub dup hline exch((  ...))put} {pop 0}ifelse	exch 1 sub -1 3 -1 roll{hline exch get show nl}for 	/Helvetica findfont 8 scalefont setfont	1 inch 1 inch M	emsg1 0 get 0 ne{1 inch .75 inch M emsg1 show}if	emsg2 0 get 0 ne{1 inch .5 inch M emsg2 show}if	end}bdf/headerpage load 0 6 dict put%/vp{	10 mesg cvrs print(.)print	10 mesg cvrs print(.)print	10 mesg cvrs print(\n)print}bdf/vs{	10 mesg cvrs show(.)show	10 mesg cvrs show(.)show	10 mesg cvrs show} bdf/lline 0 def/logme{}bdf%/vck{	% stack => major minor sub	3 copy	MAJOR ne exch MINOR ne or exch SUB ne or	{	 (\tInterleaf:: FATAL ERROR: pspro.ps and pl2ps versions do not agree.)msg	 (\tInterleaf:: pspro.ps version: \t)print	 SUB MINOR MAJOR vp	 (\tInterleaf:: pl2ps version: \t)print	 3 copy vp flush	 userdict /lline known	  {headerpage} {/Helvetica findfont 8 scalefont setfont} ifelse	 (FATAL ERROR: pspro version )show	 SUB MINOR MAJOR vs	 ( does not agree with pl2ps version)show	 vs showpage	 quit 	} {3 {pop} repeat} ifelse}bdf%/vpos 0 def/hpos 0 def/m{/vpos xdf/hpos xdf}bdf/v{/vpos xdf}bdf/h{/hpos xdf}bdf/el{ matrix currentmatrix 8 1 roll translate rotate scale 0 0 1 5 -2 roll arc setmatrix}bdf/addconic{ matrix currentmatrix 9 1 roll translate rotate scale 0 0 1 6 -3 roll 1 eq{arc}{arcn}ifelse setmatrix}bdf/dp{1 setlinejoin 1 setlinecap stroke}bdf/ALIGN_NONE 0 def/ALIGN_OPEN 1 def/ALIGN_CLOSE 2 def/PPWADJ [0 0 4 8 12 16 20]def/MINSCALE .1 def%/plen{	0 begin	flattenpath	/dist 0 def/yfirst 0 def/xfirst 0 def/ymoveto 0 def	/xmoveto 0 def/ynext 0 def/xnext 0 def	{/yfirst xdf/xfirst xdf	/ymoveto yfirst def/xmoveto xfirst def}	{/ynext xdf/xnext xdf	/dist dist ynext yfirst sub dup mul	xnext xfirst sub dup mul add sqrt add def	/yfirst ynext def/xfirst xnext def}	{}	{/ynext ymoveto def/xnext xmoveto def	/dist dist ynext yfirst sub dup mul	xnext xfirst sub dup mul add sqrt add def	/yfirst ynext def/xfirst xnext def}	pathforall dist	end}bdf/plen load 0 7 dict put%/setpenpat {0 begin /style 0 def/width 0 def/pattern 0 def /style xdf/width xdf/pattern xdf/scaleup 0 def /indx 0 def/adj 0 def/val 0 def/iszero 0 def /scaleup DPIx 300 div def /indx width 1 add scaleup div 4 div cvi def indx 1 gt indx 7 lt and{ /adj PPWADJ indx get scaleup mul def /indx 0 def pattern{/iszero indx 2 mod def iszero  0 ne{adj add/val xdf}{/val xdf}ifelse  pattern indx val put /indx indx 1 add def  }forall }if % /offset 0 def/patternlen 0 def/pathlen plen def pattern{patternlen add/patternlen xdf}forall style ALIGN_NONE eq{}if % /n 0 def/extralen 0 def/halfpatlen 0 def /scale1 0 def/offset 0 def style ALIGN_CLOSE eq{  /n pathlen patternlen div cvi def  /extralen pathlen cvi patternlen cvi mod def  /halfpatlen patternlen 2 div def  extralen halfpatlen gt{/n n 1 add def}if  n 0 eq{/n 1 def}if  /scale1 pathlen n patternlen mul div def  scale1 MINSCALE gt{   /indx 0 def   pattern{    scale1 mul/val xdf    val 0 eq{/val 1 def}if    pattern indx val cvi put    /indx indx 1 add def   }forall  }if  /offset pattern 0 get 2 div round def }if % /firstdash 0 def/dashpct 0 def/scale2 0 def/x 0 def/y 0 def style ALIGN_OPEN eq{  /firstdash pattern 0 get def  /dashpct firstdash patternlen div def  /n pathlen patternlen div dashpct sub cvi def  /scale1 pathlen n dashpct add patternlen mul div def  /scale2 pathlen n dashpct add 1 add patternlen mul div def  /x scale2 1 sub abs def  /y scale1 1 sub abs def  x y lt{/scale1 scale2 def}if  scale1 MINSCALE gt{   /indx 0 def   pattern{    scale1 mul/val xdf    val 0 eq{/val 1 def}if    pattern indx val cvi put    /indx indx 1 add def   }forall   /offset 0 def  }if }if pattern offset setdash end}bdf/setpenpat load 0 50 dict put%/msp 0 def/stEnd 0 def/nsp 0 def/fstr 0 def/s{	/msp xdf/stEnd xdf/nsp xdf/fstr xdf	hpos vpos M	msp -1 ne	{stEnd hpos sub fstr stringwidth pop sub nsp div 0 msp fstr widthshow}	{fstr show}	ifelse	/hpos stEnd def}bdf%%%%%%%%%% Hack for error character %%%%%%%%%%%%%%%%%%%%%%%%/eu 1000 def/ew 632 def/ptsz 0 def/ec{ /ptsz xdf gsave newpath hpos vpos M ptsz DPIx 72 div mul eu div dup neg scale 30 -110 rm 573 0 rl 0 873 rl -573 0 rl 0 -873 rl 40 833 rm 493 0 rl 0 -793 rl -493 0 rl 0 793 rl 194 -137 rm 94 0 rl 0 94 rl -94 0 rl 0 -94 rl 10 -176 rm 0 -83 -162 -95 -162 -257 rc 0 -119 109 -174 208 -174 rc 116 0 201 69 201 172 rc 0 34 rl -83 0 rl 4 -63 -6 -148 -119 -148 rc -74 0 -128 48 -128 121 rc 0 133 158 136 158 252 rc 0 45 0 95 0 95 rc -75 0 rl 0 0 0 -52 0 -95 rc closepath fill grestore /hpos hpos ptsz DPIx 72 div mul eu div ew mul add def hpos vpos M}bdf%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%/ilr{BinaryMode{readstring}{readhexstring}ifelse}bdf/s1 1 string def/ccd[ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0{1}{2}{3}{4}{5}{6}{7}{8}{9}{10}{11}{12}{13}{14}{15} {16}{17}{18}{19}{20}{21}{22}{23}{24}{25}{26}{27}{28}{29}{30}{31} {32}{33}{34}{35}{36}{37}{38}{39}{40}{41}{42}{43}{44}{45}{46}{47} {48}{49}{50}{51}{52}{53}{54}{55}{56}{57}{58}{59}{60}{61}{62}{63} {t1_1}{t1_2}{3 t1}{4 t1}{5 t1}{6 t1}{7 t1}{8 t1} {9 t1}{10 t1}{11 t1}{12 t1}{13 t1}{14 t1}{15 t1}{16 t1} {t2_1}{t2_2}{3 t2}{4 t2}{5 t2}{6 t2}{7 t2}{8 t2} {9 t2}{10 t2}{11 t2}{12 t2}{ditto}{rn}{raw}]def/t1tab[ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16#00 16#01 16#02 16#04 16#08 16#10 16#20 16#40 16#80 16#03 16#06 16#0c 16#18 16#30 16#60 16#c0 16#07 16#0e 16#1c 16#38 16#70 16#e0 16#0f 16#1e 16#3c 16#78 16#f0 16#1f 16#3e 16#7c 16#f8 16#3f 16#7e 16#fc 16#7f 16#fe 16#ff 16#a0 16#90 16#88 16#84 16#82 16#81 16#50 16#48 16#44 16#42 16#41 16#28 16#24 16#22 16#21 16#14 16#12 16#11 16#0a 16#09 16#05 16#00 16#00 16#00 16#00 16#00 16#00 ]def/str 0 def/sl 0 def/val 0 def/cls{ 	/sl xdf/val xdf 	/str sl string def 	0 1 sl 1 sub {str exch val put}for 	str def}bdf/rn{ cf read pop 32 sub 6 bitshift cf read pop 32 sub or}bdf/t1_1{ 2 copy 2 copy  get cf read pop t1tab exch get xor put 1}bdf/t1_2{ 2 copy 2 copy get cf read pop t1tab exch get xor put 1 add 2 copy 2 copy get cf read pop t1tab exch get xor put 1}bdf/t1{ {2 copy 2 copy get cf read pop t1tab exch get xor put 1 add}repeat 0}bdf/t2_1{ 2 copy 2 copy get cf s1 readhexstring pop 0 get xor put 1}bdf/t2_2{ 2 copy 2 copy get cf s1 readhexstring pop 0 get xor put 1 add 2 copy 2 copy get cf s1 readhexstring pop 0 get xor put 1}bdf/t2{ {2 copy 2 copy get cf s1 readhexstring pop 0 get xor put 1 add}repeat 0}bdf/ditto{ dbsize}bdf/raw{ 2 copy pop cf exch readhexstring pop pop dbsize}bdf/dl{ dline 0  cf es readline pop {ccd exch get exec add}forall pop 0 dbsizetrue getinterval}bdf/shiftline{ 0 1 cws 2 sub{  2 copy 2 copy  get  lsh bitshift 16#ff and  3 1 roll  1 add get  rsh bitshift 16#ff and  or  crpstr 3 1 roll  put }for pop crpstr}bdf%/PL_image{0 begin gsave % init /cw 0 def/ct 0 def/cb 0 def/cl 0 def/cpr 0 def /ho 0 def/vo 0 def/hh 0 def/vh 0 def/hv 0 def /vv 0 def/nbits 0 def/vpix 0 def/hpix 0 def /scfrq 0 def/scang 0 def/ms 0 def/map 0 def /ms 0 def/dbsize 0 def % /cw xdf/ct xdf/cb xdf/cl xdf /cpr xdf /ho xdf/vo xdf/hh xdf/vh xdf/hv xdf/vv xdf/nbits xdf/vpix xdf/hpix xdf /scfrq xdf/scang xdf/ms xdf/map xdf /transp true def ms 0 ne{  /ms ms 1 sub def  {map exch ms mul round cvi get}settransfer  map ms get 1.0 ne{/transp false def}if }if scfrq 0 ne{  scang 0 eq{/scang 45 def}if  scfrq scang currentscreen 3 1 roll pop pop setscreen }if % /dbsize 0 def/dbsizetrue 0 def/cf 0 def/cli 0 def/cwb 0 def /ch 0 def/crpstr 0 def/lsh 0 def/rsh 0 def/cws 0 def/dline 0 def/es 0 def  /dbsize hpix nbits mul 7 add 8 idiv def  /dbsizetrue hpix nbits mul 7 add 8 idiv def /dline 255 dbsize cls /es 0 dbsize cls /cf currentfile def /cli cl 8 idiv def /cwb cw 7 add 8 idiv def /ch vpix ct cb add sub def  ho vo translate [hh vh hv vv 0 0]concat nbits 1 eq transp and  {cpr 1 eq	   {cw ct add cb add cl add 0 ne    {/crpstr cwb string def     /lsh cl 8 mod def     /rsh lsh 8 sub def     /cws cw lsh add 7 add 8 idiv def     ct{dl pop}repeat     cw ch false[cw 0 0 ch 0 0]     {dl cli cws getinterval lsh 0 ne{shiftline}if}imagemask     cb{dl pop}repeat    }    {hpix vpix false[hpix 0 0 vpix 0 0]{dl}imagemask}    ifelse   }   {hpix vpix false[hpix 0 0 vpix 0 0]{cf dline ilr pop}imagemask}   ifelse  }  {cpr 1 eq   {cw ct add cb add cl add 0 ne    {/crpstr cwb string def     /lsh cl 8 mod def     /rsh lsh 8 sub def     /cws cw lsh add 7 add 8 idiv def     ct{dl pop}repeat     cw ch nbits[cw 0 0 ch 0 0]     {dl cli cws getinterval lsh 0 ne{shiftline}if}image     cb{dl pop}repeat    }    {hpix vpix nbits[hpix 0 0 vpix 0 0]{dl}image}    ifelse   }   {hpix vpix nbits[hpix 0 0 vpix 0 0]{cf dline ilr pop}image}   ifelse }   ifelse grestore end}bdf/PL_image load 0 35 dict put/blank_PL_image{	0 begin gsave	/ho 0 def/vo 0 def/hh 0 def/vh 0 def/hv 0 def	/vv 0 def/nbits 0 def/vpix 0 def/hpix 0 def	/scanlinesize 0 def/scanline 0 def 	pop pop pop pop pop	% => /cw xdf/ct xdf/cb xdf/cl xdf/cpr xdf	/ho xdf/vo xdf/hh xdf/vh xdf/hv xdf/vv xdf/nbits xdf/vpix xdf/hpix xdf	pop pop pop pop		% => /scfrq xdf/scang xdf/ms xdf/map xdf 	/scanlinesize hpix nbits mul 15 add 16 idiv 2 mul def	/scanline 255 scanlinesize cls 	ho vo translate	[hh vh hv vv 0 0]concat	hpix vpix nbits[hpix 0 0 vpix 0 0]{scanline}image	grestore end}bdf/blank_PL_image load 0 14 dict put/reencodesubdict 12 dict def/ReEncode{	reencodesubdict begin	/newencoding 0 def/newfontname 0 def/basefontname 0 def	/basefontdict 0 def/newfont 0 def	%	/newencoding xdf/newfontname xdf/basefontname xdf	/basefontdict basefontname findfont def	/newfont basefontdict maxlength 2 add dict def	basefontdict{exch dup/FID ne{exch newfont 3 1 roll put}{pop pop}ifelse}forall	newfont/FontName newfontname put	newencoding -1 ne{newfont/Encoding newencoding put}if	newfontname newfont definefont pop	end}bdf/insertcharnum{	0 begin	/encoding 0 def/i 0 def	%	/encoding xdf/i xdf	(char)charstr copy pop	i istr cvs pop	charstr 4 istr putinterval	encoding i charstr cvn put	end}bdf/insertcharnum load 0 2 dict putILEncoding 0[/Aacute/Acircumflex/Adieresis/Agrave/Aring/Atilde/Ccedilla/Eacute/Ecircumflex/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Ntilde/Oacute/Ocircumflex/Odieresis/Ograve/Otilde/Scaron/Uacute/Ucircumflex/Udieresis/Ugrave/Ydieresis/Zcaron/char28/char29/char30/char31/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/quotedblleft/aacute/acircumflex/adieresis/agrave/aring/atilde/ccedilla/eacute/ecircumflex/edieresis/egrave/iacute/icircumflex/idieresis/igrave/ntilde/oacute/ocircumflex/odieresis/ograve/otilde/scaron/uacute/ucircumflex/udieresis/ugrave/ydieresis/zcaron/char156/char157/char158/char159/char160/exclamdown/cent/sterling/fraction/yen/florin/section/currency/quotesingle/quotedblleft/guillemotleft/guilsinglleft/guilsinglright/fi/fl/char176/endash/dagger/daggerdbl/periodcentered/char181/paragraph/bullet/quotesinglbase/quotedblbase/quotedblright/guillemotright/ellipsis/perthousand/char190/questiondown/char192/grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis/char201/ring/cedilla/char204/hungarumlaut/ogonek/caron/emdash/char209/char210/char211/char212/char213/char214/char215/char216/char217/char218/char219/char220/char221/char222/char223/char224/AE/char226/ordfeminine/char228/char229/char230/char231/Lslash/Oslash/OE/ordmasculine/char236/char237/char238/char239/char240/ae/char242/char243/char244/dotlessi/char246/char247/lslash/oslash/oe/germandbls/char252/char253/char254/char255]putintervalILSymBEnc 32[/space/logicalor/arrowright/arrowdblleft/arrowdblup/arrowdblright/lozenge/arrowhorizex/angleleft/registersans/Upsilon1/plusminus/second/angle/greaterequal

Lines 1–500 of 1456.