4.16.linboli.ps

是multiuser detection 这本书的习题解答, 很有用的书.

	6 -1 roll exch lineto
	exch lineto
	exch lineto
	closepath clip
	newpath
	moveto
} def

% - endTexFig -
/endTexFig { end psf$SavedState restore } def


%%%% Additions by LA Carr to reencode Adobe fonts as TeX fonts (almost)
%%%% Based on routine in LaserWriter Cookbook
/ReEncodeForTeX
  { /newfontname exch def
    /basefontname exch def
    /TeXstr 30 string def

    /basefontdict basefontname findfont def
    /newfont basefontdict maxlength dict def
    basefontdict
      { exch dup /FID ne
	  { dup /Encoding eq
	    { exch dup length array copy
	        newfont 3 1 roll put }
	    { exch newfont 3 1 roll put }
	    ifelse
	  }
	{ pop pop }
	ifelse
      } forall

      basefontdict /MathFontName known not
        { 
	  /TeXvec basefontname TeXstr cvs (Courier) search
	    { pop pop pop TeXcourvec }
	    { pop TeXnormalvec }
	  ifelse def
          TeXvec aload pop

          TeXvec length 2 idiv
	    { newfont /Encoding get 3 1 roll put }
	  repeat
	}
      if

      newfontname newfont definefont pop
  } def

/TeXnormalvec
	[ 8#014 /fi 8#015 /fl 8#020 /dotlessi 8#022 /grave 8#023 /acute
	  8#024 /caron 8#025 /breve 8#026 /macron 8#027 /ring 8#030 /cedilla
	  8#031 /germandbls 8#032 /ae 8#033 /oe 8#034 /oslash 8#035 /AE
	  8#036 /OE 8#037 /Oslash 8#042 /quotedblright 8#074 /exclamdown
	  8#076 /questiondown 8#134 /quotedblleft 8#136 /circumflex
	  8#137 /dotaccent 8#173 /endash 8#174 /emdash 8#175 /hungarumlat
	  8#176 /tilde 8#177 /dieresis ] def
/TeXcourvec
	[ 8#016 /exclamdown 8#017 /questiondown 8#020 /dotlessi 8#022 /grave
	  8#023 /acute 8#024 /caron 8#025 /breve 8#026 /macron 8#027 /ring
	  8#030 /cedilla 8#031 /germandbls 8#032 /ae 8#033 /oe 8#034 /oslash
	  8#035 /AE 8#036 /OE 8#037 /Oslash 8#074 /less 8#076 /greater
	  8#134 /backslash 8#136 /circumflex 8#137 /underscore 8#173 /braceleft
	  8#174 /bar 8#175 /braceright 8#177 /dieresis ] def

/TeXPSmakefont {	% defines a routine for generating PS fonts, fudged!
	/TeXsize exch def findfont 
	[ TeXsize 0 0 TeXsize neg 0 0 ] makefont
} def

% fontname basefontname angle ObliqueFont -
% Create a General Oblique font
/ObliqueFont {
    /ObliqueAngle exch def
    /ObliqueBaseName exch def
    /ObliqueFontName exch def
    /ObliqueTransform [1 0 ObliqueAngle sin ObliqueAngle cos div 1 0 0] def
    /basefontdict ObliqueBaseName findfont ObliqueTransform makefont def
    /newfont basefontdict maxlength dict def
    basefontdict
      { exch dup /FID ne
	  { dup /Encoding eq
	    { exch dup length array copy
	        newfont 3 1 roll put }
	    { exch newfont 3 1 roll put }
	    ifelse
	  }
	{ pop pop }
	ifelse
      } forall

     newfont /FontName ObliqueFontName put
     ObliqueFontName newfont definefont
     pop
} def

% Palatino-ItalicUnslanted? You must be joking!

% fontname basename SmallCapsFont -	Create a General SmallCaps font
/SmallCapsFont {
    /SmallCapsBaseName exch def
    /SmallCapsFontName exch def
    /basefontdict SmallCapsBaseName findfont def
    /newfont basefontdict maxlength 10 add dict def

    newfont begin
	/FontName SmallCapsFontName def
	/FontBaseDict basefontdict 1000 scalefont def
	/FontSCDict FontBaseDict .8 scalefont def
	/FontType 3 def
	/BuildChar {SmallCapChar} def
	/FontMatrix dup basefontdict exch get def
	/FontBBox dup basefontdict exch get def
	/Encoding dup basefontdict exch get def
    end
    SmallCapsFontName newfont definefont pop
} def

% fontdict ch SmallCapChar -
% It shouldn't be so damn hard to do this (make one font out
% of two others) but I tried several dozen variations on this
% theme until I found something that worked. -- vj
/SmallCapChar {
    /achar (A) def
    achar exch 0 exch put
    begin
    achar 0 get dup 97 ge exch 122 le and {
	% handle 'a' through 'z' specially
	achar 0 achar 0 get 32 sub put
	FontSCDict
    } {
	FontBaseDict
    } ifelse
    setfont achar stringwidth FontBBox setcachedevice
    newpath 0 0 moveto achar show
    end
} def

/MathEncodingVec [
/Gamma /Delta /Theta /Lambda /Xi /Pi /Sigma /Upsilon1
/Phi /Psi /Omega /alpha /beta /gamma /delta /epsilon
/zeta /nu /theta /iota /kappa /lambda /mu /nu
/xi /pi /rho /sigma /tau /upsilon /phi /chi
/psi /omega /epsilon /theta1 /omega1 /rho /sigma /phi1
/arrowleft /arrowleft /arrowright /arrowright
/suchthat /congruent /proportional /angle
/zero /one /two /three /four /five /six /seven
/eight /nine /period /comma /less /slash /greater /asteriskmath
/partialdiff /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 /registerserif /copyrightserif /trademarkserif /logicalor /logicaland
/section /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 /dotlessi /j /weierstrass /macron /breve
] def

% the following gives the character codes of the above characters
% in their font.  I.e., this is the character we have to hand "show"
% to image the characters above.
/MathCharVec [
	71	68	81	76	88	80	83	161
	70	89	87	97	98	103	100	101
	122	110	113	105	107	108	109	110
	120	112	114	115	116	117	102	99
	121	119	101	74	118	114	115	106
	172	172	174	174	39	64	181	208
	48	49	50	51	52	53	54	55
	56	57	46	44	60	47	62	42
	182	65	66	67	68	69	70	71
	72	73	74	75	76	77	78	79
	80	81	82	83	84	85	86	87
	88	89	90	210	211	212	218	217
	167	97	98	99	100	101	102	103
	104	105	106	107	108	109	110	111
	112	113	114	115	116	117	118	119
	120	121	122	245	106	195	197	198
] def

% this array tells which font dictionary holds each character above
% (0 = basefont, 1 = symbol (maybe slanted), 2 = symbol (unslanted)).
/MathDictVec [
	1 1 1 1 1 1 1 1
	1 1 1 1 1 1 1 1
	1 1 1 1 1 1 1 1
	1 1 1 1 1 1 1 1
	1 1 1 1 1 1 1 1
	2 2 2 2 2 2 2 2
	0 0 0 0 0 0 0 0
	0 0 0 0 2 2 2 2
	2 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 2 2 2 2 2
	2 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 2 0 0
] def


% fontname basename symbolname symbolbase angle MathOblique -
% Create a "math" font with the symbol font characters slanted
% by "angle"
/MathOblique {
    3 copy ObliqueFont
    pop pop MathFont
} def
    

% fontname basename symbolname MathFont -	Create a math italic font
%
% We build this font out of the base font & the symbol font
% using an encoding vec as close as we can get to cmmi10 with
% standard postscript characters.  An array parallel to the
% encoding vector tells which font dictionary to use for a
% particular character.
/MathFont {
    /MathSymName exch def
    /MathBaseName exch def
    /MathFontName exch def
    /basefontdict MathBaseName findfont def
    /newfont basefontdict maxlength 10 add dict def

    newfont begin
	/FontName MathFontName def
	/FontDictArray [
	    basefontdict 1000 scalefont
	    MathSymName findfont 950 scalefont
	    /Symbol findfont 950 scalefont
	   ] def
	/FontType 3 def
	/BuildChar {MathFontChar} def
	/FontMatrix dup basefontdict exch get def
	/FontBBox dup basefontdict exch get def
	% the encoding vector is a copy of the original font's
	% encoding, modified "appropriately".
	/Encoding dup basefontdict exch get dup length array copy def
	/WhichFont MathDictVec def
	/WhichChar MathCharVec def
	MathEncodingVec Encoding copy pop
	/achar (A) def
    end
    MathFontName newfont definefont pop
} def

% fontdict ch MathFontChar -
% (there's some serious magic going on here:  see note on 
% SmallCapChar above -- vj).
/MathFontChar {
    exch begin
    achar exch 0 exch put
    FontDictArray WhichFont achar 0 get get get setfont
    achar dup 0 get WhichChar exch get 0 exch put
    achar stringwidth FontBBox setcachedevice
    newpath 0 0 moveto achar show
    end
} bind def

/@flushfonts { @TeXSave restore /@TeXSave save def} def

end                     % revert to previous dictionary
TeXDict begin @start
%%Title: 416.dvi
%%Creator: dvi2ps
%%EndProlog
%%Page: 2 1 
2 @bop0
1.000000 /cmbx10.300 @newfont
cmbx10.300 @sf
[<FFFC07FE00FFFC1FFF000FC03FE3800FC03FC1800FC03F80000FC03F80000FC03F80000FC03F00
  000FC03F00000FC03F00000FC03E00000FC07E00000FC0FC00000FFFF800000FFFFE00000FC03F
  00000FC01F80000FC00FC0000FC00FE0000FC00FE0000FC00FE0000FC00FE0000FC00FE0000FC0
  0FC0000FC01F80000FC03F0000FFFFFE0000FFFFF00000> 40 28 -2 0 35] 82 @dc
1.000000 /cmr10.300 @newfont
cmr10.300 @sf
[<FFFFFFE0FFFFFFE000000000000000000000000000000000000000000000000000000000000000
  00FFFFFFE0FFFFFFE0> 32 12 -2 -4 32] 61 @dc
1.000000 /cmex10.300 @newfont
cmex10.300 @sf
[<E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E0
  00E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000
  E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E0
  00E000E000E000E000E000E000E000E000E000E000E000E000FFFCFFFCFFFC> 16 74 -13 73 27] 50 @dc
[<E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0> 8 27 -13 26 27] 54 @dc
[<FFFCFFFCFFFCE000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E0
  00E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000
  E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E0
  00E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000> 16 74 -13 72 27] 52 @dc
cmr10.300 @sf
[<FEFEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  FEFE> 8 41 -4 10 11] 91 @dc
[<07E00FF01C38381C781E700E700EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0
  0F700E700E781E381C1C380FF007E0> 16 27 -2 0 20] 48 @dc
[<FEFE06060606060606060606060606060606060606060606060606060606060606060606060606
  FEFE> 8 41 0 10 11] 93 @dc
1.000000 /cmmi7.300 @newfont
cmmi7.300 @sf
[<3FF8003FFC0003C00001C00001C00001E00001E00000E00000E00000F00000F000007000C07030
  E078306078307038303038383C3C783FFFF81FFFF8> 24 20 0 0 19] 84 @dc
cmr10.300 @sf
[<FFF8FFF80700070007000700070007000700070007000700070007000700070007000700070007
  0007000700C700FF003F0007000300> 16 27 -4 0 20] 49 @dc
cmbx10.300 @sf
[<03F8000FFE001F1F003E0F803C07807C07C07C07C0FC07E0FC07E0FC07E0FC07E0FC07E0FC07E0
  FC07E0FC07E0FC07E0FC07E0FC07E0FC07E07C07C07C07C07C07C03C07803E0F801F1F000FFE00
  03F800> 24 27 -2 0 23] 48 @dc
1.000000 /cmmi10.300 @newfont
cmmi10.300 @sf
[<70F8F8F870> 8 5 -3 0 11] 58 @dc
cmex10.300 @sf
[<001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C00
  1C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C
  001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C00
  1C001C001C001C001C001C001C001C001C001C001C001C001CFFFCFFFCFFFC> 16 74 0 73 27] 51 @dc
[<E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0> 8 27 -11 26 27] 55 @dc
[<FFFCFFFCFFFC001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C00
  1C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C
  001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C00
  1C001C001C001C001C001C001C001C001C001C001C001C001C001C001C001C> 16 74 0 72 27] 53 @dc
cmr10.300 @sf
[<01C00380038007000E000C001C001800380038007000700070007000E000E000E000E000E000E0
  00E000E000E000E000E000E000E000E00070007000700070003800380018001C000C000E000700
  0380038001C0> 16 42 -3 11 16] 40 @dc
[<07800007800007800007800007800007800007800007800003800003800003800003C00001C000
  01C00000C00000E000006000007000003000003800C01C00C00E00C006006007007FFF807FFF80
  7FFF80600000> 24 28 -2 0 20] 55 @dc
[<E0007000700038001C000C000E00060007000700038003800380038001C001C001C001C001C001
  C001C001C001C001C001C001C001C001C003800380038003800700070006000E000C001C003800
  70007000E000> 16 42 -2 11 16] 41 @dc
[<03FFFC0003FFFC00000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F00
  00000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000C00F0060C00F
  0060C00F0060C00F0060E00F00E0600F00C0700F01C0780F03C07FFFFFC07FFFFFC0> 32 28 -1 0 29] 84 @dc
[<FF9FF0FF9FF01C03801C03801C03801C03801C03801C03801C03801C03801C03801C03801C0380
  1E03801F07801F8F801DFF001CFE001C00001C00001C00001C00001C00001C00001C00001C0000
  1C0000FC0000FC0000> 24 29 -1 0 23] 104 @dc
[<07F3F00FFFF01E1F801C0F801C07801C03801C03801C03801C03801C03801C03801C03801C0380
  1C03801C03801C0380FC1F80FC1F80> 24 18 -1 0 23] 117 @dc
[<CFC0FFF0F8F0F078E038C038C07800F81FF07FE07FC0F800F030E030E070F0F07FF01FB0> 16 18 -1 0 16] 115 @dc
[<60E070303818181878F8F8F870> 8 13 -3 8 11] 44 @dc
[<01FFC001FFC0001C00001C00001C00001C00001C00001C00FFFFC0FFFFC0E01C00601C00301C00
  381C00181C000C1C000E1C00071C00031C00039C0001DC0000DC00007C00007C00003C00001C00
  001C00> 24 27 -1 0 20] 52 @dc
[<18FE001BFF801F87C01E03C01E01E01C01E01C00F01C00F01C00F01C00F01C00F01C00F01C00F0
  1C01E01E03E01F87C01FFF801CFE001C00001C00001C00001C00001C00001C00001C00001C0000
  1C0000FC0000FC0000> 24 29 -1 0 23] 98 @dc
[<07F00FF83F1C3C0E78067800F000F000F000F000FFFEFFFEF01E781E781C3E7C1FF807E0> 16 18 -1 0 18] 101 @dc
[<07F00FF83F1C3C0E78067800F000F000F000F000F000F000780078183C3C3E3C0FFC07F8> 16 18 -1 0 18] 99 @dc
[<03F0000FFC001E1E00380700780780700380F003C0F003C0F003C0F003C0F003C0F003C0700380
  7807803807001E1E000FFC0003F000> 24 18 -1 0 20] 111 @dc
[<FF8FF8FF80FF8FF8FF801C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C
  001C01C01C001C01C01C001C01C01C001C01C01C001C01C01C001E01E01C001F03F03C001F87F8
  7C00FDFF9FF800FC7F07F000> 40 18 -1 0 34] 109 @dc
[<FFFEFFFEFFFE700638031C030E030700038001C001E000F00078003C003E001E001F000F700FF8
  0FF80FF81FF01E603E78FC3FF80FE0> 16 27 -2 0 20] 50 @dc
cmbx10.300 @sf
[<FFFF80FFFF80FFFF80> 24 3 -3 -22 23] 22 @dc
[<183FC01CFFF01FE1F81F80FC1F00FC1F007E1F007E1F007E1F007E1F007E1F007E1F007E1F007E
  1F007C1F80FC1FE1F81FFFF01F3FC01F00001F00001F00001F00001F00001F00001F00001F0000
  1F0000FF0000FF0000> 24 29 -1 0 26] 98 @dc
[<FFC07FFEFFC07FFE0C0007E00E000FE006000FC006000FC003001F8003001F8003FFFF8001FFFF
  0001803F0000C07E0000C07E0000E0FE000060FC000061FC000031F8000031F800001BF000001B
  F000001FF000000FE000000FE0000007C0000007C0000007C0000003800000038000> 32 28 -2 0 36] 65 @dc
cmmi7.300 @sf
[<FF1C7FC0FF1C7FC01C1E0F000C1F07000C1F07000E1D87000E1CC780061CC38006386380073863
  80073833C0033819C0033819C003B80DC003B807E001B806E001F003E001F003F007F001FE07F0
  00FE> 32 20 -1 0 31] 77 @dc
cmbx10.300 @sf
[<FFFF0000FFFF00000FC000000FC000000FC000000FC000000FC000000FC000000FC180000FC180
  000FC180000FC180000FC380000FFF80000FFF80000FC380000FC180000FC180000FC181800FC1