Помогите разобраться с HBITMAP (ускорить перенос пикселей)

[mutabor]

Нужно сделать поворот картинки на 90°. Я его сделал, с одной канвы на другую попиксельно, но он медленно работает. Можно было бы со Scanline чуть ускорить, но мне кажется тут он бесполезен, т.к. считать то я считаю строкой, а перекидывать то строкой не выйдет, она же горизонтальная, по любому попиксельно перекидывать придется.

Нашел вроде решение здесь http://www.codenet.ru/progr/video/rotate.php
Но не могу сходу сообразить, как это все в Дельфи перевести и к моим битмапам прикрутить (Source, Dest: TBitmap). И второй нюанс, мне не нужен произвольный угол, а просто поворот путем переноса точек, без потерь (это важно), по формуле не нужно. Т.е. мне от этого алгоритма нужна только скорость доступа.

p.s. Всякие библиотеки не подходят (знаю про них), т.к. программа уже написана, просто нужно функцию добавить.

[notHaker]

GetDIBits, CreateDIBSection и так далее... Вычислять матричное (x,y) соответсвенно тк эти функции возвращают кусок памяти целиком а не сканлайн. И исчо, работать с 32 битными пикселями.

[BOBAH13]

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

Странно.. а такое?
scan0 - указатель на начало бит данных
width - ширина области
4 - размер в байтах на пиксель

pixelXeq25Yeq40 = (*(unsgined int*)((int)scan0 + (40 * width + 25) * 4))

И пожалуйста, вытаскивайте и обращайтесь к любому пикселю