お世話になります．
球と平面との切断面の塗りつぶしをしようと
２つの方法でやりました．

zahyou環境の方はベン図の共通部分で行っているやり方をすればよいと思うのですが，
Zahyou環境の方はもう少しうまくする方法はありますか？

宜しく御願いします．

-------------
\documentclass{jarticle}
\usepackage{emathP}
\begin{document}%

\begin{zahyou*}[ul=20mm](-2,2)(-2,2)
\rtenretu*{Cl(1,70)}%
\vecXY\Cl\x\yii%
\def\yi{-0.1}
\def\Ce{(0,0.5)}
\tenretu*{A(-2,\yi);B(1.5,\yi);C(2,\yii);D(-1.5,\yii);Dr(-\x,\yii)}
\Drawline{\Dr\D\A\B\C\Cl}
\Hasen{\Dr\Cl}
\En\O{1}
\Put\Ce{\Daenko**{0.85}{.2}{-180}{0}}
\Put\Ce{\Daenko**{0.85}{.25}{0}{180}}
\Put\Ce{\Daenko{0.85}{.2}{-180}{0}}
\Put\Ce{\Daenko<hasen=[.5]>{0.85}{.25}{0}{180}}
\end{zahyou*}

\begin{Zahyou*}[ul=20mm]%,Ex={r(1,0)},Ey={r(.4,-90)},Ez={r(.25,90)}]%
(-1.5,1.5)(-1.5,1.5)(-1.5,1.5)
\def\z{0.6}
\iiiBGurafu{0}{cos(T)}{sin(T)}{0}{2*$pi}
\iiiBGurafu{0.8*cos(T)}{0.8*sin(T)}{\z}{-$pi/2}{$pi/2}
\iiiBGurafu(.12)(.04){0.8*cos(T)}{0.8*sin(T)}{0.6}{$pi/2}{-$pi/2}
\iiitenretu*{A(\Xmax,\Ymin,\z);B(\Xmin,\Ymin,\z);C(\Xmin,\Ymax,\z);D(\Xmax,\Ymax,\z)}
\iiiDrawline{\A\B\C\D\A}
\iiiBKinziOresen{0.8*cos(T)}{0.8*sin(T)}{\z}{0}{2*$pi}{0.05}\oresen
\iiiNuritubusi\oresen%
\end{Zahyou*}
\end{document}

▼関連発言
│
└◆6994:球と平面の切断面 [genio] 01/22 14:30
　└◆7001:Re:球と平面の切断面 [田中徹] 01/22 23:06
　　└◆7002:Re[2]:球と平面の切断面 [genio] 01/23 12:18<-last