[NTG-context] Text next to a label (Metafun)

Fabrice Couvreur fabrice1.couvreur at gmail.com
Sun Aug 30 10:00:17 CEST 2015


Hi,
Is it possible to add to the right of label text ("Lire des coordonnées")
indicating the title of the method ?
Thanks,
Fabrice

\setupcolors[state=start]

\def\point#1#2{\bigl(#1\,;#2\bigr)}

\definecolor[MyColorA][c=0.3, m=0.00, y=0.00, k=0.05]

\definecolor[MyColorB][c=0.6, m=0.00, y=0.00, k=0.10]


\definemixedcolumns
  [myColumn]
  [n=2,
   separator=rule,
   rulecolor=MyColorA,
   rulethickness=1pt,
   balance=yes]

\setupalign[verytolerant,stretch,hanging]


\defineoverlay
  [Funny]
  [\useMPgraphic{Funny}]

\definelabel
  [Méthode]
  [headstyle=\bf\smallcaps]

\startuseMPgraphic{Funny}
    interim linejoin := mitered ;
    interim linecap := squared ;
    path b ;
    picture p ;
    p := textext.rt("\white\Méthode") ;
    p := p shifted (0,OverlayHeight) ;
    b := boundingbox p ;
    drawoptions (withpen pencircle scaled 3mm withcolor \MPcolor{MyColorA})
;
    draw leftboundary OverlayBox ;
    fill b withcolor \MPcolor{MyColorB} ;
    draw p ;
    setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

\defineframedtext
  [Methode]
  [before={\blank},
   after={\blank},
   frame=off,
   background=Funny,
   width=\textwidth,
   height=fit,
   ]

\starttext

\startMethode

\startmyColumn

Le plan est muni d'un repère orthonormé $\bigl(O\,;I,J\bigr)$ d'unité
\unit{1 cm}.
\blank
\startitemize[n][stopper=),style=bold]
\item Placer les points $D$ et $E$ de coordonnées respectives
$\point{4}{-3}$ et $\point{-2}{3}$.
\item Construire un point $F$ tel que $EDF$ soit équilatéral.
\item Lire les coordonnées du point $F$.
\item Construire le symétrique de $E$ par rapport à $F$.
\item Lire ses coordonnées.
\stopitemize

\column
Correction ...
\stopmyColumn


\stopMethode

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


More information about the ntg-context mailing list