[pstricks] vecteur in multido

[Herbert Voss]

Am 30.07.2010 16:13, schrieb Zbigniew Nitecki:
> The following code compiles fine:

>> %				\psSolid[object=vecteur,
>> %					linecolor=red,
>> %					definition={[.05 0.3]},
>> %					args=%
>> %					0.529 \rt\space sin mul %
>> %					0.6 0.374 \rt\space cos mul sub %
>> %					0.6 0.374 \rt\space cos mul add),

the last ) leads to an error.

>> %	%
>> %					action=draw**,
>> %				](P)

(P) is not possible here, use 3d coordinates. This worked:

\listfiles
\documentclass[11pt]{article}
\usepackage{pst-solides3d}
\begin{document}

\begin{pspicture}(-0.5,-3.5)(3,3.5)
\psset{lightsrc=50 20 50, viewpoint=15 60 30 rtp2xyz,Decran=50}
\defFunction{gFunct}(u,v){v cos u mul}{v sin u mul}{1 u dup mul sub sqrt}
\psSolid[object=surfaceparametree,
  base=0 1 0 360,
  function=gFunct,
  fillcolor=blue!30,
  ngrid=50,
  intersectiontype=0,
  intersectionplan={[0 1 1 -1] [0 1 1 -1.2] [0 1 1 -1.3] [0 1 1 -1.4]},
  intersectionlinewidth=2 2 2,
  intersectioncolor=(rouge) (rouge) (rouge),
  action=draw**]
\psPoint(0,0.7,0.7){P}
\psdots[dotsize=0.3,linecolor=red](P)
\multido{\rt=0.1+10}{36}{%
  \psPoint(0.529 \rt\space sin mul,
           0.6 0.374 \rt\space cos mul sub,
           0.6 0.374 \rt\space cos mul add){P}
  \psdots[dotsize=0.1](P)
  \psSolid[object=vecteur,
    linecolor=red,
    definition={[.05 0.3]},
    args=0.529 \rt\space sin mul
         0.6 0.374 \rt\space cos mul sub
         0.6 0.374 \rt\space cos mul add,
    action=draw**](0.529 \rt\space sin mul,
                   0.6 0.374 \rt\space cos mul sub,
                   0.6 0.374 \rt\space cos mul add)%
  }
\end{pspicture}
\end{document}


Herbert
-------------- next part --------------
A non-text attachment was scrubbed...
Name: x.png
Type: image/png
Size: 60958 bytes
Desc: not available
URL: <http://tug.org/pipermail/pstricks/attachments/20100730/01649d3c/attachment-0001.png>