# [pstricks] vecteur in multido

Zbigniew Nitecki zbigniew.nitecki at tufts.edu
Fri Jul 30 17:28:59 CEST 2010

OK, this means I can't use \psPoint to calculate a varying basepoint for the vector.
But I want to use a multido to draw the vector(s) at many points.  Is the only way to do this
to explicitly write the formula for the point in terms of the parameters of \multido everywhere
the point appears?
Can \psPoint be replaced by a defFunction?

On a related note, how does one use defFunction (or another command)
to define a real-valued function, and then use its output in calculating
coordinates of points or components of vectors in pst3d-solides?

Zbigniew Nitecki
Department of Mathematics
Tufts University
Medford, MA 02155

telephones:
Office    (617)627-3843
Dept.    (617)627-3234
Dept. fax    (617)627-3966
http://www.tufts.edu/~znitecki/

On Jul 30, 2010, at 11:20, Herbert Voss wrote:

> 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
> <x.png>_______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
> archive: http://www.tug.org/pipermail/pstricks/

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20100730/7923ae3d/attachment.html>