[pstricks] Re : Re : PSTricks Digest, Vol 98, Issue 11

[Manuel Luque]

Another method: 3D vectors, using \ codejps :

\documentclass{article}
\usepackage{pst-solides3d}

\begin{document}
\begin{center}
\psset{lightsrc=viewpoint,viewpoint=50 -10 30 rtp2xyz,Decran=50}
\begin{pspicture}(-5,-4)(6,3)
\codejps{
/a 2 def
/b 1 def
%
/g {
3 dict begin
   /t exch def
   t Cos a mul %% 
   t Sin a mul %% 
   3 t mul Sin b mul %%
end
} def
%
/g' {
3 dict begin
   /t exch def
    t Sin a neg mul %% 
    t Cos a mul %% 
    3 t mul Cos 3 b mul mul %% 
end
} def
% vecteur unitaire de la tangente
/uTangente {g' unitaire3d} def
% tangente unitaire en un point définie par les angles
/Angles {
     ti uTangente /uTangenteZ exch def /uTangenteY exch def /uTangenteX exch def
    /Phi uTangenteZ arcsin def
    /Theta uTangenteY uTangenteX atan def
     } def
1 0 0 setrgbcolor
0 pi 1.8 mul {g} CourbeR3
% stop
%
1 setlinewidth
% la flèche
/Fleche {
0 0.1 0.25 [4 8] newcone
dup
{0 Phi 90 sub neg Theta rotateOpoint3d} solidtransform
 {ti g translatepoint3d} solidtransform
dup (rouge) outputcolors
drawsolid** } def
% les tracés
% point N°1
/ti 0.1 pi mul def
Angles
Fleche
% point N°2
/ti 1.0 pi mul def
Angles
Fleche
% point N°3
/ti 1.8 pi mul def
Angles
Fleche
}
\gridIIID[Zmin=-2,Zmax=2](-2,2)(-2,2)
\end{pspicture}
\end{center}

\end{document}

M.L.

 

 


 

 



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20110321/37e6328d/attachment.html>