ntg-context - mailing list for ConTeXt users
 help / color / mirror / Atom feed
* Re: Optimize code to create a environnementt with Metafun ?
       [not found] <mailman.803.1469714420.6154.ntg-context@ntg.nl>
@ 2016-07-28 14:16 ` Jeong Dal
  0 siblings, 0 replies; 13+ messages in thread
From: Jeong Dal @ 2016-07-28 14:16 UTC (permalink / raw)
  To: ntg-context

Dear Wolfgang,

Thank you for the correction, It works fine.
I couldn’t see extra ‘m’ when I check.

Thanks again.

Best regards,

Dalyoung

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-28 13:36   ` Wolfgang Schuster
@ 2016-07-28 16:08     ` Jean-Pierre Delange
  0 siblings, 0 replies; 13+ messages in thread
From: Jean-Pierre Delange @ 2016-07-28 16:08 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 1660 bytes --]

This frame seems very nice in order to use it as a summary, or a 
chapter's conclusion.

Thank you Fabrice, Wolfgang and Dalyoung !


Le 28/07/2016 à 15:36, Wolfgang Schuster a écrit :
>> Jeong Dal <mailto:haksan@me.com>
>> 28. Juli 2016 um 15:17
>> Dear Fabrice and Wolfgang,
>>
>> I tried the following code of yours, but I got “! undefined control 
>> sequence” error.
>> Would you please tell me where I should to correct?
>>
>> Thank you so much,
>>
>> Best regards,
>>
>> Dalyoung
>>
>> %%%%%%%%%%%%%%%
>> \setupbodyfont[pagella,11pt]
>>
>> \setupcolors[state=start]
>>
>> \defineframedtext
>>  [MyFrame]
>>  [before={\blank},
>>   after={\blank},
>>   frame=off,
>>   background=MyFrame,
>>   %width=\textwidth,
>>   width=max,
>>   height=fit,
>>   style=italic]
>>
>> \definelabel
>>  [Définition]
>>  [headstyle=\bf\smallcaps]
>>
>> \startuseMPgraphic{MyFrame}
>> path b;
>> picture p;
>> %p := textext.rt("\white\Définition");
>> p := textext.rt("\white\framedtextparamemter{Title}");
> You have a extra "m" in \framedtextparameter (fourth letter from the end).
>
> Wolfgang
>
>
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________


[-- Attachment #1.2: Type: text/html, Size: 5140 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-28 13:17 ` Jeong Dal
@ 2016-07-28 13:36   ` Wolfgang Schuster
  2016-07-28 16:08     ` Jean-Pierre Delange
  0 siblings, 1 reply; 13+ messages in thread
From: Wolfgang Schuster @ 2016-07-28 13:36 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 905 bytes --]

> Jeong Dal <mailto:haksan@me.com>
> 28. Juli 2016 um 15:17
> Dear Fabrice and Wolfgang,
>
> I tried the following code of yours, but I got “! undefined control 
> sequence” error.
> Would you please tell me where I should to correct?
>
> Thank you so much,
>
> Best regards,
>
> Dalyoung
>
> %%%%%%%%%%%%%%%
> \setupbodyfont[pagella,11pt]
>
> \setupcolors[state=start]
>
> \defineframedtext
>  [MyFrame]
>  [before={\blank},
>   after={\blank},
>   frame=off,
>   background=MyFrame,
>   %width=\textwidth,
>   width=max,
>   height=fit,
>   style=italic]
>
> \definelabel
>  [Définition]
>  [headstyle=\bf\smallcaps]
>
> \startuseMPgraphic{MyFrame}
> path b;
> picture p;
> %p := textext.rt("\white\Définition");
> p := textext.rt("\white\framedtextparamemter{Title}");
You have a extra "m" in \framedtextparameter (fourth letter from the end).

Wolfgang

[-- Attachment #1.2: Type: text/html, Size: 2721 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
       [not found] <mailman.1.1469613601.14470.ntg-context@ntg.nl>
@ 2016-07-28 13:17 ` Jeong Dal
  2016-07-28 13:36   ` Wolfgang Schuster
  0 siblings, 1 reply; 13+ messages in thread
From: Jeong Dal @ 2016-07-28 13:17 UTC (permalink / raw)
  To: ntg-context


[-- Attachment #1.1: Type: text/plain, Size: 2626 bytes --]

Dear Fabrice and Wolfgang,

I tried the following code of yours, but I got “! undefined control sequence” error.
Would you please tell me where I should to correct?

Thank you so much,

Best regards,

Dalyoung

%%%%%%%%%%%%%%%
\setupbodyfont[pagella,11pt]

\setupcolors[state=start]

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

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

\startuseMPgraphic{MyFrame}
path b;
picture p;
%p := textext.rt("\white\Définition");
p := textext.rt("\white\framedtextparamemter{Title}");
%p := textext.rt("\white\getvariable{text}{text1}");
p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
fill OverlayBox withcolor lightgray;  %\MPcolor{
fill b withcolor darkred;
draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
draw p;
setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
\stopuseMPgraphic

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

\starttext

\showframe
\startMyFrame[Title=Hans]
\input knuth
\stopMyFrame

\startMyFrame[Title=Hagen]
\input knuth
\stopMyFrame

\stoptext

…..

tex error       > tex error on line 52 in file /Users/graph/Documents/TeXfiles/test.tex: ! Undefined control sequence

<argument> ... p := textext.rt("\white \framedtextparamemter 
                                                  {Title}"); p := p shifted ...
\meta_process_graphic ...currentMPformat }data {#1
                                                  ;}initializations {\meta_f...
\meta_handle_use_graphic ...a_process_graphic {#3}
                                                  \endgroup 
\meta_use_graphic ...me \??mpgraphic #1\endcsname 
                                                  \empty \meta_end_graphic_g...
<to be read again> 
\else 
\executedefinedoverlay ...e \everyoverlay #2\else 
                                                  \lower \d_framed_target_dp...
...
l.52 \stopMyFrame
               

42     
43     \defineoverlay
44      [MyFrame]
45      [\useMPgraphic{MyFrame}]
46     
47     \starttext
48     
49     \showframe
50     \startMyFrame[Title=Hans]
51     \input knuth
52 >>  \stopMyFrame
53     
54     \startMyFrame[Title=Hagen]
55     \input knuth
56     \stopMyFrame
57     
58     \stoptext



[-- Attachment #1.2: Type: text/html, Size: 9124 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 19:49         ` Wolfgang Schuster
@ 2016-07-26 20:58           ` Fabrice Couvreur
  0 siblings, 0 replies; 13+ messages in thread
From: Fabrice Couvreur @ 2016-07-26 20:58 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 2422 bytes --]

Hi Wolfgang
Thanks once again !

\startMyFrame[Title=Thanks ]
\input knuth
\stopMyFrame

\startMyFrame[Title=once again !]
\input knuth
\stopMyFrame

Fabrice

2016-07-26 21:49 GMT+02:00 Wolfgang Schuster <schuster.wolfgang@gmail.com>:

> Fabrice Couvreur <fabrice1.couvreur@gmail.com>
> 26. Juli 2016 um 20:21
> Hi Hans,
> I think I was not very clear.
>
>
>
> Title first framed : Hans
>
> Title second framed : Hagen
>
>
> You can pass a title to the optional framedtext argument (use camel case
> to avoid
> using existing key names) and access the value later in the metapost
> graphic.
>
> Thanks
> Fabrice
>
> \setupbodyfont[pagella,11pt]
>
> \setupcolors[state=start]
>
> \defineframedtext
>   [MyFrame]
>   [before={\blank},
>    after={\blank},
>    frame=off,
>    background=MyFrame,
>    width=\textwidth,
>
> width=max,
>
>    height=fit,
>    style=italic]
>
> \setvariables
>   [text]
>   [text1=Hans,
>    text2=Hagen,]
>
>
> \startuseMPgraphic{MyFrame}
>  path b;
>  picture p;
>  p := textext.rt("\white\getvariable{text}{text1}");
>
>
>  p := textext.rt("\white\framedtextparameter{Title}");
>
>  p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
>  b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
>  fill OverlayBox withcolor lightgray;
>  fill b withcolor darkred;
>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
> darkred;
>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
> darkred;
>  draw p;
>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
> \stopuseMPgraphic
>
> \defineoverlay
>   [MyFrame]
>   [\useMPgraphic{MyFrame}]
>
> \starttext
>
>
> \startMyFrame
> \input knuth
> \stopMyFrame
>
> \startMyFrame
> \input knuth
> \stopMyFrame
>
>
> \startMyFrame[Title=Hans]
> \input knuth
> \stopMyFrame
>
> \startMyFrame[Title=Hagen]
> \input knuth
> \stopMyFrame
>
> Wolfgang
>
>
> ___________________________________________________________________________________
> 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
>
> ___________________________________________________________________________________
>

[-- Attachment #1.2: Type: text/html, Size: 5832 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 18:21       ` Fabrice Couvreur
@ 2016-07-26 19:49         ` Wolfgang Schuster
  2016-07-26 20:58           ` Fabrice Couvreur
  0 siblings, 1 reply; 13+ messages in thread
From: Wolfgang Schuster @ 2016-07-26 19:49 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 1642 bytes --]

> Fabrice Couvreur <mailto:fabrice1.couvreur@gmail.com>
> 26. Juli 2016 um 20:21
> Hi Hans,
> I think I was not very clear.
>
>
>
> Title first framed : Hans
>
> Title second framed : Hagen

You can pass a title to the optional framedtext argument (use camel case 
to avoid
using existing key names) and access the value later in the metapost 
graphic.

> Thanks
> Fabrice
>
> \setupbodyfont[pagella,11pt]
>
> \setupcolors[state=start]
>
> \defineframedtext
>   [MyFrame]
>   [before={\blank},
>    after={\blank},
>    frame=off,
>    background=MyFrame,
>    width=\textwidth,
width=max,
>    height=fit,
>    style=italic]
>
> \setvariables
>   [text]
>   [text1=Hans,
>    text2=Hagen,]
>
>
> \startuseMPgraphic{MyFrame}
>  path b;
>  picture p;
>  p := textext.rt("\white\getvariable{text}{text1}");

  p := textext.rt("\white\framedtextparameter{Title}");

>  p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
>  b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
>  fill OverlayBox withcolor lightgray;
>  fill b withcolor darkred;
>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  
> withcolor darkred;
>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor 
> darkred;
>  draw p;
>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
> \stopuseMPgraphic
>
> \defineoverlay
>   [MyFrame]
>   [\useMPgraphic{MyFrame}]
>
> \starttext
>
>
> \startMyFrame
> \input knuth
> \stopMyFrame
>
> \startMyFrame
> \input knuth
> \stopMyFrame

\startMyFrame[Title=Hans]
\input knuth
\stopMyFrame

\startMyFrame[Title=Hagen]
\input knuth
\stopMyFrame

Wolfgang

[-- Attachment #1.2: Type: text/html, Size: 4750 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 14:15     ` Hans Hagen
@ 2016-07-26 18:21       ` Fabrice Couvreur
  2016-07-26 19:49         ` Wolfgang Schuster
  0 siblings, 1 reply; 13+ messages in thread
From: Fabrice Couvreur @ 2016-07-26 18:21 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 7853 bytes --]

Hi Hans,
I think I was not very clear.



Title first framed : Hans

Title second framed : Hagen

Thanks
Fabrice

\setupbodyfont[pagella,11pt]

\setupcolors[state=start]

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

\setvariables
  [text]
  [text1=Hans,
   text2=Hagen,]


\startuseMPgraphic{MyFrame}
 path b;
 picture p;
 p := textext.rt("\white\getvariable{text}{text1}");
 p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
 b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
 fill OverlayBox withcolor lightgray;
 fill b withcolor darkred;
 draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
 draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
 draw p;
 setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
\stopuseMPgraphic

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

\starttext


\startMyFrame
\input knuth
\stopMyFrame

\startMyFrame
\input knuth
\stopMyFrame


2016-07-26 16:15 GMT+02:00 Hans Hagen <pragma@wxs.nl>:

> On 7/26/2016 3:12 PM, Fabrice Couvreur wrote:
>
>> Hi Hans,
>> How to pass the "SomeText" parameter?
>>
>
> with setvariables and getvariable
>
> \setupbodyfont[pagella,11pt]
>>
>> \setupcolors[state=start]
>>
>> \defineframedtext
>>   [SomeText]
>>   [before={\blank},
>>    after={\blank},
>>    frame=off,
>>    background=MyFrame,
>>    width=\textwidth,
>>    height=fit,
>>    style=italic]
>>
>> \startuseMPgraphic{MyFrame}
>>  path b;
>>  picture p;
>>  p := textext.rt("\white SomeText");
>>  p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
>>  b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
>>  fill OverlayBox withcolor lightgray;
>>  fill b withcolor darkred;
>>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>> darkred;
>>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>> darkred;
>>  draw p;
>>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
>> \stopuseMPgraphic
>>
>> \defineoverlay
>>   [MyFrame]
>>   [\useMPgraphic{MyFrame}]
>>
>> \starttext
>>
>>
>> \startSomeText{SomeText1}
>> \input knuth
>> \stopSomeText
>>
>> \startSomeText{SomeText2}
>> \input knuth
>> \stopSomeText
>>
>> \stoptext
>>
>> Thanks
>> Fabrice
>>
>> 2016-07-26 12:34 GMT+02:00 Hans Hagen <pragma@wxs.nl
>> <mailto:pragma@wxs.nl>>:
>>
>>
>>     On 7/26/2016 10:18 AM, Fabrice Couvreur wrote:
>>
>>         Hello,
>>         Hans and Wolfgang really helped me to create new environments
>>         with Metafun.
>>         I think Hans continuous development Metafun. So my question is
>>         simple:
>>         can we optimize this code?
>>
>>
>>     in what sense ...
>>
>>     speed? not much to gain
>>
>>     correctness? mayhe use "lightgray" and "darkred" for consistency
>>
>>     typography? sure, but more a discussion topic at the ctx meeting
>>
>>         Thanks,
>>         Fabrice
>>
>>         \setupbodyfont[pagella,11pt]
>>
>>         \setupcolors[state=start]
>>
>>         \defineframedtext
>>           [MyDefinition]
>>           [before={\blank},
>>            after={\blank},
>>            frame=off,
>>            background=MyFrame,
>>            width=\textwidth,
>>            height=fit,
>>            style=italic]
>>
>>         \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{lightgray};
>>          fill b withcolor darkred;
>>          draw bottomboundary OverlayBox withpen pencircle scaled 1pt
>>         withcolor
>>         darkred;
>>          draw topboundary OverlayBox withpen pencircle scaled 1pt
>> withcolor
>>         darkred;
>>          draw p;
>>          setbounds currentpicture to boundingbox currentpicture enlarged
>>         2mm;
>>         \stopuseMPgraphic
>>
>>         \defineoverlay
>>           [MyFrame]
>>           [\useMPgraphic{MyFrame}]
>>
>>         \starttext
>>
>>         \showframe
>>
>>         \startMyDefinition
>>         \input knuth
>>         \stopMyDefinition
>>
>>         \stoptext
>>
>>
>>
>>
>> ___________________________________________________________________________________
>>         If your question is of interest to others as well, please add an
>>         entry to the Wiki!
>>
>>         maillist : ntg-context@ntg.nl <mailto: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
>>
>> ___________________________________________________________________________________
>>
>>
>>
>>     --
>>
>>     -----------------------------------------------------------------
>>                                               Hans Hagen | PRAGMA ADE
>>                   Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>>            tel: 038 477 53 69 | www.pragma-ade.nl
>>     <http://www.pragma-ade.nl> | www.pragma-pod.nl
>>     <http://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 <mailto: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
>>
>> ___________________________________________________________________________________
>>
>>
>>
>>
>>
>> ___________________________________________________________________________________
>> 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
>>
>> ___________________________________________________________________________________
>>
>>
>
> --
>
> -----------------------------------------------------------------
>                                           Hans Hagen | PRAGMA ADE
>               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>        tel: 038 477 53 69 | www.pragma-ade.nl | 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
>
> ___________________________________________________________________________________
>

[-- Attachment #1.2: Type: text/html, Size: 12527 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 13:12   ` Fabrice Couvreur
@ 2016-07-26 14:15     ` Hans Hagen
  2016-07-26 18:21       ` Fabrice Couvreur
  0 siblings, 1 reply; 13+ messages in thread
From: Hans Hagen @ 2016-07-26 14:15 UTC (permalink / raw)
  To: ntg-context

On 7/26/2016 3:12 PM, Fabrice Couvreur wrote:
> Hi Hans,
> How to pass the "SomeText" parameter?

with setvariables and getvariable

> \setupbodyfont[pagella,11pt]
>
> \setupcolors[state=start]
>
> \defineframedtext
>   [SomeText]
>   [before={\blank},
>    after={\blank},
>    frame=off,
>    background=MyFrame,
>    width=\textwidth,
>    height=fit,
>    style=italic]
>
> \startuseMPgraphic{MyFrame}
>  path b;
>  picture p;
>  p := textext.rt("\white SomeText");
>  p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
>  b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
>  fill OverlayBox withcolor lightgray;
>  fill b withcolor darkred;
>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
> darkred;
>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
> darkred;
>  draw p;
>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
> \stopuseMPgraphic
>
> \defineoverlay
>   [MyFrame]
>   [\useMPgraphic{MyFrame}]
>
> \starttext
>
>
> \startSomeText{SomeText1}
> \input knuth
> \stopSomeText
>
> \startSomeText{SomeText2}
> \input knuth
> \stopSomeText
>
> \stoptext
>
> Thanks
> Fabrice
>
> 2016-07-26 12:34 GMT+02:00 Hans Hagen <pragma@wxs.nl
> <mailto:pragma@wxs.nl>>:
>
>     On 7/26/2016 10:18 AM, Fabrice Couvreur wrote:
>
>         Hello,
>         Hans and Wolfgang really helped me to create new environments
>         with Metafun.
>         I think Hans continuous development Metafun. So my question is
>         simple:
>         can we optimize this code?
>
>
>     in what sense ...
>
>     speed? not much to gain
>
>     correctness? mayhe use "lightgray" and "darkred" for consistency
>
>     typography? sure, but more a discussion topic at the ctx meeting
>
>         Thanks,
>         Fabrice
>
>         \setupbodyfont[pagella,11pt]
>
>         \setupcolors[state=start]
>
>         \defineframedtext
>           [MyDefinition]
>           [before={\blank},
>            after={\blank},
>            frame=off,
>            background=MyFrame,
>            width=\textwidth,
>            height=fit,
>            style=italic]
>
>         \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{lightgray};
>          fill b withcolor darkred;
>          draw bottomboundary OverlayBox withpen pencircle scaled 1pt
>         withcolor
>         darkred;
>          draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>         darkred;
>          draw p;
>          setbounds currentpicture to boundingbox currentpicture enlarged
>         2mm;
>         \stopuseMPgraphic
>
>         \defineoverlay
>           [MyFrame]
>           [\useMPgraphic{MyFrame}]
>
>         \starttext
>
>         \showframe
>
>         \startMyDefinition
>         \input knuth
>         \stopMyDefinition
>
>         \stoptext
>
>
>
>         ___________________________________________________________________________________
>         If your question is of interest to others as well, please add an
>         entry to the Wiki!
>
>         maillist : ntg-context@ntg.nl <mailto: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
>         ___________________________________________________________________________________
>
>
>
>     --
>
>     -----------------------------------------------------------------
>                                               Hans Hagen | PRAGMA ADE
>                   Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>            tel: 038 477 53 69 | www.pragma-ade.nl
>     <http://www.pragma-ade.nl> | www.pragma-pod.nl
>     <http://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 <mailto: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
>     ___________________________________________________________________________________
>
>
>
>
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
>


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | 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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 12:20   ` Fabrice Couvreur
@ 2016-07-26 14:14     ` Hans Hagen
  0 siblings, 0 replies; 13+ messages in thread
From: Hans Hagen @ 2016-07-26 14:14 UTC (permalink / raw)
  To: ntg-context

On 7/26/2016 2:20 PM, Fabrice Couvreur wrote:
> Hi Hans,
> So the code is "perfect"? : =)
>
>     typography? sure, but more a discussion topic at the ctx meeting
>
>
> Seriously, where can we read the conference proceedings?

such things don't end up in proceedings ... btw, it's those (and other) 
discussions that make tex meetings interesting

Hans


-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | 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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 10:34 ` Hans Hagen
  2016-07-26 12:20   ` Fabrice Couvreur
@ 2016-07-26 13:12   ` Fabrice Couvreur
  2016-07-26 14:15     ` Hans Hagen
  1 sibling, 1 reply; 13+ messages in thread
From: Fabrice Couvreur @ 2016-07-26 13:12 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 4208 bytes --]

Hi Hans,
How to pass the "SomeText" parameter ?

\setupbodyfont[pagella,11pt]

\setupcolors[state=start]

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

\startuseMPgraphic{MyFrame}
 path b;
 picture p;
 p := textext.rt("\white SomeText");
 p := p shifted (2BodyFontSize,OverlayHeight-ypart center p+.25ExHeight);
 b := boundingbox p leftenlarged .5EmWidth rightenlarged .5EmWidth;
 fill OverlayBox withcolor lightgray;
 fill b withcolor darkred;
 draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
 draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
 draw p;
 setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
\stopuseMPgraphic

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

\starttext


\startSomeText{SomeText1}
\input knuth
\stopSomeText

\startSomeText{SomeText2}
\input knuth
\stopSomeText

\stoptext

Thanks
Fabrice

2016-07-26 12:34 GMT+02:00 Hans Hagen <pragma@wxs.nl>:

> On 7/26/2016 10:18 AM, Fabrice Couvreur wrote:
>
>> Hello,
>> Hans and Wolfgang really helped me to create new environments with
>> Metafun.
>> I think Hans continuous development Metafun. So my question is simple:
>> can we optimize this code?
>>
>
> in what sense ...
>
> speed? not much to gain
>
> correctness? mayhe use "lightgray" and "darkred" for consistency
>
> typography? sure, but more a discussion topic at the ctx meeting
>
> Thanks,
>> Fabrice
>>
>> \setupbodyfont[pagella,11pt]
>>
>> \setupcolors[state=start]
>>
>> \defineframedtext
>>   [MyDefinition]
>>   [before={\blank},
>>    after={\blank},
>>    frame=off,
>>    background=MyFrame,
>>    width=\textwidth,
>>    height=fit,
>>    style=italic]
>>
>> \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{lightgray};
>>  fill b withcolor darkred;
>>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>> darkred;
>>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>> darkred;
>>  draw p;
>>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
>> \stopuseMPgraphic
>>
>> \defineoverlay
>>   [MyFrame]
>>   [\useMPgraphic{MyFrame}]
>>
>> \starttext
>>
>> \showframe
>>
>> \startMyDefinition
>> \input knuth
>> \stopMyDefinition
>>
>> \stoptext
>>
>>
>>
>>
>> ___________________________________________________________________________________
>> 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
>>
>> ___________________________________________________________________________________
>>
>>
>
> --
>
> -----------------------------------------------------------------
>                                           Hans Hagen | PRAGMA ADE
>               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>        tel: 038 477 53 69 | www.pragma-ade.nl | 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
>
> ___________________________________________________________________________________

[-- Attachment #1.2: Type: text/html, Size: 6728 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26 10:34 ` Hans Hagen
@ 2016-07-26 12:20   ` Fabrice Couvreur
  2016-07-26 14:14     ` Hans Hagen
  2016-07-26 13:12   ` Fabrice Couvreur
  1 sibling, 1 reply; 13+ messages in thread
From: Fabrice Couvreur @ 2016-07-26 12:20 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 3328 bytes --]

Hi Hans,
So the code is "perfect" ? : =)

typography? sure, but more a discussion topic at the ctx meeting


Seriously, where can we read the conference proceedings ?
Thanks
Fabrice

2016-07-26 12:34 GMT+02:00 Hans Hagen <pragma@wxs.nl>:

> On 7/26/2016 10:18 AM, Fabrice Couvreur wrote:
>
>> Hello,
>> Hans and Wolfgang really helped me to create new environments with
>> Metafun.
>> I think Hans continuous development Metafun. So my question is simple:
>> can we optimize this code?
>>
>
> in what sense ...
>
> speed? not much to gain
>
> correctness? mayhe use "lightgray" and "darkred" for consistency
>
> typography? sure, but more a discussion topic at the ctx meeting
>
> Thanks,
>> Fabrice
>>
>> \setupbodyfont[pagella,11pt]
>>
>> \setupcolors[state=start]
>>
>> \defineframedtext
>>   [MyDefinition]
>>   [before={\blank},
>>    after={\blank},
>>    frame=off,
>>    background=MyFrame,
>>    width=\textwidth,
>>    height=fit,
>>    style=italic]
>>
>> \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{lightgray};
>>  fill b withcolor darkred;
>>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>> darkred;
>>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
>> darkred;
>>  draw p;
>>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
>> \stopuseMPgraphic
>>
>> \defineoverlay
>>   [MyFrame]
>>   [\useMPgraphic{MyFrame}]
>>
>> \starttext
>>
>> \showframe
>>
>> \startMyDefinition
>> \input knuth
>> \stopMyDefinition
>>
>> \stoptext
>>
>>
>>
>>
>> ___________________________________________________________________________________
>> 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
>>
>> ___________________________________________________________________________________
>>
>>
>
> --
>
> -----------------------------------------------------------------
>                                           Hans Hagen | PRAGMA ADE
>               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
>        tel: 038 477 53 69 | www.pragma-ade.nl | 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
>
> ___________________________________________________________________________________

[-- Attachment #1.2: Type: text/html, Size: 6083 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: Optimize code to create a environnementt with Metafun ?
  2016-07-26  8:18 Fabrice Couvreur
@ 2016-07-26 10:34 ` Hans Hagen
  2016-07-26 12:20   ` Fabrice Couvreur
  2016-07-26 13:12   ` Fabrice Couvreur
  0 siblings, 2 replies; 13+ messages in thread
From: Hans Hagen @ 2016-07-26 10:34 UTC (permalink / raw)
  To: ntg-context

On 7/26/2016 10:18 AM, Fabrice Couvreur wrote:
> Hello,
> Hans and Wolfgang really helped me to create new environments with Metafun.
> I think Hans continuous development Metafun. So my question is simple:
> can we optimize this code?

in what sense ...

speed? not much to gain

correctness? mayhe use "lightgray" and "darkred" for consistency

typography? sure, but more a discussion topic at the ctx meeting

> Thanks,
> Fabrice
>
> \setupbodyfont[pagella,11pt]
>
> \setupcolors[state=start]
>
> \defineframedtext
>   [MyDefinition]
>   [before={\blank},
>    after={\blank},
>    frame=off,
>    background=MyFrame,
>    width=\textwidth,
>    height=fit,
>    style=italic]
>
> \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{lightgray};
>  fill b withcolor darkred;
>  draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
> darkred;
>  draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
> darkred;
>  draw p;
>  setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
> \stopuseMPgraphic
>
> \defineoverlay
>   [MyFrame]
>   [\useMPgraphic{MyFrame}]
>
> \starttext
>
> \showframe
>
> \startMyDefinition
> \input knuth
> \stopMyDefinition
>
> \stoptext
>
>
>
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
>


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | 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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Optimize code to create a environnementt with Metafun ?
@ 2016-07-26  8:18 Fabrice Couvreur
  2016-07-26 10:34 ` Hans Hagen
  0 siblings, 1 reply; 13+ messages in thread
From: Fabrice Couvreur @ 2016-07-26  8:18 UTC (permalink / raw)
  To: mailing list for ConTeXt users


[-- Attachment #1.1: Type: text/plain, Size: 1236 bytes --]

Hello,
Hans and Wolfgang really helped me to create new environments with Metafun.
I think Hans continuous development Metafun. So my question is simple: can
we optimize this code ?
Thanks,
Fabrice

\setupbodyfont[pagella,11pt]

\setupcolors[state=start]

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

\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{lightgray};
 fill b withcolor darkred;
 draw bottomboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
 draw topboundary OverlayBox withpen pencircle scaled 1pt  withcolor
darkred;
 draw p;
 setbounds currentpicture to boundingbox currentpicture enlarged 2mm;
\stopuseMPgraphic

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

\starttext

\showframe

\startMyDefinition
\input knuth
\stopMyDefinition

\stoptext

[-- Attachment #1.2: Type: text/html, Size: 2259 bytes --]

[-- Attachment #2: Type: text/plain, Size: 485 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 13+ messages in thread

end of thread, other threads:[~2016-07-28 16:08 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
     [not found] <mailman.803.1469714420.6154.ntg-context@ntg.nl>
2016-07-28 14:16 ` Optimize code to create a environnementt with Metafun ? Jeong Dal
     [not found] <mailman.1.1469613601.14470.ntg-context@ntg.nl>
2016-07-28 13:17 ` Jeong Dal
2016-07-28 13:36   ` Wolfgang Schuster
2016-07-28 16:08     ` Jean-Pierre Delange
2016-07-26  8:18 Fabrice Couvreur
2016-07-26 10:34 ` Hans Hagen
2016-07-26 12:20   ` Fabrice Couvreur
2016-07-26 14:14     ` Hans Hagen
2016-07-26 13:12   ` Fabrice Couvreur
2016-07-26 14:15     ` Hans Hagen
2016-07-26 18:21       ` Fabrice Couvreur
2016-07-26 19:49         ` Wolfgang Schuster
2016-07-26 20:58           ` Fabrice Couvreur

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).