hangafter, hangindent question...

[Philip Taylor]

Walt Burkhard wrote:

> I would like to put figures in the upper right corner of paragraphs.
>

Attached is a working version, Walt.   Code re-formatted and factored 
out to make it legible/comprehensible, and the three key changes flagged 
as "added, important" or "deleted, important".
-- 
/Philip Taylor/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://tug.org/pipermail/texhax/attachments/20210207/c6a31296/attachment.html>
-------------- next part --------------
\input epsf
\input cornerBox.h

%\def \epsfbox #1{\XeTeXpdffile #1.pdf\relax}

\def \L {L}
\def \R {R}

\def \cornerbox #1#2#3#4% (Figure, lines, vadjust, L|R)
	{
		\if #4\L
			\setbox 1 = \hbox {#1\kern 4 pt}%
			\pendingindent = +\wd 1
		\else
			\if #4\R
				\setbox 1 = \hbox {\kern 4 pt #1}%
				\pendingindent = -\wd 1
			\else
				\message {Parameter 4 [#4] is neither "L" nor "R"}
			\fi
		\fi
		\dp1 = 0pt
		\par
		\hangindent = \pendingindent
		\hangafter = -#2
		\noindent	
		\if #4\L
			\hskip -\wd 1
		\else
			\if #4\R
		    		\hhh = \hsize 
		    		\advance \hhh by -\wd 1
		    		%%% \hskip \hhh % deleted, important
		    		\setbox 1 = \hbox spread \hhh {\hfil \box 1 }% added, important
				\wd 1 = 0 pt % added, important
		\else
				\message {Parameter 4 [#4] is neither "L" nor "R"}
			\fi
		\fi	
		\raise #3 \box 1
		\ignorespaces	
	}

\def \cornerBoxL #1#2#3{\cornerbox {#1}{#2}{#3}{L}}

\def \cornerBoxR #1#2#3{\cornerbox {#1}{#2}{#3}{R}	} 

\font\f cmss10 at 12pt
\font\fff cmss10 at 8.5pt
\hfuzz72pt
\newbox\first 
\newbox\second
\newbox\third

\newdimen \hhh
\newdimen \pendingindent

\centerline{\f MEIN LIEBLINGSBUCH AUS DER KINDHEIT}
\vskip36pt
\fff\baselineskip11pt\hsize10cm
\setbox\first = \vtop{
\cornerBoxL{\vtop{\kern0pt\hbox{\epsfbox{box.1}}}}{3}{6pt}
										 Am leibsten habe ich Asterix-Comics gelesen.  Obwohlich eigenlich keine Comics lesen durfte. Also
                     habe ich heimlich unter der Bettdecke gelesen. Mit eine Taschenlampe.  Erst Jahre
                     meine Mutter auch mal ein Asterix-heft gelesen. Sie hat gedacht und musste zugeben, dass das auch
                     Literatur ist.  Auf jeden Fall habe ich mit Asterix viel gelernt. Sogar Latein hat mir plotzlich 
                     Spa{\ss} gemacht.  Ich kann allen Eltern nur raten. Egal, was ihr Kind liest, Hauptsache, es liest.
                     Am besten ist der 16 Band der Comic-Reihe.}

\line{\copy\first\hfill}
\vskip36pt
\setbox\second = \vtop{
\cornerBoxR{\vtop{\kern0pt\hbox{\epsfbox{box.1}}}}{3}{6pt}
										 Am leibsten habe ich Asterix-Comics gelesen.  Obwohlich eigenlich keine Comics lesen durfte. Also
                     habe ich heimlich unter der Bettdecke gelesen. Mit eine Taschenlampe.  Erst Jahre
                     meine Mutter auch mal ein Asterix-heft gelesen. Sie hat gedacht und musste zugeben, dass das auch
                     Literatur ist.  Auf jeden Fall habe ich mit Asterix viel gelernt. Sogar Latein hat mir plotzlich 
                     Spa{\ss} gemacht.  Ich kann allen Eltern nur raten. Egal, was ihr Kind liest, Hauptsache, es liest.
                     Am besten ist der 16 Band der Comic-Reihe}
\line{\copy\second \kern12pt \lower36pt\hbox{\fff no problem here}\hfill}
\vskip36pt
\setbox\third = \vtop{
                     \hangafter -3     \hangindent -2.6cm \noindent
										 Am leibsten habe ich Asterix-Comics gelesen.  Obwohlich eigenlich keine Comics lesen durfte. Also
                     habe ich heimlich unter der Bettdecke gelesen. Mit eine Taschenlampe.  Erst Jahre
                     meine Mutter auch mal ein Asterix-heft gelesen. Sie hat gedacht und musste zugeben, dass das auch
                     Literatur ist.  Auf jeden Fall habe ich mit Asterix viel gelernt. Sogar Latein hat mir plotzlich 
                     Spa{\ss} gemacht.  Ich kann allen Eltern nur raten. Egal, was ihr Kind liest, Hauptsache, es liest.
                     Am besten ist der 16 Band der Comic-Reihe.  
                     }
\line{\copy\third\hfill}
\bye


-------------- next part --------------
A non-text attachment was scrubbed...
Name: Seite-for-WB.pdf
Type: application/pdf
Size: 6942 bytes
Desc: not available
URL: <https://tug.org/pipermail/texhax/attachments/20210207/c6a31296/attachment.pdf>