From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/5532
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: Re: one answered
Date: Fri, 07 Sep 2001 09:11:00 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <5.1.0.14.1.20010907085603.030c7900@server-1>
References: <003201c13710$891f5160$cf29a33e@arnhem.chello.nl>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
X-Trace: main.gmane.org 1035396119 2466 80.91.224.250 (23 Oct 2002 18:01:59 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 18:01:59 +0000 (UTC)
Cc: "NTG-ConTeXt mailing list" <ntg-context@ntg.nl>
Original-To: "Frans Goddijn" <frans@goddijn.com>
In-Reply-To: <000701c13714$75a97d00$15a7fea9@lap>
Xref: main.gmane.org gmane.comp.tex.context:5532
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:5532

At 10:35 PM 9/6/2001 +0200, Frans Goddijn wrote:

>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>\startreusableMPgraphic{omcirkeld}
>   draw fullcircle xyscaled (OverlayWidth)
>      withpen pencircle scaled OverlayLineWidth
>      withcolor OverlayLineColor ;
>  path b ; b := boundingbox currentpicture ;
>  currentpicture := currentpicture shifted (-1pt,+3pt) ;
>  setbounds currentpicture to b ;
>\stopreusableMPgraphic
>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>\defineoverlay[omcirkeld][\reuseMPgraphic{omcirkeld}]
>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\startreusableMPgraphic{omcirkeld}
   draw fullcircle xyscaled (OverlayWidth)
      withpen pencircle scaled OverlayLineWidth
      withcolor OverlayLineColor ;
  path b ; b := boundingbox currentpicture ;
  currentpicture := currentpicture shifted (-.05*EmWidth,0*ExHeight) ;
  setbounds currentpicture to b enlarged 3pt ;
\stopreusableMPgraphic

You can prevent the clipping by enlarging the boundingbox a bit; for 
illustrative purposes, you can add an extra line:

draw boundingbox currentpicture withcolor red ;

to see what this box is

since backgrounds are centered a larger boundingbox does not hurt

>Now I wonder, should I make the c!voorgrond something like c!achtergrond
>(which didn't work when I tried of course ;=}}}

hm, what do you want to achieve here? the foreground can be accessed, for 
special purposes, like in

background={graphic-1,graphic-2,foreground,graphic-3}

there is also foregroundcolor, which cna be used for a 'non interefering' 
coloring of content

with regards to the macro: you should set the font outsite the framed, so 
that it will adapt itself to the font characteristics. Also, \font is not 
needed:

you probably want to use the serif, so

\def\FransP
   {\midaligned{\definedfont[Whow][PFont sa 1]\omcirkeld....}

Instead of PFont you can use a name but indirectness makes this macro 
useable in other docs with other fonts:

    \definefontsynonym[PFont][Serif]  % or [PFont] 
[oneoffransoldstylefonts] or whatever

etc etc etc

hans

-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------