[pstricks] pst-solides3d

[Poul Riis]

Thank you so much!

And finally, how can I suppress drawing the three points? (I tried
show=none, but that doesn't work)


Poul Riis


Graphics with PSTricks <pstricks at tug.org> writes:
>\documentclass{article}
>\usepackage[x11names]{xcolor}
>\usepackage{pst-solides3d}
>
>\begin{document}
>\psset{unit=5mm}
>\begin{pspicture}[solidmemory](-10,-15)(10,15)
>\pstVerb{/aa 6 def /bb 10 def /cc 4 def /philaag 20 def /cosphi philaag 
>cos def /sinphi philaag
>	sin def /Mlaagx cosphi 1 sub aa mul 2 div def /Mlaagz sinphi aa mul 2 
>div cc add def /nlaagx
>	sinphi neg def /nlaagz cosphi def /radius 1 def /Ax Mlaagx def /Ay 
>radius def /Az Mlaagz def
>	/Bx Mlaagx radius cosphi mul add def /By 0 def /Bz Mlaagz radius sinphi 
>mul add def /Cx Mlaagx
>	def /Cy radius neg def /Cz Mlaagz def}
>\psset{viewpoint=100 30 20,Decran=200}
>\psSolid[
>	object=parallelepiped,%
>	a=aa,b=bb,c=cc,
>	hollow,
>	fillcolor=Green3,
>	affinage=0,
>	affinagecoeff=1,
>	incolor=yellow](0,0,cc 2 div)
>\psSolid[object=plan,
>	definition=normalpoint,
>	args={ Mlaagx 0 Mlaagz [sinphi 0 cosphi neg]},
>	fillcolor=Gold3,
>	base=aa neg 2 div aa 2 div bb neg 2 div bb 2 div,showbase,
>	name=myplane]
>\psset{plan=myplane}
>\psProjection[object=point,args=Ax Ay,name=A]
>\psProjection[object=point,args=Bx By,name=B]
>\psProjection[object=point,args=Cx Cy,name=C]
>\psProjection[object=cercle,definition=ABcercle,args=A B C,range=0 360]
>\end{pspicture}
>\end{document}
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://tug.org/pipermail/pstricks/attachments/20190103/46a3e76e/attachment-0003.html>