Версия для печати темы

Автор: Venom 1.06.2006 15:06

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

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 2.06.2006 10:57

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