PolarWaves [AIMP5.30]

[Black_AVP_Bim]

Polar Waves v1.2 Black_AVP | 2024-11-13 | 2.2 MB | Downloads: 10155 Platform: Windows App Version: v5.30 or newer Type: Visualizations Target: 32-bit, 64-bit Download

Тот же Wave, только вид в полярных координатах.
Проверено VirusTotal

[Artem]

Круто!

[Artem]

От себя бы предложил рисовать новый кадр поверх предыдущего с небольшой полупрозрачностью.

[Black_AVP_Bim]

Приходила мне такая мысль в голову - частое мелькание несколько напрягает. Но тогда придётся переходить на битмапы, боюсь тормоза будут.
Сейчас всё рисуется прямо на FCanvas обычным PolyLine, даже на 4К мониторе во весь экран нагрузка на проц не превышает 10..12%.

[Artem]

Можно опционально сделать. Да, BitBlt расходует время, но некритичное.

[Artem]

Можно еще проще: Предыдущий кадр уже присутствует на DC, при вызове функции отрисовки заливать DC не черным, а полупрозрачным черным (см. acFillRect). 

[Black_AVP_Bim]

Можно еще проще: Предыдущий кадр уже присутствует на DC, при вызове функции отрисовки заливать DC не черным, а полупрозрачным черным (см. acFillRect).

Вот, я так и пытался сделать, но как бы не менял байт прозрачности в $FF000000, та канва, что FCanvas, затирается полностью.
Возможно, надо делать опять через промежуточный буфер, попробую ещё.

[Black_AVP_Bim]

Попробовал рисовать на канве ACLBitmapLayer, затем затирать acFillRect полупрозрачным чёрным, результат тот же. Похоже, любое рисование линий убивает прозрачность, как и CopyRect.
Попутно вопрос: надо ли освобождать дескриптор контекста у ACLBitmapLayer.Canvas при выходе из процедуры?

[Artem]

ACLBitmapLayer.Canvas при выходе из процедуры

Нет, он сам грохнется вместе с Layer-ом.

Похоже, любое рисование линий убивает прозрачность, как и CopyRect

Странно, не должно быть такого. Как именно ты делаешь?

[Black_AVP_Bim]

Странно, не должно быть такого. Как именно ты делаешь?

Фрагмент из Draw:

Code: [Select]

  BGDib.Canvas.Handle := DC;
  try
    acFillRect(BGDib.Canvas, Rect(0, 0, FWidth, FHeight), $40000000);
//...............................................................................................
    BGDib.Canvas.Pen.Width := 1;
    BGDib.Canvas.Pen.Color := clRed;
    BGDib.Canvas.PolyLine(Points);
   
// ..........................................................

  finally
//    BGDib.Canvas.Handle := 0;
  end;

[Artem]

Вот тут ошибка:

Code: [Select]

BGDib.Canvas.Handle := DC;

Таким образом ты рисуешь не на BGDib, а на DC.
Вместо этого нужно делать так:

Code: [Select]

acBitBlt(BGDib.Canvas.Handle, DC, BGDib.ClientRect, TPoint.Zero);

ну и перед выходом из процедуры - обратное действо на DC

[Artem]

Конечно, можно рисовать и напрямую на DC (минуя вообще всякие Canvas-ы и Bitmap-ы, будет заметно быстрее).
Если возьмешь последнюю версию ACL, там в ACL.Graphic.Ex есть ExPainter, который позволяет рисовать с альфа-каналом на любом контексте.
Использовать его как-то так:

Code: [Select]

ExPainter.BeginPaint(DC)
.. тут что-то рисуем.
ExPainter.EndPaint


[Black_AVP_Bim]

Таким образом ты рисуешь не на BGDib, а на DC.

Точно, ведь! Ну, мозги уже стариковские, на элементарный вещах уже спотыкаюсь.
Но один момент: как копилятор выбирает нужную функцию из:
procedure acFillRect(ACanvas: TCanvas; const ARect: TRect; AColor: TAlphaColor); overload;
procedure acFillRect(ACanvas: TCanvas; const ARect: TRect; AColor: TAlphaColor; ARadius: Integer); overload;
procedure acFillRect(ACanvas: TCanvas; const ARect: TRect; AColor: TColor); overload;
точнее, как отличает TAlphaColor от TColor.

У меня заработало только с вызовом функции, что с радиусом заливает, видимо потому, что число параметров другое.

[Artem]

Если явно тип у переменной / константы не указан - может подобрать только по знаковому/беззнаковому значению.
Чтобы точно быть уверенным, можешь сделать так:

acFillRect(BGDib.Canvas, Rect(0, 0, FWidth, FHeight), TAlphaColor($40000000));

[Black_AVP_Bim]

Чтобы точно быть уверенным, можешь сделать так:
acFillRect(BGDib.Canvas, Rect(0, 0, FWidth, FHeight), TAlphaColor($40000000));

Да, так работает, а без приведения типа, видимо, вызывается та процедура с TColor.