<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<font face="Myriad Pro">Dear Zbigniew,<br>
<br>
within \codejps you cannot use the PSTricks commands -- you need to use
the codejps commands.<br>
</font><br>
<blockquote cite="mid:0EEF5132-43A8-4262-8E2F-4CED834BBEC1@tufts.edu"
type="cite"><br>
<div>
<div>\codejps{</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>/Band{</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>\psSolid[object=surfaceparametree,
linewidth=0.5\pslinewidth,</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>base=-0.4
0.4 0 pi, fillcolor=lightgray!30, incolor=white,</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>function=mobius,</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>ngrid=.05]</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>}
def</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span></div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>/Field{</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>\multido{\rv=-0.35+0.35}{10}{%</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>\psSolid[object=vecteur,</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>linecolor=lightgray,</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>args=
\rv\space Sin \rv\space 2 mul Cos neg</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>\rv\space
Sin \rv\space 2 mul Sin neg</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>\rv\space
Cos </div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>](\rv\space
2 mul Cos 2 mul, \rv\space 2 mul Sin 2 mul, 0)</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>}</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>}
def</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>Band
Field solidfuz</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>drawsolid**}</div>
<div><span class="Apple-tab-span" style="white-space: pre;"> </span>\end{pspicture}</div>
</div>
</blockquote>
<font face="Myriad Pro">So a multido will not work like you have set it.<br>
<br>
There is another _non-codejps_ way to fusion some objects -- see the
syntax of the following code:<br>
<br>
\psset{lightsrc=50 -50 50,viewpoint=40 16 32 rtp2xyz,Decran=40}<br>
\psset{unit=.6}<br>
\begin{pspicture}(-6,-5)(6,7)<br>
\psset{solidmemory}<br>
\psSolid[object=cylindre,h=6,fillcolor=blue,<br>
r=1.5,<br>
ngrid=4 16,<br>
action=none,%otherwise it is drawn as well nonfusioned<br>
name=A1,<br>
](0,0,-4)<br>
\psSolid[object=anneau,h=6,fillcolor=red!50,<br>
R=4,r=3,h=1,<br>
action=none,</font><font face="Myriad Pro">%otherwise it is drawn
as well nonfusioned</font><br>
<font face="Myriad Pro"> name=B1,<br>
](0,0,-1)<br>
\psSolid[object=fusion,%here you fusion the two objects<br>
action=draw**,<br>
base=A1 B1,<br>
](0,0,0)<br>
\composeSolid<br>
\end{pspicture}<br>
<br>
<br>
Your problem is quite complex to realize, due to a FUSION with multido
-- you need unique names for each of the vectors which could be handled
with a natural counter etc. and then put the fusion object within
another multido environment ... These my ideas, however i failed with
that. <br>
<br>
Sorry that i couldn't help, however Manuel is very tricky in such
things -- maybe he knows an easy solution.<br>
<br>
Regards,<br>
<br>
Juergen<br>
</font>
</body>
</html>