%%
%% The LaTeX Companion, 3ed
%%
%% Example 8-3-10 on page I-608 in "New commands".
%%
%% Copyright (C) 2022 Frank Mittelbach
%%
%% It may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3c
%% of this license or (at your option) any later version.
%%
%% See https://www.latex-project.org/lppl.txt for details.
%%

\documentclass{tlc3exa}
\pagestyle{empty}
\setcounter{page}{6}
\setlength\textwidth{111.0pt}

%StartShownPreambleCommands
\usepackage{xcolor,pict2e} \setlength\unitlength{1.5pt}
%StopShownPreambleCommands

\begin{document}
\begin{picture}(200,120)
 \put(0,0){\arc[90,360]{30}} \polyline(0,30)(0,0)(30,0)
\color{blue}
 \put(2,2){\arc*[0,90]{30}}  \put(0,0){\arc[-2,92]{34}}
 \put(0,0){\arc[-5,95]{36}}  \put(0,0){\arc[-9,99]{38}}
\linethickness{3pt}
 \put(0,0){\arc[90,360]{15}} \put(0,0){\circle*{15}}
\end{picture}
\end{document}