USEPLOFRM HP_A4Q
DFNPDF BOX(1), 20, 65, 70, 70
DFNPDF BOX(2), 90, 100, 70, 70
DFNPDF BOX(3), 160, 65, 70, 70
DFNPDF BOX(4), 90, 30, 70, 70

TOL=.005
MAG=25

USEPDF BOX(4), N
~DRW$PLA=ZY
DRWPLY          (NAM=IRIS(1), ASC=Y, PEN=5, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(1), ASC=N, DEV=Y, FAC=MAG, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY         IRIS(1), N, Y, , MAG, 1, 3, , ~DRW$PLA, , , , , , 20
DRWPLY         IRIS(1), N, , TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
DRWPLY         IRIS(1), N, , -TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20

GETVALS         (OBJ=IRIS(1), RDS=(D,E), REA=(MIN(1),MAX(1)))
USEPDF BOX(4), N
DRWSTR          (X  =20, Y  =20, STR='AT 270 deg', PEN=1, PTP=LI3P0)
DRWSTR          (X  =15, Y  =14, STR='Min. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MIN(1), FM2=4, INT=N, ANG=N)
DRWSTR          (X  =15, Y  =10, STR='Max. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MAX(1), FM2=4, INT=N, ANG=N)

USEPDF BOX(3), N
~DRW$PLA=XZ
DRWPLY          (NAM=IRIS(2), ASC=Y, PEN=5, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(2), ASC=N, DEV=Y, FAC=MAG, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(2), ASC=N, DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY         IRIS(2), N, , TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
DRWPLY         IRIS(2), N, , -TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
GETVALS         (OBJ=IRIS(2), RDS=(D,E), REA=(MIN(2),MAX(2)))
USEPDF BOX(3), N
DRWSTR          (X  =50, Y  =40, STR='AT 0 deg', PEN=1, PTP=LI3P0)
DRWSTR          (X  =45, Y  =34, STR='Min. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MIN(2), FM2=4, INT=N, ANG=N)
DRWSTR          (X  =45, Y  =30, STR='Max. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MAX(2), FM2=4, INT=N, ANG=N)

USEPDF BOX(2), N
~DRW$PLA=ZY
DRWPLY          (NAM=IRIS(3), ASC=Y, PEN=5, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(3), ASC=N, DEV=Y, FAC=MAG, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(3), ASC=N, DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY         IRIS(3), N, , TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
DRWPLY         IRIS(3), N, , -TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
GETVALS         (OBJ=IRIS(3), RDS=(D,E), REA=(MIN(3),MAX(3)))
USEPDF BOX(2), N
DRWSTR          (X  =20, Y  =70, STR='AT 90 deg', PEN=1, PTP=LI3P0)
DRWSTR          (X  =15, Y  =65, STR='Min. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MIN(3), FM2=4, INT=N, ANG=N)
DRWSTR          (X  =15, Y  =61, STR='Max. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MAX(3), FM2=4, INT=N, ANG=N)


USEPDF BOX(1), N
~DRW$PLA=XZ
DRWPLY          (NAM=IRIS(4), ASC=Y, PEN=5, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(4), ASC=N, DEV=Y, FAC=MAG, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY          (NAM=IRIS(4), ASC=N, DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=~DRW$PLA, SFA=20)
DRWPLY         IRIS(4), N, , TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
DRWPLY         IRIS(4), N, , -TOL, MAG, 1, 4, , ~DRW$PLA, , , , , , 20
GETVALS         (OBJ=IRIS(4), RDS=(D,E), REA=(MIN(4),MAX(4)))
USEPDF BOX(1), N
DRWSTR          (X  =-10, Y  =40, STR='AT 180 deg', PEN=1, PTP=LI3P0)
DRWSTR          (X  =-15, Y  =34, STR='Min. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MIN(4), FM2=4, INT=N, ANG=N)
DRWSTR          (X  =-15, Y  =30, STR='Max. Dev. =', PEN=1, PTP=LI2P0)
DRWSPA 
DRWREA          (VAL=MAX(4), FM2=4, INT=N, ANG=N)

USEPDF          (NAM=A4QDRW, DRW=N)
DRWSTR          (X  =5, Y  =3, STR=' Dimensions in Milimeters', PEN=1, PTP=LI2P0)
~
USEPDF          (NAM=A4QINF, DRW=N)
~STR1='NLC TEST ACCELERATOR 45MM DIA STD CELL'
~STR2='IRIS CONTOUR PROFILE'
~STR3='ROTATED INTO XY PLANE'

DRWSTR          (X  =7, Y  =18, STR=~STR1, PEN=1, PTP=LI3P5)
DRWSTR          (X  =40, Y  =12, STR=~STR2, PEN=1, PTP=LI3P5)
DRWSTR          (X  =38, Y  =6, STR=~STR3, PEN=1, PTP=LI3P5)

USEPDF A4QNBR, N
~DATE=_DATE
DRWSTR          (X  =5, Y  =18, STR=~DATE, PEN=1, PTP=LI3P0)
DRWSTR          (X  =4, Y  =12, STR='TYPE =', PEN=1, PTP=LI3P0)
DRWSPA          (FAC=.5)
DRWSTR          (STR=~CELL$TYP, PEN=3)
DRWSTR          (X  =1, Y  =6, STR='SER.# =', PEN=1, PTP=LI3P0)
DRWSPA          (FAC=.5)
DRWSTR          (STR=~CELL$NUM, PEN=3)
INDPRC           (NAM=FmtA4Q_Q)