Процедура поворота изображения

[Илья PHoeNiX]

Здравствуйте.
Во вложенном текстовом файле процедура вращения изображения.
Объясните пожалуйста словесный алгоритм ее работы в целом и подпрограмм, которые содержатся в процедуре.
Заранее спасибо

[Kostia]

А вам именно эта процедура нужна? Просто есть на много проще.

[mutabor]

Все понятно, раз там sin и cos, объясняю не глядя.

Вращение это анимация, один кадр сменяет другой. Алгоритм поворота строит новый кадр.
Принцип алгоритма - тригонометрия.
Для каждой точки на новом изображении нужно найти точку на исходном, и перенести ее, так мы получим 100 процентное заполнение. Не наоборот, это важно, если искать новое место для исходной точки на новом изображении, то будут пробелы, это связано с округлением результатов от функций синуса или косинуса. Это основная фишка, остальное - детали, не имеющие к вращению прямого отношения.
В этом примере перенос пикселей происходит не поштучно, а с помощью ScanLine. Ф-я ScanLine копирует в буфер всю строку пикселей, представляется это все в виде последовательности байт, первый байт - красный цвет первого пикселя (R,G,B), второй байт - зеленый (R,G,B), третий - синий, четвертый байт - красный цвет второго пикселя и так далее. Но это уже особенности работы с битмапами, к вращению не относятся, можно и так переносить: Canvas1.Pixels[x1,y1]:= Canvas2.Pixels[x2,y2].

[Илья PHoeNiX]

mutabor, cпасибо вам!