[comp.lang.postscript] Glen Reid's distillery, BoundingBox, bugs

rodgers@maxwell.mmwb.ucsf.edu (ROOT) (02/11/91)

Dear Netlanders,

I have been an enthusiastic user of Glen Reid's PS distillery program for some
time.  In particular, I like using it to determine the BoundingBox values
for figures I create with SunDraw, which I want to insert within troff
documents with psfig (perhaps someone has a slicker way devised?).
I have just encountered anomalous behavior in the distillery which
may be of interest (are you out there, Glen?).

Appended is a shar archive with two EPSF files: *.eps1 is a distilled
version of *.eps2.  The italics of the original figure are lost during
distillation.  

Cheerio, Rick Rodgers
---------------------
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create:
#	flow_chart.eps1
#	flow_chart.eps2
# This archive created: Sun Feb 10 18:37:31 1991
# By:	ROOT (Univ. of Calif., San Francisco)
export PATH; PATH=/bin:/usr/bin:$PATH
echo shar: "extracting 'flow_chart.eps1'" '(9006 characters)'
if test -f 'flow_chart.eps1'
then
	echo shar: "will not over-write existing file 'flow_chart.eps1'"
else
sed 's/^	X//' << \SHAR_EOF > 'flow_chart.eps1'
	X%!PS-Adobe-2.0 EPSF-2.0
	X%%Title: flow_chart.eps
	X%%Creator: rodgers (using Glenn Reid's still.ps, V 1.0d release 11 edit 4)
	X%%BoundingBox: (atend)
	X%%Pages: (atend)
	X%%DocumentProcSets: Adobe_distill 0.112
	X%%EndComments
	X%%BeginProcSet: Adobe_distill 0.112 0
	X/PROLOGUE 30 40 add dict def
	X % 30 procedure entries + room for 40 cached font dictionaries
	X PROLOGUE begin
	X /clip { } def    % causes problems. remove if "clip" is needed
	X /bdef { bind def } bind def	/ldef { load def } bdef
	X /T { moveto show } bdef	/A { moveto ashow } bdef
	X /W { moveto widthshow } bdef	/AW { moveto awidthshow } bdef
	X /f /fill ldef			/R { { rlineto } repeat } bdef
	X /r /rlineto ldef		/L { { lineto } repeat } bdef
	X /m /moveto ldef		/l { moveto lineto stroke } bdef
	X /x { 0 rlineto } bdef		/y { 0 exch rlineto } bdef
	X /X { moveto 0 rlineto stroke } bdef
	X /Y { moveto 0 exch rlineto stroke } bdef
	X /c /curveto ldef		/cp /closepath ldef
	X /s /stroke ldef		/w /setlinewidth ldef
	X /g /setgray ldef		/j /setlinejoin ldef
	X /d /setdash ldef		/F /setfont ldef
	X /C /setcmykcolor where { /setcmykcolor get }{ %ifelse
	X   { %def
	X     1 sub 3 { 3 index add neg dup 0 lt { pop 0 } if 3 1 roll } repeat
	X     setrgbcolor
	X   } bind
	X } ifelse def
	X /selectfont where { pop }{ %ifelse
	X     /selectfont { exch findfont exch scalefont setfont } bdef
	X } ifelse
	X /MF { exch findfont exch makefont setfont } bdef
	X /FF /selectfont ldef
	X /DF { selectfont currentfont def } bdef
	X /BEGINPAGE { pop /pagesave save def } bdef
	X /ENDPAGE { pop pagesave restore showpage } def
	X /REMAP { %def
	X   FontDirectory 2 index known { pop pop pop } { %ifelse
	X     findfont dup length dict begin
	X       { 1 index /FID ne {def}{pop pop} ifelse } forall
	X       exch dup length 0 gt { /Encoding exch def }{ pop } ifelse
	X     currentdict end definefont pop
	X   } ifelse
	X } bdef
	X /RECODE { %def
	X    3 -1 roll 1 index findfont /Encoding get 256 array copy exch
	X    0 exch { %forall
	X     dup type/nametype eq
	X       { 3 {2 index} repeat put pop 1 add }{ exch pop }ifelse
	X    } forall pop 3 1 roll REMAP
	X } bdef
	X end %PROLOGUE
	X%%EndProcSet: Adobe_distill 0.112 0
	X%%EndProlog
	X%%BeginSetup
	XPROLOGUE begin
	X/stdvec
	X[
	X  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
	X  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
	X  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
	X  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
	X  /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright
	X  /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
	X  /zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
	X  /less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
	X  /O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
	X  /asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m
	X  /n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde
	X  /.notdef/Acircumflex/Adieresis/Agrave/Aring/Atilde/Ccedilla
	X  /Eacute/Ecircumflex/Edieresis/Egrave/Iacute/Icircumflex/Idieresis
	X  /Igrave/Ntilde/Oacute/Ocircumflex/Odieresis/Ograve/Otilde/Scaron
	X  /Uacute/Ucircumflex/Udieresis/Ugrave/Ydieresis/Zcaron/aacute
	X  /acircumflex/adieresis/agrave/aring/atilde/exclamdown/cent/sterling
	X  /fraction/yen/florin/section/currency/quotesingle/quotedblleft
	X  /guillemotleft/guilsinglleft/guilsinglright/fi/fl/.notdef/endash
	X  /dagger/daggerdbl/periodcentered/.notdef/paragraph/bullet/quotesinglbase
	X  /quotedblbase/quotedblright/guillemotright/ellipsis/perthousand
	X  /.notdef/questiondown/.notdef/grave/acute/circumflex/tilde/macron
	X  /breve/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut
	X  /ogonek/caron/emdash/ccedilla/copyright/eacute/ecircumflex/edieresis
	X  /egrave/iacute/icircumflex/idieresis/igrave/logicalnot/minus
	X  /ntilde/oacute/ocircumflex/odieresis/AE/.notdef/ordfeminine
	X  /ograve/otilde/registered/scaron/Lslash/Oslash/OE/ordmasculine
	X  /trademark/uacute/ucircumflex/udieresis/ugrave/ae/ydieresis
	X  /zcaron/Aacute/dotlessi/.notdef/.notdef/lslash/oslash/oe/germandbls
	X  /.notdef/.notdef/.notdef/.notdef
	X]def
	Xstdvec /CourierR /Courier REMAP
	X
	X%%EndSetup
	X%%Page: 1 1
	X%%PageFonts: (atend)
	X%%PageBoundingBox: (atend)
	X1 BEGINPAGE
	Xstdvec /HelveticaR /Helvetica  REMAP
	X/F1 /HelveticaR 12 DF
	X(Direct) 120.945 430.512 T
	XF1 F
	X(Entry) 155.605 430.512 T
	Xstdvec /Helvetica-ObliqueR /Helvetica-Oblique  REMAP
	XF1 F
	X(bibnew,) 120.945 414.449 T
	XF1 F
	X(vi,) 165.625 414.449 T
	XF1 F
	X(emacs,) 120.945 398.448 T
	XF1 F
	X(...) 162.949 398.448 T
	X0.2835 w
	X18.0 784.32 m
	X575.76 x
	X-776.4 y
	X-575.76 x
	Xclip newpath
	X114.331 447.071 m
	X76.5345 x
	X-58.5826 y
	X-76.5345 x
	Xcp s
	XF1 F
	X(bibformat) 26.4566 349.252 T
	X20.7874 364.866 m
	X63.3074 x
	X-22.6772 y
	X-63.3074 x
	Xcp s
	XF1 F
	X(Commercial) 18.8978 428.622 T
	XF1 F
	X(Bibliographic) 18.8978 412.622 T
	XF1 F
	X(Service) 18.8978 396.622 T
	X12.2834 447.071 m
	X80.3153 x
	X-63.3072 y
	X-80.3153 x
	Xcp s
	XF1 F
	X(Database) 20.7873 240.591 T
	XF1 F
	X(Searching) 20.7873 224.591 T
	XF1 F
	X(bibfind) 21.7324 208.463 T
	XF1 F
	X(biblocate) 21.7324 192.463 T
	XF1 F
	X(biblook) 21.7324 176.463 T
	XF1 F
	X(bibsearch) 21.7324 160.463 T
	X16.0631 257.148 m
	X64.2519 x
	X-103.935 y
	X-64.2519 x
	Xcp s
	XF1 F
	X(Database) 121.89 277.441 T
	XF1 F
	X(bibIX) 131.339 292.559 T
	X2 j
	X183.307 289.275 m
	X183.307 276.236 166.375 265.653 145.512 265.653 c
	X124.649 265.653 107.717 276.236 107.717 289.275 c
	X107.717 302.315 124.649 312.897 145.512 312.897 c
	X166.375 312.897 183.307 302.315 183.307 289.275 c
	Xcp s
	XF1 F
	X(bibindex) 120.945 230.196 T
	XF1 F
	X(bibupdate) 120.945 214.196 T
	X0 j
	X116.221 245.809 m
	X60.4716 x
	X-40.6291 y
	X-60.4716 x
	Xcp s
	XF1 F
	X(Database) 120.945 164.055 T
	XF1 F
	X(Index) 130.394 148.935 T
	X2 j
	X184.252 161.717 m
	X184.252 148.677 167.32 138.095 146.457 138.095 c
	X125.594 138.095 108.662 148.677 108.662 161.717 c
	X108.662 174.756 125.594 185.339 146.457 185.339 c
	X167.32 185.339 184.252 174.756 184.252 161.717 c
	Xcp s
	XF1 F
	X(Database) 220.159 428.622 T
	XF1 F
	X(Maintenance) 220.159 412.622 T
	XF1 F
	X(bibcheck) 220.159 395.551 T
	XF1 F
	X(bibcmp) 220.159 379.551 T
	XF1 F
	X(bibcull) 220.159 363.551 T
	XF1 F
	X(bibdel) 220.159 347.551 T
	XF1 F
	X(bibexam) 220.159 331.551 T
	XF1 F
	X(bibmerge) 220.159 315.551 T
	XF1 F
	X(bibpack) 220.159 299.551 T
	XF1 F
	X(bibpun) 220.159 283.551 T
	XF1 F
	X(bibsort) 220.159 267.551 T
	XF1 F
	X(bibsplit) 220.159 251.551 T
	XF1 F
	X(bibuniq) 220.159 235.551 T
	XF1 F
	X(bibwc) 220.159 219.551 T
	X0 j
	X213.543 447.071 m
	X82.2048 x
	X-235.277 y
	X-82.2048 x
	Xcp s
	X145.512 313.842 m
	X-1.82181 8.16544 r
	X5.26224 -0.539673 r
	Xeofill
	X2 j
	X153.071 387.543 m
	X150.965 367.019 147.983 337.921 146.322 321.737 c
	Xs
	X107.717 296.834 m
	X-8.24344 1.4295 r
	X2.50638 4.66019 r
	Xeofill
	X53.8584 341.244 m
	X60.1575 333.055 63.7796 324.078 72.7561 316.677 c
	X80.0001 310.704 90.7312 305.756 100.728 300.592 c
	Xs
	X180.474 299.669 m
	X5.91025 5.91986 r
	X2.36978 -4.73105 r
	Xeofill
	X213.543 330.85 m
	X208.506 323.921 203.936 315.259 198.426 310.063 c
	X195.052 306.881 191.322 304.998 187.566 303.221 c
	Xs
	XF1 F
	X(Document) 219.212 151.77 T
	XF1 F
	X(Preparation) 219.212 135.77 T
	XF1 F
	X(bib) 220.159 120.589 T
	XF1 F
	X(bibdemo) 220.159 104.589 T
	XF1 F
	X(bibhyphen) 220.159 88.5888 T
	XF1 F
	X(biblist) 220.159 72.5887 T
	XF1 F
	X(bibroff) 220.159 56.5887 T
	XF1 F
	X(bibstyle) 220.159 40.5887 T
	XF1 F
	X(bibtext) 220.159 24.5886 T
	X0 j
	X214.49 168.33 m
	X72.7541 x
	X-151.18 y
	X-72.7541 x
	Xcp s
	XF1 F
	X(Text) 122.835 89.4077 T
	XF1 F
	X(File) 149.503 89.4077 T
	X2 j
	X184.252 93.6852 m
	X184.252 80.6458 167.32 70.0632 146.457 70.0632 c
	X125.594 70.0632 108.662 80.6458 108.662 93.6852 c
	X108.662 106.725 125.594 117.307 146.457 117.307 c
	X167.32 117.307 184.252 106.725 184.252 93.6852 c
	Xcp s
	X184.252 33.2107 m
	X3.00757 7.80945 r
	X4.08191 -3.36749 r
	Xeofill
	X183.308 153.213 m
	X193.7 127.701 214.331 96.6757 214.49 76.6772 c
	X214.623 59.6325 199.891 50.5956 189.295 39.3278 c
	Xs
	X185.196 93.6852 m
	X192.442 91.4798 202.204 89.7477 206.93 87.069 c
	X211.655 84.3932 211.34 80.7704 213.543 77.6212 c
	Xs
	XF1 F
	X(Document) 119.055 20.4322 T
	X184.252 23.7629 m
	X184.252 10.7234 167.32 0.140808 146.457 0.140808 c
	X125.594 0.140808 108.662 10.7234 108.662 23.7629 c
	X108.662 36.8022 125.594 47.3849 146.457 47.3849 c
	X167.32 47.3849 184.252 36.8022 184.252 23.7629 c
	Xcp s
	X90.7088 59.6694 m
	X90.7088 46.63 73.7766 36.0473 52.9136 36.0473 c
	X32.0506 36.0473 15.1183 46.63 15.1183 59.6694 c
	X15.1183 72.7087 32.0506 83.2914 52.9136 83.2914 c
	X73.7766 83.2914 90.7088 72.7087 90.7088 59.6694 c
	Xcp s
	XF1 F
	X(User) 39.6851 55.3919 T
	X82.2049 75.7304 m
	X0.378128 8.35938 r
	X4.9391 -1.89923 r
	Xeofill
	X81.2601 205.18 m
	X90.7088 187.543 109.449 173.841 109.607 152.266 c
	X109.749 132.752 94.6881 106.795 85.0514 83.1374 c
	Xs
	X51.0237 365.811 m
	X-2.64557 7.93698 r
	X5.29114 x
	Xeofill
	X0 j
	X9.07089 51.0237 373.748 Y
	X145.512 246.756 m
	X-2.64554 7.93701 r
	X5.29224 x
	Xeofill
	X10.0148 145.512 254.693 Y
	X145.512 186.282 m
	X-2.64554 7.93701 r
	X5.29224 x
	Xeofill
	X10.9616 145.512 194.219 Y
	X86.9294 48.3307 m
	X8.03168 -2.34433 r
	X-3.01208 -4.34824 r
	Xeofill
	X93.455 43.8123 111.496 31.3228 l
	X /showpage {} def
	X1 ENDPAGE
	X%%PageTrailer
	X%%PageFonts: Helvetica Helvetica-Oblique 
	X%%PageBoundingBox: 12 -80 593 784 
	X%%Trailer
	Xend %PROLOGUE
	X%%Pages: 1 
	X%%BoundingBox: 12 -80 593 784 
	X%%DocumentFonts: Helvetica Helvetica-Oblique 
	X%%EOF
SHAR_EOF
if test 9006 -ne "`wc -c < 'flow_chart.eps1'`"
then
	echo shar: "error transmitting 'flow_chart.eps1'" '(should have been 9006 characters)'
fi
fi
echo shar: "extracting 'flow_chart.eps2'" '(14272 characters)'
if test -f 'flow_chart.eps2'
then
	echo shar: "will not over-write existing file 'flow_chart.eps2'"
else
sed 's/^	X//' << \SHAR_EOF > 'flow_chart.eps2'
	X%!PS-Adobe-2.0 EPSF-1.0
	X%%Title: flow_chart.eps
	X%%Creator: rodgers
	X%%CreationDate: Sun Feb  3 17:45:41 1991
	X%%Pages: 1
	X%%BoundingBox: 0 0 306.142 447.213
	X%%EndComments
	X/draw_initial_state save def
	X/displaylistdict 80 dict def
	Xdisplaylistdict begin
	X
	X%% catch nocurrentpoint error for:
	X%% pathbbox
	X    /ncpoint errordict /nocurrentpoint get def
	X    errordict begin
	X    /nocurrentpoint
	X    {
	X	dup /pathbbox load eq
	X	{ pop 0 0 1 1 }
	X	{ ncpoint }
	X	ifelse
	X    } bind def
	X    end
	X
	X    /m {moveto} bind def
	X    /l {lineto} bind def
	X
	X%% pattern stuff
	X    /BPSIDE 32 def	%% pixels per pattern side
	X    /PATFREQ 3.0 def	%% pattern pixels per mm
	X
	X    /drawpat_mat [PATFREQ 0 0 PATFREQ 0 0] def
	X    /drawpat_pw BPSIDE def	%% pattern pixel width
	X    /drawpat_ph BPSIDE def	%% pattern pixel height
	X    /drawpat_w drawpat_pw PATFREQ div def	%% pattern mm width
	X    /drawpat_h drawpat_ph PATFREQ div def	%% pattern mm height
	X    /drawpat_bs 1 def		%% pattern bits per pixel
	X
	X    /savemat matrix def
	X    /topmat matrix def
	X    /patmat matrix def
	X
	X    /start_display_list
	X    {	
	X	0	setlinecap
	X	10	setmiterlimit
	X    } bind def
	X
	X    /patpath {
	X	topmat setmatrix
	X	pathbbox	%% get lo - hi indecies
	X	/hy exch drawpat_h div floor cvi def
	X	/hx exch drawpat_w div floor cvi def
	X	/ly exch drawpat_h div floor cvi def
	X	/lx exch drawpat_w div floor cvi def
	X	lx 1 hx {
	X	    drawpat_w mul
	X	    ly 1 hy {
	X		drawpat_h mul
	X		exch dup 3 1 roll exch
	X		patmat currentmatrix pop
	X		translate
	X		drawpat_pw drawpat_ph drawpat_bs
	X		drawpat_mat drawpat_proc image
	X		patmat setmatrix
	X	    } for
	X	    pop
	X	} for
	X    } bind def
	X
	X    /image_raster { %% sw sh dw dh xs ys
	X	translate scale /sh exch def /sw exch def
	X	/imagebuf sw 7 add 8 idiv string def
	X	sw sh 1 [sw 0 0 sh 0 0] { currentfile imagebuf readhexstring pop }
	X	image
	X    } bind def
	X    /r {rmoveto} bind def
	X    /sp {x 0 rmoveto} bind def
	X    /rl {rlineto} bind def
	X    /onelet 1 string def
	X
	X%% show a string
	X    /s {
	X	    complex_color
	X	    {
	X		{
	X		    onelet exch 0 exch put
	X		    gsave
	X			onelet true charpath
	X			clip patpath
	X		    grestore
	X		    onelet stringwidth rmoveto
	X		} forall
	X	    }
	X	    { show }
	X	    ifelse
	X	} bind def
	X
	X    /box { newpath m l l l closepath } bind def
	X    /pix_to_units { 144 300 div mul } bind def
	X    /apix_to_units { 144 exch div mul } bind def
	X
	X    /badfont null def
	X    /badfont_trap {
	X	badfont null ne {
	X	    2 dict begin
	X	    gsave
	X		.9 setgray
	X		clippath pathbbox /h exch def /w exch def
	X		0 h translate 1 -1 scale
	X		/Times-Roman findfont 17 scalefont setfont
	X		w 20 div h 3 mul 7 div moveto
	X		badfont show (:) show
	X		/Times-Roman findfont 25 scalefont setfont
	X		w 20 div h 2 mul 7 div moveto
	X		(Font not available) show
	X		w 20 div h 1 mul 7 div moveto
	X		(on this printer.) show
	X	    grestore
	X	    end
	X	    /badfont null store
	X	} if
	X    } def
	X
	X    /reencode_small_dict 12 dict def
	X    /ReencodeSmall {
	X	reencode_small_dict begin
	X	/new_codes_and_names exch def
	X	/new_font_name exch def
	X	/base_font_name exch def
	X
	X	/base_font_dict base_font_name findfont def
	X	base_font_dict /FontName get base_font_name ne {
	X		/badfont base_font_name 30 string cvs store
	X	} if
	X	/newfont base_font_dict maxlength dict def
	X
	X	base_font_dict {
	X	    exch dup /FID ne
	X		{ dup /Encoding eq
	X		    { exch dup length array copy newfont 3 1 roll put }
	X		    { exch newfont 3 1 roll put }
	X		    ifelse
	X		}
	X		{ pop pop }
	X		ifelse
	X	} forall
	X
	X	newfont /FontName new_font_name put
	X	new_codes_and_names aload pop
	X
	X	new_codes_and_names length 2 idiv
	X	{ newfont /Encoding get 3 1 roll put }
	X	repeat
	X
	X	new_font_name newfont definefont pop
	X	end     %%reencode_small_dict
	X    } def
	X
	X    /extended_Zapf [
	X	8#223 /a89
	X	8#224 /a90
	X	8#225 /a93
	X	8#226 /a94
	X	8#227 /a91
	X	8#230 /a92
	X	8#231 /a205
	X	8#232 /a85
	X	8#233 /a206
	X	8#234 /a86
	X	8#235 /a87
	X	8#236 /a88
	X	8#237 /a95
	X	8#240 /a96
	X    ] def
	X
	X    /extended_Standard [
	X	128 /Acircumflex
	X	129 /Adieresis
	X	130 /Agrave
	X	131 /Aring
	X	132 /Atilde
	X	133 /Ccedilla
	X	134 /Eacute
	X	135 /Ecircumflex
	X	136 /Edieresis
	X	137 /Egrave
	X	138 /Iacute
	X	139 /Icircumflex
	X	140 /Idieresis
	X	141 /Igrave
	X	142 /Ntilde
	X	143 /Oacute
	X	144 /Ocircumflex
	X	145 /Odieresis
	X	146 /Ograve
	X	147 /Otilde
	X	148 /Scaron
	X	149 /Uacute
	X	150 /Ucircumflex
	X	151 /Udieresis
	X	152 /Ugrave
	X	153 /Ydieresis
	X	154 /Zcaron
	X	155 /aacute
	X	156 /acircumflex
	X	157 /adieresis
	X	158 /agrave
	X	159 /aring
	X	160 /atilde
	X	209 /ccedilla
	X	210 /copyright
	X	211 /eacute
	X	212 /ecircumflex
	X	213 /edieresis
	X	214 /egrave
	X	215 /iacute
	X	216 /icircumflex
	X	217 /idieresis
	X	218 /igrave
	X	219 /logicalnot
	X	220 /minus
	X	221 /ntilde
	X	222 /oacute
	X	223 /ocircumflex
	X	224 /odieresis
	X	228 /ograve
	X	229 /otilde
	X	230 /registered
	X	231 /scaron
	X	236 /trademark
	X	237 /uacute
	X	238 /ucircumflex
	X	239 /udieresis
	X	240 /ugrave
	X	242 /ydieresis
	X	243 /zcaron
	X	244 /Aacute
	X    ] def
	X
	X    /extended_Symbol [
	X    ] def
	X
	X    /extend_font {  %% stack: fontname newfontname
	X	exch dup (ZapfDingbats) eq
	X	    { cvn exch cvn extended_Zapf ReencodeSmall }
	X	    { dup (Symbol) eq
	X		{ cvn exch cvn extended_Symbol ReencodeSmall }
	X		{ cvn exch cvn extended_Standard ReencodeSmall }
	X		ifelse
	X	    }
	X	ifelse
	X    } bind def
	X
	X    /getfont {
	X	/f exch def f cvn where
	X	{ begin f cvx cvn exec setfont end }
	X	{ f 0 f length 3 sub getinterval (LocalFont) extend_font
	X	    /LocalFont findfont
	X	    /sz f f length 3 sub 3 getinterval cvi def
	X	    [ sz 0 0 sz neg 0 0 ] makefont dup f cvn exch def
	X	    setfont
	X	}
	X	ifelse
	X    } bind def
	X
	X    /ul { %% space drop thickness
	X	gsave currentpoint currentlinewidth 
	X	currentpoint newpath moveto 6 -3 roll 
	X	setlinewidth 0 exch r
	X	0 rl stroke setlinewidth m
	X	grestore 
	X    } bind def
	X
	X    /ss { currentpoint pop exch m } bind def
	X
	X    /leader_insert 
	X    { 
	X	/str exch def /sp1 exch def 
	X	-1 0 { pop sp1 0 str ashow } for
	X    } bind def
	X
	X    /nx { /x exch def } bind def
	X    0. nx
	X%%EndProlog
	X
	X%%Page: 1 1
	Xgsave 2.83465 -2.83465 scale
	X-48 -196.383 translate
	Xtopmat currentmatrix pop
	Xstart_display_list
	X
	X% text
	X0 setgray
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 90.6667 41.3333] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Direct) s 6.656 nx sp (Entry) s
	Xsavemat setmatrix
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 90.6667 47] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bibnew,) s 6.656 nx sp (vi,) s
	X50 ss 0.000 50.000 m (emacs,) s sp (...) s
	Xsavemat setmatrix
	X
	X% irpoly2
	X0 setlinejoin
	X.1 setlinewidth
	Xgsave
	Xnewpath 88.3334 38.6667 m
	X115.333 38.6667 l
	X115.333 59.3333 l
	X88.3334 59.3333 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 57.3333 70] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bibformat) s
	Xsavemat setmatrix
	X
	X% irpoly2
	Xgsave
	Xnewpath 55.3333 67.6667 m
	X77.6667 67.6667 l
	X77.6667 75.6667 l
	X55.3333 75.6667 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 54.6667 42] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Commercial) s 50 ss 0.000 50.000 m
	X(Bibliographic) s 82 ss 0.000 82.000 m (Service) s
	Xsavemat setmatrix
	X
	X% irpoly2
	Xgsave
	Xnewpath 52.3333 38.6667 m
	X80.6667 38.6667 l
	X80.6667 61 l
	X52.3333 61 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 55.3333 108.333] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Database) s 50 ss 0.000 50.000 m (Searching) s
	Xsavemat setmatrix
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 55.6667 119.667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bibfind) s 50 ss
	X0.000 50.000 m (biblocate) s 82 ss 0.000 82.000 m (biblook) s 114 ss
	X0.000 114.000 m (bibsearch) s
	Xsavemat setmatrix
	X
	X% irpoly2
	Xgsave
	Xnewpath 53.6667 105.667 m
	X76.3333 105.667 l
	X76.3333 142.333 l
	X53.6667 142.333 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 91 95.3333] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Database) s
	Xsavemat setmatrix
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 94.3333 90] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bibIX) s
	Xsavemat setmatrix
	X
	X% ellipse2
	X2 setlinejoin
	Xgsave
	Xmatrix currentmatrix
	X99.3333 94.3333 translate
	X13.3333 8.33334 scale
	Xnewpath 0 0 1 0 360 arc setmatrix closepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 90.6667 112] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bibindex) s 50 ss
	X0.000 50.000 m (bibupdate) s
	Xsavemat setmatrix
	X
	X% irpoly2
	X0 setlinejoin
	Xgsave
	Xnewpath 89 109.667 m
	X110.333 109.667 l
	X110.333 124 l
	X89 124 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 90.6667 135.333] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Database) s
	Xsavemat setmatrix
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 94 140.667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Index) s
	Xsavemat setmatrix
	X
	X% ellipse2
	X2 setlinejoin
	Xgsave
	Xmatrix currentmatrix
	X99.6667 139.333 translate
	X13.3333 8.33331 scale
	Xnewpath 0 0 1 0 360 arc setmatrix closepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 125.667 42] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Database) s 50 ss 0.000 50.000 m (Maintenance) s
	Xsavemat setmatrix
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 125.667 53.6667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bibcheck) s 50 ss
	X0.000 50.000 m (bibcmp) s 82 ss 0.000 82.000 m (bibcull) s 114 ss 0.000 114.000 m (bibdel) s
	X146 ss 0.000 146.000 m (bibexam) s 178 ss 0.000 178.000 m (bibmerge) s 210 ss
	X0.000 210.000 m (bibpack) s 242 ss 0.000 242.000 m (bibpun) s 274 ss
	X0.000 274.000 m (bibsort) s 306 ss 0.000 306.000 m (bibsplit) s 338 ss
	X0.000 338.000 m (bibuniq) s 370 ss 0.000 370.000 m (bibwc) s
	Xsavemat setmatrix
	X
	X% irpoly2
	X0 setlinejoin
	Xgsave
	Xnewpath 123.333 38.6667 m
	X152.333 38.6667 l
	X152.333 121.667 l
	X123.333 121.667 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% bezier3
	X% arrow
	Xgsave
	Xnewpath 99.3333 85.6667 m 98.6906 82.7861 l 100.547 82.9765 l closepath
	Xeofill
	Xgrestore
	X2 setlinejoin
	Xgsave
	Xnewpath 102 59.6667 m 101.257 66.9072 100.205 77.1723 99.619 82.8814 curveto
	Xstroke
	Xgrestore
	X
	X% bezier3
	X% arrow
	Xgsave
	Xnewpath 86 91.6667 m 83.0919 91.1624 l 83.9761 89.5184 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 67 76 m 69.2222 78.8889 70.5 82.0556 73.6667 84.6667 curveto
	X76.2222 86.7738 80.0079 88.5192 83.5346 90.3408 curveto
	Xstroke
	Xgrestore
	X
	X% bezier3
	X% arrow
	Xgsave
	Xnewpath 111.667 90.6667 m 113.752 88.5783 l 114.588 90.2473 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 123.333 79.6667 m 121.556 82.1111 119.944 85.1667 118 87 curveto
	X116.81 88.1223 115.494 88.7866 114.169 89.4134 curveto
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 125.333 139.667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Document) s 50 ss 0.000 50.000 m (Preparation) s
	Xsavemat setmatrix
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 125.667 150.667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica-Oblique024) getfont (bib) s 50 ss 0.000 50.000 m
	X(bibdemo) s 82 ss 0.000 82.000 m (bibhyphen) s 114 ss 0.000 114.000 m (biblist) s
	X146 ss 0.000 146.000 m (bibroff) s 178 ss 0.000 178.000 m (bibstyle) s 210 ss
	X0.000 210.000 m (bibtext) s
	Xsavemat setmatrix
	X
	X% irpoly2
	X0 setlinejoin
	Xgsave
	Xnewpath 123.667 137 m
	X149.333 137 l
	X149.333 190.333 l
	X123.667 190.333 l
	Xclosepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 91.3333 161.667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Text) s 6.656 nx sp (File) s
	Xsavemat setmatrix
	X
	X% ellipse2
	X2 setlinejoin
	Xgsave
	Xmatrix currentmatrix
	X99.6667 163.333 translate
	X13.3333 8.33331 scale
	Xnewpath 0 0 1 0 360 arc setmatrix closepath
	Xstroke
	Xgrestore
	X
	X% bezier3
	X% arrow
	Xgsave
	Xnewpath 113 184.667 m 114.061 181.912 l 115.501 183.1 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 112.667 142.333 m 116.333 151.333 123.611 162.278 123.667 169.333 curveto
	X123.714 175.346 118.517 178.534 114.779 182.509 curveto
	Xstroke
	Xgrestore
	X
	X% bezier3
	Xgsave
	Xnewpath 113.333 163.333 m 115.889 164.111 119.333 164.722 121 165.667 curveto
	X122.667 166.611 122.556 167.889 123.333 169 curveto
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 90 186] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (Document) s
	Xsavemat setmatrix
	X
	X% ellipse2
	Xgsave
	Xmatrix currentmatrix
	X99.6667 188 translate
	X13.3333 8.33331 scale
	Xnewpath 0 0 1 0 360 arc setmatrix closepath
	Xstroke
	Xgrestore
	X
	X% ellipse2
	Xgsave
	Xmatrix currentmatrix
	X66.6667 175.333 translate
	X13.3333 8.33331 scale
	Xnewpath 0 0 1 0 360 arc setmatrix closepath
	Xstroke
	Xgrestore
	X
	X% text
	X/complex_color false def
	Xsavemat currentmatrix pop [1 0 0 1 62 173.667] concat
	X25.4 144 div dup scale 0 0 m
	X18 ss 0.000 18.000 m (Helvetica024) getfont (User) s
	Xsavemat setmatrix
	X
	X% bezier3
	X% arrow
	Xgsave
	Xnewpath 77 169.667 m 77.1334 166.718 l 78.8758 167.388 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 76.6667 124 m 80 130.222 86.6111 135.056 86.6667 142.667 curveto
	X86.7169 149.551 81.4038 158.708 78.0042 167.054 curveto
	Xstroke
	Xgrestore
	X
	X% polyline2
	X% arrow
	Xgsave
	Xnewpath 66 67.3333 m 65.0667 64.5333 l 66.9333 64.5333 l closepath
	Xeofill
	Xgrestore
	X0 setlinejoin
	Xgsave
	Xnewpath 66 61.3333 m
	X66 64.5333 l
	Xstroke
	Xgrestore
	X
	X% polyline2
	X% arrow
	Xgsave
	Xnewpath 99.3333 109.333 m 98.4 106.533 l 100.267 106.533 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 99.3333 103 m
	X99.3333 106.533 l
	Xstroke
	Xgrestore
	X
	X% polyline2
	X% arrow
	Xgsave
	Xnewpath 99.3333 130.667 m 98.4 127.867 l 100.267 127.867 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 99.3333 124 m
	X99.3333 127.867 l
	Xstroke
	Xgrestore
	X
	X% polyline2
	X% arrow
	Xgsave
	Xnewpath 78.6667 179.333 m 81.5001 180.16 l 80.4375 181.694 l closepath
	Xeofill
	Xgrestore
	Xgsave
	Xnewpath 87.3333 185.333 m
	X80.9688 180.927 l
	Xstroke
	Xgrestore
	Xbadfont_trap grestore
	X
	X%%Trailer
	Xend
	Xdraw_initial_state restore
SHAR_EOF
if test 14272 -ne "`wc -c < 'flow_chart.eps2'`"
then
	echo shar: "error transmitting 'flow_chart.eps2'" '(should have been 14272 characters)'
fi
fi
exit 0
#	End of shell archive