Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Max;
- uses GraphABC;
- label q;
- var
- Anim,i:integer;
- P: array of Point;
- begin
- SetWindowSize(500,500);
- Anim:=1;
- for i:=1 to 15 do
- begin
- q:
- SetPenWidth(1);
- ellipse(180,180,320,350);
- ellipse(220,110,280,180);
- Line(220,340,210,400); //левая нога
- Line(280,340,290,400); //правая нога
- Line(210,400,190,405); //левая ступня
- Line(290,400,310,405); //правая ступня
- Arc(250,145,20,225,315);
- DrawCircle(240,130,4);
- DrawCircle(260,130,4);
- SetLength(P, 4);
- case Anim of
- 1: begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 180; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 180; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=2;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 2: begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 206; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 206; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=3;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 3:
- begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 232; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 232; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=4;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 4:
- begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 258; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 258; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=5;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 5:
- begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 284; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 284; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=6;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 6:
- begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 310; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 310; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- sleep(500);
- ClearWindow;
- Anim:=7;
- goto q;
- end;
- 7: begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 284; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 284; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=8;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 8:begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 258; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 258; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=9;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 9:begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 232; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 232; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=10;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- 10:
- begin
- p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 380; p[1].Y := 206; //Координаты второй вершины
- p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
- p[1].X := 120; p[1].Y := 206; //Координаты второй вершины
- p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
- p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
- PolyLine(P);
- Anim:=1;
- sleep(500);
- ClearWindow;
- goto q;
- end;
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement