Эллипс в паскаль

[kolian2000]

Как нарисовать кликом миши елипсы?Один клик-один елипс,два клика-два елипса и тд.

[Sciv]

Обработку мыши в паскале пиши. Потом проверяй - если кликнута, тогда эллипс.

[puporev]

В Паскаль АВС.

uses graphABC,Events;
procedure MouseDown(x,y,mb: integer);
begin
  if mb=1 then ellipse(x-20,y-10,x+20,y+10)
end;
begin
OnMouseDown:=MouseDown;
end.

[programmer3]

процедура рисования эллипса

procedure Ellipse1(x1,y1,x2,y2:integer);
var n,m,d,b:real;i,z,xx,yy:integer;
begin

if abs(x2-x1)>abs(y2-y1) then
begin



d:=abs(x2-x1);
m:=2*sqrt(d*d/4-(y2-y1)*(y2-y1)/4);
if x1<x2 then z:=x1
         else z:=x2;
xx:=z;
yy:=round((y1+y2)/2);

for i:=z+1 to round((x1+x2)/2+1) do begin
n:=(abs(x2-x1)-m)/2-i+z;
b:=sqrt(sqr((d*d-n*n+sqr(m+n))/(2*d))-sqr(m+n));
line(xx,yy,i,round((y1+y2)/2-b));
line(xx,y1+y2-yy,i,round((y1+y2)/2+b));
line(x2+x1-xx,y1+y2-yy,x2+x1-i,round((y1+y2)/2+b));
line(x2+x1-xx,yy,x2+x1-i,round((y1+y2)/2-b));
xx:=i;
yy:=round((y1+y2)/2-b);
                                   end;

end

else begin

d:=abs(y2-y1);
m:=2*sqrt(d*d/4-(x2-x1)*(x2-x1)/4);
if y1<y2 then z:=y1
         else z:=y2;
yy:=z;
xx:=round((x1+x2)/2);

for i:=z+1 to round((y1+y2)/2+1) do begin

n:=(abs(y2-y1)-m)/2-i+z;
b:=sqrt(sqr((d*d-n*n+sqr(m+n))/(2*d))-sqr(m+n));
line(xx,yy,round((x1+x2)/2+b),i);
line(x1+x2-xx,yy,round((x1+x2)/2-b),i);
line(x2+x1-xx,y1+y2-yy,round((x1+x2)/2-b),y2+y1-i);
line(xx,y1+y2-yy,round((x1+x2)/2+b),y2+y1-i);
yy:=i;
xx:=round((x1+x2)/2+b);
                                   end;
end;
    end;

___
Код надо форматировать!
Модератор

[Аватар]

процедура рисования эллипса

А зачем? ellipse и в турбо есть