法线贴图算法及程序(VB6.0下运行)

Private Sub 向量差(R, A, B);Private Sub 输入矩阵(矩阵, 文件路径)Public Function Bezier(P, u, w) 矢量积 NQ, Qu, Qw 向量差 L, PLight, Q LLen = 长度(L) 向量差 V, Eye, Q VLen = 长度(V) 对称向量 R, L, NQ 矢量单位化 NQe, NQ 矢量单位化 Le, L 矢量单位化 Ve, V 矢量单位化 Re, R 光路强度 PRgb, PRgb, LLen, Ps 漫射光色 MRgb, FRgb, PRgb, Im, Km, Le, NQe 光路强度 MRgb, MRgb, VLen, Ps 镜面反射光色 JRgb, PRgb, Im, Ns, Kj, Re, Ve 光路强度 JRgb, JRgb, VLen, Ps 透视 Q, TF