<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#ffffff">
Dear Manuel!<br>
<br>
Thanks! That is exactly what I wanted to have!<br>
<br>
"It ist more complicated" is a kind of understatement. I could have
tried years without success. <br>
<br>
Thank You!<br>
<br>
Markus<br>
<br>
<br>
Am 27.02.2011 05:57, schrieb Manuel Luque:
<blockquote
cite="mid:8CDA4520A737112-2134-1F38F@webmail-m146.sysops.aol.com"
type="cite"><font color="black" face="Arial, Helvetica,
sans-serif" size="2"><font size="2"><font face="Arial,
Helvetica, sans-serif">Dear Markus,<br>
<br>
</font></font>Sorry. Second try. I'm not sure I understood. It
is more complicated. Is that you want this?<font color="black"
face="Arial, Helvetica, sans-serif" size="2">
<div> <br>
</div>
<div> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
<br>
\documentclass{article}<br>
\usepackage{pst-solides3d}<br>
\begin{document}<br>
<br>
\begin{center}<br>
\psset{lightsrc=viewpoint,viewpoint=50 70 25
rtp2xyz,Decran=50}<br>
\begin{pspicture}(-5,-3)(6,6)<br>
\psSolid[object=grille,base=-4 4 -4 4,action=draw]%<br>
\pstVerb{<br>
/nE 15 def %% nb d’etages<br>
/nM 18 def %% diviseur de 180, nb de meridiens<br>
/Zmax 4 def %% hauteur 0<z<4<br>
/sommets [<br>
0 1 nE {%<br>
/zP exch def % z= h/a*k<br>
[ % nombre de sommets sur un étage<br>
0 1 nM {<br>
/iM exch def<br>
/radius 4 Zmax nE div zP mul sub sqrt 2 mul def<br>
[180 nM idiv iM mul 180 add cos radius mul<br>
180 nM idiv iM mul 180 add sin radius mul<br>
Zmax nE div zP mul<br>
]<br>
} for<br>
]<br>
}for<br>
] def<br>
/NbreEtages sommets length def<br>
/NombreSommetsEtage sommets 0 get length def<br>
/tableau_des_sommets [<br>
0 1 NbreEtages 2 sub { /i exch def<br>
0 1 NombreSommetsEtage 2 sub {/k exch def<br>
sommets i get k get aload pop<br>
sommets i get k 1 add get aload pop<br>
sommets i 1 add get k 1 add get aload pop<br>
sommets i 1 add get k get aload pop<br>
}for<br>
}for<br>
] def<br>
/NbrePoints tableau_des_sommets length 3 div cvi def<br>
/Faces {<br>
0 4 NbrePoints 4 sub {/N exch def<br>
[ N<br>
N 1 add<br>
N 2 add<br>
N 3 add<br>
]<br>
} for<br>
} def<br>
/Sommets {tableau_des_sommets aload pop} def<br>
}%<br>
\psSolid[object=new,fillcolor=red!50,incolor=yellow,<br>
hollow,<br>
sommets=Sommets,<br>
faces={Faces}]%<br>
\defFunction[algebraic]{parabel}(t){t}{0}{-1/4*t^2+4}<br>
\psSolid[object=courbe,<br>
function=parabel,range=0 4,<br>
r=0,linecolor=red,<br>
linewidth=2pt]%<br>
\gridIIID[Zmin=0,Zmax=4,spotX=r](-4,4)(-4,4)<br>
\end{pspicture}<br>
\end{center}<br>
\end{document}<br>
<br>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
</div>
<div> <br>
</div>
<div> Best regards,<br>
<br>
M.L.<br>
</div>
<div style="font-family: arial,helvetica; font-size: 10pt;
color: black;"><br>
<!-- end of AOLMsgPart_4_0531ea1c-fd8e-4676-9012-5173eaca174b -->
</div>
</font></font>
<pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
_______________________________________________
PSTricks mailing list
<a class="moz-txt-link-abbreviated" href="mailto:PSTricks@tug.org">PSTricks@tug.org</a>
<a class="moz-txt-link-freetext" href="http://tug.org/mailman/listinfo/pstricks">http://tug.org/mailman/listinfo/pstricks</a>
archive: <a class="moz-txt-link-freetext" href="http://www.tug.org/pipermail/pstricks/">http://www.tug.org/pipermail/pstricks/</a></pre>
</blockquote>
</body>
</html>