%% $Id: pst-ellipsoid-doc-exa10.tex 1283 2026-06-07 17:38:45Z herbert $
\begin{externalDocument}[
  compiler=lualatex, runs=1, crop, cleanup,
  %xindex, xindexOptions={-l DE --config AU},
  %mpwidth=0.6\linewidth, 
%  force,
  usefancyvrb=false,
  docType=latex,
]{voss}
\DocumentMetadata{}
\documentclass{article}
\pagestyle{empty}
\usepackage{libertinus}
%StartVisiblePreamble
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-ellipsoid}
%StopVisiblePreamble
\begin{document}
\begin{pspicture}(-7,-5)(7,5)
\setEllipsoidVars
\psset{viewpoint=150 30 30 rtp2xyz,Decran=400,solidmemory,incolor=cyan!20,lightsrc=100 30 30 rtp2xyz}
\psSolid[object=plan,definition=normalpoint,args={xP 0 zP [nX]},action=none,name=P]
\psSolid[object=ellipsoid,a=a1,b=b1,c=c1,ngrid=72 36,base=0 360 -90 90,
         plansepare=P,name=test,action=none,fillcolor=coquille,linewidth=0.01]
\psSolid[object=load,load=test1,action=none,hollow,rm=0,fillcolor=yellow!50]%
\psSolid[object=cylindre,r=radiusCylindre,h=0.75,RotY=SinT CosT atan,ngrid=3 36,hollow,fillcolor=coquille,name=cylinder,action=none](xP,0,zP)
\psSolid[object=fusion,base=test1 cylinder,linewidth=0.01,intersectiontype=0,
   intersectionplan=P,intersectionlinewidth=2,intersectioncolor=(rouge)]
\axesIIID(3,2,1)(4,3,2)
\psSolid[object=plan,definition=normalpoint,args={xP 0 zP [nX]},action=none,name=P]
\end{pspicture}
\end{document}
\end{externalDocument}