улитка паскаля

[Sined121]

вот прога:

uses Crt, Graph;

const
   A = 100;
   B = 70;
   L = 180;

var
   grDriver, grMode : Integer;
   MidX, MidY : Integer;

procedure DrawOsi;
begin
   {vivod OSEI}
   setcolor(red);
   moveto(1, Midy);
   lineto(GetMaxX, Midy);
   moveto(MidX, 1);
   lineto(MidX, GetMaxY);
end;

procedure Draw(dx : integer; dy : integer; fi : real; sy : real);
var
   g : Integer;
   t : Real;
   NX, NY : Real;
   X, Y : Real;
   poly : Array [0..L*2] Of PointType;
begin
   fi := fi * Pi / 180;
   for g := 0 to 2*L do begin
      t := g * Pi / 180;
      X := A * Sqr(Cos(t)) + B * Cos(t);
      Y := A * Cos(t) * Sin(t) + B * Sin(t);

      NX := (X-dx)*cos(fi) - (Y-dy)*sin(fi);
      NY := (X-dx)*sin(fi)*sy + (Y-dy)*cos(fi)*sy;

      X := MidX + NX;
      Y := MidY - NY;

      poly[g].x := round (X);
      poly[g].y := round(Y);

   end;
   DrawOsi;
   setcolor(yellow);
   SetFillStyle(LtSlashFill, yellow);
   FillPoly(2*L+1, poly);
   delay(60000); delay(60000);
   ClearDevice;
end;

begin
   grDriver := Detect;
   InitGraph(grDriver, grMode, '');


   outtextxy(100,70,'ulitka_pascalya');
   setcolor(green);


   outtextxy(135,140,'Vipolnil_magon');

   setcolor(red);

   outtextxy(100,210,'proveril_Kulakova_T_N');


   readln;
    cleardevice;

   MidX := GetMaxX div 2;
   MidY := GetMaxY div 2;

   Draw(0, 0, 0, 1);

   Draw(25, 0, L/3, 0.5);
   Draw(0, 20, 5*L/6, 1);
   Draw(-25, 0, 4*L/3, 0.5);
   Draw(0, -20, 11*L/6, 1);

   CloseGraph;
end.

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

20:16

надо сделать переход от одной фигуры к другой(анимация)

20:17

вот пытаюсь через цикл:

MidX := GetMaxX div 2;
   MidY := GetMaxY div 2;

   Draw(0, 0, 0, 1);

     for j:=0 to 25 do

    {Draw(j, 0, 0, 1);}
   Draw(j, 0, L/3, 0.5);


   Draw(0, 20, 5*L/6, 1);
   Draw(-25, 0, 4*L/3, 0.5);
   Draw(0, -20, 11*L/6, 1);

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

20:17

а она движется не туда. помогите плиз

20:26

через динамику сильно накладно делать

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор