Changeset 122

Timestamp:

10/30/08 16:18:09 (2 months ago)

Author:

jpv

Message:

Suppression du clipping lors des projections. Ajout p3dtoplane et pplaneto3d

Files:

• trunk/solides.pro (modified) (6 diffs)

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-2, 2008/10/21
+3, 2008/10/30
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault
@@ -3357 +3357 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
+%%%%% ### p3dtoplane ###
+%% syntaxe : x y z P p3dtoplan --> X Y
+/p3dtoplane {
+5 dict begin
+   /leplan exch def
+   /M defpoint3d
+   leplan plangetbase 0 getp3d /U defpoint3d
+   leplan plangetbase 1 getp3d /V defpoint3d
+   leplan plangetorigine /I defpoint3d
+   I M vecteur3d U scalprod3d
+   I M vecteur3d V scalprod3d
+end
+} def
+
+%%%%% ### pplaneto3d ###
+%% syntaxe : x y P pplaneto3d --> X Y Z
+/pplaneto3d {
+6 dict begin
+   /leplan exch def
+   /y exch def
+   /x exch def
+   leplan plangetbase 0 getp3d /U defpoint3d
+   leplan plangetbase 1 getp3d /V defpoint3d
+   leplan plangetorigine /I defpoint3d
+   U x mulv3d
+   V y mulv3d addv3d
+   I addv3d
+end
+} def
+
-%%%%% ### orthoprojplane3d ### 
-%% Projection orthogonale d'un point 3d sur un plan
@@ -3364 +3394 @@
-/orthoprojplane3d { 
-4 dict begin
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-end
-} def
@@ -6247 +6282 @@
-} def
-
- w
+
-%% ou u, v et w vecteurs de R^3
-/plangetbase {
@@ -11066 +11101 @@
-      l@pl@n plangetrange aload pop 
-      setyrange setxrange
-
-
-
-
-
-
-
-
+%% 
+%% 
+%% 
+%% 
+%% 
+%% 
+%% 
+%% 
-      solidlinewidth setlinewidth
-      linestyle
@@ -11088 +11123 @@
-      l@pl@n plangetrange aload pop 
-      setyrange setxrange
-
-
-
-
-
-
-
-
+%% 
+%% 
+%% 
+%% 
+%% 
+%% 
+%% 
+%% 
-      planprojpst bprojscene
-      solidlinewidth setlinewidth