Исходники и листинги ::: Pascal ::: Анимация
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
  program grafika_01;
  uses graph, crt;
  var gr1, gr2, x, y, a, b, c, d, i: integer;
  begin
     a:=200; b:=1; c:=260; d:=100; i:=0;
     gr1:= detect;
     gr2:= vgahi;
     initgraph (gr1, gr2, 'C:PascalBGI');
     SetFillStyle (1, 1);
     Bar (0, 0, 640, 480);
     SetFillStyle (1, 2);
     Bar (0, 460, 640, 480);
     SetFillStyle (1, 6);
     Bar (80, 340, 200, 460);
     Bar (85, 270, 115, 320);
     SetFillStyle (1, 9);
     Bar (120, 380, 160, 420);
     SetColor (0);
     Rectangle (120, 380, 160, 420);
     Line (140, 380, 140, 420);
     Line (140, 400, 160, 400);
     Line (60, 340, 140, 280);
     line (140, 280, 220, 340);
     Line (220, 340, 60, 340);
     SetFillStyle (1, 6);
     FloodFill (140, 310, 0);
     SetFillStyle (1, 9);
     Sector (140, 325, 0, 180, 20, 20);
     line (140, 325, 140, 305);
     Line (140, 325, 154, 315);
     Line (140, 325, 126, 315);
     SetFillStyle (1, 14);
     FillEllipse (490, 100, 40, 40);
     SetFillStyle (1, 7);
     FillEllipse (492, 104, 4, 4);
     FillEllipse (488, 86, 6, 6);
     FillEllipse (500, 75, 2, 3);
     FillEllipse (480, 120, 4, 2);
     FillEllipse (520, 90, 2, 2);
     SetFillStyle (1, 6);
     Bar (450, 340, 460, 460);
     SetFillStyle (1, 2);
     Arc (415, 320, 40, 320, 20);
     Arc (455, 320, 40, 140, 20);
     Arc (455, 320, 220, 320, 20);
     Arc (495, 320, 220, 500, 20);
     Arc (435, 320, 75, 135, 30);
     Arc (475, 320, 45, 105, 30);
     Arc (435, 320, 225, 315, 30);
     Arc (475, 320, 225, 320, 30);
     Arc (455, 300, 20, 160, 25);
     FloodFill (455, 320, 0);
     x:=0; y:=460; SetColor (2);
     repeat
        Line (x, y, x+10, y-10);
        Line (x+10, y, x+30, y-20);
        x:=x+20;
     until x>=640;
   repeat
     SetfillStyle (1,1);
     Bar (0, 140, 520, 200);
     Bar (0,0,200,265);
     SetColor(1);
     SetColor (0);
  &nbsp;&nbsp; if c<0 then begin c:=260; i:=0; d:=100 end;
  &nbsp;&nbsp; SetFillStyle (1, 15);
  &nbsp;&nbsp; Arc (a-40, 170, 40, 320, 20);
  &nbsp;&nbsp; Arc (a, 170, 40, 140, 20);
  &nbsp;&nbsp; Arc (a, 170, 220, 320, 20);
  &nbsp;&nbsp; Arc (a+40, 170, 220, 500, 20);
  &nbsp;&nbsp; Arc (a-20, 170, 45, 135, 30);
  &nbsp;&nbsp; Arc (a+20, 170, 45, 135, 30);
  &nbsp;&nbsp; Arc (a-20, 170, 225, 315, 30);
  &nbsp;&nbsp; Arc (a+20, 170, 225, 320, 30);
  &nbsp;&nbsp; FloodFill (a+1, 171, 0);
  &nbsp;&nbsp; SetFillStyle (1, 7);
  &nbsp;&nbsp; FillEllipse (d, c, 8+i, 5+i);
  &nbsp;&nbsp; FillEllipse (d, c-10, 14+i, 10+i);
  &nbsp;&nbsp; FillEllipse (d, c-25, 19+i, 15+i);
  &nbsp;&nbsp; FillEllipse (d, c-45, 25+i, 19+i);
  &nbsp;&nbsp; c:=c-11; d:=d+5*b;
  &nbsp;&nbsp; i:=i-1;
  &nbsp;&nbsp; if a=460 then b:=-1;
  &nbsp;&nbsp; if a=40 then b:=1;
  &nbsp;&nbsp; a:=a+10*b; delay (64000); delay (64000);
  &nbsp;&nbsp;until keypressed;
  &nbsp;&nbsp; readln;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Анимация
Автор: Sanek_xXx
Город: Казань
 Дата: 31.01.2007  19:48
Комментариев: 0
Просмотров: 367
Оценка: 3 (0|1|0|1|1) [1]
Вернуться на главную
Авторский комментарий к работе: Листинг программы, которая рисует анимированную картинку
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Нет комментариев