Metapost: I only need a little bit padding

Metapost: I only need a little bit padding

[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: Metapost: I only need a little bit padding

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