Hi,
Werner mentioned a macro could apply the correction like \emph. mm's
IR, etc., macros have a go, though they do it for non-italics too, e.g.
alternating bold and Roman.
.de fnt@switch
.ul 0
.ds fnt*tmp
.nr fnt*prev \\n[.f]
.nr fnt*i 2 1
.while \\n+[fnt*i]<=\\n[.$] \{\
. if \\n[fnt*i]>3 .as fnt*tmp \,
. ie (\\n[fnt*i]%2)=1 .as fnt*tmp \\$1\\$[\\n[fnt*i]]
. el .as fnt*tmp \\$2\\$[\\n[fnt*i]]
. if \\n[fnt*i]<\\n[.$] .as fnt*tmp \/
.\}
\&\\*[fnt*tmp]\f[\\n[fnt*prev]]
..
...
.de IR
.if \\n[.$] .fnt@switch \f2 \f1 \\$@
..
Cheers, Ralph.
