:D
----
Uses Graph,Crt;
Var
x,y,x1,y1,x3,y3:INteger;
xx,yy,xx1,yy1:Integer;
xxx,yyy,xxx1,yyy1:Integer;
Procedure Sync; assembler;{Procedura Zaderjki lucha}
asm
mov dx, 3DAh
@@Wait:
in al, dx
test al, 08h
jz @@Wait
end;
procedure ingr(gr:Integer);
var
gr1: Integer;
driver :Integer;
ErrCode: Integer;
begin
gr1:=gr;
driver:=InstalluserDriver('svga256',nil);{driver na 256 zvetov}
Initgraph(driver,gr1,'');
end;
BEGIN
Ingr(2);
SetColor(15);
Repeat
xx:=xx+1;
y:=round(420*(sin(xx*0.035))*0.15);{the fly 2 versini}
x:=round(420*(cos(xx*0.035))*0.15);{/ }
y1:=round(420*(sin(xx*0.065))*0.15);{esho 2 versini}
x1:=round(420*(cos(xx*0.065))*0.15);{/ }
SetColor(4);
Line(x+160,y+80,x1+115,y1+110);
Line(x1+115,y1+110,y+160,x+80);
Line(y+160,x+80,x+160,y+80);
Line(y+160,x+80,y1+115,x1+150);
Line(y1+115,x1+150,x1+115,y1+110);
Line(y1+115,x1+150,x+160,y+80);
Delay(3000);Sync;
SetColor(0);
Line(x+160,y+80,x1+115,y1+110);
Line(x1+115,y1+110,y+160,x+80);
Line(y+160,x+80,x+160,y+80);
Line(y+160,x+80,y1+115,x1+150);
Line(y1+115,x1+150,x1+115,y1+110);
Line(y1+115,x1+150,x+160,y+80);
Until KeyPressed;
asm
mov ah,0
int 16h
end;
END.