Changeset 81

Timestamp:

07/08/08 15:34:52 (5 months ago)

Author:

jpv

Message:

Supression de l'objet "plantype"

Files:

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

trunk/solides.pro

@@ -10605 +10605 @@
-      dup ngrid planputngrid
-   } if
-   
+
-      solidname cvlit exch bind def
-      tx@Dict /solidname undef
@@ -10612 +10612 @@
-   } ifelse
-} def
+/pst-plan- {pst-plan-plantype} def
+
+%x0 y0 z0 [normalvect] norm2plan
+/pst-plan-plantype {
+   dup plan2eq /eqpl@n exch def
+   /plan-@k true def
+} def
-
-/pst-plan {
@@ -10617 +10624 @@
-   args (pst-plan-) definition append cvx exec
-   /pl@n-en-cours true def
-
+
+
-      dup
-      base 0 get base 1 get lt
@@ -10623 +10631 @@
-         base
-      } {
-2 2 -2 2]
+3 3 -2 2] %pop base %aload pop boum
-      } ifelse
-      planputrange
@@ -10629 +10637 @@
-         dup origin planputorigine
-      } if
+      CX isreal
+      CX 0 eq and
+      CY isreal and
+      CY 0 eq and
+      CZ isreal and
+      CZ 0 eq and not {
+         dup CX CY CZ planputorigine
+      } if
+      /CX 0. def
+      /CY 0. def
+      /CZ 0. def
-      ngrid length 0 ne {
-         dup ngrid planputngrid
@@ -10636 +10655 @@
-   dup phi rotateplan
-   /l@pl@n exch def
+   tx@Dict /solidname known {
+      l@pl@n solidname cvlit exch bind def
+      /solidname solidname (_s) append store
+   } if
-   l@pl@n newplan
-   gere_pstricks_opt
@@ -10642 +10665 @@
-%   noir
-   l@pl@n RotX RotY RotZ rotateOplan
-
+%
-   fontsize setfontsize
-   setTimes
@@ -10651 +10674 @@
-} def
-
-/pst-plan- {pst-plan-plantype} def
-
-%x0 y0 z0 [normalvect] norm2plan
-/pst-plan-plantype {
-   dup plan2eq /eqpl@n exch def
-   /plan-@k true def
-} def
-
-/pst-plan-normalpoint {