dimanche 5 avril 2015

Sphère à points

Marquer les facettes d'une sphère ou d'un solide quelconque par un point-disque de surface proportionnelle à celle de la facette.
\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\begin{center}
\begin{pspicture}(-3,-3)(3,3)
\psframe*[linecolor=cyan!20](-3,-3)(3,3)
\psframe[fillstyle=hlines,hatchangle=0](-3,-3)(3,3)
\psset{viewpoint=10 30 30 rtp2xyz,solidmemory, Decran=10,lightsrc=viewpoint}
\psSolid[object=sphere,r=2.5,ngrid=18 36,fillcolor=white,name=sph1,linewidth=0.02]
\codejps{
% projection sur la face n°i
% coordonnées du centre et rayon du cercle
0 1 sph1 solidnombrefaces 1 sub {/i exch def % numero de la face
sph1 i solidgetsommetsface /TAB exch def
TAB 0 get TAB 1 get  TAB 2 get % sommet n°0 x0 y0 z0
TAB 3 get TAB 4 get  TAB 5 get % sommet n°1 x1 y1 z1
distance3d /Rayon exch 3 div def % distance entre les 2 sommets /3
0 360 0 0 Rayon Cercle_ sph1 i projpath
1 0 0 setrgbcolor
fill
} for
}%
\end{pspicture}
\end{center}
\end{document}

Aucun commentaire:

Enregistrer un commentaire