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

PrivateSub向量差(R,A,B);PrivateSub输入矩阵(矩阵,文件路径)PublicFunctionBezier(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,