Мелькание окружностей

@Соколиный глаз · Регистрация: 25.07.2014

Студворк — интернет-сервис помощи студентам

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
89
90
91
92
93
uses GraphABC;
const
  Size = 60; // размер квадрата
  Shift = 10; // отступ от квадрата
  MinSize = 10; // минимальный размер квадрата
  MaxSize = 48; // максимальный размер квадрата
  MinR = 10;// минимальный радиус окружности
  MaxR = 70; // максимальный радиус окружности
  PercentR = 30; // количество процентов от радиуса
  MaxH = 200; // высота треугольника
  LCount = 8; // количество линий
  LineW = 8;// ширина кисти для рисования линии
  IncP = 2;
  PercentBorder = 30;// количество процентов от удаления черных линий, отводимых на изменение размера квадрата
 
var
  StepH: real := MaxH / LCount;
  StepDelta: real := StepH / 2;
  HalfSize: real := Size / 2;
  MinHalf: real := MinSize / 2;
  DHalf: real := MaxSize / 2 - MinHalf;
  DR: real := MaxR - MinR;
  TwoPercentR: real := PercentR * 2 / 100;
  P: byte;
  IsUp: boolean := true;
 
function Interpolation(a, b, p: real) := a + (b - a) * p;
 
procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1));
 
procedure DrawTriangle(angle: integer; percent: byte);
begin
  SetCoordinateAngle(angle);
  SetPenColor(clWhite);
  SetPenWidth(LineW);
  for var i := 0 to LCount - 1 do
  begin
    var y := HalfSize + Shift + StepH * i + StepDelta;
    var x := HalfSize - HalfSize * (y - HalfSize - Shift) / MaxH;
    RLine(-x, y, x, y);
  end;
  
  SetPenColor(clBlack);
  var p := percent / 100;
  var y := HalfSize + Shift + MaxH * p;
  var x := HalfSize - HalfSize * (y - HalfSize - Shift) / MaxH;
  RLine(-x, y, x, y);
end;
 
procedure Draw(angle: integer; percent: byte);
begin
  for var i := 0 to 3 do
    DrawTriangle(i * 90 + angle, percent);
  
  SetCoordinateAngle(angle);
  SetPenWidth(2);
  if P < PercentBorder then
  begin
    var pnt := 1.0 - P / PercentBorder;
    var x := DHalf * pnt;
    var xp := Round(x + MinHalf);
    var xm := -xp;
    DrawRectangle(xm, xm, xp, xp);
  end
  else
  begin
    var r := MinR + DR * (P - PercentBorder) / PercentBorder;
    var circleR := Round(r * TwoPercentR / 2);
    for var i := 0 to 3 do
    begin
      var ang := DegToRad(i * 90 + 45);
      DrawCircle(Round(r * Cos(ang)), Round(r * Sin(ang)), circleR);
    end;
    DrawCircle(0, 0, circleR);
  end;
end;
 
begin
  SetWindowIsFixedSize(true);
  SetCoordinateOrigin(Window.Width div 2, Window.Height div 2);
  
  LockDrawing();
  while true do
    for var i := 0 to 359 do
    begin
      ClearWindow(clDarkSlateBlue);
      Draw(i, P);
      Redraw();
      if (P > 100) or (P < 0) then IsUp := not IsUp;
      if IsUp then Inc(P, IncP) else Dec(P, IncP);
      Sleep(10);
    end;
end.

Есть код. Но при отрисовке анимации часто мелькают какие то черные окружности по бокам окна. Что это? И как это исправить?

@Ksardas_178 · 02.01.2018, 18:48

Тип переменной P - байтовый. При переходе за ноль он улетает в максимальные значения. Оттого и круги такие громадные появляются. Я лишь поменял тип на integer

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
89
90
91
92
93
uses GraphABC;
const
  Size = 60; // размер квадрата
  Shift = 10; // отступ от квадрата
  MinSize = 10; // минимальный размер квадрата
  MaxSize = 48; // максимальный размер квадрата
  MinR = 10;// минимальный радиус окружности
  MaxR = 70; // максимальный радиус окружности
  PercentR = 30; // количество процентов от радиуса
  MaxH = 200; // высота треугольника
  LCount = 8; // количество линий
  LineW = 8;// ширина кисти для рисования линии
  IncP = 2;
  PercentBorder = 30;// количество процентов от удаления черных линий, отводимых на изменение размера квадрата
 
var
  StepH: real := MaxH / LCount;
  StepDelta: real := StepH / 2;
  HalfSize: real := Size / 2;
  MinHalf: real := MinSize / 2;
  DHalf: real := MaxSize / 2 - MinHalf;
  DR: real := MaxR - MinR;
  TwoPercentR: real := PercentR * 2 / 100;
  P: integer;
  IsUp: boolean := true;
 
function Interpolation(a, b, p: real) := a + (b - a) * p;
 
procedure RLine(x, y, x1, y1: real) := Line(Round(x), Round(y), Round(x1), Round(y1));
 
procedure DrawTriangle(angle: integer; percent: byte);
begin
  SetCoordinateAngle(angle);
  SetPenColor(clWhite);
  SetPenWidth(LineW);
  for var i := 0 to LCount - 1 do
  begin
    var y := HalfSize + Shift + StepH * i + StepDelta;
    var x := HalfSize - HalfSize * (y - HalfSize - Shift) / MaxH;
    RLine(-x, y, x, y);
  end;
  
  SetPenColor(clBlack);
  var p := percent / 100;
  var y := HalfSize + Shift + MaxH * p;
  var x := HalfSize - HalfSize * (y - HalfSize - Shift) / MaxH;
  RLine(-x, y, x, y);
end;
 
procedure Draw(angle: integer; percent: byte);
begin
  for var i := 0 to 3 do
    DrawTriangle(i * 90 + angle, percent);
  
  SetCoordinateAngle(angle);
  SetPenWidth(2);
  if P < PercentBorder then
  begin
    var pnt := 1.0 - P / PercentBorder;
    var x := DHalf * pnt;
    var xp := Round(x + MinHalf);
    var xm := -xp;
    DrawRectangle(xm, xm, xp, xp);
  end
  else
  begin
    var r := MinR + DR * (P - PercentBorder) / PercentBorder;
    var circleR := Round(r * TwoPercentR / 2);
    for var i := 0 to 3 do
    begin
      var ang := DegToRad(i * 90 + 45);
      DrawCircle(Round(r * Cos(ang)), Round(r * Sin(ang)), circleR);
    end;
    DrawCircle(0, 0, circleR);
  end;
end;
 
begin
  SetWindowIsFixedSize(true);
  SetCoordinateOrigin(Window.Width div 2, Window.Height div 2);
  
  LockDrawing();
  while true do
    for var i := 0 to 359 do
    begin
      ClearWindow(clDarkSlateBlue);
      Draw(i, P);
      Redraw();
      if (P > 100) or (P < 0) then IsUp := not IsUp;
      if IsUp then Inc(P, IncP) else Dec(P, IncP);
      Sleep(10);
    end;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .