Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-28 Thread Jean-Pierre Delange 
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 
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
___


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

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-28 Thread Jeong Dal 
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
___

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-28 Thread Wolfgang Schuster 

Jeong Dal 
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
___

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-28 Thread Jeong Dal 
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

 ... 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...
 
\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


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

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Fabrice Couvreur 
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 :

> Fabrice Couvreur 
> 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
>
> ___
>
___
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
___

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Wolfgang Schuster 

Fabrice Couvreur 
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
___

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Fabrice Couvreur 
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 :

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

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Hans Hagen 

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
___

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Hans Hagen 

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

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

___




___
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

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Fabrice Couvreur 
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 :

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

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Fabrice Couvreur 
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 :

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

Re: [NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Hans Hagen 

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
___

[NTG-context] Optimize code to create a environnementt with Metafun ?

2016-07-26 Thread Fabrice Couvreur 
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
___
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
___