Re: [NTG-context] MP newbie question

2009-05-19 Thread Alan Stone
On Mon, May 18, 2009 at 8:45 PM, Alan Stone
software.list.1e...@gmail.comwrote:

 Hi,
 How do you make this work ?

 --- mpframed.tex ---

 %\def\myFrameAlternative{line}
 %\def\myFrameAlternative{dashes}
 \def\myFrameAlternative{dots}


The MetaPost User Manual brought the answer...

 %\def\myFrameAlternative{line}
%\def\myFrameAlternative{dashes}
\def\myFrameAlternative{dots}


  \startuniqueMPgraphic{name}

 path p ;

 p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
  show (\myFrameAlternative) ;

 if \myFrameAlternative = dashes :


if \myFrameAlternative = dashes :

Alan


  % if (\myFrameAlternative) = dashes :
 draw p dashed evenly scaled 2 ;
 % elseif (\myFrameAlternative) = dots :
 elseif \myFrameAlternative = dots :
 draw p dashed withdots scaled 2 ;
 else :
 draw p ;
 fi ;
  \stopuniqueMPgraphic

 \defineoverlay[myGraphic][\uniqueMPgraphic{name}]

 \starttext

 \framed[%
 offset=5mm,
 background=myGraphic,
 frame=off]
 {mp framed}

 \stoptext

 ---

 context.cmd mpframed

 --
 Alan

___
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  : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___


[NTG-context] MP newbie question

2009-05-18 Thread Alan Stone
Hi,
How do you make this work ?

--- mpframed.tex ---

%\def\myFrameAlternative{line}
%\def\myFrameAlternative{dashes}
\def\myFrameAlternative{dots}

\startuniqueMPgraphic{name}

path p ;

p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
 show (\myFrameAlternative) ;

if \myFrameAlternative = dashes :
% if (\myFrameAlternative) = dashes :
draw p dashed evenly scaled 2 ;
% elseif (\myFrameAlternative) = dots :
elseif \myFrameAlternative = dots :
draw p dashed withdots scaled 2 ;
else :
draw p ;
fi ;
\stopuniqueMPgraphic

\defineoverlay[myGraphic][\uniqueMPgraphic{name}]

\starttext

\framed[%
offset=5mm,
background=myGraphic,
frame=off]
{mp framed}

\stoptext

---

context.cmd mpframed

-- 
Alan


mpframed.log
Description: Binary data
___
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  : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___


Re: [NTG-context] MP newbie question

2009-05-18 Thread Aditya Mahajan

On Mon, 18 May 2009, Alan Stone wrote:


Hi,
How do you make this work ?

--- mpframed.tex ---

%\def\myFrameAlternative{line}
%\def\myFrameAlternative{dashes}
\def\myFrameAlternative{dots}


I usually do (untested)

\chardef\myFrameAlternative 
\myFrameAlternative \zerocount %(or \plusone or \plustwo)


and then


\startuniqueMPgraphic{name}

path p ;

p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
show (\myFrameAlternative) ;


\ifcase \myFramedAlternative
 draw p dashed evenly scaled 2 ;
\or
 draw p dashed with dots scaled 2 ;
\or
 draw p;
\fi



if \myFrameAlternative = dashes :
% if (\myFrameAlternative) = dashes :
draw p dashed evenly scaled 2 ;
% elseif (\myFrameAlternative) = dots :
elseif \myFrameAlternative = dots :
draw p dashed withdots scaled 2 ;
else :
draw p ;
fi ;
\stopuniqueMPgraphic

\defineoverlay[myGraphic][\uniqueMPgraphic{name}]

\starttext

\framed[%
offset=5mm,
background=myGraphic,
frame=off]
{mp framed}

\stoptext


Aditya
___
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  : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___