这是最近韓國漫画：
这是一个简单的版本，没有任何理由：
\documentclass{article}
\usepackage[text={1.2in,3in}]{geometry}
\raggedright
\begin{document}
\noindent Their famous paper on the relationship between deindustrialization and the growth of ecological \ldots
\end{document}
如何在 LaTeX 中制作蛇？为了使问题更具体，我如何让 LaTeX 自动为未到达列尾的每一行添加长下划线，然后添加字母“s”？我假设有了这些知识，我就能创建蛇的身体和头部。
答案1
这只是 lualatex，它绘制了一条 PDF 线w点，以填充每条线，如果你有艺术感，可以w 0 l用绘制相同长度的蛇的东西来代替
\documentclass{article}
\directlua{
PDF_LITERAL = node.subtype("pdf_literal")
WS=node.id("whatsit")
GLUE = node.id("glue")
snakefill=function(head)
for line in node.traverse_id(0,head) do
for n in node.traverse_id(GLUE,line.head) do
if n.subtype==9 then
print(' glue: ' .. n.subtype .. ' ' ..node.effective_glue(n,line) )
local w = node.effective_glue(n,line) / 65536
local sn = node.new(WS,PDF_LITERAL)
sn.data="0 G 0 0 m " .. w .. " 0 l S 0 g"
line=node.insert_before(line,n,sn)
end
end
end
return head
end
}
\def\snakefill{%
\directlua{
luatexbase.add_to_callback("post_linebreak_filter",snakefill,"snake fill")
}%
}
\def\offsnakefill{%
\directlua{
luatexbase.remove_from_callback("post_linebreak_filter","snake fill")
}%
}
\begin{document}
\raggedright\parfillskip=0pt
\snakefill
one two three four five
one two three four five
one two three four fivexxxxxxxxxxxx
one two three four five
one two three four five
one two three four five
one two three four five
one two three four five
one two three four five
one two three four five
one two three four five
one two three four five
one two three four five
\end{document}
或者更像蛇的版本
% http://images.clipartpanda.com/cute-snake-clipart-black-and-white-30511wall.png
\directlua{
GLUE = node.id("glue")
snakefill=function(head)
for line in node.traverse_id(0,head) do
for n in node.traverse_id(GLUE,line.head) do
if n.subtype==9 then
print(' glue: ' .. n.subtype .. ' ' ..node.effective_glue(n,line) )
local w = node.effective_glue(n,line)
local sni = img.node{filename="cute-snake-clipart-black-and-white-30511wall.png"}
sni.height=500000
sni.width=w
line=node.insert_before(line,n,sni)
end
end
end
return head
end
}
答案2
确实不是蛇，但是……
\documentclass{article}
\usepackage[text={1.2in,3in}]{geometry}
\def\snake{\cleaders\hbox to .5em{\hss\ensuremath\sim\hss%
\hspace{-.3em minus -.2em}%
}\hfill$^{_\diamond}$\break}
\raggedright
\begin{document}
\noindent Their famous paper on the relationship between \snake
deindustrialization and \snake the growth of the main ecological \snake
\end{document}
答案3
虽然我无法得到大卫·卡莱尔的回答为了工作，我制作了一个简单的可绑定矢量版本的 xkcd 蛇：
\documentclass{article}
\usepackage[text={1.2in,3in}]{geometry}
\usepackage[none]{hyphenat}
\directlua{
PDF_LITERAL = node.subtype("pdf_literal")
WS = node.id("whatsit")
GLUE = node.id("glue")
add_image = function(line, n, width, height, name)
local sni = img.node{filename=name}
sni.height = height
sni.width = width
return node.insert_before(line,n,sni)
end
add_snake = function(line, n, width, height)
local segments_middle = 0;
local segments_wave = 0;
local unstretched_width = height * (1.0 + 1.5)
while unstretched_width + height * 1.5 < width do
unstretched_width = unstretched_width + height * 1.5
segments_wave = segments_wave + 1
end
while unstretched_width + height * 0.5 < width do
unstretched_width = unstretched_width + height * 0.5
segments_middle = segments_middle + 1
end
local stretch = width / unstretched_width
line = add_image(line, n, height * 1.0 * stretch, height, "snake_tail.pdf")
for i = 1, segments_wave do
line = add_image(line, n, height * 1.5 * stretch, height, "snake_wave.pdf")
end
for i = 1, segments_middle do
line = add_image(line, n, height * 0.5 * stretch, height, "snake_middle.pdf")
end
line = add_image(line, n, height * 1.5 * stretch, height, "snake_head.pdf")
return line
end
local w = 1250000 % remove when effective_glue works!
snakefill = function(head)
for line in node.traverse_id(0,head) do
for n in node.traverse_id(GLUE,line.head) do
if n.subtype == 9 then
%local w = node.effective_glue(n,line) / 65536
w = w * 1.1 % remove when effective_glue works!
local h = 500000
line = add_snake(line, n, w, 500000)
end
end
end
return head
end
}
\def\snakefill{%
\directlua{
luatexbase.add_to_callback("post_linebreak_filter",snakefill,"snake fill")
}%
}
\def\offsnakefill{%
\directlua{
luatexbase.remove_from_callback("post_linebreak_filter","snake fill")
}%
}
\begin{document}
\raggedright
\snakefill
\noindent Their famous paper on the relationship between deindustrialization and the growth of ecological\ldots\par
\noindent Their famous paper on the relationship between deindustrialization and the growth of ecological\ldots\par
\noindent Their famous paper on the relationship between deindustrialization and the growth of ecological\ldots\par
\end{document}
蛇的图像可以从这个要点effective_glue。如果我找到上班的方法，我会更新帖子。
答案4
蛇可以改进。另外，我不知道如何使用 tikz 坐标进行计算，所以我改用 zref。
编辑
实际上，我认为我的第一个示例并非在所有情况下都有效，因为即使开始和结束标记在同一行上，它们也不需要位于同一位置。因此，最好测试第二个标记是否位于行尾。
一些解释：与其他答案不同，我的文本不使用 \raggedright，但完全对齐。目前文本必须是一页，但由于 tikzmark 存储了页码，因此可以添加页面测试。必须在任何地方添加“\optsnake”，但这可以通过回调使用 luatex 来完成。
\documentclass{article}
\textwidth=2.9cm
\usepackage[none]{hyphenat}
\usepackage{tikz}
\usepackage{zref-savepos}
\usetikzlibrary{tikzmark}
\usetikzlibrary{decorations.pathmorphing}
\newcounter{snakefill}
\newcommand\optsnake{%
\stepcounter{snakefill}%
\pgfmark{snakemarkbegin\the\value{snakefill}}%
\zsavepos{snakemarkbegin\the\value{snakefill}}%
\hfil
\zsavepos{snakemarkend\the\value{snakefill}}%
\pgfmark{snakemarkend\the\value{snakefill}}%
\penalty50
\hfilneg
}
\newcommand\printsnakes{%
\begin{tikzpicture}[overlay,remember picture]
\foreach \x in {1,...,\the\value{snakefill}}
{
\ifnum \zposx{snakemarkend\x}=\zposx{snakeendofline}
\draw [->,decorate,decoration=snake] (pic cs:snakemarkbegin\x) -- (pic cs:snakemarkend\x);
\fi
}
\end{tikzpicture}}
\begin{document}
\mbox{}\hfill\zsavepos{snakeendofline}% get the end of line value
\noindent
on the \optsnake relationship \optsnake
between \optsnake
Deindustrialization \optsnake
on the \optsnake relationship \optsnake
between \optsnake
Deindustrialization \optsnake
on the blblb \optsnake relationship \optsnake
between \optsnake
Deindustrialization \optsnake
\printsnakes
\end{document}
