[NTG-context] Space between both environments

Fabrice Couvreur fabrice1.couvreur at gmail.com
Mon Sep 7 19:35:21 CEST 2015


Hi,
I can not insert a space between my two environments.
Thank you.
Fabrice

% macros=mkvi

\setupcolors[state=start]


\definecolor[MyColorA][c=0.00, m=0.10, y=0.20, k=0.00]

\definecolor[MyColorB][c=0.00, m=0.62, y=1.00, k=0.00]

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

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


\defineframedtext
  [MyDefinition]
  [before={\blank},
   after={\blank},
   frame=off,
   background=MyFrame,
   width=\textwidth,
   height=fit,
   location=left,
   style=italic]

\defineoverlay
  [MyFrame]
  [\useMPgraphic{MyFrame}]

\definelabel
  [Définition]
  [headstyle=\bf\smallcaps]

\startuseMPgraphic{MyFrame}
    path b ;
    picture p ;
    p := textext.rt("\white\Définition") ;
    p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight)
;
    b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth ;
    fill OverlayBox withcolor \MPcolor{MyColorA} ;
    fill b withcolor \MPcolor{MyColorB} ;
    draw p ;
\stopuseMPgraphic


\definemixedcolumns
  [myColumn]
  [n=2,
   separator=rule,
   rulecolor=MyColorC,
   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{MyColorC})
;
    draw leftboundary OverlayBox ;
    fill b withcolor \MPcolor{MyColorD} ;
    draw p ;
    setbounds currentpicture to OverlayBox ;
\stopuseMPgraphic

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



\starttext

\startMyDefinition
\input knuth
\stopMyDefinition

\startMethode

\startmyColumn

\input ward

\column
\input knuth
\stopmyColumn


\stopMethode
\stopsection
\stopchapter
\stoppart
\stoptext
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.ntg.nl/pipermail/ntg-context/attachments/20150907/25a15a08/attachment.html>


More information about the ntg-context mailing list