Re: blurry ellipse

• To: mathgroup at smc.vnet.net
• Subject: [mg92198] Re: blurry ellipse
• From: "Solomon, Joshua" <J.A.Solomon at city.ac.uk>
• Date: Tue, 23 Sep 2008 07:29:19 -0400 (EDT)
• References: <gat9g4\$ec5\$1@smc.vnet.net> <gavqku\$emm\$1@smc.vnet.net>

```thanks. but notice, intensity also varies as you go around your ellipse.
j

On 19/09/2008 10:16, in article gavqku\$emm\$1 at smc.vnet.net, "dh"
<dh at metrohm.ch> wrote:

> n=100;
>
> pict=Table[0,{n},{n}];
>
> Scan[(pict[[Round[n/2+n/5  Sin[#]],Round[n/2+2
>
> n/5Cos[#]]]]=1)&,Range[0,2Pi,0.01]];
>
> Graphics[Raster[pict]]
>
> kernel={{1,1},{1,1}}; pict=ListConvolve[kernel,pict];pict=pict/Max[pict];
>
> Graphics[Raster[pict]]
>
> kernel={{1,1,1},{1,1,1},{1,1,1}};
>
> pict=ListConvolve[kernel,pict];pict=pict/Max[pict];
>
> Graphics[Raster[pict]]
>
> kernel={{1,1,1,1},{1,1,1,1},{1,1,1,1},{1,1,1,1}};
>
> pict=ListConvolve[kernel,pict];pict=pict/Max[pict];
>
> Graphics[Raster[pict]]

```

• Prev by Date: Re: Non-transparent wireframe in Plot3D
• Next by Date: Truncated GUIKit-MathPanel Output
• Previous by thread: Re: blurry ellipse
• Next by thread: Re: blurry ellipse