%%
%% The LaTeX Companion, 3ed
%%
%% Example 8-2-12 on page I-593 in "rotating --- Revisited".
%%
%% 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{207.0pt}
%StartShownPreambleCommands
\usepackage{bxeepic,graphicx}
\usepackage{array}
%StopShownPreambleCommands

\begin{document}
  % this is a poor man's reimplementation of pspicture's \Vector command
  % it is only enough to make the TLC code work that used this package in
  % the previous edition
\def\Vector(#1,#2){%
  \ifdim #1pt=0pt
    \ifdim #2pt <0pt
    \vector(0,-1){-#2}%
    \else
    \vector(0,1){#2}%
    \fi
  \else
    \ifdim #1pt <0pt
      \vector(#1,#2){-#1}%
    \else
      \vector(#1,#2){#1}%
    \fi
  \fi
}
\small
\setlength{\unitlength}{0.8mm}         %FMi was 1mm
       \begin{picture}(100,100)
%\graphpaper[5](0,0)(100,100)
       \thicklines
        \put(20,10){\framebox(50,80){}}
%%    label points in bounding box
        \put(20,10){\makebox(-1,-1)[tr]{\texttt{[lb]}}}
        \put(20,35){\makebox(-1,-1)[tr]{\texttt{[lB]}}}
        \put(20,35){\makebox(0,0){{\Large$\bullet$}}}
        \put(20,51){\makebox(-1,+2)[br]{\texttt{[lc]} or \texttt{[l]}}}
        \put(20,91){\makebox(-1,+2)[br]{\texttt{[lt]}}}
        \put(45,10){\makebox(0,-1)[tc]{\texttt{[cb]} or \texttt{[b]}}}
        \put(45,35){\makebox(0,-1)[tl]{\texttt{[cB]} or \texttt{[B]}}}
        \put(45,51){\makebox(0,+3)[bl]{\texttt{[c]}}}
        \put(45,50){\makebox(0,0){{\Large$\diamond$}}}
        \put(45,91){\makebox(0,+9)[bc]{\texttt{[ct]} or \texttt{[t]}}}
        \put(70,10){\makebox(1,-1)[tl]{\texttt{[rb]}}}
        \put(70,35){\makebox(1,-1)[tl]{\texttt{[rB]}}}
        \put(70,51){\makebox(1,+2)[bl]{\texttt{[rc]} or \texttt{[r]}}}
        \put(70,91){\makebox(1,+2)[bl]{\texttt{[rt]}}}
       \thinlines
%%    centerlines
        \dashline[+30]{3}(20,50)(70,50)
        \dashline[+30]{3}(45,10)(45,90)
%%    baseline
        \dottedline{1}(20,35)(85,35)
%%    material for vertical dimensions
        \dottedline{1}(70,10)(92,10) % bottom extension to right
        \dottedline{1}(70,90)(92,90) % top    extension to right
        \put(79,60){\Vector(0,-25)}
        \put(79,65){\Vector(0,25)}
        \put(79,62.5){\makebox(0,0){\texttt{height}}}
        \put(79,20){\Vector(0,-10)}
        \put(79,25){\Vector(0,10)}
        \put(79,22.5){\makebox(0,0){\texttt{depth}}}
        \put(91,44){\Vector(0,-34)}
        \put(91,48){\Vector(0,42)}
        \put(91,46){\makebox(0,0){\texttt{ totalheight}}}
%%    material for horizontal dimension
        \dottedline{1}(20,10)(20,2)
        \dottedline{1}(70,10)(70,2)
        \put(35,4){\Vector(-15,0)}
        \put(55,4){\Vector(15,0)}
        \put(45,4){\makebox(0,0){\texttt{width}}}
%%    material for labeling center and reference points
        \put(52.5,46){\Vector(-6,3.5)}
        \put(52.5,45){\makebox(0,0)[tc]{\shortstack{center\\point}}}
        \put(10,40){\Vector(9,-4)}
        \put(10,40){\makebox(0,0)[bc]{\shortstack{reference\\point}}}
%%    material for labels of axes and baseline
        \put(32.5,60){\Vector(5,-9)}
        \put(32.5,65){\Vector(12.,9)}
        \put(32.5,61){\makebox(0,0)[bc]{centerline}}
        \put(32.5,25){\Vector(5,9)}
        \put(32.5,24){\makebox(0,0)[tc]{baseline}}
       \end{picture}
\end{document}