From: p DOT steiner AT t-online DOT de (Peter Steiner)
Newsgroups: rec.games.programmer,comp.os.msdos.djgpp
Subject: Re: bresenham's circle
Date: 2 Aug 1997 16:15:34 GMT
Organization: Telekom Online Internet Gateway
Lines: 32
Message-ID: <5rvmf7$bha$4@news00.btx.dtag.de>
References: <33DF4527 DOT 671 AT mindspring DOT com> <kn5WwGAfZ$3zEwbB AT jenkinsdavid DOT demon DOT co DOT uk>
Reply-To: p DOT steiner AT t-online DOT de
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
To: djgpp AT delorie DOT com
DJ-Gateway: from newsgroup comp.os.msdos.djgpp
Precedence: bulk

Thatīs my circle proc. Circles are almost faster than lines...

Procedure Circle(x0,y0,r:Integer); 

Var
 x,y,b,h: Integer;

Begin
 x:=r; y:=r; b:=0; h:=0;

 Plot(x0+x,y0);  Plot(x0-x,y0);
 Plot(x0,y0+x);  Plot(x0,y0-x);

 while x>h do Begin
   inc(h); y:=y-h;

   if y<=0 then Begin  inc(b); x:=r-b; y:=y+x;  end;

   Plot(x0+x,y0+h);  Plot(x0-x,y0+h);
   Plot(x0+h,y0+x);  Plot(x0+h,y0-x);
   Plot(x0-x,y0-h);  Plot(x0+x,y0-h);
   Plot(x0-h,y0-x);  Plot(x0-h,y0+x);
 end;

End;


-- 
   _   x    ___
  / \_/_\_ /,--'  p DOT steiner AT t-online DOT de (Peter Steiner)
  \/>'~~~~//
    \_____/   signature V0.2 alpha