Changeset 73

Show
Ignore:
Timestamp:
06/28/08 13:15:43 (5 months ago)
Author:
jpv
Message:

Modif de \psProjection (ML & HV)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/pst-solides3d.tex

    r72 r73  
    1919\ifx\PSTnodesLoaded\endinput\else\input pst-node \fi 
    2020\ifx\MultidoLoaded\endinput\else\input multido.tex \fi 
    21 % JPV & ML & AS 
    22 \def\fileversion{3.32} 
    23 \def\filedate{2008/06/27} 
     21% JPV & ML & AS & HV 
     22\def\fileversion{3.33} 
     23\def\filedate{2008/06/28} 
    2424\message{`PSTSOLIDESIIID' v\fileversion, \filedate} 
    2525% 
    …… 
    10001000> 
    10011001 
     1002\makeatletter 
     1003  %% la macro de projection 
     1004\def\psProjection{\def\pst@par{}\pst@object{psProjection}} 
     1005\def\psProjection@i{\@ifnextchar({\psProjection@ii}{\psProjection@ii(0,0)}} 
     1006\def\psProjection@ii(#1){\expandafter\psProjection@iii#1,,\@nil} 
     1007\def\psProjection@iii#1,#2,#3\@nil{{% 
     1008  \def\pst@tempA{#2}% 
     1009  \ifPst@solidmemory\use@par\else\begin@ClosedObj\fi 
     1010  \addto@pscode{% 
     1011  \tx@optionssolides 
     1012  SolidesDict begin 
     1013  \tx@psProjection 
     1014  /CX 0 def 
     1015  /CY 0 def 
     1016  /CZ 0 def 
     1017  #1 /xorigine exch def 
     1018  \ifx\pst@tempA\@empty  
     1019      /yorigine xorigine def 
     1020      /xorigine exch def\space \else 
     1021  \pst@tempA\space /yorigine exch def 
     1022  \fi 
     1023  % nature du solide : texte, chemin, courbe 
     1024  proj-\psk@solides@object\space 
     1025  end 
     1026  }%<- fin du code ps 
     1027  \psk@fillstyle 
     1028  \pst@stroke 
     1029  \ifPst@solidmemory\else\end@ClosedObj\fi 
     1030}} 
     1031\makeatother 
     1032 
    10021033%% 27/06/08 %% %% la macro de projection 
    10031034%% 27/06/08 %% \def\psProjection{\def\pst@par{}\pst@object{psProjection}} 
    …… 
    10311062%% 27/06/08 %%   }} 
    10321063 
    1033 \makeatletter 
    1034     %% la macro de projection 
    1035 \def\psProjection{\def\pst@par{}\pst@object{psProjection}} 
    1036 \def\psProjection@i{\@ifnextchar({\psProjection@ii}{\psProjection@ii(0.,0.)}} 
    1037 \def\psProjection@ii(#1,#2){{% 
    1038      \def\@tempb{#2}% 
    1039       \use@par 
    1040 \ifPst@solidmemory 
    1041 \else 
    1042   \begin@ClosedObj 
    1043 \fi 
    1044       \addto@pscode{% 
    1045          \tx@optionssolides 
    1046          SolidesDict begin 
    1047          \tx@psProjection 
    1048          /CX 0 def 
    1049          /CY 0 def 
    1050          /CZ 0 def 
    1051          \ifx\@tempb\@empty 
    1052          #1 /yorigine exch def /xorigine exch def 
    1053          \else 
    1054          #1 #2 /yorigine exch def /xorigine exch def 
    1055          \fi 
    1056          % nature du solide : texte, chemin, courbe 
    1057          proj-\psk@solides@object\space 
    1058          end 
    1059       }%<- fin du code ps 
    1060          \psk@fillstyle 
    1061          \pst@stroke 
    1062 \ifPst@solidmemory 
    1063 \else 
    1064   \end@ClosedObj 
    1065 \fi 
    1066   }} 
    1067 \makeatother 
     1064%% 28/06/08 %% \makeatletter 
     1065%% 28/06/08 %%     %% la macro de projection 
     1066%% 28/06/08 %% \def\psProjection{\def\pst@par{}\pst@object{psProjection}} 
     1067%% 28/06/08 %% \def\psProjection@i{\@ifnextchar({\psProjection@ii}{\psProjection@ii(0.,0.)}} 
     1068%% 28/06/08 %% \def\psProjection@ii(#1,#2){{% 
     1069%% 28/06/08 %%      \def\@tempb{#2}% 
     1070%% 28/06/08 %%       \use@par 
     1071%% 28/06/08 %% \ifPst@solidmemory 
     1072%% 28/06/08 %% \else 
     1073%% 28/06/08 %%   \begin@ClosedObj 
     1074%% 28/06/08 %% \fi 
     1075%% 28/06/08 %%       \addto@pscode{% 
     1076%% 28/06/08 %%          \tx@optionssolides 
     1077%% 28/06/08 %%          SolidesDict begin 
     1078%% 28/06/08 %%          \tx@psProjection 
     1079%% 28/06/08 %%          /CX 0 def 
     1080%% 28/06/08 %%          /CY 0 def 
     1081%% 28/06/08 %%          /CZ 0 def 
     1082%% 28/06/08 %%          \ifx\@tempb\@empty 
     1083%% 28/06/08 %%          #1 /yorigine exch def /xorigine exch def 
     1084%% 28/06/08 %%          \else 
     1085%% 28/06/08 %%          #1 #2 /yorigine exch def /xorigine exch def 
     1086%% 28/06/08 %%          \fi 
     1087%% 28/06/08 %%          % nature du solide : texte, chemin, courbe 
     1088%% 28/06/08 %%          proj-\psk@solides@object\space 
     1089%% 28/06/08 %%          end 
     1090%% 28/06/08 %%       }%<- fin du code ps 
     1091%% 28/06/08 %%          \psk@fillstyle 
     1092%% 28/06/08 %%          \pst@stroke 
     1093%% 28/06/08 %% \ifPst@solidmemory 
     1094%% 28/06/08 %% \else 
     1095%% 28/06/08 %%   \end@ClosedObj 
     1096%% 28/06/08 %% \fi 
     1097%% 28/06/08 %%   }} 
     1098%% 28/06/08 %% \makeatother 
    10681099 
    10691100%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%