[pstricks] Solides3d: strange result to fusion

[Akos Valentinyi]

On 7/18/09, robert.fischer10 at arcor.de <robert.fischer10 at arcor.de> wrote:
> Hello,
>
> below you see an example handling the fusion of two hollow cones.
> One cone is completely located within the other cone. The fused
> object looks a little bit strange in case of having
> ngrid = a b with a not equal 1. The result is the same for
> a) conecreux without using hollow
> b) cone with using hollow
>
> Description of Attachments:
> 1) Cones01: ngrid = 1 18
> -> looks perfect
> 2) Cones02: ngrid = 2 18
> -> looks as if there is a hole in the outer cone. You see the black inner
> cone (please open attachment)
> 3) Cones03: ngrid = 4 18
> -> same as 2), but only problems with bottom line 1 and 2 (please see
> attachment)
> 4) Cones04: ngrid = 20 18
> -> same as 3). Seems to be as if only the first two lines are influenced.
>
> Code
> \documentclass{minimal}
> \usepackage{pst-pdf}
> \usepackage{pstricks}
> \usepackage{pst-solides3d}
>
> \pagestyle{empty}
>
> \begin{document}
> 		\psset{viewpoint=15 50
> 30,lightsrc=viewpoint,lightintensity=1.2,Decran=140}
> 		\begin{pspicture}(-3,0)(3,7)
> 			%Grid
> 			\psgrid[gridcolor=gray,subgridcolor=lightgray]
> 			%
> 			%Local Postscript Definitions RadtoDeg
> 			\pstVerb{
> 				/MyHS{2}def
> 				/MyRS{0.5}def
> 				/MyHP{MyHS 0.5 mul}def
> 				/MyRP{MyRS 1.5 mul}def
> 				/MyHN{MyHS 1.2 mul}def
> 				/MyAlpha{MyRS MyHS  atan neg}def
> 				/MyBeta{MyAlpha MyRP MyHP atan add}def
> 				/MyRN{MyHN MyBeta tan mul}def
> 			}
> 			%Enable Memory
> 			\psset{solidmemory}%solidmemory=true
> 			%
> 			%Nutationskegel
> 			\psSolid[object=conecreux,
> 				h=MyHN,r=MyRN,ngrid=2 18,
> 				RotX=180,
> 				fillcolor=gray,incolor=gray!50,
> 				action=none,name=MyConeN](0,0,MyHN)
> 			%
> 			%Spurkegel
> 			\psSolid[object=conecreux,
> 				h=MyHS,r=MyRS,ngrid=2 18,
> 				RotX=180,
> 				fillcolor=black!90,incolor=gray,
> 				action=none,name=MyConeS](0,0,MyHS)
> 			
> 			%Fusion
> 			\psSolid[object=fusion,
> 				base=MyConeS MyConeN,
> 				grid=false,opacity=0.6]
> 				\composeSolid
> 				
> 		\end{pspicture}
> \end{document}
>
> Have a nice weekend,
> Robert.

-- 
Sent from my mobile device