Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 03.05.2019
Сообщений: 1
1

Как убрать след от анимации

03.05.2019, 15:44. Просмотров 400. Ответов 1
Метки нет (Все метки)

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
program q1;
 
uses crt, GraphABC;
 
var
  x: integer;
 
begin
  lockdrawing;
  setwindowwidth(800);
  setwindowheight(600);
  clearwindow(clnavy);
  x := 0;
    repeat
  begin
    
    begin
    
      setbrushstyle(bshatch);
      setbrushhatch(bhHorizontalbrick);
      setpenstyle(psclear);
      setbrushcolor(cllightgray);//zamok
      rectangle(300, 600, 550, 200);
      setbrushhatch(bhShingle);
      setbrushcolor(clgray);
      pie(424, 200, 125, 0, 180);//krisha
      circle(424, 51, 25);//pimpa
    end;
    
    begin
      setbrushstyle(bssolid);
      setbrushcolor(clyellow);
      circle(424, 250, 50);//okno
      line(424, 300, 424, 200);
      line(474, 250, 374, 250);
    end;
    begin
      setbrushstyle(bshatch);
      setbrushhatch(bhHorizontalbrick);
      setbrushcolor(cldarkgray);
      rectangle(191, 600, 266, 200);//bashnya l
      rectangle(151, 200, 301, 230);//bashnya 1 lezhit
      rectangle(151, 201, 181, 175);//piki bashnya 1
      rectangle(211, 201, 241, 175);
      rectangle(271, 201, 301, 175);
    end;
    begin
      rectangle(586, 600, 661, 200);//basnya 2
      rectangle(549, 200, 699, 230);//bashnya 2 lezhit
      rectangle(549, 201, 579, 175);//piki bashnya 2
      rectangle(609, 201, 639, 175);
      rectangle(669, 201, 699, 175);
    end;
    begin
      setbrushstyle(bshatch);
      setbrushhatch(bhHorizontalbrick);
      setbrushcolor(clblack);//zabor(osnova)
      rectangle(100, 600, 750, 470);
      rectangle(100, 471, 150, 421);//piki zabor
      rectangle(200, 471, 250, 421);
      rectangle(300, 471, 350, 421);
      rectangle(400, 471, 450, 421);
      rectangle(500, 471, 550, 421);
      rectangle(600, 471, 650, 421);
      rectangle(700, 471, 750, 421);
 
       circle(x,50,15);
     
    end;
   
   
  end;
     x := x + 1;     
      redraw;    
    until x > 1800;
end.
Помогите пожалуйста убрать след от анимации круга!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2019, 15:44
Ответы с готовыми решениями:

След от анимации
При движении круга остается след. код: uses graphabc; begin LockDrawing;...

Andorra 2d Как убрать след от перемещения?
После перемещения объекта остается след. Как его убрать? Скрин того что вышло: Ссылку вставить не...

На фоне остается след от анимации
Здравствуйте. Помогите пожалуйста с этой проблемой, повторюсь - остается след на фоновой картинке,...

Остается след в анимации. Гусеница, которая движется
Здравствуйте. Сотворил гусеницу, которая движется, но при перемещении она оставляет белый след на...

1
3737 / 1779 / 1963
Регистрация: 10.12.2014
Сообщений: 6,908
03.05.2019, 16:26 2
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
uses GraphABC, Timers;
 
const r = 50; dx = 1; st = 2;
 
var x := -r;
 
procedure Show;
begin
  Pen.Style := psClear;
 
  ClearWindow(clNavy);
 
  setbrushstyle(bshatch);
  setbrushhatch(bhHorizontalbrick);
  setpenstyle(psclear);
  setbrushcolor(cllightgray);//zamok
  rectangle(300, 600, 550, 200);
  setbrushhatch(bhShingle);
  setbrushcolor(clgray);
  pie(424, 200, 125, 0, 180);//krisha
  circle(424, 51, 25);//pimpa
 
  setbrushstyle(bssolid);
  setbrushcolor(clyellow);
  circle(424, 250, 50);//okno
  line(424, 300, 424, 200);
  line(474, 250, 374, 250);
 
  setbrushstyle(bshatch);
  setbrushhatch(bhHorizontalbrick);
  setbrushcolor(cldarkgray);
  rectangle(191, 600, 266, 200);//bashnya l
  rectangle(151, 200, 301, 230);//bashnya 1 lezhit
  rectangle(151, 201, 181, 175);//piki bashnya 1
  rectangle(211, 201, 241, 175);
  rectangle(271, 201, 301, 175);
 
  rectangle(586, 600, 661, 200);//basnya 2
  rectangle(549, 200, 699, 230);//bashnya 2 lezhit
  rectangle(549, 201, 579, 175);//piki bashnya 2
  rectangle(609, 201, 639, 175);
  rectangle(669, 201, 699, 175);
 
  setbrushstyle(bshatch);
  setbrushhatch(bhHorizontalbrick);
  setbrushcolor(clblack);//zabor(osnova)
  rectangle(100, 600, 750, 470);
  rectangle(100, 471, 150, 421);//piki zabor
  rectangle(200, 471, 250, 421);
  rectangle(300, 471, 350, 421);
  rectangle(400, 471, 450, 421);
  rectangle(500, 471, 550, 421);
  rectangle(600, 471, 650, 421);
  rectangle(700, 471, 750, 421);
        
  Brush.Style := bsSolid;
  Brush.Color := clYellow;
  Circle(x, 50, 15);
 
  Redraw;    
  
  x += dx;
  if x > Window.Width + r then x := -r;
end;
 
begin
  LockDrawing;
  Window.Width := 800;
  Window.Height := 600;
  OnMouseDown := (x,y,mb) -> begin Window.Close end;
  var t := New Timer(st, Show);
  t.Enabled := True;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2019, 16:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как убрать моргание при реализации анимации?
using System; using System.Collections.Generic; using System.Linq; using System.Text; using...

Как убрать лаги анимации при мультиплеере в unity3d?
Как убрать лаги анимации при мультиплеере в unity3d ? То есть создаю сервер, подключаюсь клиентом,...

Убрать эффекты анимации
В модальном окне нужно убрать все эффекты анимации при открытии закрытии окна.. Я пробовал через...

Убрать следы анимации
Всем привет ребята! Помогите мне сделал движущуюся картинку только следы почему то как мне их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.