path: root/graphics/pstex/examples/psfigs/flow.ps

%!
%%Pages: (atend)
%%DocumentFonts: (atend)
%%EndComments
%
% Frame Maker PostScript Prolog 1.10, for use with Maker 1.10
% Copyright (c) 1986,87 by Frame Technology, Inc.  All rights reserved.
%
% Known Problems:
%	Due to bugs in Transcript the 'PS-Adobe-' is omitted from line 1
%	"Bites" out of patterns on LaserWriter
%	Filled areas (w/setpattern) come out different on typesetter
/FrameDict 30 dict def
% The readline in 23.0 doesn't recognize cr's as nl's on AppleTalk
FrameDict /tmprangecheck errordict /rangecheck get put 
errordict /rangecheck {FrameDict /bug true put} put 
FrameDict /bug false put 
mark 
% Some PS machines read past the CR, so keep the following 3 lines together!
currentfile 5 string readline
00
0000000000
cleartomark 
errordict /rangecheck FrameDict /tmprangecheck get put 
FrameDict /bug get { 
	/readline {
		/gstring exch def
		/gfile exch def
		/gindex 0 def
		{
			gfile read pop 
			dup 10 eq {exit} if 
			dup 13 eq {exit} if 
			gstring exch gindex exch put 
			/gindex gindex 1 add def 
		} loop
		pop 
		gstring 0 gindex getinterval true 
		} def
	} if
/savematrix {
	orgmatrix currentmatrix pop
	} bind def
/restorematrix {
	orgmatrix setmatrix
	} bind def
/dmatrix matrix def
/dpi	72 0 dmatrix defaultmatrix dtransform
	dup mul exch   dup mul add   sqrt
def
/max	{2 copy lt {exch} if pop} bind def
/min	{2 copy gt {exch} if pop} bind def
/fonts 95 array def
/DiacriticEncoding [
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl
/numbersign /dollar /percent /ampersand /quotesingle /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 /grave /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 /.notdef /Adieresis /Aring /Ccedilla /Eacute
/Ntilde /Odieresis /Udieresis /aacute /agrave /acircumflex /adieresis
/atilde /aring /ccedilla /eacute /egrave /ecircumflex /edieresis
/iacute /igrave /icircumflex /idieresis /ntilde /oacute /ograve
/ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex
/udieresis /dagger /.notdef /cent /sterling /section /bullet
/paragraph /germandbls /registered /copyright /trademark /acute
/dieresis /.notdef /AE /Oslash /.notdef /.notdef /.notdef /.notdef
/yen /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/ordfeminine /ordmasculine /.notdef /ae /oslash /questiondown
/exclamdown /logicalnot /.notdef /florin /.notdef /.notdef
/guillemotleft /guillemotright /ellipsis /.notdef /Agrave /Atilde
/Otilde /OE /oe /endash /emdash /quotedblleft /quotedblright
/quoteleft /quoteright /.notdef /.notdef /ydieresis /Ydieresis
/fraction /currency /guilsinglleft /guilsinglright /fi /fl /daggerdbl
/periodcentered /quotesinglbase /quotedblbase /perthousand
/Acircumflex /Ecircumflex /Aacute /Edieresis /Egrave /Iacute
/Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex /.notdef /Ograve
/Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde /macron
/breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
] def
/DiacriticEncode {
	/basefontdict exch def
	/newfontdict basefontdict maxlength dict def
	basefontdict
	{exch dup /FID ne
		{dup /Encoding eq
			{exch pop DiacriticEncoding}
			{exch}
			ifelse
			newfontdict 3 1 roll put
			}
		{pop pop}
		ifelse
		} forall
	newfontdict
	} bind def
/NonDiacriticEncode {
	/basefontdict exch def
	/newfontdict basefontdict maxlength dict def
	basefontdict
	{exch dup /FID ne
		{exch newfontdict 3 1 roll put}
		{pop pop}
		ifelse
		} forall
	newfontdict
	} bind def
/setpattern {
	 /$freq    exch def
	 /$bwidth  exch def
	 /$bpside  exch def
	 /$bstring exch def
	 /$onbits 0 def  /$offbits 0 def
	 $freq 0 {/$y exch def
		 /$x exch def
		 /$xindex $x 1 add 2 div $bpside mul cvi def
		 /$yindex $y 1 add 2 div $bpside mul cvi def
		 $bstring $yindex $bwidth mul $xindex 8 idiv add get
		 1 7 $xindex 8 mod sub bitshift and 0 ne
		 {/$onbits  $onbits  1 add def 1}
		 {/$offbits $offbits 1 add def 0}
		 ifelse
		}
		setscreen
	 {} settransfer
	 $offbits $offbits $onbits add div setgray
	} bind def
/grayness {
	setgray
	orgxfer cvx settransfer
	orgfreq organgle orgproc cvx setscreen
	} bind def
/normalize {
	transform cvi exch cvi exch itransform
	} bind def
/dnormalize {
	dtransform cvi exch cvi exch idtransform
	} bind def
/lnormalize { 
	0 dtransform exch cvi 2 idiv 2 mul 1 add exch idtransform pop
	} def
/linewidths [
	0.5 lnormalize
	1.0 lnormalize
	3.0 lnormalize
	4.0 lnormalize
	] def
/fillprocs
	[{0.00 grayness}
	 {0.10 grayness}
	 {0.30 grayness}
	 {0.50 grayness} 
	 {0.70 grayness}
	 {0.90 grayness}
	 {0.97 grayness} 
	 {1.00 grayness} 
	 {<0F1E3C78F0E1C387> 8 1 dpi 16 div setpattern} 
	 {<0F87C3E1F0783C1E> 8 1 dpi 16 div setpattern} 
	 {<CCCCCCCCCCCCCCCC> 8 1 dpi 16 div setpattern} 
	 {<FFFF0000FFFF0000> 8 1 dpi 16 div setpattern} 
	 {<8142241818244281> 8 1 dpi 16 div setpattern} 
	 {<03060C183060C081> 8 1 dpi 16 div setpattern} 
	 {<8040201008040201> 8 1 dpi 16 div setpattern} 
	 {}
	 {1.00 grayness}
	 {0.90 grayness}
	 {0.70 grayness}
	 {0.50 grayness} 
	 {0.30 grayness}
	 {0.10 grayness}
	 {0.03 grayness} 
	 {0.00 grayness} 
	 {<F0E1C3870F1E3C78> 8 1 dpi 16 div setpattern} 
	 {<F0783C1E0F87C3E1> 8 1 dpi 16 div setpattern} 
	 {<3333333333333333> 8 1 dpi 16 div setpattern} 
	 {<0000FFFF0000FFFF> 8 1 dpi 16 div setpattern} 
	 {<7EBDDBE7E7DBBD7E> 8 1 dpi 16 div setpattern} 
	 {<FCF9F3E7CF9F3F7E> 8 1 dpi 16 div setpattern} 
	 {<7FBFDFEFF7FBFDFE> 8 1 dpi 16 div setpattern} 
	 {}
	] def
/DOCUMENT {
	/#copies exch def
	0 ne /landscape exch def
	/docheight exch def
	/docwidth exch def
	scale
	landscape { 
		90 rotate
		0 docheight neg translate
		} if
	2 setlinecap
	currenttransfer cvlit /orgxfer exch def
	currentscreen cvlit /orgproc exch def
		/organgle exch def /orgfreq exch def
	/orgmatrix matrix def
	} bind def
/H { 
	linewidths exch get setlinewidth
	} bind def
/X { 
	fillprocs exch get exec
	} bind def
/V { 
	gsave eofill grestore
	} bind def
/N { 
	gsave stroke grestore 
	} bind def
/L { 
 	/n exch def
	newpath
	normalize
	moveto 
	2 1 n {pop normalize lineto} for
	} bind def
/Y { 
	L 
	closepath
	} bind def
/K { 
 	/n exch def
	newpath
	moveto 
	3 1 n {pop curveto} for
	} bind def
/J { 
 	/n exch def
	newpath
	moveto 
	1 1 n {pop curveto} for
	} bind def
/R { 
	/y2 exch def
	/x2 exch def
	/y1 exch def
	/x1 exch def
	x1 y1
	x2 y1
	x2 y2
	x1 y2
	4 Y 
	} bind def
/BEGINPAGE {
	/pagesave save def
	gsave 
	} bind def
/ENDPAGE {
	grestore 
	showpage
	pagesave restore
	} bind def
/C { 
	grestore
	gsave
	R 
	clip
	} bind def
/U { 
	grestore
	gsave
	} bind def
/DEFINEFONT {
	/fontname exch def
	/fontscale exch def
	/fontnum exch def
	/fontdict fontname findfont fontscale scalefont def
	fontdict /Encoding get StandardEncoding eq
	{
		fontdict DiacriticEncode 
		/fontdict exch def
	} {
		fontdict NonDiacriticEncode
		/fontdict exch def
	} ifelse
	fonts fontnum
		fontnum fontdict definefont
	put
	} bind def
/F { 
	fonts exch get
	setfont
	} bind def
/T { 
	moveto show
	} bind def
/P { 
	moveto
	0 32 3 2 roll widthshow
	} bind def
/S { 
	moveto
	0 exch ashow
	} bind def
/B { 
	moveto
	0 32 4 2 roll 0 exch awidthshow
	} bind def
/Q { 
	moveto
	gsave show grestore
	} bind def
/W { 
	dnormalize
	/$dy exch def
	/$dx exch def
	normalize
	/$y  exch def
	/$x  exch def
	/$t  currentlinewidth def
	savematrix
	/$dl $dx $dx mul $dy $dy mul add sqrt def
	$dl 0.0 le {/$dl 1.0 def} if
	/$cos $dx $dl div def
	/$sin $dy $dl div def
	/$r [$cos $sin $sin neg $cos 0.0 0.0] def
	/$t2 $t 2.5 mul 3.5 max def
	newpath
	$x $y translate
	$r concat
	0.0 0.0 moveto
	$dl $t 2.7 mul sub 0.0 rlineto
	stroke
	restorematrix
	$x $dx add $y $dy add translate
	$r concat
	$t 0.67 mul setlinewidth
	$t 1.61 mul neg  0.0 translate
	0.0 0.0 moveto
	$t2 1.7 mul neg  $t2 2.0 div     moveto
	0.0 0.0 lineto
	$t2 1.7 mul neg  $t2 2.0 div neg lineto
	stroke
	$t setlinewidth
	restorematrix
	} bind def
/G { 
	gsave
	newpath
	normalize translate 0.0 0.0 moveto 
	dnormalize scale 
	0.0 0.0 1.0 5 3 roll arc 
	closepath eofill
	grestore
	} bind def
/A { 
	/y exch def
	/x exch def
	/h exch def
	/w exch def
	x y normalize /yy exch def /xx exch def
	w h dnormalize /hh exch def /ww exch def
	ww abs hh abs xx ww add yy hh sub
	gsave
	savematrix
	newpath
	translate
	scale
	0.0 0.0 1.0 5 3 roll arc
	0 setlinecap
	restorematrix
	stroke
	grestore
	} bind def
/BEGINPRINTCODE {
	/print_saveobject save def
	/showpage {} def
	newpath
	translate
	0.0 0.0 moveto
	} bind def
/ENDPRINTCODE {
	clear
	print_saveobject restore
	} bind def
FrameDict begin 
/gn { 
	0 
	{	46 mul 
		cf read pop 
		32 sub 
		dup 46 lt {exit} if 
		46 sub add 
		} loop
	add 
	} bind def
/cfs { 
	/str sl string def 
	0 1 sl 1 sub {str exch val put} for 
	str def 
	} bind def
/ic [ 
	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
	0
	{0 hx} {1 hx} {2 hx} {3 hx} {4 hx} {5 hx} {6 hx} {7 hx} {8 hx} {9 hx}
	{10 hx} {11 hx} {12 hx} {13 hx} {14 hx} {15 hx} {16 hx} {17 hx} {18 hx}
	{19 hx} {gn hx} {0} {1} {2} {3} {4} {5} {6} {7} {8} {9} {10} {11} {12}
	{13} {14} {15} {16} {17} {18} {19} {gn} {0 wh} {1 wh} {2 wh} {3 wh}
	{4 wh} {5 wh} {6 wh} {7 wh} {8 wh} {9 wh} {10 wh} {11 wh} {12 wh}
	{13 wh} {14 wh} {gn wh} {0 bl} {1 bl} {2 bl} {3 bl} {4 bl} {5 bl} {6 bl}
	{7 bl} {8 bl} {9 bl} {10 bl} {11 bl} {12 bl} {13 bl} {14 bl} {gn bl}
	{0 fl} {1 fl} {2 fl} {3 fl} {4 fl} {5 fl} {6 fl} {7 fl} {8 fl} {9 fl}
	{10 fl} {11 fl} {12 fl} {13 fl} {14 fl} {gn fl}
	] def
/ms { 
	/sl exch def 
	/val 255 def 
	/ws cfs 
	/im cfs 
	/val 0 def 
	/bs cfs 
	/cs cfs 
	} bind def
400 ms 
/ip { 
	is 
	0 
	cf cs readline pop 
	{	ic exch get exec 
		add 
		} forall 
	pop 
	
	} bind def
/wh { 
	/len exch def 
	/pos exch def 
	ws 0 len getinterval im pos len getinterval copy pop
	pos len 
	} bind def
/bl { 
	/len exch def 
	/pos exch def 
	bs 0 len getinterval im pos len getinterval copy pop
	pos len 
	} bind def
/s1 1 string def
/fl { 
	/len exch def 
	/pos exch def 
	/val cf s1 readhexstring pop 0 get def
	pos 1 pos len add 1 sub {im exch val put} for
	pos len 
	} bind def
/hx { 
	3 copy getinterval 
	cf exch readhexstring pop pop 
	} bind def
end 
/BEGINBITMAP { 
	gsave
	FrameDict begin
	translate scale /h exch def /w exch def
	/lb w 7 add 8 idiv def 
	sl lb lt {lb ms} if 
	/is im 0 lb getinterval def 
	ws 0 lb getinterval is copy pop 
	/cf currentfile def 
	w h 1 [w 0 0 h neg 0 h] 
	{ip} image 
	end
	grestore
	} bind def
/ENDBITMAP {
	} bind def
%%EndProlog
%%BeginSetup
1. 1. 612. 792. 0 1 DOCUMENT
0 12. /Helvetica  DEFINEFONT
%%EndSetup
%%BoundingBox: 9 414 603 756
%%Page: "1" 1
BEGINPAGE
9. 414. 603. 756. C
9. 414. 603. 756. R
6 X
V
91. 648. 136. 684. R
7 X
V
0 H
0 X
N
7 X
90. 450. 22.5 18. 50.5 720. G
0 X
90. 90.1 -22.5 18. 73. 738. A
90. 180.1 22.5 18. 28. 738. A
180. 270.1 22.5 -18. 28. 702. A
270. 0.1 -22.5 -18. 73. 702. A
0. 90. -22.5 18. 73. 738. A
7 X
90. 450. 22.5 18. 59.5 549. G
0 X
90. 90.1 -22.5 18. 82. 567. A
90. 180.1 22.5 18. 37. 567. A
180. 270.1 22.5 -18. 37. 531. A
270. 0.1 -22.5 -18. 82. 531. A
0. 90. -22.5 18. 82. 567. A
7 X
90. 450. 22.5 18. 50.5 558. G
0 X
90. 90.1 -22.5 18. 73. 576. A
90. 180.1 22.5 18. 28. 576. A
180. 270.1 22.5 -18. 28. 540. A
270. 0.1 -22.5 -18. 73. 540. A
0. 90. -22.5 18. 73. 576. A
7 X
90. 450. 22.5 18. 176.5 666. G
1 H
0 X
90. 90.1 -22.5 18. 199. 684. A
90. 180.1 22.5 18. 154. 684. A
180. 270.1 22.5 -18. 154. 648. A
270. 0.1 -22.5 -18. 199. 648. A
0. 90. -22.5 18. 199. 684. A
217. 594. 262. 630. R
7 X
V
0 X
N
7 X
% 90. 450. 22.5 18. 311.5 603. G
% 0 X
% 90. 90.1 -22.5 18. 334. 621. A
% 90. 180.1 22.5 18. 289. 621. A
% 180. 270.1 22.5 -18. 289. 585. A
% 270. 0.1 -22.5 -18. 334. 585. A
% 0. 90. -22.5 18. 334. 621. A
7 X
90. 450. 22.5 18. 302.5 612. G
0 X
90. 90.1 -22.5 18. 325. 630. A
90. 180.1 22.5 18. 280. 630. A
180. 270.1 22.5 -18. 280. 594. A
270. 0.1 -22.5 -18. 325. 594. A
0. 90. -22.5 18. 325. 630. A
0 F
(LaTeX) 95. 663. T
(pstex) 225. 609. T
(file.tex) 33. 717. T
(files.ps) 31. 555. T
(file.aux) 157. 663. T
(file.psz) 283. 609. T
343. 648. 388. 684. R
7 X
V
0 X
N
(LaTeX) 347. 663. T
469. 567. 514. 603. R
7 X
V
0 H
0 X
N
7 X
90. 450. 22.5 18. 428.5 612. G
0 X
90. 90.1 -22.5 18. 451. 630. A
90. 180.1 22.5 18. 406. 630. A
180. 270.1 22.5 -18. 406. 594. A
270. 0.1 -22.5 -18. 451. 594. A
0. 90. -22.5 18. 451. 630. A
(file.dvi) 410. 609. T
(dvips) 476. 582. T
523. 567. 568. 567. 586. 603. 541. 603. 4 Y
7 X
V
0 X
N
(output) 537. 582. T
82. 675. 9. 0. W
1 H
145. 666. 9. 0. W
208. 621. 9. 0. W
262. 612. 18. 0. W
334. 675. 9. 0. W
0 H
397. 612. 9. 0. W
460. 576. 9. 0. W
514. 585. 18. 0. W
73. 720. 334. 720. 2 L
N
82. 675. 82. 720. 2 L
N
145. 738. 396. 738. 2 L
1 H
N
397. 657. 397. 612. 2 L
0 H
N
208. 666. 208. 621. 2 L
1 H
N
325. 612. 334. 612. 2 L
N
334. 612. 334. 657. 2 L
N
396. 738. 396. 675. 2 L
N
73. 558. 460. 558. 2 L
0 H
N
208. 603. 208. 558. 2 L
N
208. 603. 9. 0. W
451. 612. 460. 612. 2 L
N
460. 612. 460. 594. 2 L
N
460. 594. 9. 0. W
460. 576. 460. 558. 2 L
N
1 H
144. 738. 0. -72. W
136. 666. 145. 666. 2 L
0 H
N
199. 666. 208. 666. 2 L
1 H
N
208. 666. 334. 666. 2 L
0 H
N
1 H
334. 666. 9. 0. W
334. 675. 334. 720. 2 L
0 H
N
1 H
334. 657. 9. 0. W
396. 675. 388. 675. 2 L
N
397. 657. 388. 657. 2 L
0 H
N
7 X
90. 450. 22.5 18. 346.5 513. G
0 X
90. 90.1 -22.5 18. 369. 531. A
90. 180.1 22.5 18. 324. 531. A
180. 270.1 22.5 -18. 324. 495. A
270. 0.1 -22.5 -18. 369. 495. A
0. 90. -22.5 18. 369. 531. A
324. 435. 369. 471. R
7 X
V
0 X
N
(Program) 376. 450. T
(File) 376. 510. T
477. 513. 18. 0. W
1 H
477. 453. 18. 0. W
1.99 (Data Flow) 502. 510. P
(Principal) 502. 456. T
(Iteration) 502. 444. T
(Text) 18. 668. T
(Source) 18. 656. T
(File) 18. 644. T
0 H
36. 679. 9. 18. W
36. 597. 9. -16. W
0.66 (DVI Format) 452. 648. P
(Output) 540. 648. T
(Figure) 360. 582. T
0.98 (Size Data) 360. 570. P
358. 583. -21. 9. W
450. 648. -16. -11. W
(Document) 540. 636. T
530. 645. 28. -33. W
(Figure) 18. 623. T
(Source) 18. 611. T
(Files) 18. 599. T
(LaTeX) 204. 700. T
1.64 (Intermediate File) 204. 688. P
201. 700. -16. -8. W
(File) 452. 636. T
530. 645. 536. 647. 2 L
N
9. 414. 603. 756. R
N
U
ENDPAGE
%%Trailer
%%Pages: 1 -1
%%DocumentFonts: 
%%+ Helvetica