Changeset 42

Timestamp:

06/10/08 13:39:14 (6 months ago)

Author:

jpv

Message:

Correction bug IO dans solidesepare. Ajout de l'objet "point"

Files:

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

trunk/pst-solides3d.tex

@@ -11 +11 @@
-\ifx\MultidoLoaded\endinput\else\input multido.tex \fi
-% JPV & ML & AS
-18
-08
+20
+10
-\message{`PSTSOLIDESIIID' v\fileversion, \filedate}
-%
@@ -267 +267 @@
-\psset[pst-solides3d]{action=draw**}%
-%
+% choix de la police et de la taille des caracteres en cm !!
+\define@key[psset]{pst-solides3d}{PSfont}{\def\pst@solides@PSfont{/#1 }}
+\define@key[psset]{pst-solides3d}{fontsize}{\def\pst@solides@fontsize{#1 }}
+\psset[pst-solides3d]{PSfont=Times-Roman,fontsize=10}
-
-% nature de l'objet
@@ -275 +279 @@
-surface,calottespherecreuse,polygoneregulier,fusion,new,chemin,courbeR2,courbe,%
-surfaceparametree,texte,trigospherique,vecteur,ligne,objfile,datfile,surface*,%
-
+,point
-%% Reservation de macros correspondants aux objects
-\pst@solides@reservednames{object}
@@ -432 +436 @@
-/range [ \pst@solides@range ] def
-/action {\pst@solides@action} def
+/texte (\pst@solides@text) def
+/pos (\pst@solides@pos) def
+/fontsize {\pst@solides@fontsize\space \pst@number\psunit mul 28.45 div } bind def
-%
-\ifx\pst@solides@CoordinatesLight\@empty
@@ -909 +916 @@
-\define@key[psset]{pst-solides3d}{normal}{\def\pst@solides@normal{#1}}
-\psset[pst-solides3d]{normal=0 0 1}
-% choix de la police et de la taille des caracteres en cm !!
-\define@key[psset]{pst-solides3d}{PSfont}{\def\pst@solides@PSfont{/#1 }}
-\define@key[psset]{pst-solides3d}{fontsize}{\def\pst@solides@fontsize{#1 }}
-\psset[pst-solides3d]{PSfont=Times-Roman,fontsize=10}
-% origine du plan
-\define@key[psset]{pst-solides3d}{origine}{\def\pst@solides@origin{#1}} % origine du plan

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-7, 2008/06/08
+8, 2008/06/10
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque
@@ -2941 +2941 @@
-} def
-
+%%%%% ### text3d ###
+%%%% Version 3d des commandes jps TEXTE
+ /pr@p@re3d {
+2 dict begin
+%   /vect_echelle [1 1] def
+%   /angle_de_rot {0} def
+%   dup xcheck
+%      {/angle_de_rot exch def}
+%   if
+%   dup isarray
+%      {/vect_echelle exch def}
+%   if
+%   CamView vect_echelle {angle_de_rot}
+   3dto2d
+} def
+
+/bbtext3d {
+   pr@p@re3d
+   bbtext
+end
+} def
+
+/bbtexlabel3d {
+   pr@p@re3d
+   bbtexlabel
+end
+} def
+
+/bctext3d {
+   pr@p@re3d
+   bctext
+end
+} def
+
+/bctexlabel3d {
+   pr@p@re3d
+   bctexlabel
+end
+} def
+
+/bltext3d {
+   pr@p@re3d
+   bltext
+end
+} def
+
+/bltexlabel3d {
+   pr@p@re3d
+   bltexlabel
+end
+} def
+
+/brtext3d {
+   pr@p@re3d
+   brtext
+end
+} def
+
+/brtexlabel3d {
+   pr@p@re3d
+   brtexlabel
+end
+} def
+
+/cbtext3d {
+   pr@p@re3d
+   cbtext
+end
+} def
+
+/cbtexlabel3d {
+   pr@p@re3d
+   cbtexlabel
+end
+} def
+
+/cctext3d {
+   pr@p@re3d
+   cctext
+end
+} def
+
+/cctexlabel3d {
+   pr@p@re3d
+   cctexlabel
+end
+} def
+
+/cltext3d {
+   pr@p@re3d
+   cltext
+end
+} def
+
+/cltexlabel3d {
+   pr@p@re3d
+   cltexlabel
+end
+} def
+
+/crtext3d {
+   pr@p@re3d
+   crtext
+end
+} def
+
+/crtexlabel3d {
+   pr@p@re3d
+   crtexlabel
+end
+} def
+
+/dbtext3d {
+   pr@p@re3d
+   dbtext
+end
+} def
+
+/dbtexlabel3d {
+   pr@p@re3d
+   dbtexlabel
+end
+} def
+
+/dctext3d {
+   pr@p@re3d
+   dctext
+end
+} def
+
+/dctexlabel3d {
+   pr@p@re3d
+   dctexlabel
+end
+} def
+
+/dltext3d {
+   pr@p@re3d
+   dltext
+end
+} def
+
+/dltexlabel3d {
+   pr@p@re3d
+   dltexlabel
+end
+} def
+
+/drtext3d {
+   pr@p@re3d
+   drtext
+end
+} def
+
+/drtexlabel3d {
+   pr@p@re3d
+   drtexlabel
+end
+} def
+
+/ubtext3d {
+   pr@p@re3d
+   ubtext
+end
+} def
+
+/ubtexlabel3d {
+   pr@p@re3d
+   ubtexlabel
+end
+} def
+
+/uctext3d {
+   pr@p@re3d
+   uctext
+end
+} def
+
+/uctexlabel3d {
+   pr@p@re3d
+   uctexlabel
+end
+} def
+
+/ultext3d {
+   pr@p@re3d
+   ultext
+end
+} def
+
+/ultexlabel3d {
+   pr@p@re3d
+   ultexlabel
+end
+} def
+
+/urtext3d {
+   pr@p@re3d
+   urtext
+end
+} def
+
+/urtexlabel3d {
+   pr@p@re3d
+   urtexlabel
+end
+} def
+
-%%%%% ### fin insertion ###
-
@@ -3227 +3435 @@
-    solid [
-      FC aload pop lac@uleur
- 
+
-end
-} def
@@ -5894 +6102 @@
-      /FC result solidgetfcolors def
-      /IO result solidgetinouttable def
-
+
+
+
-      result [nvelleface F aload pop] solidputfaces
-      result [lacouleur FC aload pop] solidputfcolors
@@ -6051 +6261 @@
-      /lesfaces1 result1 solidgetfaces def
-      /lescouleurs1 result1 solidgetfcolors def
+      /IO1 result1 solidgetinouttable def
-      /lesfaces2 result2 solidgetfaces def
-      /lescouleurs2 result2 solidgetfcolors def
+      /IO2 result2 solidgetinouttable def
-      %% on rajoute maintenant la face du plan de coupe
-%      result1 facecoupe couleurfacecoupe solidaddface
-      result1 [facecoupe lesfaces1 aload pop] solidputfaces
-      result1 [couleurfacecoupe lescouleurs1 aload pop] solidputfcolors
+      result1 IO1 dup dup 1 get 1 add 1 exch put solidputinouttable
-      %% et on verifie l'orientation
-%      result1 dup solidnombrefaces 1 sub solidnormaleface 
@@ -6067 +6280 @@
-         result2 [facecoupe lesfaces2 aload pop] solidputfaces
-         result2 [couleurfacecoupe lescouleurs2 aload pop] solidputfcolors
+         result2 IO2 dup 1 get 1 add 1 exch put solidputinouttable
-         result1 [facecoupe reverse lesfaces1 aload pop] solidputfaces
-         result1 [couleurfacecoupe lescouleurs1 aload pop] solidputfcolors
+         result1 dup solidgetinouttable dup 1 get 1 add 1 exch put solidputinouttable
-      } {
-         %% l'orientation est ok
+         result2 IO2 dup dup 1 get 1 add 1 exch put solidputinouttable
-         result2 [facecoupe reverse lesfaces2 aload pop] solidputfaces
-         result2 [couleurfacecoupe lescouleurs2 aload pop] solidputfcolors
@@ -6120 +6336 @@
-   } for
-   sommetspos bubblesort reverse {result2 exch solidrmsommet} apply
-
+
-   result1 result2
-end
@@ -8326 +8542 @@
-} def
-
+/dbtext {gsave newpath dbtext_ fill grestore} def
+/dctext {gsave newpath dctext_ fill grestore} def
+/dltext {gsave newpath dltext_ fill grestore} def
+/drtext {gsave newpath drtext_ fill grestore} def
+
+/bbtext {gsave newpath bbtext_ fill grestore} def
+/bctext {gsave newpath bctext_ fill grestore} def
+/bltext {gsave newpath bltext_ fill grestore} def
+/brtext {gsave newpath brtext_ fill grestore} def
+
+/cbtext {gsave newpath cbtext_ fill grestore} def
+/cctext {gsave newpath cctext_ fill grestore} def
+/cltext {gsave newpath cltext_ fill grestore} def
+/crtext {gsave newpath crtext_ fill grestore} def
+
+/ubtext {gsave newpath ubtext_ fill grestore} def
+/uctext {gsave newpath uctext_ fill grestore} def
+/ultext {gsave newpath ultext_ fill grestore} def
+/urtext {gsave newpath urtext_ fill grestore} def
+
+
-%% syntaxe : str x y show_dim --> str x y llx lly wx wy 
-%% attention, doit laisser la pile intacte
@@ -8857 +9094 @@
-/pst-vecteur {
-gsave
+2 dict begin
+   /activationgestioncouleurs false def
+   solidlightOff
-   solidlinewidth setlinewidth
-1
+2
-   1 setlinecap
-   linecolor
-   linestyle
-
+definition cvx exec 
-   dup
-      [linecolor currentrgbcolor] ( ) astr2str (setrgbcolor) append 
-      outputcolors
-   gere_pstricks_opt
+end
-grestore
-} def
-
+%/pst-vect- {} def
+%/pst-vect-2points {vecteur3d} def
-/pst-ligne {
-   newpath
@@ -8967 +9210 @@
-%   /activationgestioncouleurs false def
-   gere_pstricks_opt
+} def
+
+/pst-point {
+gsave
+   fontsize setfontsize
+   setTimes
+   linecolor
+   args definition cvx exec point3d
+   texte args pos (text3d) append cvx exec
+grestore
-} def
-