%% $Id: pst-ellipsoid-doc-exa13.tex 1284 2026-06-08 05:56:52Z 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}(-5,-4)(5,4)
\psset{viewpoint=100 120 60 rtp2xyz,Decran=200,lightsrc=100 90 60 rtp2xyz,solidmemory}
\setEllipsoidVars
\psSolid[object=plan,definition=normalpoint, args={xP 0 zP [nX]},action=none,name=P]
\psSolid[object=ellipsoid,linewidth=0.01,ngrid=36 18,plansepare=P,
         base=0 360 -90 90,name=test,action=none,a=a1,b=b1,c=c1]%
\psSolid[object=plan,definition=normalpoint, args={xP neg 0 zP [SinT neg 0 CosT]},action=none,name=P2]
\psSolid[object=load,load=test1,fillcolor=yellow,plansepare=P2,name=coupe,action=none]%
\psSolid[object=plan,definition=normalpoint,args={xP 0 zP neg [SinT 0 CosT neg]},action=none,name=P3]
\psSolid[object=load,load=coupe1,plansepare=P3,name=coupeII,action=none]
\psSolid[object=plan,definition=normalpoint,args={xP neg 0 zP neg [SinT neg 0 CosT neg]},action=none,name=P4]
\psSolid[object=load,load=coupeII1,plansepare=P4,name=coupeIII,action=none]
%\psSolid[object=load,load=coupeIII1,action=writesolid,file=4sections]
\psSolid[object=load,load=coupeIII1,hollow,rm=0 1 2 3 ]
\end{pspicture}
\end{document}
\end{externalDocument}