How to center the title ?

2015-10-05 20:11 GMT+02:00 Fabrice Couvreur <fabrice1.couvreur@gmail.com>:
Hi Hans,
In fact, as the loop does not work, I have not added to the code.
It's true that your solution is simple !
Thank you,
Fabrice

2015-10-05 19:48 GMT+02:00 Hans Hagen <pragma@wxs.nl>:
On 10/5/2015 6:28 PM, Fabrice Couvreur wrote:
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

i see no loop, why not just

r := image (graphictext
        s
       ....


-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
    tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________