!    filename: raytrace.zpl	date: 8/13/96	rev: 1
!  Calculates Chief Ray Coordinates for Each Field Angle
!  Author:  Bob Householder

nfield=NFLD()
maxfield=MAXF()
n=NSUR()
PRINT
FOR i=1,nfield,1
  hx=FLDX(i)/maxfield
  hy=FLDY(i)/maxfield
  PRINT "Field number ",i
  RAYTRACE hx,hy,0,0,PWAV()
  PRINT "X-field angle: ",FLDX(i), " Y-field angle: ",FLDY(i)
  PRINT "X-chief ray  : ",RAYX(n), " Y-chief ray  : ",RAYY(n)
  PRINT
NEXT