图片文字与正文基线如何对齐？

Question

我建议仅使用\figflow为图片创建适当的空间并将图片置于我们的控制之下。

\def\includegraphics#1#2#3#4{
{\parfillskip=0pt\par}\dimen0=#1
\dimen1=#2
\advance\dimen0 by 1pc
\setbox0=\vbox to #2{\hsize=#1
\XeTeXpicfile #3 width #1 height #2}
\setbox1=\vbox{\hsize=#1{\noindent\it #4\par}}
\advance\dimen1 by \ht1
\divide\dimen1 by \baselineskip
\multiply\dimen1 by \baselineskip
\advance\dimen1 by 1\baselineskip
\setbox2=\vbox to \dimen1{\vfil\box0\vskip2mm\box1}
   % PO changes in OP's code: 
  \figflow{\dimen0}{\dimen1}{}%
  \vtop to0pt{\kern0pt\box2\vss}\nobreak\vskip-\baselineskip
\noindent\ignorespaces}

如果您设置\kern-\baselineskip了\kern0pt内部\vtop，则图片将放置在上一行。

编辑：考虑到评论，我添加了代码的第二个版本，其中\baselineskip图片下方文本的可以是任意的，\includegraphics宏的第一个参数可以是负数。然后\dimen0是此参数的绝对值，是\dimen2新引入的#1正或负 1pc（根据的符号添加边距#1）。

\def\includegraphics#1#2#3#4{%
   {\parfillskip=0pt\par}
   \dimen0=#1 \ifdim#1<0pt \dimen0=-\dimen0 \fi
   \dimen1=#2 
   \dimen2=#1 \advance\dimen2 by \ifdim#1<0pt-\fi 1pc
   \setbox0=\vbox {\XeTeXpicfile #3 width\dimen0 height #2}
   \setbox1=\vbox{\hsize=\dimen0 \noindent\it #4\par} 
   \advance\dimen1 by \ht1
   \divide\dimen1 by \baselineskip
   \multiply\dimen1 by \baselineskip
   \advance\dimen1 by 1\baselineskip
   \setbox2=\vbox to\dimen1{\vss\box0\vskip2mm\box1}
   \figflow{\dimen2}{\dimen1}{}%
   \line{\ifdim#1<0pt\hfill\fi\vtop to0pt{\kern0pt\box2\vss}\hfil}
   \nobreak\vskip-\baselineskip
   \noindent\ignorespaces}

编辑2：\oblom考虑到你对问题的更新，我决定你可以尝试我书中的宏TeXbook 纳鲁比（第 236 和 237 页）。本书的完整 PDF 版本可用，但仅提供捷克语。

该宏的名称\oblom源自捷克语单词“围绕某物进行排版”。此宏在下一段（或更多段）中创建白色矩形空间。我的下一个代码使用此宏（但重命名了分隔符词）。此宏的用法是：

\oblom <width> from <linenum1> indent <linenum2>

其中<width>是矩形空间的宽度，<linenum1>是第一个缩进的行号，<linenum2>是缩进的行数。如果<width>为负数，则矩形空间将位于右侧。例如：

\oblom 5cm from 3 indent 5

表示五行从第三行（包括这一行）开始缩进 5cm。前两行不缩进，且为正常宽度。

宏\oblom必须在段落之间使用，它会影响接下来一个或多个段落的形状。主要优点是您不必在缩进开始的地方精确地停止段落。请注意您之前的示例，您必须这样做，{\parfillskip=0pt\par}这会带来复杂性。

我的下一个代码使用\oblom并定义宏\flowpic：

\flowpic from <linenum> width <width> {<picfile>} {<caption>}

例如

\flowpic from 3 width -7cm {greybox.png}
    {Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec a diam lectus.}

greybox.png在下一个段落的第三行右侧插入带有给定标题的图片。图片的宽度为 7cm 减 1pc，因为 1pc 是图片和文本之间的边距。您不需要使用 pckage figflow。

代码由三部分组成。第一部分是\oblom从TeXbook 纳鲁比。该宏计算\parshape参数并使用\parshape。第二部分定义插入具有给定宽度的图片的宏\pic。定义取决于是否使用 XeTeX。第三部分声明\flowpic使用\oblom和\pic。如果有足够的空间，flowpic 宏会将图片插入到使用图片的同一页。如果空间不够，flowpic 会将图片插入到下一页，即修改形状的最后段落结束的位置。

\newcount\shapenum \newcount\tempnum \newcount\globpar
\newdimen\ii \newdimen\ww
\newdimen\picwidth  \newbox\picbox
\catcode`\@=11  
\def\oblom #1 from #2 indent #3 {\par \ii=#1 \ww=\hsize
   \ifdim\ii>\z@ \advance\ww by-\ii      
   \else \advance\ww by\ii \ii=\z@ \fi
   \shapenum=1 \tempnum=0 \def\shapelist{}
   \loop \ifnum\shapenum<#2 \edef\shapelist{\shapelist\z@\hsize}
      \advance\shapenum by1 \repeat
   \loop \edef\shapelist{\shapelist\ii\ww}
      \advance\tempnum by1 \ifnum\tempnum<#3 \repeat
   \advance\shapenum by#3 \edef\shapelist{\shapelist\z@\hsize}
   \doshape}  
\catcode`\@=12
\def\doshape{\globpar=0 \def\par{\ifhmode\shapepar\fi}}
\def\shapepar{\prevgraf=\globpar \parshape\shapenum\shapelist
   \endgraf \globpar=\prevgraf
   \ifnum \prevgraf<\shapenum\else \global\let\par=\endgraf \doshapeA \fi}

\ifx\XeTeXpicfile\undefined 
   \def\pic #1{\hbox{\pdfximage width\picwidth {#1}\pdfrefximage\pdflastximage}}
\else
   \def\pic #1{\hbox{\XeTeXpicfile #1 width\picwidth}}
\fi

\def\flowpic from #1 width #2 #3#4{\par
   \dimen0=#2 \ifdim\dimen0<0pt \dimen0=-\dimen0 \fi
   \advance\dimen0 by -1pc %(margin around picture)
   \picwidth=\dimen0
   \setbox0=\vbox{\hsize\dimen0 \pic{#3}\kern 2mm 
                  \emergencystretch=2em \noindent\it #4}
   \dimen0=\ht0 
   \divide\dimen0 by\baselineskip \advance\dimen0 by1sp
   \oblom #2 from #1 indent \dimen0 
   \multiply\dimen0  by\baselineskip
   \setbox\picbox=\vbox to\dimen0{\vss\box0}
   \dimen0=\pagegoal \ifdim\pagegoal=\maxdimen \dimen0=\vsize\fi   
   \advance\dimen0 by-\pagetotal \advance\dimen0 by-#1\baselineskip
   \ifdim\dimen0<0pt 
      \def\doshapeA{\tempnum=\prevgraf \advance\tempnum by-#1 \advance\tempnum by2
         \line{\ifdim#2<0pt \hfill\fi \vbox to0pt{\vss\vtop to0pt{\kern0pt\box\picbox\vss}%
                   \kern\the\tempnum\baselineskip}\hfil}
         \nobreak\vskip-\baselineskip
      }
   \else \def\doshapeA{}
      \line{\ifdim#2<0pt \hfill\fi 
            \vtop to0pt{\kern-2\baselineskip\kern#1\baselineskip\box\picbox\vss}\hfil}
      \nobreak\vskip-\baselineskip
   \fi
}
\parindent=0pt \raggedbottom % we need the grid

此宏的限制是：您不能将图片放置在页面的“边缘”上，即分页符处。只能放置在分页符之前或之后。您不能将两张图片插入一个段落中。下一个的使用\flowpic只允许在段落之前，即没有上一个缩进的行处\flowpic。如果您的段落很长，并且需要\flowpic在此处放置两个，那么您需要使用已知的技巧来{\parfillskip=0pt\par}关闭上一个“不可见”的段落。

Answer 1