Changeset 55

Timestamp:

06/19/08 12:13:11 (7 months ago)

Author:

jpv

Message:

Ajout de l'objet pie

Files:

• trunk/pst-solides3d.tex (modified) (2 diffs)
• trunk/solides.pro (modified) (5 diffs)

trunk/pst-solides3d.tex

@@ -20 +20 @@
-\ifx\MultidoLoaded\endinput\else\input multido.tex \fi
-% JPV & ML & AS
-4
+5
-\def\filedate{2008/06/19}
-\message{`PSTSOLIDESIIID' v\fileversion, \filedate}
@@ -301 +301 @@
-surface,calottespherecreuse,polygoneregulier,fusion,new,chemin,courbeR2,courbe,%
-surfaceparametree,texte,trigospherique,vecteur,line,objfile,datfile,surface*,%
-
+,pie
-%% Reservation de macros correspondants aux objects
-\pst@solides@reservednames{object}

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-1
+2
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque
@@ -3698 +3698 @@
-%% /aretescachees true def
-%% /defaultsolidmode 2 def
+
+%% syntaxe : alpha beta r h newpie --> solid
+/newpie {
+6 dict begin
+   [[/resolution /nbetages] [8 1] [10 1] [12 1] [18 3] [36 5]] gestionsolidmode
+   /h exch def
+   /r exch def
+   /beta exch def
+   /alpha exch def
+   [
+      0 0
+      alpha cos r mul alpha sin r mul
+      alpha beta {1 dict begin /t exch def t cos r mul t sin r mul end} CourbeR2+
+   ] 0 h [nbetages] newprismedroit
+end
+} def
-
-%%%%% ### newsolid ###
@@ -7771 +7787 @@
-
-%%%%% ### newprisme ### 
+%% syntaxe : array z0 z1 newprisme -> solid d axe (O, u),
-/newprismedroit {
-   [[/N] [1] [1] [1] [3] [6]] gestionsolidmode
@@ -7776 +7793 @@
-} def
-
-N 
+
-%% ou array tableau de points 2d
-/newprisme {
@@ -9303 +9320 @@
-} def
-
+%% syntaxe : alpha beta r h newpie --> solid
+/pst-pie {
+   phi theta r h 
+   ngrid length 2 ge {
+      [ngrid 0 get ngrid 1 get]
+   } if
+   newpie
+   gere_pstricks_opt
+} def
+
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%         procedures pour \psProjection              %%%%