%% %% This is file `showcharinbox.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% showcharinbox.dtx (with options: `showcharinbox.sty') %% %% ______________________________________ %% Copyright © 2012–2013 Persian TeX Group %% %% License information appended. %% \NeedsTeXFormat{LaTeX2e} \newcommand*{\showcharinbox@date}{2013/04/04} \newcommand*{\showcharinbox@version}{v0.1} \ProvidesPackage{showcharinbox} [\showcharinbox@date\space \showcharinbox@version\space Showing characters inside a box] \newdimen\showcharinbox@charwidth \newdimen\showcharinbox@charheight \newdimen\showcharinbox@chardepth \newbox\showcharinbox@bigdot \newbox\showcharinbox@smalldot \newcommand*{\showcharinbox@hidehrule}[2]{% \kern-#1\hrule height#1 depth#2 \kern-#2 } \newcommand*{\showcharinbox@hidevrule}[2]{\kern-#1{\dimen0=#1 \advance\dimen0 by#2\vrule width\dimen0}\kern-#2 } \newcommand*{\showcharinbox@makeblankbox}[2]{\hbox{\lower\dp0\vbox{\showcharinbox@hidehrule{#1}{#2}% \kern-#1% \hbox to\wd0{\showcharinbox@hidevrule{#1}{#2}% \raise\ht0\vbox to #1{}% \lower\dp0\vtop to #1{}% \hfil\showcharinbox@hidevrule{#2}{#1}}% \kern-#1\showcharinbox@hidehrule{#2}{#1}}}} \newcommand*{\showcharinbox@maketypebox}{\showcharinbox@makeblankbox{0pt}{1pt}} \newcommand*{\showcharinbox@makelightbox}{\showcharinbox@makeblankbox{.2pt}{.2pt}} \setbox0=\hbox{$\vcenter{}$} % \setbox1=\hbox to\z@{$\hss\bullet\hss$} % \setbox\showcharinbox@bigdot=\vbox to\z@{\kern-\ht1 \kern\ht0 \box1 \vss} \setbox1=\hbox to\z@{$\hss\cdot\hss$} % \setbox\showcharinbox@smalldot=\vbox to\z@{\kern-\ht1 \kern\ht0 \box1 \vss} \newcommand*{\showcharinbox@arrows}[2]{% {\setbox0=\hbox{$\mkern-2mu\mathord-\mkern-2mu$} \hbox to #1{\kern-.055556em$\leftarrow\mkern-6mu$% \cleaders\copy0\hfil \kern.4em #2\kern.4em \cleaders\copy0\hfil $\mkern-6mu\rightarrow$\kern-.055556em}}} \newcommand*{\showcharinbox@samplebox}[4]{% {\setbox0=\vtop{\vbox to #1{\hbox to #3{}\vss} \nointerlineskip \vbox to #2{}}% \hbox{\copy\showcharinbox@bigdot \vrule height.2pt depth.2pt width#3% \kern-#3% \showcharinbox@makelightbox \kern-#3% \raise#1\vbox{\hbox to #3{\hss#4\hss} \kern 3pt}}}} \newcommand{\ShowCharInBox}[1]{% \setbox9=\hbox{#1} \setlength{\showcharinbox@chardepth}{\dp9} \setlength{\showcharinbox@charheight}{\ht9} \setlength{\showcharinbox@charwidth}{\wd9} \setbox0=\hbox{$\uparrow$} \setbox1=\hbox to \wd0{$\hss\mid\hss$} % \setbox2=\vbox to \showcharinbox@charheight{\copy0 \nointerlineskip \kern-.5pt \copy1 \nointerlineskip \kern-.5pt \copy1 \vfil \moveleft 1em\hbox{height$=$\the\showcharinbox@charheight} \vfil \copy1 \nointerlineskip \kern-.5pt \copy1 \nointerlineskip \kern-.5pt \hbox{$\downarrow$} \kern.2pt} \setbox3=\vbox to \showcharinbox@chardepth{\kern.2pt\copy0 \vfil \moveleft 1em\hbox{depth$=$\the\showcharinbox@chardepth} \vfil \hbox{$\downarrow$} \kern0pt} \setbox4=\vtop{\kern-3pt % \hbox{\showcharinbox@samplebox{\showcharinbox@charheight}{\showcharinbox@chardepth}{\showcharinbox@charwidth}{}% \kern-\showcharinbox@charwidth \hbox to \showcharinbox@charwidth{\hss \unhbox9\hss}} \kern3pt \showcharinbox@arrows{\showcharinbox@charwidth}{width$=$\the\showcharinbox@charwidth}} \medskip\indent \setbox0=\hbox{$\vcenter{}$}% \lower\ht0\hbox{Reference point$-$\kern-.2em$\rightarrow$\kern2pt}% \raise\ht2\box4 \kern1.5em \raise\ht2\vtop{\kern0pt\box2\nointerlineskip\box3}} %% %% Copyright © 2012–2013 Persian TeX Group %% %% It may be distributed and/or modified under the LaTeX Project Public License, %% version 1.3c or higher (your choice). The latest version of %% this license is at: http://www.latex-project.org/lppl.txt %% %% This work is “maintained” (as per LPPL maintenance status) %% by Persian TeX Group. %% %% %% End of file `showcharinbox.sty'.