chart1.ps

Waveform Database Software Package 多种心电图文件格式的相互转换代码

%!PS-Adobe-1.0
%%Creator: pschart
%%Title: Chart Recording
%%Pages: (atend)
%%DocumentFonts: Times-Roman Times-Italic Courier Symbol
%%BoundingBox: -15 0 837 424
%%EndComments
%%EndProlog
%%Page: 0 1
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % If this message appears in your printout, you may be using a buggy version %
 % of Adobe TranScript. Try using pschart with the -u option as a workaround. %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
save 100 dict begin /pschart exch def
/dpi 300 def
/mm {72 mul 25.4 div}def
/lwmm 0.2 def
/lw lwmm mm def
/tm matrix currentmatrix def
/gm matrix currentmatrix def
/I {/Times-Italic findfont exch scalefont setfont}def
/R {/Times-Roman findfont exch scalefont setfont}def
/C {/Courier findfont exch scalefont setfont}def
/grid { newpath 0 setlinecap
 /dy1 exch dpi 25.4 div mul lw sub def /dy2 dy1 lw add 5 mul def
 /dx1 exch dpi 25.4 div mul lw sub def /dx2 dx1 lw add 5 mul def
 /y1 exch def /x1 exch def /y0 exch def /x0 exch def
 dpi 100 idiv setlinewidth x0 y0 moveto x1 y0 lineto x1 y1 lineto x0 y1 lineto
 closepath stroke lw setlinewidth [lw dx1] 0 setdash
 y0 dy2 add dy2 y1 {newpath dup x0 exch moveto x1 exch lineto stroke}for
 [lw dy1] 0 setdash
 x0 dx2 add dx2 x1 {newpath dup y0 moveto y1 lineto stroke }for
 [] 0 setdash
}bind def
/Grid { newpath 0 setlinecap
 /dy1 exch dpi 25.4 div mul lw sub def /dy2 dy1 lw add 5 mul def
 /dx1 exch dpi 25.4 div mul lw sub def /dx2 dx1 lw add 5 mul def
 /y1 exch def /x1 exch def /y0 exch def /x0 exch def
 dpi 100 idiv setlinewidth x0 y0 moveto x1 y0 lineto x1 y1 lineto x0 y1 lineto
 closepath stroke lw setlinewidth
 y0 dy2 add dy2 y1 {newpath dup x0 exch moveto x1 exch lineto stroke}for
 x0 dx2 add dx2 x1 {newpath dup y0 moveto y1 lineto stroke }for
}bind def
/prpn { mm exch mm exch moveto 10 R /pn exch def /str 10 string def
 pn str cvs stringwidth exch -.5 mul exch rmoveto
 (- ) stringwidth exch neg exch rmoveto
 (- ) show
 pn str cvs show
 ( -) show } def
/prco { mm exch mm exch moveto
 6 R (Copyright ) show
 /Symbol findfont 6 scalefont setfont (\323) show
 6 R show } def
/newpage {/dpi exch def tm setmatrix newpath [] 0 setdash
 1 setlinecap /lw lwmm mm def mark } def
/ss {72 dpi div dup scale /gm matrix currentmatrix def lw setlinewidth} def
/t {tm setmatrix show gm setmatrix}def
/b {tm setmatrix dup stringwidth exch neg exch rmoveto currentpoint 3 -1 roll
 show moveto gm setmatrix}def
/m {newpath moveto}def
/N {rlineto currentpoint stroke moveto}bind def
/z {{counttomark 2 ge{79 sub rlineto}{126 exch sub}ifelse}forall
 currentpoint stroke moveto}bind def
/ay 0 def
/Ay {/ay exch def}def
/ya 0 def
/yb 0 def
/yc 0 def
/yd 0 def
/sb {/yd exch def /yc exch def /yb exch def /ya exch def}def
/Sb {/yb exch def /ya exch def /yc yb def /yd yb def}def
/mb { dup ya newpath moveto dup yb lineto dup yc moveto yd lineto
stroke}bind def
/a {ya yb ne {dup mb}if ay m t}bind def
/A {ya yb ne {dup mb}if ay m (\267) t}bind def
/endpschart {cleartomark showpage pschart end restore}def
/lwmm 0.500000 def
300 newpage
0 0 0 setrgbcolor
ss
1 0.5 0.5 setrgbcolor
236 885 3188 1653 1 1 Grid
0 0 0 setrgbcolor
12 R
236 1665 m
224 1244 m
(0:00)b
3200 1244 m
(0:10)t
10 I
224 1449 m
(MLII)b
3200 1449 m
(MLII)t
236 1482 m
(~O}O}O}O}O~O}O}R}M}N}O~M}P}N}N}N~N}Q}Q}M}N}N~P}R}Q}M}K~M}K}Q}L}O}N~M}O}O}P}P~N}N}M}O}O}O~P}M}N}R}P}O~N}O}L}Q}N~Q}N}N}M}N}N~L}L}O}L}I~L}O}V}Z}\\}a~e}n}k}b}V~G}2}%}\(}7}G~P}V}S}P}N~M}Q}P}P}P}M~N}N}Q}L}Q}O~O}O}P}N}O~M}N}R}P}Q}M~O}N}N}P}N~N}N}O}Q}P}O~O}N) z
(}N}R}O~N}O}O}O}N}P~N}N}N}P}O}Q~P}N}O}M}Q~O}O}M}O}N}Q~O}P}O}M}O~O}Q}O}O}M}N~O}P}O}Q}M~N}O}O}N}P}N~M}Q}P}O}O~M}O}P}O}P}O~N}O}P}R}P}O~N}N}R}Q}O~P}N}P}P}P}Q~P}O}M}P}P~Q}M}O}N}O}Q~N}N}P}N}P~O}M}P}O}N}N~P}P}M}N}N}Q~O}Q}L}O}O~P}O}P}N}N}N~P}P}N}O}M~O}N}P}O}N) z
(}O~O}P}Q}O}N~N}N}Q}N}O}N~O}M}Q}P}P~M}M}N}Q}Q}N~O}M}N}P}P}P~O}O}O}P}N~Q}N}O}N}O}Q~P}M}N}N}P~P}P}P}P}O}O~O}R}O}N}S~O}Q}P}N}N}M~P}O}O}O}N}N~O}O}Q}P}P~J}K}O}M}N}L~O}P}P}N}P~N}M}N}P}O}N~O}N}R}O}O~P}L}N}Q}P}P~N}M}M}P}L~J}M}K}K}L}S~Y}]}_}`}m}m~j}b}V}K}=~0}\)) z
(}.}<}A}H~L}Q}S}S}O~P}N}P}O}O}N~P}O}O}P}M~M}O}P}P}O}M~Q}P}P}M}O}M~O}O}Q}O}O~M}N}Q}N}O}O~N}P}P}O}P~O}M}O}Q}O}P~O}L}O}Q}O~Q}M}O}M}P}P~O}P}L}N}O~Q}P}M}N}O}O~P}N}N}P}M}O~O}Q}M}M}N~P}Q}N}N}N}N~P}O}P}N}N~N}Q}P}P}O}P~N}S}Q}R}O~P}N}R}Q}P}N~N}O}P}Q}P}O~L}O}P}P) z
(}O~P}L}N}R}O}P~O}L}O}Q}O~N}P}N}O}P}P~P}M}O}M}P~Q}M}O}O}M}Q~N}P}N}N}N~P}O}O}P}L}O~O}Q}O}O}M}O~O}R}N}O}N~M}R}O}O}O}L~O}O}P}P}N~O}O}O}Q}O}O~M}O}O}P}P~M}O}N}P}P}P~N}O}O}P}O}O~O}M}O}P}P~Q}Q}O}O}Q}P~P}O}O}P}P~P}Q}P}L}N}P~N}P}N}O}L~O}P}Q}R}O}N~K}N}N}O}L~M}M) z
(}P}O}O}L~N}P}P}O}N}N~N}N}Q}O}O~M}O}O}P}Q}N~L}M}O}L}K~L}L}K}M}T}]~b}b}g}r}p~f}X}B}\() z
1 -56 N
(}#~:}O}V}R}R}O~O}O}O}M}Q~M}Q}O}O}M}O~P}O}M}P}N~O}P}O}N}O}M~Q}P}O}O}M~N}Q}O}P}O}M~P}Q}P}N}O~P}L}P}Q}N}O~M}N}O}P}O}P~M}O}P}O}Q~O}N}M}Q}O}Q~N}O}N}R}M~P}O}N}M}P}O~O}N}O}O}N~P}O}P}L}O}O~Q}O}O}O}N}O~P}R}O}O}Q~Q}Q}P}O}O}O~P}O}Q}O}N~P}O}P}O}O}N~O}O}N}Q}N~N}N) z