<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Thank you for your code ... now I have some examples! I think I can work!<div><br></div><div>Best regards</div><div><br></div><div>C.<br><br>--- <b>Dom 3/7/11, Manuel Luque <i><mluque5130@aol.com></i></b> ha scritto:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>Da: Manuel Luque <mluque5130@aol.com><br>Oggetto: [pstricks] Re : R: Re : Fwd: PSTricks code -- pst-solides3d<br>A: pstricks@tug.org<br>Data: Domenica 3 luglio 2011, 16:50<br><br><div id="yiv1900754961"><font color="black" size="2" face="Arial, Helvetica, sans-serif"><font color="black" face="Arial, Helvetica, sans-serif" size="2">
<div> I have another method?<br>
<br>
\documentclass{article}<br>
\usepackage{pst-solides3d}<br>
\def\bicone{% generation du bicone<br>
/dZ 0.5 def<br>
/Rayon 3 def % rayon de la base<br>
/Hauteur 3 def % hauteur d'un cone<br>
/THETA Rayon Hauteur atan def<br>
/tanTHETA {Rayon Hauteur div} bind def<br>
/dPHI 10 def<br>
/tableau_des_sommets [<br>
Hauteur neg dZ Hauteur dZ sub{/Z exch def<br>
0 dPHI 360 {/PHI exch def<br>
/r1 Z abs tanTHETA mul def<br>
/r2 Z dZ add abs tanTHETA mul def<br>
r1 PHI cos mul % x0<br>
r1 PHI sin mul % y0<br>
Z % z0<br>
r1 PHI dPHI add cos mul % x1<br>
r1 PHI dPHI add sin mul % y1<br>
Z % z1<br>
r2 PHI dPHI add cos mul % x2<br>
r2 PHI dPHI add sin mul % y2<br>
Z dZ add % z2<br>
r2 PHI cos mul % x3<br>
r2 PHI sin mul % y3<br>
Z dZ add % z3<br>
} for<br>
} for<br>
]<br>
def<br>
/Sommets {tableau_des_sommets aload pop} def<br>
/NbrePoints tableau_des_sommets length 3 div cvi def<br>
/Faces {0 4 NbrePoints 4 sub {<br>
/Ni exch def<br>
[ Ni Ni 1 add Ni 2 add Ni 3 add]<br>
} for<br>
} def<br>
/Faces_internes {0 4 NbrePoints 4 sub {<br>
/Ni exch def<br>
[Ni 3 add Ni 2 add Ni 1 add Ni]<br>
} for<br>
} def<br>
}<br>
\begin{document}<br>
\begin{center}<br>
\psset{unit=0.7}<br>
\psset{lightsrc=viewpoint}<br>
\psset{viewpoint=100 30 20 rtp2xyz,Decran=100}<br>
\begin{pspicture}(-3,-5)(3,5)<br>
\pstVerb{\bicone}%<br>
\psSolid[object=new,sommets=Sommets,faces={Faces},<br>
hollow,<br>
incolor=yellow!25,<br>
intersectiontype=0,<br>
intersectionlinewidth=2,<br>
intersectioncolor=(rouge),<br>
intersectionplan={[0 0.5 1 1]}]<br>
\axesIIID[linecolor=blue](0,0,3)(8.5,4.5,4)<br>
\end{pspicture}<br>
\begin{pspicture}(-5,-5)(5,5)<br>
\pstVerb{\bicone}%<br>
\psset{solidmemory}<br>
\psSolid[object=new,sommets=Sommets,faces={Faces},<br>
hollow,<br>
plansepare={[0 0.5 1 1]},<br>
name=partbicone,<br>
action=none]<br>
\psSolid[object=load,<br>
hollow,rm=0,<br>
incolor=yellow!25,<br>
load=partbicone1,<br>
intersectiontype=0,<br>
intersectionlinewidth=2,<br>
intersectioncolor=(rouge),<br>
intersectionplan={[0 0.5 1 1.01]}]<br>
\psSolid[object=plan,definition=equation,<br>
args={[0 0.5 1 1] 180},<br>
base=-3 3 -3 3,linewidth=0.01,<br>
planmarks,showBase,<br>
action=draw]<br>
\psSolid[object=load,<br>
incolor=yellow!25,<br>
load=partbicone0](0,4,0)<br>
\axesIIID[linecolor=blue](0,0,0)(8.5,4.5,4)<br>
\end{pspicture}<br>
\end{center}<br>
\end{document}<br>
<br>
ML<br>
</div>
<div> <br>
</div>
<div style="clear:both;"></div>
<div> <br>
</div>
<div> <br>
</div>
<div style="font-family:arial, helvetica;font-size:10pt;color:black;">-----E-mail d'origine-----<br>
De : Carlo Alberini <carloalbe1@yahoo.it><br>
A : Graphics with PSTricks <pstricks@tug.org><br>
Envoyé le : Dimanche, 3 Juillet 2011 16:23<br>
Sujet : Re: [pstricks] R: Re : Fwd: PSTricks code -- pst-solides3d<br>
<br>
<div id="yiv1900754961AOLMsgPart_2_04c030bb-40e6-4ede-9215-7535b0d91741">
<table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font:inherit;" valign="top">With this example and the previous one, I have solved my problems! I have now understood the right code.
<div><br>
</div>
<div>Thank you so much</div>
<div><br>
</div>
<div>Best regards</div>
<div><br>
</div>
<div>C.<br>
<br>
--- <b>Dom 3/7/11, Herbert Voss <i><<a rel="nofollow" ymailto="mailto:Herbert.Voss@fu-berlin.de" target="_blank" href="/mc/compose?to=Herbert.Voss@fu-berlin.de">Herbert.Voss@fu-berlin.de</a>></i></b> ha scritto:<br>
<blockquote style="border-left:2px solid rgb(16, 16, 255);margin-left:5px;padding-left:5px;"><br>
Da: Herbert Voss <<a rel="nofollow" ymailto="mailto:Herbert.Voss@fu-berlin.de" target="_blank" href="/mc/compose?to=Herbert.Voss@fu-berlin.de">Herbert.Voss@fu-berlin.de</a>><br>
Oggetto: Re: [pstricks] R: Re : Fwd: PSTricks code -- pst-solides3d<br>
A: "Graphics with PSTricks" <<a rel="nofollow" ymailto="mailto:pstricks@tug.org" target="_blank" href="/mc/compose?to=pstricks@tug.org">pstricks@tug.org</a>><br>
Data: Domenica 3 luglio 2011, 14:02<br>
<br>
<div class="yiv1900754961plainMail">Am 02.07.2011 21:45, schrieb Carlo Alberini:<br>
> Yes, that would be perfect, but I don't know the right PSTricks code for generate the "solidcreux (cone)" that you can find in page 3 in <a rel="nofollow" target="_blank" href="http://melusine.eu.org/syracuse/mluque/solides3d2007/sections/sections-cone/sections-bicone.pdf">http://melusine.eu.org/syracuse/mluque/solides3d2007/sections/sections-cone/sections-bicone.pdf</a>.<br>
> Moreover, if it possible, without generating .dat files (I am not able to generate them, and I don't know how programs could generate them - I use Mac OsX 10.5.8) and without \codejpg. In fact I need the right PSTricks code (\defFuntion, and so on) to generate all the cone sections I need only modifying the involved functions, like the code you have received in attachment.<br>
> For example I am not able to use the object=load with solids that I create, but only with the predefinite solides; I would like to use this object=load with my own solides.<br>
> On the other hands, if I have the right code to generate the conic sections that you can find in <a rel="nofollow" target="_blank" href="http://melusine.eu.org/syracuse/mluque/solides3d2007/sections/sections-cone/sections-bicone.pdf">http://melusine.eu.org/syracuse/mluque/solides3d2007/sections/sections-cone/sections-bicone.pdf</a> in the style of the draw you can find in this page 3, that would be perfect.<br>
<br>
here is an example for a cone:<br>
<br>
\documentclass{article}<br>
\usepackage{pst-solides3d}<br>
<br>
\begin{document}<br>
<br>
\begin{pspicture}(-5,-6)(8,7)<br>
\psset{viewpoint=50 -40 10 rtp2xyz,Decran=50}<br>
\defFunction{cone}(u,v){u v Cos mul}{u v Sin mul}{u}<br>
\psSolid[object=cone,h=4,r=3,<br>
plansepare={[1 0 0 -1]},<br>
name=ConeA,<br>
ngrid=9 30,<br>
action=none](0,0,-4)<br>
\psSolid[object=cone,h=4,r=3,<br>
plansepare={[1 0 0 -1]},<br>
name=ConeB,<br>
RotY=180,<br>
ngrid=9
30,<br>
action=none](0,0,4)<br>
\psSolid[object=load,load=ConeA1,hue=0.8 0.1]<br>
\psSolid[object=load,load=ConeB1,hue=0.8 0.1,inhue=1 0]<br>
\psSolid[object=load,load=ConeA0,RotZ=90,hue=0.8 0.1](0,6,-1.3)<br>
\psSolid[object=load,load=ConeB0,RotZ=90,hue=0.8 0.1](0,6,-0.5)<br>
\end{pspicture}<br>
\end{document}<br>
<br>
Herbert<br>
</div>
<br>
-----Segue allegato-----<br>
<br>
<div class="yiv1900754961plainMail">_______________________________________________<br>
PSTricks mailing list<br>
<a rel="nofollow">PSTricks@tug.org</a><br>
<a rel="nofollow" target="_blank" href="http://tug.org/mailman/listinfo/pstricks">http://tug.org/mailman/listinfo/pstricks</a><br>
archive: <a rel="nofollow" target="_blank" href="http://www.tug.org/pipermail/pstricks/">http://www.tug.org/pipermail/pstricks/</a></div>
</blockquote></div>
</td></tr></tbody></table>
</div>
<div id="yiv1900754961AOLMsgPart_3_04c030bb-40e6-4ede-9215-7535b0d91741" style="margin:0px;font-family:Tahoma, Verdana, Arial, Sans-Serif;font-size:12px;color:#000;background-color:#fff;">
<pre style="font-size:9pt;"><tt>_______________________________________________
PSTricks mailing list
<a rel="nofollow" ymailto="mailto:PSTricks@tug.org" target="_blank" href="/mc/compose?to=PSTricks@tug.org">PSTricks@tug.org</a>
<a rel="nofollow" target="_blank" href="http://tug.org/mailman/listinfo/pstricks">http://tug.org/mailman/listinfo/pstricks</a>
archive: <a rel="nofollow" target="_blank" href="http://www.tug.org/pipermail/pstricks/">http://www.tug.org/pipermail/pstricks/</a>
</tt></pre>
</div>
</div>
</font></font></div><br>-----Segue allegato-----<br><br><div class="plainMail">_______________________________________________<br>PSTricks mailing list<br><a ymailto="mailto:PSTricks@tug.org" href="/mc/compose?to=PSTricks@tug.org">PSTricks@tug.org</a><br><a href="http://tug.org/mailman/listinfo/pstricks" target="_blank">http://tug.org/mailman/listinfo/pstricks</a><br>archive: <a href="http://www.tug.org/pipermail/pstricks/" target="_blank">http://www.tug.org/pipermail/pstricks/</a></div></blockquote></div></td></tr></table>