Помощь - Поиск - Пользователи - Календарь
Полная версия: Графика и объекты
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Venom
Помогите сделать так чтобы шарик не затирал элипс, а элипс не затирал шарик когда они пересекаются.

program obj;
uses crt,graph;
type
Dot=object
a,b,rad:integer;
constructor init(x,y,r:integer);
procedure Show; virtual;
procedure Hide; virtual;
procedure Move(Da,Db:integer);
end;

Ring=object(Dot)
Dim:integer;
constructor init(x,y,r,d:integer);
procedure Show; virtual;
procedure Hide; virtual;
end;

constructor Dot.Init;
begin
a:=x; b:=y; rad:=r;
end;

procedure Dot.Show;
begin
setcolor(white);
circle(a,b,rad);
end;

procedure Dot.Hide;
begin
setcolor(black);
circle(a,b,rad);
end;

procedure Dot.Move;
begin
Hide;
a:=a+Da; b:=b+Db;
show;
end;

constructor Ring.init;
begin
a:=x;b:=y; Rad:=r; Dim:=d;
end;

procedure Ring.Show;
begin
setcolor(white);
SetFillStyle(7,5);
FillEllipse(a,b,Rad,Dim);
end;

procedure Ring.Hide;
begin
setcolor(black);
SetFillStyle(0,0);
FillEllipse(a,b,Rad,Dim);
end;

var
i,j,k:integer; a:char; Dot1:Dot; Ring1:Ring;

begin
i:=detect;
initgraph(i,j,' ');
Dot1.Init(GetMaxX div 6,GetMaxY div 6,55);
Dot1.Show;
Ring1.Init(GetMaxX div 2,GetMaxY div 2,40,35);
Ring1.Show;
while KeyPressed do a:=ReadKey;
repeat
begin
a:=ReadKey;
case ord(a) of
72:Dot1.Move(0,-5);
80:Dot1.Move(0,5);
77:Dot1.Move(5,0);
75:Dot1.Move(-5,0);
73:Ring1.Move(0,-5);
81:Ring1.Move(0,5);
79:Ring1.Move(5,0);
71:Ring1.Move(-5,0);
end;
end;
until a=Chr(27);
end.


Тегами пользоваться не забываем...
Lapp
Цитата(Venom @ 1.06.2006 12:06) *

Помогите сделать так чтобы шарик не затирал элипс, а элипс не затирал шарик когда они пересекаются.

В методе Show используй GetImage перед рисованием, а в методе Hide выводи запомненный фрагмент с помощью PutImage вместо зачернения.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.