VB
Size: a a a
VB
VB
AG
KD
ПГ
IP
AN
AN
IP
IP
IP
AN
AN
IP
IP
AN
\def\endwrapfloat{%
\ifdim\hsize>\z@ \par\hrule\@width\hsize\@height\z@ % force width
\else \unskip \egroup \box\z@ \fi % or end hbox
\egroup % end the \vtop; width is known so now is "later"
\WF@floatstyhook % support float.sty
\def\width{\wd\WF@box}\setlength\wrapoverhang{\WF@ovh}%
\xdef\WF@ovh{\the\wrapoverhang}% save until wrapping
\ifdim\ht\WF@box>\topskip \ht\WF@box\z@ \fi % too much height, set flag.
\ifdim\ht\WF@box<.5\p@ % too tall (starts with \vbox) or too short
\global\setbox\WF@box\vtop{\vskip-1.4ex\unvbox\WF@box}\fi
\global\WF@size\dp\WF@box % box is guaranteed to have little height.
\global\advance\WF@size1.5\baselineskip \global\advance\WF@size\tw@\intextsep
\aftergroup\WF@startfloating % even when not really floating!
\ifWF@float\else \ifhmode
{\unskip \parfillskip\z@skip \par \vskip-\parskip}\aftergroup\noindent
\fi\fi \global\@ignoretrue}
IP