Make your own free website on Tripod.com

ALGORITMO DE BARRIDO GENERAL

 

Se hace un barrido en X desde x=xc-r hasta x=xc+r.

El algoritmo es el siguiente:

Procedimiento circulop(xc,yc,r:  integer)

       Var   x,y,integer :dreal;

    Begin

        For(x=xc-r to xc+r do begin)

             d=sqrt(1.0*r*r-(x-xc)-(x-xc));

              y=yc+round(d);

              putpixel(x+xc,y+yc,15);

              y=yc-round(d);

              putpixel(x+xc,y+yc,15);

         end;

     end;

 

En este algoritmo de barrido se irán obteniendo los puntos de X y Y y la forma como se grafica este circulo es porque se obtienen dos puntos que es donde se van a poner los pixeles y como vemos el factor que cambia mas es el de Y ya que en uno se le restara d y en otro se le sumara esto es lo que va haciendo que el circulo tome forma.