奥村先生の掲示板 TeX Q&A の
    36510: 2005-06-21 01:34:08 wintpicでの塗りつぶしについて
で，切頭20面体(サッカーボール)を wintpic で描画したい。
という投稿があります。

emath で描画する一例を作ってみました。

% ------------------------------------------
\documentclass{jarticle}
\usepackage{emathPk}
\usepackage{emathPs}

\begin{document}
\Rdef(1.1,8)\Ex%    x軸正方向の単位ベクトル
\Rdef(.4,155)\Ey% y軸正方向の単位ベクトル
\Rdef(1.1,95)\Ez%   z軸正方向の単位ベクトル
\begin{psZahyou*}[debug,ul=20mm,Ex=\Ex,Ey=\Ey,Ez=\Ez](-1.8,1.8)(-1.7,1.7)(-2,2)
  \def\settouhi{.33333}
  \def\settou#1#2#3#4#5#6{%
    \Sub{1}\settouhi\settouhii
    \edef\stA{\csname A\romannumeral #1\endcsname}%
    \ifnum #2>0\relax
      \iiiBunten\stA{\csname A\romannumeral #2\endcsname}\settouhi\settouhii\stB
    \else
      \edef\stB{\stA}%
    \fi
    \ifnum #3>0\relax
      \iiiBunten\stA{\csname A\romannumeral #3\endcsname}\settouhi\settouhii\stC
    \else
      \edef\stC{\stB}%
    \fi
    \ifnum #4>0\relax
      \iiiBunten\stA{\csname A\romannumeral #4\endcsname}\settouhi\settouhii\stD
    \else
      \edef\stD{\stC}%
    \fi
    \ifnum #5>0\relax
      \iiiBunten\stA{\csname A\romannumeral #5\endcsname}\settouhi\settouhii\stE
    \else
      \edef\stE{\stD}%
    \fi
    \ifnum #6>0\relax
      \iiiBunten\stA{\csname A\romannumeral #6\endcsname}\settouhi\settouhii\stF
    \else
      \edef\stF{\stE}%
    \fi
    \iiiNuritubusi[0]{\stA\stB\stC}
    \iiiNuritubusi[0]{\stA\stC\stD}
    \iiiNuritubusi[0]{\stA\stD\stE}
    \iiiNuritubusi[0]{\stA\stE\stF}
    \iiiNuritubusi[0]{\stA\stF\stB}
    \begin{EMpscolor}{white}
      \setlinewidth{16}
      \iiiDrawline{\stB\stA\stC}
      \iiiDrawline{\stD\stA\stE}
      \iiiDrawline{\stF\stA\stB}
    \end{EMpscolor}
    \begin{EMpscolor}{royalblue}
      \iiiNuritubusi[1]{\stB\stC\stC\stD\stE\stF}
    \end{EMpscolor}
    \iiiTakakkei{\stB\stC\stC\stD\stE\stF}
  }%
%
  \calcval{sqrt(5+sqrt(5))/(sqrt(2))}\R
  \calcval{1/(sin($pi/5))}\r
  \calcval{sqrt((\R)*(\R)-(\r)*(\r))}\h
  \iiitenretu*{Ai(0,0,\R);Aii(\r,0,\h)}
  \iiitenretu*{Axii(0,0,-\R);Avii(-\r,0,-\h)}
  \zRotvec\Aii{72}\Aiii
  \zRotvec\Aiii{72}\Aiv
  \zRotvec\Aiv{72}\Av
  \zRotvec\Av{72}\Avi
  \zRotvec\Avii{72}\Aviii
  \zRotvec\Aviii{72}\Aix
  \zRotvec\Aix{72}\Ax
  \zRotvec\Ax{72}\Axi
%
  \setlinejoin{2}
%
  \begin{EMpscolor}{linen}
    \iiiNuritubusi{\Ai\Aiv\Avii\Axii\Aix\Aii}%
  \end{EMpscolor}
%
  \iiiDrawline{\Aiv\Av\Avi\Aii}
  \iiiDrawline{\Avii\Aviii\Aix}
  \iiiDrawlines{\Ai\Aii;\Ai\Aiv;\Ai\Av;\Ai\Avi}
  \iiiDrawlines{\Axii\Avii;\Axii\Aviii;\Axii\Aix}
  \iiiDrawlines{\Aiv\Avii\Av;\Av\Aviii\Avi;\Avi\Aix\Aii}
%
  \settou4157{-11}{-3}
  \settou514786
  \settou615892
  \settou7458{12}{-11}
  \settou857{12}96
  \settou9268{12}{-10}%
  \settou2169{-10}{-3}
  \settou12{-3}456
  \settou{12}789{-10}{-11}
\end{psZahyou*}
\end{document}

▼関連発言
│
└◆3284:サッカーボール [tDB] 06/22 09:27
　├◆3286:解題(1) [tDB] 06/22 14:47
　│└◆3291:Re:解題(1) [田中徹] 06/22 21:01
　│　└◆3292:program.sty [tDB] 06/22 21:34
　├◆3293:サッカーボール（修正版） [tDB] 06/23 11:13
　├◆3294:解題(2) [tDB] 06/23 13:38
　└◆3299:解題(3) [tDB] 06/24 15:52<-last