%% Projection orthogonale d'un point 3d sur un plan
%% Mx My Mz (=le point a projeter)
%% Ax Ay Az (=un point du plan)
%% Vx Vy Vz (un vecteur normal au plan)
/orthoprojplane3d {
4 dict begin
/V defpoint3d
/A defpoint3d
/M defpoint3d
/VN {V unitaire3d} def
VN M A vecteur3d VN scalprod3d mulv3d
M addv3d
end
} def
|