pomme_02.tex

\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
 
\begin{document}
\pagestyle{empty}
 
\psset{lightsrc=50 10 30}
\psset{viewpoint=50 -10 30 rtp2xyz,Decran=50}
\begin{pspicture*}(-8,-8)(8,8)
\psframe*[linecolor=cyan!50](-8,-8)(8,8)
\psSolid[object=grille,base=-8 8 -8 8,action=draw**,ngrid=4,linecolor=red](0,0,-3.9)
\psSolid[object=new,grid,hue=0 0.2,
    sommets= (sommets_pomme.dat) run,
    faces={(faces_pomme.dat) run}]%
\psSolid[object=new,grid,fillcolor=red!75!green!50,
    sommets= (sommets_pomme.dat) run,
    faces={(faces_queue.dat) run}]%
\end{pspicture*}
 
\end{document}