%%
%% The LaTeX Companion, 3ed
%%
%% Example 8-3-3 on page I-604 in "Extended or changed 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{159.0pt}

%StartShownPreambleCommands
\usepackage{pict2e}
%StopShownPreambleCommands

\begin{document}
\begin{picture}(100,100)
 \put(0,100){\vector(1,0){102.5}}
 \put(0,100){\line(966,-259){100}} \linethickness{1pt}
 \put(0,100){\vector(866,-500){100}}
 \put(0,100){\line(1,-1){100}}     \linethickness{2pt}
 \put(0,100){\vector(500,-866){58}}
 \put(0,100){\line(259,-966){27}}  \linethickness{3pt}
 \put(0,100){\vector(0,-1){100}}
\end{picture}
\end{document}