[pstricks] pst-solides3d

Poul Riis poul.riis at skolekom.dk
Sat Jan 5 23:32:51 CET 2019

Almost perfect - except that some of the circular hole is clipped off when
the radius is larger than 2.5 with the actual parameters. How does that
happen and how can I avoid it?

Poul Riis


	\pstVerb{/aa 10 def /bb 10 def /cc 4 def /philid 30 def /radius 3 def 
/cosphi philid
		cos def /sinphi philid
		sin def /Mlidx cosphi 1 sub aa mul 2 div def /Mlidy 0 def /Mlidz 
sinphi aa mul 2
		div cc add def /nlidx
		sinphi neg def /nlidz cosphi def /Ax Mlidx def /Ay
		radius def /Az Mlidz def
		/Bx Mlidx radius cosphi mul add def /By 0 def /Bz Mlidz radius sinphi
		mul add def /Cx Mlidx
		def /Cy radius neg def /Cz Mlidz def /ex Ax Mlidx sub def /ey Ay Mlidy 
sub def /ez Az Mlidz
		sub def /fx Bx Mlidx sub def /fy By Mlidy sub def /fz Bz Mlidz sub def}
	\psset{viewpoint=100 30 20,Decran=200}
	incolor=yellow](0,0,cc 2 div)
	args={ Mlidx 0 Mlidz [sinphi 0 cosphi neg]},
	base=aa neg 2 div aa 2 div bb neg 2 div bb 2 div,
	\psPoint(aa 0.5 mul,0,0){Tx}
	\psPoint(0,bb 0.5 mul,0){Ty}
	\psPoint(aa 2 div,bb 0.5 mul neg,cc 2 div){Tz}
        range=0 TwoPi,resolution=720,function=Circle]%

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://tug.org/pipermail/pstricks/attachments/20190105/bdd37f23/attachment.html>

More information about the PSTricks mailing list