Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \def\flowpic from #1 minus #2 width #3 #4#5{\par
- \dimen0=#3 \ifdim\dimen0<0pt \dimen0=-\dimen0 \fi
- \advance\dimen0 by -1pc %(margin around picture)
- \picwidth=\dimen0
- \setbox0=\vbox{\hsize\dimen0 \pic{#4}\kern 2mm
- \emergencystretch=2em \noindent\baselineskip=9.5pt\smallrm #5}
- \dimen0=\ht0
- \divide\dimen0 by\baselineskip \advance\dimen0 by1sp
- \advance\dimen0 by -#2sp
- \oblom #3 from #1 indent \dimen0
- \advance\dimen0 by #2sp
- \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#3<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#3<0pt \hfill\fi
- \vtop to0pt{\kern-2\baselineskip\kern#1\baselineskip\box\picbox\vss}\hfil}
- \nobreak\vskip-\baselineskip
- \fi
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement