summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/showcharinbox
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-07-14 23:05:16 +0000
committerKarl Berry <karl@freefriends.org>2012-07-14 23:05:16 +0000
commit6ba99b0be35fc29b019e51bf281b2fb7ffb028c6 (patch)
treec3fa79f450f256d7f4ed95f11c841fe813a79224 /Master/texmf-dist/tex/latex/showcharinbox
parent4d5935efec1be40045a1b48c1b471488c58e94cb (diff)
new latex package showcharinbox (14jul12)
git-svn-id: svn://tug.org/texlive/trunk@27052 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/showcharinbox')
-rw-r--r--Master/texmf-dist/tex/latex/showcharinbox/showcharinbox.sty111
1 files changed, 111 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/showcharinbox/showcharinbox.sty b/Master/texmf-dist/tex/latex/showcharinbox/showcharinbox.sty
new file mode 100644
index 00000000000..31360b43ba1
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/showcharinbox/showcharinbox.sty
@@ -0,0 +1,111 @@
+%%
+%% This is file `showcharinbox.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% showcharinbox.dtx (with options: `showcharinbox.sty')
+%%
+%% ______________________________________
+%% Copyright © 2012 Vafa Khalighi
+%%
+%% License information appended.
+%%
+%%
+\NeedsTeXFormat{LaTeX2e}
+\newcommand*{\showcharinbox@date}{2012/07/25}
+\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 Vafa Khalighi <vafakhlg@gmail.com>
+%%
+%% 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 “author-maintained” (as per LPPL maintenance status)
+%% by Vafa Khalighi.
+%%
+%%
+%%
+%%
+%% End of file `showcharinbox.sty'.