!=========================================================
! 限定像面在指定视场范围内的主光线入射角度。命名为ZPLxx.zpl，放入Zemax/Macros目录就
!以使用。控制像面入射角度，有助于找出更易量产的设计。
! PoxenStudio (PoxenStudio@gmail.com)
!(为光学从业者提供软件辅助及程序设计的服务与支持。服务的软件包括Zemax,CodeV,OSLO,
! TracePro, AutoCAD, PRO-E等。也进行多种数据分析与转换，如Zygo仪器测量数据,轮廓仪测量数据)
!参数:
! Data# ----> 0 允许的最大主光线角度
! HX -----> 起始视场
! HY -----> 结束视场
! PX,PY未使用
!=========================================================
MAXAngle=0
SURNUM=NSUR()
IF (PVHX()<0) | (PVHX()>1)
STARTF=0
ELSE
STARTF=PVHX()
ENDIF
IF (PVHX()<0) | (PVHX()>1)
ENDTF=1
ELSE
ENDTF=PVHY()
ENDIF
FOR I=STARTF,ENDTF,0.02
RAYTRACE 0,I,0,0,PWAV()
TanValue=(RAGY(SURNUM)-RAGY(SURNUM-1))/(RAGZ(SURNUM)-RAGZ(SURNUM-1))
Angle=ATAN(TanValue)
Angle=180*Angle/3.141592653589793
IF (ABSO(Angle)>ABSO(MAXAngle)) THEN MAXAngle=Angle
NEXT
RAYTRACE 0,ENDTF,0,0,PWAV()
TanValue=(RAGY(SURNUM)-RAGY(SURNUM-1))/(RAGZ(SURNUM)-RAGZ(SURNUM-1))
Angle=ATAN(TanValue)
Angle=180*Angle/3.141592653589793
IF (ABSO(Angle)>ABSO(MAXAngle)) THEN MAXAngle=Angle
