Как закрутить с PNG?

[Raf-9600]

Нашёл великолепный пример вращения картинки (ссылка) но возникла проблема с тем, что он работает с BMP. Переучить его на PNG вроде бы удалось, но в таком случае PNG теряет прозрачность.
Может, кто-то что-то подскажет? Код там небольшой, но я просто мало что знаю в вопросе работы с картинками

P.S.
Прикрепил скрипт по ссылке к этому посту.

[dmitriegorovih]

вот это посмотрите хоть метод громоздкий и меееедленый но работает

[Raf-9600]

Сообщение от dmitriegorovih

вот это посмотрите хоть метод громоздкий и меееедленый но работает

Ну это ведь не совсем то. Это одноразовый поворот, а код выше крутит изображение, и к тому же он лаконичный и очень быстрый.

[kangreon]

Посмотрите мой пример. Код небольшой. Правда он не особо быстрый. Поворот изображения на 360 градусов длится чуть более 3 секунд.

[Raf-9600]

Сообщение от kangreon

Посмотрите мой пример. Код небольшой. Правда он не особо быстрый. Поворот изображения на 360 градусов длится чуть более 3 секунд.

На Delphi 7 там куча ошибок возникает, которые не дают скомпилировать.

[dmitriegorovih]

Ну это ведь не совсем то. Это одноразовый поворот, а код выше крутит изображение, и к тому же он лаконичный и очень быстрый.

Ну смотрите я вам показал как можно преобразовать BMP в PNG одним из самых простых способов, по скорости не знаю, а так вообще работа с BMP будет быстрей потому что используется 24 бита на пиксель в отличие от PNG 32 бита. поэтому ваш код лаконичен и очень быстрый.
P.S.Я как-то писал resize png так вот через bmp время на обработку было примерно 967 миллисекунд, в то время когда работая на прямую с пикселями png, время где-то 16 миллисекунд

[Пепел Феникса]

Сообщение от dmitriegorovih

Ну смотрите я вам показал как можно преобразовать BMP в PNG одним из самых простых способов, по скорости не знаю, а так вообще работа с BMP будет быстрей потому что используется 24 бита на пиксель в отличие от PNG 32 бита. поэтому ваш код лаконичен и очень быстрый.
P.S.Я как-то писал resize png так вот через bmp время на обработку было примерно 967 миллисекунд, в то время когда работая на прямую с пикселями png, время где-то 16 миллисекунд

сомневаюсь что работа с данными некратными машинному слову быстрее чем с кратными.

[kangreon]

Raf-9600
Исправил код под Delphi 7. Посмотрите сейчас.

[dmitriegorovih]

Сообщение от Пепел Феникса

сомневаюсь что работа с данными некратными машинному слову быстрее чем с кратными.

Возможно отрицать не буду но при работе через BMP создается два BMP в один пишется RGB в другой альфа канал и поворачивает по отдельности а потом с каждого BMP все-это пишется обратно в PNG это очень долго.
Вместо всего этого код kangreon работает на прямою с png без всякого BMP что и увеличивает скорость работы несмотря на кратность машинного слова.

[Raf-9600]

Сообщение от kangreon

Посмотрите сейчас.

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