如何（！）在同一个段落内（！）设置允许线条太宽的地方和不允许线条太宽的地方？

Question 1

首先：我必须简化您的仅扩展循环，因为它在其参数中一次又一次地重复 256 m、 255 m、 254 。更有效的方法是仅将这 256 放入输入队列一次。mm

第二：我建议对 A 插入负跳过、惩罚 0、正跳过，对 B 则反之。

第三：我建议做成\rightskip可拉伸的，以避免盒子过满。

\def\expandrepeat #1{\expandafter\expandrepeatA\romannumeral #1000\relax}
\def\expandrepeatA #1\relax#2{\expandrepeatB{#2}#1\relax}
\def\expandrepeatB #1#2{\ifx#2\relax \else #1\afterfi \expandrepeatB{#1}\fi}
\def\afterfi#1\fi{\fi#1}

\rightskip=0em minus1em

\expandrepeat{250}{A\hskip-1em\penalty0\hskip1em}%
\expandrepeat{250}{B\hskip1em\penalty0\hskip-1em}

% for testing, where is the margin?
\vskip-4cm \hfill \vrule height4cm

\end

Answer

首先：我必须简化您的仅扩展循环，因为它在其参数中一次又一次地重复 256 m、 255 m、 254 。更有效的方法是仅将这 256 放入输入队列一次。mm

第二：我建议对 A 插入负跳过、惩罚 0、正跳过，对 B 则反之。

第三：我建议做成\rightskip可拉伸的，以避免盒子过满。

\def\expandrepeat #1{\expandafter\expandrepeatA\romannumeral #1000\relax}
\def\expandrepeatA #1\relax#2{\expandrepeatB{#2}#1\relax}
\def\expandrepeatB #1#2{\ifx#2\relax \else #1\afterfi \expandrepeatB{#1}\fi}
\def\afterfi#1\fi{\fi#1}

\rightskip=0em minus1em

\expandrepeat{250}{A\hskip-1em\penalty0\hskip1em}%
\expandrepeat{250}{B\hskip1em\penalty0\hskip-1em}

% for testing, where is the margin?
\vskip-4cm \hfill \vrule height4cm

\end

Question 2

你是什么意思

将换行留给 TeX 自己的（非限制）水平模式算法？

你能修改该算法的参数吗？比如\leftskip或\rightskip或\tolerance或\hfuzz？

如果是：

为了允许 TeX 制作由于太短而不好的行，您可以将其设置\tolerance为 10000。
要抑制警告和超长规则，请增加\hfuzz。这不会阻止行变得太长。这只会阻止被告知。这就是我对特定段落所做的。

A或的序列B不包含粘合。诸如此类的事情\emergencystretch似乎并不有趣。它们还适用于整个段落，而不仅仅是段落中的几行。

重复 A 或重复 B 之间的重复惩罚始终相同，并且不会改变哪个 A 或 B 靠近线末端以利于突破线。

宏是否也必须在乳胶的\centering（与 TeX 的不同\centering）或center-environment？

任何。

您需要在A或之间设置断点B。您可以穿插一些形成断点的内容：\penalty0或\hskip0pt或\discretionary{}{}{}。（或者您可以暂时将A或设为B字体的连字符，但不能用于最后的A或B。）

该问题隐藏了复制令牌的问题。

通用宏\replicatethis很有用，您可以在其中指定要重复的内容以及要使用的内容进行散布。

使用散布时您需要查看最后一步，因为最后一步不需要散布。

所以我用通用宏如同Wipet 的但有一些修改：

附加两个\relax以便您可以检测最后一步。
不\afterfi，但是\firstotwo/\secondoftwo因为方法将无法产生具有不匹配或的\afterfi事物序列。\if..\fi
\romannumeral0\number\number#1 000使用字母常量时也会`\a失败。\count24\romannumeral#1000
复制的内容在参数中收集，并在循环结束时一次性交付所有内容。如果通用的 \replicatethis\if必须用不匹配的/保存\fi，必须这样做，以便最后所有不匹配的\if/都会立即出现。缺点：这比较慢，并且重复次数受到参数中适合的标记数量的限制。\fi

%\overfullrule=0pt
% / prevent nagging:
{\setbox1=\hbox{A}\expandafter}\expandafter\hfuzz\expandafter=\the\wd1
%\tolerance=10000

\long\def\permutetwoarguments#1#2{#2#1}%
\long\def\firstoftwo#1#2{#1}%
\long\def\secondoftwo#1#2{#2}%
% /
% / Generic macro \repeatthis{<<number> denoting repetitions>}{<what to repeat>}{<interspersing>}
% /
\long\def\replicatethis#1#2#3{%
  % / #1 repetitions
  % / #2 what to repeat
  % / #3 interspersing
  \romannumeral0% / <-- I *think* you may like this.  ;-)
  \expandafter\permutetwoarguments
  \expandafter{\romannumeral\number\number#1 000}%
              {\replicatethisloop{#2}{#3}{}}%
  \relax\relax
}%
\long\def\replicatethisloop#1#2#3#4#5%
  {%
    % / #1 what to repeat
    % / #2 interspersing
    % / #3 what you got so far.
    % / #4 other-m or \relax. If \relax done.
    % / #5 other-m or \relax. If \relax last step or done.
    \ifx#4\relax\expandafter\secondoftwo\else\expandafter\firstoftwo\fi
    {%
      \ifx#5\relax\expandafter\firstoftwo\else\expandafter\secondoftwo\fi
      {\replicatethisloop{#1}{#2}{#3#1}}%
      {\replicatethisloop{#1}{#2}{#3#1#2}}%
      #5%
    }{ #3}%
  }%
% /
% / \macroA and \macroB
% /
\def\macroA#1%
  % / Intersperse with zero-\hskip breakpoint
  {%
    \leavevmode
    \replicatethis{#1}{A}{\hskip0pt}%
  }%
\def\macroB#1%
  % / If the \phantom causes line to be too long, then the \hskip 
  % / as breakpoint is used for breaking line and discarded.
  {%
    \leavevmode
    \replicatethis{#1}{\phantom{B}\hbox{B}{\setbox1=\lastbox\hskip-\wd1}B}{}%
  }%

% / Play game with unbalanced \if \fi.
\expandafter\expandafter\expandafter
\permutetwoarguments
\expandafter\expandafter\expandafter
{\replicatethis{12}{\fi}{}}
{\replicatethis{12}{\iffalse}{\else}}

% / That is the margins:%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\noindent\vrule\vbox to\vsize{\advance\hsize-.8pt\leavevmode\hrule\vfill\hrule}\vrule
\par \kern-\vsize \nobreak\vskip-\baselineskip\nobreak\vskip\topskip\par 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\macroA{240}\macroB{240}

\macroA{240}

\macroB{240}

\kern\dp\strutbox\hrule

\bigskip

About the edge case:

\bigskip

\hrule\kern\dp\strutbox

The case of the 64$^{\hbox{th}}$ B not fitting in the line any more:

\macroB{64}

\smallskip

The edge-case of 63 B being followed by an A:

\macroB{63}\macroA{1}

\smallskip

The edge-case of 60A being followed by a B:

\macroA{60}\macroB{1}

\smallskip

The edge-case of an 1pt-kern and 59A being followed by a B:

\leavevmode\kern1pt\macroA{59}\macroB{1}

\smallskip

The edge-case of 59A being followed by a B:

\macroA{59}\macroB{1}

\kern\dp\strutbox\hrule

\vfill \break

\bye

Answer