! 	filename: TRCE_APE.zpl	date: 2/22/96	rev: 1
!  Traces single ray through system considering vignetting from
!  system apertures.  Reports x or y coordinates.
!  Author:  Bob Householder

INPUT "Enter surface number for coordinate information: ",surf
INPUT "Enter fractional object (hx): ", hx
INPUT "Enter fractional object (hy): ", hy
INPUT "Enter fractional pupil (px): ", px
INPUT "Enter fractional pupil (py): ", py

RAYTRACE hx, hy, px, py
aperture=RAYV()

PRINT "The x coordinate for surface ", surf, " is ", RAYX(surf)

PRINT "The y coordinate for surface ", surf, " is ", RAYY(surf)

IF aperture == 0
  PRINT "The ray was not vignetted"
ELSE
  PRINT "The ray was vignetted at surface# ",aperture
ENDIF