Hi all,
the attached example works with the version from 17.11.|20.11., but not
with the current (22.11.06, 11:02) one. The problem seems to be in the
use of textext, as it 'works' (background is visible) when I exchange
p:= textext.rt(\MPstring{FunnyFrame}) ;
with
p:= nullpicture ;
I couldn't test the current version on contextgarden (still 20.11.,
which works ok), so I'm unsure, if it's my messy tex tree or a general
problem.
Greetings, Peter
\setupoutput[pdftex]
\setupcolors[state=start]
\startuseMPgraphic{FunnyFrame}
picture p ;
numeric o ;
path a,b ;
pair c ;
p:= textext.rt(\MPstring{FunnyFrame}) ;
o:= BodyFontSize ;
a:= unitsquare xyscaled(OverlayWidth,OverlayHeight) ;
p:= p shifted(2o,OverlayHeight-ypart center p) ;
drawoptions(withpen pencircle scaled 1pt withcolor .625red) ;
b:= a superellipsed .95 ;
fill b withcolor .85white ;
draw b ;
b:= (boundingbox p) superellipsed .95 ;
fill b withcolor .85white ;
draw b ;
draw p withcolor black ;
setbounds currentpicture to a ;
\stopuseMPgraphic
\defineoverlay[FunnyFrame]
[\useMPgraphic{FunnyFrame}]
\defineframedtext[FunnyText]
[frame=off,
background=FunnyFrame]
\def\StartFrame{\startFunnyText}
\def\StopFrame{\stopFunnyText}
\def\FrameTitle#1%
{\setMPtext{FunnyFrame}{\hbox spread1em{\hss\strut#1\hss}}}
\setMPtext{FunnyFrame}{}%initializethetextvariable
\starttext
\FrameTitle{Test}
\StartFrame
\input zapf\relax
\StopFrame
\stoptext
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context
