[NTG-context] Metapost: I only need a little bit padding

2014-04-05 Thread Jan Heinen
I want to have a rectangle (box) with a word in it (i.g. 
Headline). And all should be rotated 90°.
Below I found a solution I am quite happy with. How can I 
get a little bit more padding around the text in the box?


You can copy the example to http://live.contextgarden.net/  
- it is running:


\startuseMPgraphic{rotatedHeadline}
% Text Headline in a box which is rotated
draw btex {\strut\tfd Headline} etex;

% rectangle with rounded corners
path p;
p := llcorner currentpicture+(0mm,3mm){down}..{right}llcorner
currentpicture+(3mm,0mm)--
lrcorner currentpicture+(-3mm,0mm){right}..{up}lrcorner
currentpicture+(0mm,3mm)--
urcorner currentpicture+(0mm,-3mm){up}..{left}urcorner
currentpicture+(-3mm,0mm)--
ulcorner currentpicture+(3mm,0mm){left}..{down}ulcorner
currentpicture+(0mm,-3mm)--cycle;
pickup pencircle scaled 0.5pt;
clip currentpicture to p;
draw p;
currentpicture := currentpicture rotated 90;
\stopuseMPgraphic


\starttext
\useMPgraphic{rotatedHeadline}
\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] Metapost: I only need a little bit padding

2014-04-05 Thread Peter Rolf
Hi Jan,

Am 05.04.2014 15:48, schrieb Jan Heinen:
 \startuseMPgraphic{rotatedHeadline}
 % Text Headline in a box which is rotated
 draw btex {\strut\tfd Headline} etex;

setbounds currentpicture to boundingbox currentpicture enlarged 2mm;

The following code is based on the boundingbox, so just make it bigger
beforehand.

 
 % rectangle with rounded corners
 path p;
 p := llcorner currentpicture+(0mm,3mm){down}..{right}llcorner
 currentpicture+(3mm,0mm)--
 lrcorner currentpicture+(-3mm,0mm){right}..{up}lrcorner
 currentpicture+(0mm,3mm)--
 urcorner currentpicture+(0mm,-3mm){up}..{left}urcorner
 currentpicture+(-3mm,0mm)--
 ulcorner currentpicture+(3mm,0mm){left}..{down}ulcorner
 currentpicture+(0mm,-3mm)--cycle;
 pickup pencircle scaled 0.5pt;
 clip currentpicture to p;
 draw p;
 currentpicture := currentpicture rotated 90;
 \stopuseMPgraphic
 
 
 \starttext
 \useMPgraphic{rotatedHeadline}
 \stoptext

Best wishes,  Peter
___
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
___