Re: [Groff] pspic: Text around picture?

[Denis M. Wilson]

In rfloat.tmac need to take environment attributes into account.
For example line length (this works for raw troff without a
macro package):

> >
> > .\" rfloat.tmac
> > .\"
> > .
> > .
> > .\" rfloat <image> <in-paragraph>
> > .\"
> > .\" Position an image to the right so that text is floating around  
> > the image.
> > .\" We assume that there is enough vertical space available for
> > the image.
> > .\"
> > .\" If there is a second argument, start the image one line
> > below. This is
> > .\" necessary if `rfloat' is called in the middle of a paragraph.
> > .\"
> > .\" The horizontal separation between the image and the floating  
> > text is
> > .\" given in register `\n[rfloat-hori-sep]' (set initially to 1m),
> > the .\" vertical separation in register `\n[rfloat-vert-sep]' (set  
> > initially
> > .\" to 0v since we measure from the base of the current line).
> > .
> > .de rfloat-macro-end
> > ..
> > .
> > .nr rfloat-hori-sep 1m
> > .nr rfloat-vert-sep 0v
> > .
> > .de rfloat
> > .  ie '\\$2'' \
> > .    nr rfloat-in-par 0
> > .  el \
> > .    nr rfloat-in-par 1
> > .
> > .  ev rfloat-env
> > .    di rfloat-div
> > .      PSPIC -L \\$1
> > .    di
> > .  ev
> > .
> > .  \" The vertical and horizontal dimensions of the image are now  
> > stored in
> > .  \" \n[dn] and \n[dl], respectively.  We disable vertical traps
> > so that we
> > .  \" can safely return to the current position.
> > .  nr rfloat-width \\n[dl].  nr rfloat-ll \\n[.l]
> > .  nr rfloat-start \\n[nl]
> > .  nr rfloat-end (\\n[nl] + \\n[dn] + \\n[rfloat-in-par]v)
> > .
> > .  vpt 0
> > .  mk
.  nr rfloat-ll \\n[.l]
> > .  ev rfloat-div-env
.    ll \\n[rfloat-ll]u
> > .    in (\\n[.l]u - \\n[rfloat-width]u)
> > .    sp +(\\n[rfloat-vert-sep]u + \\n[rfloat-in-par]v)
> > .    rfloat-div
> > .    sp +\\n[rfloat-vert-sep]u
> > .    in
> > .  ev
> > .  rt
> > .  vpt 1
> > .
> > .  \" Reduce right margin.
> > .  ll -(\\n[rfloat-width]u + \\n[rfloat-hori-sep]u)
> > .
> > .  \" Define macro to reset right margin and to remove trap.
> > Since the
> > .  \" effect of `.ll' is delayed until the current partial line is  
> > emitted,
> > .  \" we position the trap one line higher.
> > .  de rfloat-end-trap rfloat-macro-end
> > .    ll
> > .    wh (\\n[rfloat-end]u - 1v)
> > .  rfloat-macro-end
> > .
> > .  \" Set trap.
> > .  wh (\\n[rfloat-end]u - 1v) rfloat-end-trap
> > ..
> > .
> > .
> > .\" Adjust PSPIC to provide a correct width within a diversion.
> > .am PSPIC
> > .  vpt 0
> > \h'(\\n[ps-offset]u + \\n[ps-deswid]u)'
> > .  sp -1
> > .  vpt 1
> > ..
> > .
> > .
> > .\" Prepare environments.
> > .ev rfloat-env
> > .  in 0
> > .  ti 0
> > .ev
> > .
> > .ev rfloat-div-env
> > .  in 0
> > .  ti 0
> > .ev
> > .
> > .\" eof

Denis


-- 
()  ascii ribbon campaign - against html e-mail 
/\  www.asciiribbon.org   - against proprietary attachments