Changeset 119

Timestamp:

10/20/08 14:34:28 (3 months ago)

Author:

jpv

Message:

Ajout de orthoprojplane3d

Files:

• trunk/solides.pro (modified) (1 diff)

trunk/solides.pro

@@ -3356 +3356 @@
-%%%%          geometrie 3d (calculs)                    %%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%% ### orthoprojplane3d ### 
+%% 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
-
-%%%%% ### sortp3d ###