From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/3134
Path: main.gmane.org!not-for-mail
From: "Denis B. Roegel" <Denis.Roegel@loria.fr>
Newsgroups: gmane.comp.tex.context
Subject: shading question
Date: Tue, 31 Oct 2000 22:29:46 +0100 (MET)
Sender: owner-ntg-context@let.uu.nl
Message-ID: <200010312129.WAA23455@bar.loria.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035393890 14538 80.91.224.250 (23 Oct 2002 17:24:50 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 17:24:50 +0000 (UTC)
Cc: roegel@lorraine.loria.fr
Original-To: ntg-context@ntg.nl
Xref: main.gmane.org gmane.comp.tex.context:3134
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:3134

In the following example, the top parts of the circles are
slightly trimmed, at least when I view them with acroread.
Is this normal?

Thanks,

Denis

\setupcolors[state=start]
\starttext

\definecolor[a][darkyellow]
\definecolor[b][s=.8]
\definecolor[c][darkred]

\startuniqueMPgraphic{CircularShade}
  path p;
  p:= unitsquare xscaled \overlaywidth yscaled \overlayheight ;
  circular_shade(p,0,\MPcolor{a},\MPcolor{b});
\stopuniqueMPgraphic

\startuniqueMPgraphic{LinearShade}
  path p;
  p:= unitsquare xscaled \overlaywidth yscaled \overlayheight ;
  linear_shade(p,0,\MPcolor{a},\MPcolor{b});
\stopuniqueMPgraphic

\defineoverlay[circular shade][\uniqueMPgraphic{CircularShade}]
\defineoverlay[linear shade]  [\uniqueMPgraphic{LinearShade}]

\framed
  [background=circular shade,frame=off]
  {\bf \white Hi there, I'm Circular!}

\framed
  [background=linear shade,frame=off]
  {\bf \white Whow, this is Linear!}

\startuniqueMPgraphic{test}
path p; p:=fullcircle scaled 1cm;
for i:= 0 step 2cm until 8cm:
  circular_shade(p shifted (i,0),0,\MPcolor{a},\MPcolor{b});
endfor;
\stopuniqueMPgraphic

\useMPgraphic{test}

\startuniqueMPgraphic{test1}
circular_shade(fullcircle scaled 1cm,0,\MPcolor{a},\MPcolor{b});
picture s; s:=currentpicture; currentpicture := nullpicture;
for i=0 step 2cm until 8cm:
  addto currentpicture also s shifted (i,0);
endfor;
\stopuniqueMPgraphic

\useMPgraphic{test1}

\startuniqueMPgraphic{test2}
sh:=define_circular_shade(origin,origin,0,8cm,\MPcolor{a},\MPcolor{b});
for i=0 step 2cm until 8cm:
  fill fullcircle scaled 1cm shifted (i,0) withshade sh;
endfor;
\stopuniqueMPgraphic

\useMPgraphic{test2}

\stoptext