Les cyclides de Dupin avec pst-solides3d (2)

 Pour obtenir les images :

\documentclass{article}
\usepackage[paperwidth=12cm,paperheight=10cm,hmargin={0cm,0cm},vmargin={0cm,0cm},dvips]{geometry}
\usepackage{pst-cyclides,multido}
\title{Les cyclides de Dupin avec pst-solides3d (1)}
\date{2 août 2016}
\author{manuel.luque27@gmail.com}
\pagestyle{empty}
\begin{document}
\begin{center}
\def\nFrames{72}%
\newpsstyle{demi-Cyclide}{base=0 2 pi mul 0 1 pi mul,
ngrid=60 36,action=none,fillcolor=yellow!20,incolor=white}
\multido{\i=0+-5}{\nFrames}{
\begin{pspicture}(-7,-5)(5,5)
\psframe[fillstyle=solid,fillcolor=cyan!20](-7,-5)(5,5)
\psset{viewpoint=100 10 50 rtp2xyz,Decran=120,lightsrc=viewpoint}
\psCyclide[OnlyCyclide,
styleCyclide=demi-Cyclide,
HPrincipalCircles,linewidth=0.01,
Ellipse=false,InnerSphere,
iS=\i,linewidth=0.01,lightintensity=5]
\end{pspicture}\newpage}
\end{center}
\end{document}

L'animation est aussi réalisée avec le package animate, le fichier .tex et pdf sont inclus dans l'archive (voir les messages précédents).