[NTG-context] Loop and graphictext (Metafun)

[Fabrice Couvreur]

Hi,
I tried to write a loop to display the title, but it does not. How to do ?
Thank you,
Fabrice

\setuppagenumbering[location=]

\setupcolors
  [state=start]

\definecolor[pagecolor][s=.6]
\definecolor[textcolor][r=.6]


\startMPinclusions
  color pagecolor ; pagecolor := \MPcolor{pagecolor} ;
  color textcolor ; textcolor := \MPcolor{textcolor} ;
\stopMPinclusions

\setMPtext{title}{Serie statistiques à deux variables}

\startuseMPgraphic{Title}

  path p ; p := OverlayBox  ;
  fill OverlayBox withcolor pagecolor ;
  setbounds currentpicture to OverlayBox ;

\stopuseMPgraphic

\defineoverlay[Title][\useMPgraphic{Title}]

\defineframedtext
  [MyTitle]
  [before={\blank[line,halfline]},
   after={\blank},
   frame=off,
   background=Title,
   width=\textwidth,
   height=fit,
   ]

\starttext

\startMyTitle

\startMPcode

numeric k ; k :=0 ;
string s ; s := \MPstring{title} ;
picture r ;
r := image (graphictext
        substring (k,k+1) of s
        randomized .5pt
        scaled 5pt
        withfillcolor textcolor
        withpen pencircle scaled 1pt ; ) ;
  draw r ;

\stopMPcode

\stopMyTitle

\stoptext
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.ntg.nl/pipermail/ntg-context/attachments/20151005/ce595701/attachment.html>