ob.ps

用ghostscript语言编写的一个ps文件

%------Information Variables obtained-------
/Hospital ( shenzhen****hospital) def
/Date ( 20070106) def
/Name ( Jean Steven) def
/ID ( 20070101008) def
/AGE ( 25) def
/SEX ( M) def
/Height ( 160) def
/Weight ( 120) def
/HR ( 90) def

%-----Data Variables obtained---------
/GS_GA ( 20) def
/AC_GA ( 20) def
/CRL_GA ( 20) def
/OFD_GA ( 20) def
/APAD_GA ( 20) def
/FOOT_GA ( 20) def
/THD_GA ( 20) def
/ULNA_GA ( 20) def
/HUM_GA ( 20) def
/BPD_GA ( 20) def
/HC_GA ( 20) def
/FL_GA ( 20) def
/AA_GA ( 20) def
/CER_GA ( 20) def
/OOD_GA ( 20) def
/TTD_GA ( 20) def
/TIBIA_GA ( 20) def
/ULNA1_GA ( 20) def


/Average_GA ( 20) def
/LMP ( 2007-06-26) def
/FHR ( 30) def
/HCorAC ( 20) def
/EFW ( 20) def
/EDD1 ( 200) def
/EDD2 ( 200) def
/C1 ( 24) def
/AF1 ( 78) def

/Comment (一切正常) def

%------image Variables---------
/bmp1
<dd ff 00 ff 54 1f 80 03 fb f9 00 1e> def

/bmp2
<dd ff 00 ff 54 1f 
80 03 fb f9 00 1e> def

%------comment Variables-------
/comment (sldjfoiweeiusd\nfsldkflksdajf\nksdjifenfdsnv\n) def

%------Variables self-made------
/vpos  72 11 mul def 			% vertical position variable
/Fml (Hansmann) def			%the Formula

%--------PROCEDURES--------
/inch
{
	72 mul
} def

/typeface
{
	/Times-Roman findfont
	12 scalefont
	setfont
} def

/newline
{
	/vpos vpos 20 sub def   %decrease vpos
	72 vpos moveto 		%整体文章左侧空白1 inch
} def					 %turn to next line

/title
{
	3.4 inch vpos moveto
	Hospital show
	newline
	2.7 inch 0 rmoveto
	(OB REPORT) show
} def

/dash
{
	0.7 setlinewidth
	[4 4] 0 setdash 
	6.5 inch 0 rlineto 		%报告右侧到6.5 inch
	stroke
} def

/information
{
	(Name:) show Name show
	3.5 inch vpos moveto
	(ID:) show ID show
	5.5 inch vpos moveto
	(AGE:) show AGE show
	6.5 inch vpos moveto
	(SEX:) show SEX show
	newline
	(Height:) show Height show (cm) show
	3.5 inch vpos moveto
	(Weight:) show Weight show (kg) show
	5.5 inch vpos moveto
	(HR:) show HR show (/Min) show
} def

/data
{
	(GS:) show GS_GA show (mm) show
	2 inch vpos moveto Fml show
	3.3 inch vpos moveto
	(AC:) show AC_GA show (mm) show 
	4.4 inch vpos moveto Fml show
	5.7 inch vpos moveto
	(CRL:) show CRL_GA show (mm) show 
	6.8 inch vpos moveto Fml show
	newline
	(OFD:) show OFD_GA show (mm) show
	2 inch vpos moveto Fml show
	3.3 inch vpos moveto
	(APAD:) show APAD_GA show (mm) show 
	4.4 inch vpos moveto Fml show
	5.7 inch vpos moveto
	(FOOT:) show FOOT_GA show (mm) show 
	6.8 inch vpos moveto Fml show
	newline
	(THD:) show THD_GA show (mm) show 
	2 inch vpos moveto Fml show
	3.3 inch vpos moveto
	(ULNA:) show ULNA_GA show (mm) show 
	4.4 inch vpos moveto Fml show
	5.7 inch vpos moveto
	(HUM:) show HUM_GA show (mm) show 
	6.8 inch vpos moveto Fml show
	newline
	(BPD:) show BPD_GA show (mm) show 
	2 inch vpos moveto Fml show
	3.3 inch vpos moveto
	(HC:) show HC_GA show (mm) show 
	4.4 inch vpos moveto Fml show
	5.7 inch vpos moveto
	(FL:) show FL_GA show (mm) show 
	6.8 inch vpos moveto Fml show
	newline
	(AA:) show AA_GA show (mm) show 
	2 inch vpos moveto Fml show
	3.3 inch vpos moveto
	(CER:) show CER_GA show (mm) show 
	4.4 inch vpos moveto Fml show
	5.7 inch vpos moveto
	(OOD:) show OOD_GA show (mm) show 
	6.8 inch vpos moveto Fml show
	newline
	(TTD:) show TTD_GA show (mm) show 
	2 inch vpos moveto Fml show
	3.3 inch vpos moveto
	(TIBIA:) show TIBIA_GA show (mm) show 
	4.4 inch vpos moveto Fml show
	5.7 inch vpos moveto
	(ULNA:) show ULNA_GA show (mm) show 
	6.8 inch vpos moveto Fml show
} def

/data_figured
{
	(Average GA:) show Average_GA show (mm) show
	2.6 inch vpos moveto Fml show
	3.6 inch vpos moveto
	(LMP:) show LMP show 
	6.2 inch vpos moveto
	(FHR:) show FHR show (mm) show
	newline
	(HC/AC:) show HCorAC show (mm) show 
	2.6 inch vpos moveto Fml show
	3.6 inch vpos moveto
	(EFW:) show EFW show (mm) show
	5.1 inch vpos moveto Fml show
	6.2 inch vpos moveto
	(EDD1:) show EDD1 show (mm) show
	newline
	(EDD2:) show EDD2 show (mm) show
	3.6 inch vpos moveto
	(C1:) show C1 show (mm) show
	6.2 inch vpos moveto
	(AF1:)show AF1 show (mm) show
} def


/imageholding
{
	gsave
	1 inch 3.3 inch translate
 	3 inch dup scale
 	
	16 6 1 [16 0 0 6 0 0] {bmp1} image
	grestore

	gsave

	4.5 inch 3.3 inch translate
 	3 inch dup scale

 	16 6 1 [16 0 0 6 0 0] {bmp2} image

	grestore
} def

/commentholding
{
	(Doctor Comment:) show
	newline
	comment show
	newline
	newline
	newline
	newline
} def

/tail
{
	5 inch 0 rmoveto
	(Signature:) show
	newline
	5 inch 0 rmoveto
	(Date:) show
	Date show
} def
%---------main------------
typeface
title
newline
dash
newline
information
newline
dash
newline
data
newline
newline
data_figured
newline
dash
newline
imageholding
/vpos 220 def
1 inch vpos moveto
dash
newline
commentholding
newline
tail
showpage