ето морф или вращение??? Опции

[Shadow]

: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.

[wormball]

помоему там просто 4 соединённые точки движутся как ни попадя. ты убери delay(3000), сам увидишь.

[Shadow]

;D
-----
забавно прогу я писал
-----