[pstricks] pst-solides3d

Poul Riis poul.riis at skolekom.dk
Thu Jan 3 10:55:37 CET 2019

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:
>\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}
>	object=parallelepiped,%
>	a=aa,b=bb,c=cc,
>	hollow,
>	fillcolor=Green3,
>	affinage=0,
>	affinagecoeff=1,
>	incolor=yellow](0,0,cc 2 div)
>	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]
>\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]

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

More information about the PSTricks mailing list