Алгоритм Безенхема для генерации окружности

[Влад09]

Уважаемые обитатели.Помогите с реализацией этого алгоритма на Pascal,побовал но у меня очень плохо спаскалем,ничего не получается.

[Mad_Cat]

http://www.codenet.ru/progr/video/alg/alg4.php

[Tronix]

PHP код:

Procedure DrawCircle(X, Y, Radius:Word; Color:Byte);
Var
   Xs, Ys    : Integer;
   Da, Db, S : Integer;
begin
     if (Radius = 0) then
          Exit;

     if (Radius = 1) then
     begin
          PutPixel(X, Y, Color);
          Exit;
     end;

     Xs := 0;
     Ys := Radius;

     Repeat
           Da := Sqr(Xs+1) + Sqr(Ys) - Sqr(Radius);
           Db := Sqr(Xs+1) + Sqr(Ys - 1) - Sqr(Radius);
           S  := Da + Db;

           Xs := Xs+1;
           if (S > 0) then
                Ys := Ys - 1;

           PutPixel(X+Xs-1, Y-Ys+1, Color);
           PutPixel(X-Xs+1, Y-Ys+1, Color);
           PutPixel(X+Ys-1, Y-Xs+1, Color);
           PutPixel(X-Ys+1, Y-Xs+1, Color);
           PutPixel(X+Xs-1, Y+Ys-1, Color);
           PutPixel(X-Xs+1, Y+Ys-1, Color);
           PutPixel(X+Ys-1, Y+Xs-1, Color);
           PutPixel(X-Ys+1, Y+Xs-1, Color);
     Until (Xs >= Ys);
end; 


[Влад09]

Спасибо всем что откликнулись на мою прозьбу.Спасибо большое!!!!