MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: blurry ellipse


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