3.27.linboli.ps

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

	/initgraphics {
		DocumentInitState setmiterlimit setgray setdash 
			setlinejoin setlinecap setlinewidth setmatrix
		DefFigCTM setmatrix
	} def

	/showpage {
		initgraphics
	} def
	/erasepage {
	} def
	/copypage {
		initgraphics
	} def
	@MacSetUp
} def

% llx lly urx ury doclip -	(args in figure coordinates)
/doclip {
	currentpoint 6 2 roll
	newpath 4 copy
	4 2 roll moveto
	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: 327.dvi
%%Creator: dvi2ps
%%EndProlog
%%Page: 2 1 
2 @bop0
1.000000 /cmr10.300 @newfont
cmr10.300 @sf
[<FFFFFFE0FFFFFFE000000000000000000000000000000000000000000000000000000000000000
  00FFFFFFE0FFFFFFE0> 32 12 -2 -4 32] 61 @dc
1.000000 /cmmi7.300 @newfont
cmmi7.300 @sf
[<FF83FC00FF83FC001E00F0000E01E0000E01E0000F03C0000F03C0000787800007C7800007FF00
  0007FF0000039E0000038E000003C7800003C3C00001C0E00001C0780001E03C0007FC3FC007FC
  3FC0> 32 20 -1 0 27] 75 @dc
1.000000 /cmex10.300 @newfont
cmex10.300 @sf
[<FFFFF81FFFFFFFFFF81FFFFFFFFFF81FFFFF0FFF8001FFF003FE00007FC001FC00003F8001FC00
  003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F80
  01FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00
  003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F80
  01FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00
  003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F80
  01FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00
  003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F8001FC00003F80
  01FC00003F8003FC00003FC00FFC00003FF0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF> 48 58 -2 58 53] 89 @dc
cmmi7.300 @sf
[<C1E0E3F0E3386318631877007E003C003E703F703BB819F018F01C001C000C000C000E003E003E
  00> 16 20 -2 0 17] 107 @dc
1.000000 /cmr7.300 @newfont
cmr7.300 @sf
[<FFFFF0FFFFF0000000000000000000000000000000000000FFFFF0FFFFF0> 24 10 -2 -2 25] 61 @dc
[<FFE0FFE0FFE078703C301E300F00078003C001E000E000700070E070E070E0F0E1E07FC01F80> 16 19 -2 0 16] 50 @dc
1.000000 /cmmi10.300 @newfont
cmmi10.300 @sf
[<FFFFFC00FFFFFE000F803E0007800F000780070007C0038003C0038003C0018003C001C003E0C0
  C001E0E0E001E0600001E0600001F0E00000FFF00000FFF00000F0700000F83000007838300078
  183000781830007C0030003C0030003C0030003C0078003E00F803FFFFF803FFFFF8> 32 28 -2 0 30] 69 @dc
1.000000 /cmsy10.300 @newfont
cmsy10.300 @sf
[<001F007F00F801E001C001C001C001C001C001C001C001C001C001C001C001C001C003C00F80FF
  00FC00FF000F8003C001C001C001C001C001C001C001C001C001C001C001C001C001C001E000F8
  007F001F> 16 41 -2 10 20] 102 @dc
cmr10.300 @sf
[<07F00FF83F1C3C0E78067800F000F000F000F000FFFEFFFEF01E781E781C3E7C1FF807E0> 16 18 -1 0 18] 101 @dc
[<FF8FF8FF8FF81F0780070700030E00038E0001DC0000F80000780000700000F00001D80001DC00
  038E00070F000F0F807F8FF07F8FF0> 24 18 0 0 21] 120 @dc
[<FF8000FF80001C00001C00001C00001C00001C00001C00001CFE001FFF801F8FC01E03C01E01E0
  1C01E01C00F01C00F01C00F01C00F01C00F01C00F01C01F01C01E01E03E01F87C0FFFF80FCFE00> 24 26 -1 8 23] 112 @dc
[<01C00380038007000E000C001C001800380038007000700070007000E000E000E000E000E000E0
  00E000E000E000E000E000E000E000E00070007000700070003800380018001C000C000E000700
  0380038001C0> 16 42 -3 11 16] 40 @dc
cmmi10.300 @sf
[<0F001F803DC038E03C601C701C701E000E000F0007000700C780E380638073803F801F00000000
  00000000000000000001C001E001E000E0> 16 28 -1 0 14] 105 @dc
[<0F803FC03CE0387038303C383C381C001C001E001E000E000E000F000F000700FFF0FFF0078003
  80038003C003C001C001C001C0> 16 26 0 0 14] 116 @dc
[<FFC0FFF07FC0FFF00F000F0007000F0003000F0001800F0001800F0000C00F00007FFF00007FFF
  0000301F0000301E0000181E00001C1E00000C1E0000061E0000061E0000031E0000031E000001
  9E000000DE000000DE0000007E0000007C0000003C0000003C0000001C0000000C00> 32 28 -1 0 31] 65 @dc
[<3F007FC073E0E0F0E0F0E078E07CE03CE03CF03C703E701E701E781C3C1C3F3C3FF83DF01C001C
  001C001E000E000E000E000F000F007F003F00> 16 29 -2 0 17] 98 @dc