D{'x7!5r
FORMAT 20.9 ks<gSCB
GETSYSTEMDATA 1 %Ez%pT0TQ#
Nbc1=VEC1(1) .\M@oF
Nbc2=VEC1(4) an={h,
Nbc3=VEC1(5) !;.i#c_u
Nbc4=VEC1(6) xfCq;?MupW
Nbc5=VEC1(7) hAi50q;z
Nbc6=VEC1(8) ]b4*`}\
Nbc7=VEC1(9) htk5\^(X
Nbc8=VEC1(10) A<2_V1
Nbc9=VEC1(11) p/>}{Q )Y
Nbc10=VEC1(12) $J"}7+
Nbc11=VEC1(13) I&Q.MItW
Nbc12=VEC1(14) ZGK*]o=)
Nbc13=VEC1(15) 7].tt
Nbc14=VEC1(16) {c`kC]9
Nbc15=VEC1(17) /f~V(DK
Nbc16=VEC1(18) 9Xo'U;J
2#~5[PtP^
!////////////////////////////////////////////////////// N(q%|h<Z/=
:$."x
'
Ug*:o d
+RQlMAB
O&!>C7
n=nsur() TV\21
5jD2%"YUV
s<Pk[7`*
PARAXIAL ON -'3~Y
2#
RAYTRACE 0,0,0,1 qFp }+s
R=RAYM(n)/RAYN(n) r7o63]
ld=-1*RAYY(n-1)/R 8X!^ 2B}J
ld$=$STR(ld) KZUB{Y^)
_Z z"`
hE0
p>R8
/{
Lo0
PARAXIAL OFF `VY -3
RAYTRACE 0,0,0,1 }D/0&