# Bounding box for each letter

How can I take input text and replace each character with a solid (and/or hollow) rectangle representing the bounding box for that character? In the case where two characters are closer together from kerning (e.g. microtype) the boxes would overlap. The addition of the boxes should not change the spacing of the text - I'm looking for a "draft mode" for the letters.

# Solutions and Problems

Both solutions presented by Yiannis Lazarides and egreg seem to do a reasonable job for single words, though as mentioned, it seems that kerning was not completely respected. Below are the results (without markup/egreg/Yiannis):

Both solutions fail however when multiple words are involved. One of the answers completely eats a space while the other overcompensates. Both of them seem to choke on a line break as well.

• this is quite similar to Exercise 11.5 from The TeXbook. Knuth provides a solution- not sure about posting it here though because of copyright... – cmhughes May 29 '12 at 23:17
• Am pretty sure there is a question here doing exactly this but can't seem to locate it... – Peter Grill May 30 '12 at 0:18
• @cmhughes The code of the TeXbook is available for study and quoting a passage from a book is always allowed (with proper attribution). – egreg May 30 '12 at 7:57
• fwiw, vafa khalighi has created a package showcharinbox which answers this (nearly 2-months-old) question. see ctan.org/pkg/showcharinbox – wasteofspace Jul 24 '12 at 10:09

A LuaTeX solution. Should work in all situations that I am aware of:

\documentclass{article}
\usepackage{luacode,luatexbase}
\begin{document}
\begin{luacode*}
local GLYPH_ID = node.id("glyph")

local number_sp_in_a_pdf_point = 65782

function math.round(num)
return math.floor(num * 1000 + 0.5) / 1000
end

-- width/height/depth of a glyph and the whatsit node
local wd,ht,dp,w

-- head is a linked list (next/prev entries pointing to the next node)
-- a hbox/vbox
-- Create a pdf_literal node to draw a box with the dimensions
-- of the glyph
w = node.new("whatsit","pdf_literal")

-- draw a dashed line if depth not zero
if dp ~= 0 then
w.data = string.format("q 0.2 G 0.1 w 0 %g %g %g re S f [0.2] 0 d 0 0 m %g 0 l S Q",-dp,-wd,dp + ht,-wd)
else
w.data = string.format("q 0.2 G 0.1 w 0 %g %g %g re S f Q",-dp,-wd,dp + ht,-wd)
end
-- insert this new node after the current glyph and move pointer (head) to
-- the new whatsit node
end
end
return true
end

\end{luacode*}

A \emph{wonderful} serenity has taken {\large possession} of my entire soul, like these
\textsl{sweet}
\textbf{mornings} of spring which I enjoy with my whole heart. I am alone, and feel the
charm of existence in this spot, \textbf{which} was created for the bliss of souls like
mine. I am so happy, my dear friend, so absorbed in the exquisite sense of
mere tranquil existence, that I neglect my talents. I should be incapable of
drawing a single stroke at the present moment; and yet I feel that I never was
a greater artist than now.

\end{document}


which yields:

(detail)

Bonus: it draws the base line if the depth of the glyph is not 0.

Here is a solution that replaces the glyphs by black rectangles (rules):

\documentclass{article}
\usepackage{luacode,luatexbase,microtype}
\begin{document}
\begin{luacode*}
local GLYPH_ID = node.id("glyph")

-- head is a linked list (next/prev entries pointing to the next node)
-- parent it the surrounding h/vbox
-- a hbox/vbox
r = node.new("rule")

-- replace the glyph by
-- the rule by changing the
-- pointers of the next/prev
-- entries of the rule node
-- first glyph in a list
parent.list = r
else
end

end

-- now the glyph points to
-- nowhere and we should remove
-- it from the memory

end
end
return true
end

\end{luacode*}

\hsize6cm

A wonderful serenity has taken possession of my entire soul, like these sweet
mornings of spring which I enjoy with my whole heart. I am alone, and feel the
charm of existence in this spot, which was created for the bliss of souls like
mine. I am so happy, my dear friend, so absorbed in the exquisite sense of
mere tranquil existence, that I neglect my talents. I should be incapable of
drawing a single stroke at the present moment; and yet I feel that I never was
a greater artist than now.

\end{document}


• Really nice solution! – Gonzalo Medina Jun 2 '12 at 20:56
• Glad to see you back! Thanks for the great solution - this works great! How would you modify the code to draw a filled rectangle instead of a hollow one? – Hooked Jun 2 '12 at 21:10
• I've just fixed an embarrassing rounding error in my code – topskip Jun 2 '12 at 21:17
• @Hooked Just change the re S f in the w.data lines above to re b. Please note that I have updated my code in the mean time. – topskip Jun 2 '12 at 21:25
• @Sigur well, LuaTeX makes it easy to draw these lines. PDFTeX and other engines are completely lacking this kind of support. So there is no way I could implement this behaviour for other engines. – topskip Sep 29 '14 at 9:12

Here is a solution that respects kerning (but not ligatures):

\documentclass{article}
\usepackage{xcolor}
\makeatletter
\def\showboxes#1{%
\begingroup\fboxrule=.1pt \fboxsep=-\fboxrule
\@showboxes#1\@showboxes\@empty
\endgroup}
\def\@showboxes#1#2{%
\ifx#2\@showboxes
\fbox{\color{gray}#1}\expandafter\@gobble
\else
\setbox0=\hbox{#1\kern0pt#2}\setbox2=\hbox{#1#2}%
\dimen0=\wd0 \advance\dimen0 -\wd2 % \dimen0 contains the kern between the two chars
\fbox{\color{gray}#1}\kern-\dimen0
\expandafter\@showboxes
\fi#2}
\begin{document}
\showboxes{AVov}
\end{document}


For doing more words just add

\usepackage{xparse}
\def\showboxesaux#1{\showboxes{#1} }
\NewDocumentCommand\Showboxes{>{\SplitList{ }}m}
{\ProcessList{#1}\showboxesaux\unskip}


and use

\Showboxes{The quick brown fox jumped over the lazy dog.}


but hyphenation won't be taken care of.

• Great solution! Can this be modified to accept multiple words? At the moment the spaces are swallowed. (See question update). – Hooked May 30 '12 at 19:43
• @Hooked It can, but I don't think it can be a substitute for the "real thing", that is, doing this with LuaTeX. – egreg May 30 '12 at 19:52
• Excuse my Lua-ignorance, are you saying that a LuaTeX solution would be able to handle the bounding box problem in a more robust way? – Hooked May 30 '12 at 19:55
• @Hooked I'm sure it is (but I can't give a solution). You were unlucky that our main LuaTeX expert, Patrick Gundlach, is on his well deserved holidays. – egreg May 30 '12 at 19:58
• This solution doesn't work with xetex as is. Wouldn't it be better to replace \setbox0=\hbox{{#1}{#2}} by \setbox0=\hbox{#1\kern0pt#2}, because xetex doesn't parse the grouping as expected for unknown reason? – Henri Menke Jul 1 '14 at 15:44

Probably the best is the code from the TeXbook and this I will leave up to you. Another alternative is to study the code from the soul package and use the scanners provided.

\documentclass{article}
\usepackage{soul,graphicx,xcolor}
\fboxrule=0.1pt
\fboxsep=-\fboxrule
\begin{document}
\makeatletter
\def\SOUL@soeverytoken{%
\fbox{\color{gray}\the\SOUL@token}}
\makeatother
\scalebox{7}{\color{purple}\so{ailbcdefgh}}
\end{document}


Change the gray color to white to have the letters disappear.

You will need to change the \fbox to basic TeX primitives, if you need to compensate for the 0.1pt rule or use the suggestion of egreg in the comments, which I have incorporated.

• \fboxsep=-\fboxrule would solve the issue. But you lose kerning information in this way. – egreg May 30 '12 at 10:09
• @egreg Thanks I added your code. Best is to go to a Knuth-box (I had it as a macro somewhere ...) – Yiannis Lazarides May 30 '12 at 10:16
• @YiannisLazarides Thank you for the solution, I'll have to play around with soul a bit more. I've updated my question based off your solution, it seems that in addition your interword spacing is too large as well. – Hooked May 30 '12 at 19:42
• I remember I saw something like this in fontchart.tex – morbusg Jul 24 '12 at 17:21
• I like this solution, but it doesn't work well for math mode. \so{$(f+g)'(x) = f'(x)+g'(x)$} just puts everything in one box. – Joe Corneli Dec 9 '12 at 21:49

With context from current TeXLive

\setuppagenumbering[location={}]
\definepapersize[DE][width=15cm,height=15cm]
\setuppapersize [DE][DE]
\setuplayout[width=13cm,height=13cm]
\definefontfeature[default][default][boundingbox={frame,blue,empty}]
\starttext
\bgroup
\showglyphs
\showfontkerns
\showmakeup[hbox]
\showmakeup[line]
%    \showallmakeup

»Tee for Two« shows negative kerning.
\input sapolsky \par
\egroup
\stoptext


• Is there anything that context does not have built in? – topskip Sep 15 '17 at 18:24