plt - Software for 2D Plots 2.5

File: <base>/plt-2.5a/doc/simple1.ps (7,245 bytes)
%!PS-Adobe-3.0
%%BoundingBox: 55 241 574 673
%%Title: (plt/lwcat output)
%%CreationDate: Wed May  9 09:08:38 2001
%!
%%BoundingBox: 54 54 556 737
% plt.pro	PostScript prolog for plt
% Last revised: 7 May 2001 (GBM)

count /numstack exch def
save 100 dict begin /plt exch def

/ED	{exch def} def
/IN	{exch 72 mul def} def

/CLOSE	{count numstack sub {pop} repeat plt end restore} def

/BF	{gsave INIT} def
/EF	{grestore} def

/LS	{} def
/INIT	{0 setlinecap LS /DMTX matrix currentmatrix def
	/XOFF [0 0 0 -.5 -1 -1 -1 -.5 -.5 0 -.5 -1] def
	/YOFF [0 -.37 -1 -1 -1 -.37 0 0 -.37 -.74 -.74 -.74] def
	/XM 0 def /YM 0 def /XYM 0 def} def

/WSUBST	{} def

/WDEF	{/ury ED /urx ED /lly ED /llx ED
	WSUBST /y1 IN /x1 IN /y0 IN /x0 IN /FSCL ED
	gsave matrix setmatrix
	x0 2 add y0 2 add translate 
	x1 x0 sub 4 sub urx llx sub div
	y1 y0 sub 4 sub ury lly sub div scale
	llx neg lly neg translate
	/PMTX matrix currentmatrix def grestore} def

/M	{newpath PMTX transform moveto} def
/N	{PMTX dtransform rlineto} def
/L	{N currentpoint stroke moveto} def
/F	{closepath 0 eq {fill} {FS} ifelse} def
/FS	{gsave fill grestore gsave 0 0 0 setrgbcolor stroke grestore} def 

/XC	0 def
/YC	0 def
/T	{/ang ED /pos ED /YY ED /XX ED
	XX -32767 eq
	 {YY -32767 eq
	  {XC YC moveto}
	  {0 YY M currentpoint XC exch moveto pop}
	 ifelse}
	 {YY -32767 eq
	  {XX 0 M currentpoint pop YC moveto}
	  {XX YY M}
	 ifelse}
	ifelse
	ang rotate
	/str ED str stringwidth pop
	XOFF pos get mul
	YOFF pos get PS mul XYM FSCL mul add
	rmoveto str show 0 .37 PS mul XYM FSCL mul add rmoveto
	/XYM 0 def SDM currentpoint /YC ED /XC ED} def

/GT	{7 0 T} def
/XT	{/XYM XM neg def 3 0 T /XM 0 def} def
/XTR	{/XYM XM def 7 0 T /XM 0 def} def
/YT	{/XYM YM def 7 90 T /YM 0 def} def
/YTR	{/XYM YM neg def 3 90 T /YM 0 def} def

/XN	{/XM PS def 3 0 T} def
/XNR	{/XM PS def 9 0 T} def
/XE	{10 1.25 XEX} def
/XER	{11 1.5 XEX} def
/XEX	{6 -1 roll /exp ED PS mul /XM ED 0 T EX} def

/YN	{-1 1 0 YNUM} def
/YNR	{1 0 0 YNUM} def
/YE	{-1 1 YEX} def
/YER	{1 0 YEX} def

/YEX	{6 -1 roll /exp ED exp stringwidth pop .65 mul YNUM EX} def
/YNUM	{6 3 roll M /str ED str stringwidth pop add /len ED
	len mul .2 PS mul add mul PS -.37 mul rmoveto
	str show /YM len .2 PS mul add YM MAX def} def

/EX	{0 PS .6 mul rmoveto .65 .65 scale exp show SDM} def

/SP	{/y ED /x ED /yp ED /yn ED /str ED
	x y M currentpoint
	str false charpath PBOX newpath
	exch dup add x0 x1 add 2 div sub
	exch dup add y0 y1 add 2 div sub moveto
	str false charpath gsave fill EB} def

/SY	{/y ED /x ED /yp ED /yn ED /st ED
	newpath x y M PS 4 div dup scale
	[{CIR} {UTRI} {DI} {SQ} {TRI}] st 5 mod get exec
	closepath SDM gsave 
	[{1 FILL stroke} {fill} {stroke}] st 5 idiv 3 mod get exec
	EB} def

/EB {	grestore PMTX concat PBOX SDM
	y1 y sub yp le {yp y1 EB2} if 
	y0 y sub yn ge {yn y0 EB2} if} def
/EB2	{newpath x exch M 0 exch N x0 x sub 0 N x1 x0 sub 0 N stroke} def

/CIR	{currentpoint newpath 1.1 0 360 arc} def
/TRI	{0 1.2 rmoveto -1.2 -2.4 rlineto 2.4 0 rlineto} def
/DI	{ 0 -1.5 rmoveto 1.3 1.5 rlineto
	-1.3 1.5  rlineto -1.3 -1.5 rlineto} def
/UTRI	{180 rotate TRI 180 rotate} def
/SQ	{1 1 rmoveto -2 0 rlineto 0 -2 rlineto 2 0
	rlineto} def

/LW	{.2 mul FSCL mul setlinewidth} def
/SF	{FSCL mul /PS ED findfont PS scalefont setfont} def
/DL	{PS mul .05 mul} def

/solid		{{}0} def
/dotted		{[1 DL 3 DL] 0} def
/longdashed	{[7 DL] 0} def
/shortdashed	{[4 DL 5 DL] 0} def
/dotdashed	{[1 DL 5 DL 6 DL 5 DL] 0} def

/MAX	{2 copy lt {exch pop} {pop} ifelse} def
/SDM	{DMTX setmatrix} def
/FILL	{gsave setgray fill grestore} def
/PBOX	{pathbbox /y1 ED /x1 ED /y0 ED /x0 ED} def
INIT
0.85 0.775 3.35 7.975 9.35 0 0 4320 3600 WDEF
/Times-Roman 16 SF
solid setdash
0 0 0 setrgbcolor
3 LW
/Times-Roman 14 SF
4103 720 M
-3239 0 L
864 672 M
0 48 L
(0) 864 672 XN
1404 688 M
0 32 L
1944 672 M
0 48 L
(100) 1944 672 XN
2484 688 M
0 32 L
3023 672 M
0 48 L
(200) 3023 672 XN
3563 688 M
0 32 L
4103 672 M
0 48 L
(300) 4103 672 XN
4 LW
/Times-Roman 16 SF
(X is 6.4639 to 298.94,  Y is 53.865 to 74.483) 2483 505 XT
3 LW
/Times-Roman 14 SF
864 3060 M
0 -2340 L
816 720 M
48 0 L
(50) 816 720 YN
832 954 M
32 0 L
816 1188 M
48 0 L
(55) 816 1188 YN
832 1422 M
32 0 L
816 1656 M
48 0 L
(60) 816 1656 YN
832 1890 M
32 0 L
816 2124 M
48 0 L
(65) 816 2124 YN
832 2358 M
32 0 L
816 2592 M
48 0 L
(70) 816 2592 YN
832 2826 M
32 0 L
816 3060 M
48 0 L
(75) 816 3060 YN
4 LW
/Times-Roman 16 SF
(heartrate.data -- <george-09:08-May  9>) 2483 3284 8 0 T
2 LW
/Times-Roman 12 SF
934 1475 M
11 89 N
11 405 N
10 179 N
10 -745 N
11 43 N
12 629 N
10 -356 N
10 267 N
11 256 N
9 196 N
10 -381 N
10 -401 N
11 643 N
9 139 N
10 -452 N
10 -153 N
10 278 N
10 409 N
10 -427 N
10 0 N
10 -159 N
10 484 N
10 -325 N
10 -36 N
10 110 N
10 291 N
9 -40 N
10 -119 N
9 139 N
10 209 N
9 -863 N
10 273 N
11 484 N
9 -790 N
11 -418 N
11 671 N
10 -658 N
35 405 N
10 -348 N
12 14 N
11 318 N
11 -95 N
10 -223 N
12 318 N
10 148 N
11 -99 N
10 0 N
11 695 N
9 -141 N
10 -281 N
10 0 N
10 722 N
9 -280 N
9 -582 N
11 122 N
10 -223 N
10 -144 N
11 297 N
10 350 N
10 -171 N
10 -554 N
11 591 N
10 -401 N
10 -250 N
11 -88 N
12 321 N
10 -142 N
11 47 N
11 385 N
10 422 N
9 -237 N
10 -19 N
10 155 N
9 184 N
10 -224 N
9 -789 N
11 809 N
10 -191 N
10 -351 N
10 153 N
11 88 N
10 -257 N
10 -509 N
12 643 N
10 18 N
10 -69 N
11 -33 N
10 392 N
10 -256 N
10 -170 N
11 17 N
10 565 N
10 -879 N
11 381 N
10 380 N
10 -731 N
11 -118 N
30 -98 N
12 70 N
11 877 N
10 -746 N
11 -376 N
12 864 N
10 0 N
10 -412 N
11 -46 N
11 794 N
9 -265 N
10 -406 N
11 498 N
10 527 N
9 -314 N
10 -481 N
10 344 N
10 117 N
9 -528 N
11 -115 N
10 584 N
10 -402 N
10 -383 N
11 541 N
10 -18 N
10 -752 N
12 305 N
11 808 N
9 123 N
10 -374 N
10 353 N
9 -62 N
9 -291 N
10 -145 N
10 145 N
10 -317 N
11 -99 N
10 397 N
10 171 N
10 -815 N
11 199 N
11 501 N
10 -304 N
10 -381 N
11 685 N
10 337 N
9 -393 N
10 56 N
10 553 N
9 -195 N
9 -469 N
10 111 N
10 337 N
9 -374 N
33 -74 N
10 -589 N
11 362 N
10 738 N
10 -670 N
10 -827 N
12 793 N
10 69 N
10 -359 N
11 157 N
11 816 N
9 -561 N
10 -172 N
11 16 N
10 592 N
10 -365 N
10 -589 N
11 607 N
10 601 N
31 -582 N
10 -178 N
10 -563 N
11 283 N
11 827 N
10 63 N
9 -104 N
9 0 N
10 366 N
9 -406 N
9 -535 N
11 359 N
9 -167 N
34 -600 N
12 -129 N
11 -13 N
11 354 N
11 -256 N
11 73 N
12 247 N
10 -305 N
11 58 N
11 15 N
12 281 N
10 -113 N
11 -93 N
11 306 N
10 -133 N
11 -64 N
10 -93 N
11 483 N
10 -54 N
10 -445 N
11 46 N
11 490 N
10 -144 N
10 -452 N
11 217 N
11 548 N
10 20 N
9 -152 N
10 353 N
10 -82 N
9 41 N
9 -199 N
10 178 N
10 -506 N
10 -249 N
11 64 N
10 571 N
10 -281 N
10 321 N
9 291 N
10 -231 N
9 -20 N
10 429 N
8 -45 N
9 -364 N
10 341 N
9 233 N
9 -255 N
9 -237 N
9 106 N
9 -692 N
10 -262 N
11 211 N
11 -480 N
11 222 N
11 450 N
10 -291 N
10 458 N
10 427 N
9 133 N
9 -464 N
10 -635 N
11 197 N
10 -17 N
10 -712 N
12 -89 N
12 482 N
11 -45 N
11 -173 N
12 389 N
10 545 N
10 -686 N
11 -148 N
11 540 N
10 432 N
10 -793 N
11 47 N
10 686 N
10 -247 N
10 -245 N
10 433 N
10 370 N
9 -700 N
11 -450 N
11 666 N
9 -529 N
11 -210 N
30 629 N
10 129 N
10 400 N
9 -226 N
10 -303 N
10 205 N
10 -464 N
10 -645 N
12 564 N
11 413 N
10 -461 N
10 -327 N
12 540 N
10 104 N
10 -317 N
11 388 N
10 343 N
9 -432 N
11 -681 N
11 14 N
12 497 N
10 118 N
10 88 N
11 477 N
9 -81 N
10 186 N
0 0 L
864 720 M
showpage CLOSE
%%EOF
%%EndDocument