Почему так лагает при рисовании градиентов?

@Соколиный глаз · Регистрация: 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
uses GraphABC;
 
var
  M: array [,] of Color;
  C: Color;
 
///Функция линейной интерполяции.
function Intr(a, b: byte; p: byte): byte;
var
  d: byte;
begin
  d := Abs(a - b);
  if a > b then Result := a - d * p div 100 else Result := a + d * p div 100;
end;
 
///Функция линейной интерполяции цвета.
function Intr(a, b: Color; p: byte): Color;
begin
  Result := RGB(Intr(a.R, b.R, p), Intr(a.G, b.G, p), Intr(a.B, b.B, p));
end;
 
procedure Resize();
begin
  if Window.Height > 0 then
  begin
    ClearWindow;
    var n := Window.Width - 1;
    var n2 := Window.Height - 1;
    SetLength(M, n + 1, n2 + 1);
    SetWindowCaption(Format('[{0}; {1}]', Length(M,0), Length(M,1)));
    C := clblack;
    for var i := 0 to n do
      for var j := 0 to n2 do
      begin
        M[i, j] := C;
        M[i, j] := Intr(clRed, C, (i + 1) * 100 div (n + 1));
        M[i, j] := Intr(M[i, j], clBlue, (i + 1) * 100 div (n + 1));
        M[i, j] := Intr(M[i, j], clGreen, (j + 1) * 100 div (n2 + 1));
      end;
    for var i := 0 to n do
      for var j := 0 to n2 do
        PutPixel(i + 1, j + 1, M[i, j]);
    Redraw;
  end;
end;
 
begin
  LockDrawing;
  Resize;
  OnResize := Resize;
end.

Как оптимизировать, чтобы не лагал так сильно?

Добавлено через 37 минут
Вариант без изменения размеров массива:

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
uses GraphABC;
 
const
  max_n = 2000;
  max_n2 = 2000;
 
var
  M: array [0..max_n, 0..max_n2] of Color;
  C: Color;
 
///Функция линейной интерполяции.
function Intr(a, b: byte; p: byte): byte;
var
  d: byte;
begin
  d := Abs(a - b);
  if a > b then Result := a - d * p div 100 else Result := a + d * p div 100;
end;
 
///Функция линейной интерполяции цвета.
function Intr(a, b: Color; p: byte): Color;
begin
  Result := RGB(Intr(a.R, b.R, p), Intr(a.G, b.G, p), Intr(a.B, b.B, p));
end;
 
procedure Resize();
begin
  if Window.Height > 0 then
  begin
    ClearWindow;
    var n := Window.Width - 1;
    var n2 := Window.Height - 1;
    C := clblack;
    for var i := 0 to n do
      for var j := 0 to n2 do
      begin
        M[i, j] := C;
        M[i, j] := Intr(clRed, C, (i + 1) * 100 div (n + 1));
        M[i, j] := Intr(M[i, j], clBlue, (i + 1) * 100 div (n + 1));
        M[i, j] := Intr(M[i, j], clGreen, (j + 1) * 100 div (n2 + 1));
      end;
    for var i := 0 to n do
      for var j := 0 to n2 do
        PutPixel(i + 1, j + 1, M[i, j]);
    Redraw;
  end;
end;
 
begin
  LockDrawing;
  GraphABC.SetSmoothingOff;
  SetWindowSize(100, 100);
  Resize;
  OnResize := Resize;
end.

Отличий тоже почти нет, хотя же изменение длинны массива - тоже затратно при больших размерах.

@vlisp · 29.06.2017, 17:27

убери второй цикл, используй функцию, которая берет значение из массива, пересчитывает его, рисует пиксель и пишет в массив новое значение
A[I] := Func(A[I],Param);

@Соколиный глаз · 29.06.2017, 17:39 **[ТС]**

Такой вариант приемлем?

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
uses GraphABC;
const
  InitN = 99;
 
var
  M: array [,] of Color;
  C: Color;
  n, n2: integer;
///Функция линейной интерполяции.
function Intr(a, b: real; p: real): real;
var
  d: real;
begin
  d := Abs(a - b);
  if a > b then Result := a - d * p else Result := a + d * p;
end;
 
///Функция линейной интерполяции цвета.
function Intr(a, b: Color; p: real): Color;
begin
  Result := RGB(Round(Intr(a.R, b.R, p)), Round(Intr(a.G, b.G, p)), Round(Intr(a.B, b.B, p)));
end;
 
procedure NewValue(i, j: integer);
begin
  M[i, j] := Intr(clRed, clBlue, (i + 1) / (n + 1));
  M[i, j] := Intr(M[i, j], clGreen, (j + 1) / (n2 + 1));
  PutPixel(i + 1, j + 1, M[i, j]);
end;
 
procedure Resize();
begin
  if Window.Height > 0 then
  begin
    ClearWindow;
    n := Window.Width - 1;
    n2 := Window.Height - 1;
    SetLength(M, n + 1, n2 + 1);
    SetWindowCaption(Format('[{0}; {1}]', Length(M, 0), Length(M, 1)));
    for var i := 0 to n do
      for var j := 0 to n2 do
        NewValue(i, j);
    Redraw;
  end;
end;
 
begin
  LockDrawing;
  Resize;
  OnResize := Resize;
end.

Добавлено через 3 минуты
Точнее вот

:

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
uses GraphABC;
 
var
  M: Color;
  C: Color;
  n, n2: integer;
  
///Функция линейной интерполяции.
function Intr(a, b: byte; p: byte): byte;
var
  d: byte;
begin
  d := Abs(a - b);
  if a > b then Result := a - d * p div 100 else Result := a + d * p div 100;
end;
 
///Функция линейной интерполяции цвета.
function Intr(a, b: Color; p: byte): Color;
begin
  Result := RGB(Intr(a.R, b.R, p), Intr(a.G, b.G, p), Intr(a.B, b.B, p));
end;
 
procedure NewValue(i, j: integer);
begin
  M := Intr(clRed, clBlue, (i + 1) * 100 div (n + 1));
  M := Intr(M, clGreen, (j + 1) * 100 div (n2 + 1));
  PutPixel(i + 1, j + 1, M);
end;
 
procedure Resize();
begin
  if Window.Height > 0 then
  begin
    ClearWindow;
    n := Window.Width - 1;
    n2 := Window.Height - 1;
    C := clblack;
    for var i := 0 to n do
      for var j := 0 to n2 do
        NewValue(i, j);
    Redraw;
  end;
end;
 
begin
  LockDrawing;
  GraphABC.SetSmoothingOff;
  SetWindowSize(100, 100);
  Resize;
  OnResize := Resize;
end.

С byte'ами лучше.

@volvo · 29.06.2017, 22:46

Сообщение от Volobuev Ilya

С byte'ами лучше.

Чем лучше-то? Как тормозило, так и тормозит, разве что код сократился чуток. Ты вот это попробуй:

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
{$reference System.Drawing.dll}
uses System.Drawing.Drawing2D, GraphABC;
 
// LT_Color - левый верхний угол
// LB_Color - левый нижний угол
// RT_Color - правый верхний угол
// RB_Color - правый нижний угол
procedure DrawGradient(R: System.Drawing.Rectangle; LT_Color, LB_Color, RT_Color, RB_Color: Color);
begin
  ClearWindow;
  var deltaLR := (LB_Color.R - LT_Color.R) / r.Height;
  var deltaLG := (LB_Color.G - LT_Color.G) / r.Height;
  var deltaLB := (LB_Color.B - LT_Color.B) / r.Height;
  var deltaRR := (RB_Color.R - RT_Color.R) / r.Height;
  var deltaRG := (RB_Color.G - RT_Color.G) / r.Height;
  var deltaRB := (RB_Color.B - RT_Color.B) / r.Height;
  
  for var y := 0 to r.Height - 1 do
  begin
    var c12 := ARGB(255, LT_Color.R + trunc(y * deltaLR), 
                    LT_Color.G + trunc(y * deltaLG), LT_Color.B + trunc(y * deltaLB));
    var c34 := ARGB(255, RT_Color.R + trunc(y * deltaRR), 
                    RT_Color.G + trunc(y * deltaRG), RT_Color.B + trunc(y * deltaRB));
    
    Brush.NETBrush := new LinearGradientBrush(new System.Drawing.Rectangle(0, y, r.Width, 1), c12, c34, 0.0);
    FillRect(0, y, r.Width, y + 1);
  end;
  Redraw;
end;
 
procedure Resize();
begin
  DrawGradient(MainForm.ClientRectangle, clRed, clGreen, clBlue, clGreen)
end;
 
begin
  LockDrawing;
  GraphABC.SetSmoothingOff;
  SetWindowSize(200, 200);
  Resize;
  OnResize := Resize;
end.

@Соколиный глаз · 30.06.2017, 10:19 **[ТС]**

Не по теме:

Ну ты сам когда то говорил, что операции с целыми типами быстрее чем с вещественными. Следовал твоему примеру - использовал целые. Чтобы глаза уже код не резал. :)

Добавлено через 2 часа 34 минуты

Pascal
1
var deltaLR := (LB_Color.R - LT_Color.R) / r.Height;

Это нахождение той части, которую состояляет разность компонентов цвета от высоты окна. Но я не совсем понимаю почему именно так Вы сделали?

@volvo · 30.06.2017, 10:29

Это дельта изменения цвета с левой стороны (от левого верхнего до левого нижнего) на каждый пиксель высоты окна. Как еще это делать, если не поделить разности компонент цветов на высоту окна?

@Соколиный глаз · 30.06.2017, 10:37 **[ТС]**

Спасибо, теперь все понятно.

Немного иной подход, чем у меня в плане схемы алгоритма просто.

Добавлено через 3 минуты
То есть если бы я высоту делил на разность цветов, то узнал бы количество дельт, требуемых для заполнения всей высоты, а когда наоборот - дельту на высоту делю, то получится в процентах от высоты размер дельты, зная который смог бы ровно 100% заполнить высоту. Так?

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

Почему так лагает при рисовании градиентов?

Решение

Решение

@vlisp 1062 / 983 / 153 Регистрация: 10.08.2015 Сообщений: 5,334
	29.06.2017, 17:27
	убери второй цикл, используй функцию, которая берет значение из массива, пересчитывает его, рисует пиксель и пишет в массив новое значение A[I] := Func(A[I],Param); 1

@volvo Супер-модератор 33195 / 21491 / 8233 Регистрация: 22.10.2011 Сообщений: 36,879 Записей в блоге: 12
	30.06.2017, 10:29
	Сообщение было отмечено Volobuev Ilya как решение Решение Это дельта изменения цвета с левой стороны (от левого верхнего до левого нижнего) на каждый пиксель высоты окна. Как еще это делать, если не поделить разности компонент цветов на высоту окна? 1

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	30.06.2017, 10:37 [ТС]
	Спасибо, теперь все понятно. Немного иной подход, чем у меня в плане схемы алгоритма просто. Добавлено через 3 минуты То есть если бы я высоту делил на разность цветов, то узнал бы количество дельт, требуемых для заполнения всей высоты, а когда наоборот - дельту на высоту делю, то получится в процентах от высоты размер дельты, зная который смог бы ровно 100% заполнить высоту. Так? 0