Infinite Text. GDI+

Пятница. Вечер.
Наткнулся на такой интересный эффект (CSS+JS).
Воспроизвел в дельфи.

Исходник (61 Кб) Delphi XE7
Прога (910 Кб)

Сеть из точек. GDI+

Давно хотел сделать в дельфи этот эффект.

Исходник (61 Кб) Delphi XE7
Прога (930 Кб)

Метель. GDI+

Вот такой эффект метели получился.
Посмотреть в браузере - Метель JS.

Для, собственно, бури:
- В проге включить Image и Auto.
- На сайте включить Автобурю.

Как обычно, свою картинку в проге можно вставить через контекстное меню "Paste" в окне отрисовки.

Исходник (193 Кб) Delphi XE7
Прога (1.06 Мб)

Kd-Tree. Быстрый поиск в K-мерном пространстве

У меня был отпуск в начале мая.
Отпуск - прекрасное время для решения сильно тревожащих вопросов.
Меня сильно тревожил вопрос с Kd-Tree и проблемой наибыстрейшего поиска ближайшей точки.
Для себя его решил, о чём и предоставляю материал.

Kd-Tree - это дерево поиска на гигантском массиве K-мерных данных.
Суть - построение индекса. Что получилось, судить вам.

Читать статью...

Текст из "Звёздных войн". GDI+

Попросили сделать такой эффект.
Всё оформлено в одну функцию. Можно менять угол наклона, шрифт подхватит из холста. Текст, естественно, модифицируем.
Перспектива сделана на основе статьи Вывести текст в перспективе.
Кнопка Set Text установит новый текст и перезапустит показ.

Исходник (531 Кб) Delphi XE7
Прога (1.35 Мб)

Эквидистантная линия вокруг кривой

Математика построения эквидистантной линии не моя (ссылка ниже).

1. Получить отрезки кривой через метод TGPGraphicsPath.Flatten.
2. Скормить получившуюся ломаную библиотеке Clipper2.

Исходник (115 Кб) Delphi XE7. Clipper2 внутри.
Прога (960 Кб)

Direct2D. Эффект направленного размытия

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

Исходник (462 Кб) Delphi XE7.
Прога (1.33 Мб)

Радиальная деформация изображения

Сделано на TBitmap.Scanline, без чего-либо дополнительного.
Билинейный фильтр взят из "Перспективной трансформации".

Исходник (175 Кб) Delphi XE7.
Прога x64 (1.26 Мб)
Пришлось компилировать в 64, потому что злой параноик касперский взъелся на 32-битный вариант.

Эффект лупы

Немного подшаманим в эффекте выше и получим эффект лупы.
Колесом мыши можно менять диаметр лупы.

Исходник (235 Кб) Delphi XE7.
Прога x64 (1.35 Мб)

TBitmap.PixelFormat

Небольшая справочная статья по свойству TBitmap.PixelFormat. Задумывается, как ненагруженный вспомогательный материал для других статей.
https://ip76.ru/bitmap-pixelformat/

Пробую некий интерактив, что нужно добавить, что удалить?

TBitmap.PixelFormat

Маленькая справочная статья опять выросла в какого-то здорового мутанта.
Подробный разбор каждого формата.
Затронуты вопросы, как работать с палитрой.
Конечно, исходники.

Почитать...

Алгоритм Рамера–Дугласа–Пойкера

Алгоритм Рамера–Дугласа–Пойкера превращает неувернно-дрожащий набор точек в уверенную ломаную, состоящую из бескомпромиссных линий.

Почитать...

Эффект "Прощай лето"
Незапланированный отпуск кончился безвозвратно...

Из интересного внутри:
1) GDIPlus Блюр-эффект
2) Полупрозрачный TGPBitmap

Исходник (62 Кб) Delphi XE7
Прога (908 Кб)

Direct2D. Морфологический эффект

Почитать про эффект на microsoft

Исходник (216 Кб) Delphi XE7
Прога (1.13 Мб)

Direct2D. Эффект Гауссова размывания

Почитать про эффект на microsoft

Исходник (293 Кб) Delphi XE7
Прога (1.19 Мб)

Direct2D. Эффект пастеризации

Суть эффекта - уменьшить количество цветов в изображении.
Чего не написано в доках:
- Опытным путём выяснено, что на каждый канал можно задать число в интервале 2..16. Всё остальное обрубается по этим значениям.
- Если не выставлять значение по какому-либо каналу, то эффект берёт значение, равное 4.

Рядом со спинами - количество уникальных цветов.
С нажатым Ctrl изменения в спинах будут синхронными.
Эффект доступен в Windows 10 и выше.

Исходник (231 Кб) Delphi XE7
Прога (1.12 Мб)

Direct2D. Эффект вращения оттенка

У эффекта один параметр - угол поворота оттенка. Угол соответствует определению тона.

Исходник (242 Кб) Delphi XE7
Прога (1.13 Мб)

Циклическая смена цветового тона в палитре 8-битного изображения

Как обычно, по пятницам, вечерние посиделки не по работе.
Раз уж в предыдущем посте зашёл разговор про тон и палитру 8-битного изображения, то есть три режима:
- Smooth: мягкий, постепенный, приятный
- Harsh: имитация далёкой сварки
- Crazy: имитация сварки на изотопах в горниле реактора

Исходник простой. Обычный битмап, ни D2D, ни GDIP. Можно легко модифицировать под свои нужды.

Исходник (719 Кб) Delphi XE7
Прога (1.37 Мб)

Direct2D. Shadow Face. Effects Mix #1

Микс D2D-эффектов:
1) Гауссово размытие (Windows, IP76)
2) Эффект тени (Windows, IP76)
3) Эффект насыщенности (Windows, IP76)
4) Цветовая матрица (Windows, IP76)

Исходник (1.31 Мб) Delphi XE7
Прога (2.01 Мб)

IrfanView

Волею судеб, надо было открыть файл IFF. Недолго погуглив, нашёл бесплатный просмотрщик, установки не требует, функции редактирования имеет, Undo/Redo в наличии, можно сохранить как минимум в JPEG/GIF. Судя по меню, функционал богатый. Решил, что внимания заслуживает.
Чтобы расширить функционал (как минимум, чтобы открыть IFF), качаем плагины (x64) и всё сбрасываем в подкаталог Plugins.
Чтобы сделать русский интерфейс, качаем перевод + русифицированные плагины. Перевод кладём в подкаталог Languages и настраиваем в Options-Change Language... С плагинами поступаем, как описано выше.
Пока выглядит полезным инструментом. Прошу поделиться впечатлениями.

Посмотреть+Скачать

Длина дуги эллипса через эксцентриситет

Потребовались пояснения к выводу формулы нахождения длины дуги эллипса.
Возможно, хромает изложение, сейчас не сильно хорошо со временем. Поэтому, редакционная критика приветствуется )
Статья не в публичном доступе.
Доступна по ссылке.