Changeset 16

Timestamp:

04/13/08 03:23:49 (8 months ago)

Author:

jpv

Message:

suppression de la derivee seconde pour les tubes

Files:

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

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-09, 2008/04/10
+10, 2008/04/13
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque
@@ -6212 +6212 @@
-   
-      %% definition du repere de Frenet (k1, k2, k3) au point f(a)
-
-
-
+
+
+
+
+
+
+
+
-      k1 norme3d 0 eq {
-         tub@dernierk1 aload pop /k1 defpoint3d
@@ -6255 +6260 @@
-      /j 0 def
-      K 1 sub {
-%         pop 
-         0 1 N 1 sub {
-            /i exch def
@@ -6269 +6273 @@
-   ]
-   generesolid
+end
+} def
+
+%%%%% ### baseplannormal ###
+%% syntaxe : x y z baseplannormal -> x1 y1 z1 x2 y2 z2
+/baseplannormal {
+5 dict begin
+   /K defpoint3d
+   1 0 0 K vectprod3d normalize3d /U defpoint3d
+   U norme3d 0 eq {
+      0 1 0 K vectprod3d normalize3d /U defpoint3d
+   } if
+   K U vectprod3d normalize3d /V defpoint3d
+   U V
-end
-} def