<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Dear Herbert, that's ok.</span></div><div><span><br></span></div><div><span>Thank you for all your suggestions.</span></div><div><span><br></span></div><div><span>C</span></div><div><br></div> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">Da:</span></b> Herbert Voss <Herbert.Voss@fu-berlin.de><br> <b><span style="font-weight: bold;">A:</span></b> pstricks@tug.org <br> <b><span style="font-weight: bold;">Inviato:</span></b> Mercoledì 11 Gennaio 2012 12:27<br> <b><span style="font-weight: bold;">Oggetto:</span></b> Re: [pstricks] Re : problem with pst-3d: rm=0 1<br> </font> <br>Am 11.01.2012 10:58,
schrieb Manuel Luque:<br><br>> \documentclass[11pt]{article}% run with xelatex or latex->dvips->ps2pdf<br>> \usepackage{pst-solides3d}<br>> \usepackage[a4paper]{geometry}<br>> <br>> \makeatletter<br>> \def\lightsource{<br>> \pstVerb{\pst@solides@viewpoint<br>> /PhI exch def /ThetA exch def /Dist exch def<br>> /Lx Dist ThetA cos mul PhI cos 1.0 mul mul def<br>> /Ly Dist ThetA sin mul PhI cos mul def<br>> /Lz Dist PhI sin mul def}%<br>> \psset{lightsrc=Lx Ly Lz}<br>> }<br>> \makeatother<br><br>I think we do not need the conversion for the lightsrc. It can be<br>done with rtp2xyz for the viewpoint or lightsrc=viewpoint rtp2xyz:<br><br>\documentclass[11pt]{article}<br>\usepackage{pst-solides3d}<br>\pagestyle{empty}<br>\begin{document}<br><br>\begin{center}<br>\psset{unit=1.0}<br>\begin{pspicture}(-5,-6)(8,6)<br>\pstVerb{/theta 3 5 atan def<br> /tantheta 3 5 div def<br>
/rayon 3 tantheta mul def}%<br>\psset{viewpoint=50 -30 20 rtp2xyz,Decran=40,lightsrc=viewpoint}<br>\psframe[fillstyle=solid,fillcolor=blue!10](-4.5,-6)(8.5,6)%<br>\psSolid[object=grille,base=-4 5 -4 9,linecolor={[rgb]{0.72 0.72 0.5}}](0,0,-5)<br>\defFunction{cone}(u,v){u v Cos mul}{u v Sin mul}{u}<br>\psSolid[object=cone,h=5,r=3,plansepare={[1 0 0 0]},name=ConeA,ngrid=18 60,action=none,rm=0 579](0,0,-5)<br>\psSolid[object=cone,h=5,r=3,plansepare={[1 0 0 0]},name=ConeB,RotY=180,ngrid=18 60,action=none,rm=0 579](0,0,5)<br>\psSolid[object=load,load=ConeA1,grid,fillcolor={[rgb]{0 .5 0}},<br> incolor={[cmyk]{.1 .1 1 .1}},hollow,opacity=0.6]<br>\psSolid[object=load,load=ConeB1,grid,fillcolor={[rgb]{0 .5 0}},<br> incolor={[cmyk]{.1 .1 1 .1}},hollow,opacity=0.6]<br>\psSolid[object=load,load=ConeA0,RotZ=90,grid,fillcolor={[rgb]{0 .5 0}},<br> incolor={[cmyk]{.1 .1 1
.1}},hollow,opacity=0.6](0,6,0)<br>\psSolid[object=load,load=ConeB0,RotZ=90,grid,fillcolor={[rgb]{0 .5 0}},<br> incolor={[cmyk]{.1 .1 1 .1}},hollow,opacity=0.6](0,6,0)<br>\psSolid[object=plan,action=draw,<br> definition=equation,<br> args={[1 0 0 0] 90},<br> base=-3 3 -5 6.5,planmarks,showBase](0,0,0)<br>\axesIIID[linecolor=blue](0,0,0)(5.75,4,6)<br>\end{pspicture}<br>\end{center}<br>\end{document}<br><br>Herbert<br>_______________________________________________<br>PSTricks mailing list<br><a ymailto="mailto:PSTricks@tug.org" href="mailto: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><br><br><br> </div> </div> </div></body></html>