| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Для новичков > Матрица поворота |
| Автор: VasRip 7.2.2013, 10:20 |
| Долго не мог наткнутся на реализацию Матрицы поворота на делфи и обрисовки изображения. Сделано просто и для простого. может кому пригодится procedure midpoint2(x,y,vx,vy:Integer; var x2,y2:Integer); //x.y точка вокруг которой нужно крутится. vx, vy вторая точка по которой вчесляется вектор var xv,yv,per:Integer; begin per:=Round(pi/4); xv:=vx-x; // векторы yv:=vy-y; vx:=Round(xv*cos(per)-yv*sin(per)); // сам поворот vy:=Round(xv*sin(per)+yv*cos(per)); vx:=vx+x; // повернутые точки vy:=vy+y; x2:=vx;// y2:=vy;// ну это лично для удобства было end всем удачи. если кто улучшит пишите буду рад |