！輸入的寬高比只是壹個近似值，旁軸寬高和實際寬高並不完全相同。
！關閉窗口
！輸入芯片比例數據
比率=0
輸入“請設置芯片的縱橫比(H/V)。默認值為4/3=1.33333:“，率。
如果比率==0
？匯率=1.33333
endif
格式10.4
！計算芯片比例
VR = SQRT(1/(1+rate * rate))
HR =速率*VR
！獲得最大的視野
NFLD_=NFLD()
MXF=0
對於I=1，NFLD_，1
？如果ABSO(FLDY(I))& gt；MXF？那麽MXF=ABSO(FLDY(I))
然後
！獲取曲面的數量
N=NSUR()
！傍軸追蹤
近軸打開
光線跟蹤HR，VR，0，0，pwav()
Y_max=ABSO(RAGY(N))
X_max=ABSO(RAGX(N))
旁軸關閉
！計算近軸的比例
prate=x_max/y_max
！繪制設計
制圖法
標題“網格失真”
xmx=xmax()
xmn=xmin()
ymx=ymax()
ymn=ymin()
xwidth=xmx-xmn
ywidth=ymx-ymn
！計算繪圖區域的高度和寬度
Vmm=0.6*ywidth
Hmm=prate*Vmm
！畫壹個框架
xleft =xmn+(xwidth-Hmm)/2
xrigh =xmx-(xwidth-Hmm)/2
ytopp =ymn+(0.1*ywidth)
ybott =ymn+(0.7*ywidth)
x_center=xleft+(xrigh-xleft)/2
y_center=ytopp+(ybott-ytopp)/2
行xleft，ytopp，xrigh，ytopp
線xrigh，ytopp，xrigh，ybott
線xrigh，ybott，xleft，ybott
線xleft，ybott，xleft，ytopp
！畫壹個網格(近軸圖像高度網格)../20，並根據水平和垂直旁軸高度畫網格，內部等比例近似旁軸高度。
incx=Hmm/20
incy=Vmm/20
因為i=1，19，1
？line (xmn+(xwidth-Hmm)/2+incx*i)，ymn+(0.7*ywidth)，(xmn+(xwidth-Hmm)/2+incx*i)，ymn+(0.1*ywidth)
？line (xmn+(xwidth-Hmm)/2)，(ymn+(0.1*ywidth)+incy*i)，(xmx-(xwidth-Hmm)/2)，(ymn+(0.1*ywidth)+incy*i)
然後
SETVECSIZE(500)
計數=1
！計算實際圖像高度
對於ii =-1，1，0.1
？對於jj=-1，1，0.1
光線追蹤ii*HR，jj*VR，0，0，pwav()
rY_max=RAGY(N)
rX_max=RAGX(N)
VEC1(計數)=ry_max
VEC2(計數)=rx_max
計數=計數+1
？然後
然後
！畫出實際圖像的高網格圖
顏色5
對於i=1，計數，21
oldx = x _ center+ve C2(I)*(Hmm/2)/x _ max
oldy = y _ center-vec 1(I)*(Vmm/2)/y _ max
？對於j=1，20，1
？newx = x _ center+ve C2(I+j)*(Hmm/2)/x _ max
？newy = y _ center-vec 1(I+j)*(Vmm/2)/y _ max
？線oldx，oldy，newx，newy
？oldx=newx
？oldy=newy
？然後
然後
因為i=1，21，1
oldx = x _ center+ve C2(I)*(Hmm/2)/x _ max
oldy = y _ center-vec 1(I)*(Vmm/2)/y _ max
？對於j=21，計數-21，21
？newx = x _ center+ve C2(I+j)*(Hmm/2)/x _ max
？newy = y _ center-vec 1(I+j)*(Vmm/2)/y _ max
？線oldx，oldy，newx，newy
？oldx=newx
？oldy=newy
？然後
然後
！給…作註解
顏色1
glensname
gdate
UNT =單位()
如果(UNT==0)那麽UNTS$= "毫米"
如果(UNT==1)那麽UNTS$= "厘米"
如果(UNT==2)那麽UNTS$=“英寸”
如果(UNT==3)那麽UNTS$= "米"
GTEXT XMN+0.02 * x寬度，YMN+0.91 * y寬度，0，" H:V(sen):"
GTEXT XMN+0.02*XWIDTH，YMN+0.945*YWIDTH，0，"圖像(P):"
GTEXT XMN+0.13*XWIDTH，YMN+0.91*YWIDTH，0，$str(HR)
GTEXT XMN+0.28*XWIDTH，YMN+0.91*YWIDTH，0，$str(VR)
GTEXT XMN+0.28*XWIDTH，YMN+0.91*YWIDTH，0，" W "
GTEXT XMN+0.43*XWIDTH，YMN+0.91*YWIDTH，0，" H "
GTEXT XMN+0.13*XWIDTH，YMN+0.945*YWIDTH，0，$str(X_MAX*2)
GTEXT XMN+0.28*XWIDTH，YMN+0.945*YWIDTH，0，$str(Y_MAX*2)
GTEXT XMN+0.28*XWIDTH，YMN+0.945*YWIDTH，0，" W "
GTEXT XMN+0.43 * x寬度，YMN+0.945 * y寬度，0，"高"
Ftp=FTYP()
如果(Ftp == 0)
gtext xmn+0.47*xwidth，ymn+0.91*ywidth，0，"度"
其他
gtext xmn+0.47*xwidth，ymn+0.91*ywidth，0，UNTS美元
endif
gtext xmn+0.47*xwidth，ymn+0.945*ywidth，0，UNTS元
顏色2
gtext x _ center-xwidth * 0.13-，ymn+0.75*ywidth，0，""
顏色3
GTEXT xmx-(x width-Hmm)/2+0.03 * x width，YMN+0.7*YWIDTH，90，"小心: "
GTEXT xmx-(x width-Hmm)/2+0.06 * x width，YMN+0.7*YWIDTH，90，"如果偏心或標題，網格為"
GTEXT xmx-(xwidth-Hmm)/2+0.09 * xwidth，YMN+0.7*YWIDTH，90，“對，但是日期不對！”
！-
！計算電視失真
顏色1
旁軸關閉
光線跟蹤HR，VR，0，0
YC=RAGY(N)
XC =拉格(N)
光線跟蹤HR，0，0，0
H=RAGX(N)
光線追蹤0，VR，0，0
V=RAGY(N)
TVH = (YC五世)/YC * 100
TVV = (XC-H)/XC * 100
gtext x _ center-xwidth * 0.18，ymn+0.05*ywidth，0，"電視失真(H)"
gtext x_center+xwidth*0.025，ymn+0.05*ywidth，0，$str(TVH)
gtext x _ center+x width * 0.175，ymn+0.05*ywidth，0，" % "
gtext x _ center-(Hmm)/2-0.05 * ywidth，ymn+0.64*ywidth，90，"電視失真(V)"
gtext x _ center-(Hmm)/2-0.05 * ywidth，ymn+0.37*ywidth，90，$str(TVV)
gtext x _ center-(Hmm)/2-0.05 * ywidth，ymn+0.17*ywidth，90，" % "
顏色0
線條0.01 * x寬，0.035 * y寬，0.05 *寬，0.035 * y寬
gtext 0.06*xwidth，0.035*ywidth，0，"旁軸"
顏色5
線條0.01 * x寬，0.07 * y寬，0.05 *寬，0.07 * y寬
gtext 0.06*xwidth，0.07*ywidth，0，"實數"
圖形關閉
格式5.3
打印“？”
打印“垂直/水平方向:”，1/率
打印“？”
打印“垂直電視失真(%):，tvv，”？%"
打印“？”
打印“水平電視失真是(%):？”，tvh，“？%"
打印“？”
打印" "