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
___________________________________________________________________________________
