Поворот графика
ZXNet echo conference «code.zx»
from: Evgeny Goljakov
to: All
date: 14 April 2004
Кито хотел квадрат повернути?
А лучше FAQ demo.design поисщи ;)) (извините за орфографию)
Forwarded by Evgeny Goljakov
Orig.Area: RU.ALGORITHMS Пн 5 Апр 01
Orig.From: Dmitriy Yaroshevich (2:4635/1024.312)
Orig.To : Anton Zimin (2:5027/12.4)
Orig.Subj: Поворот графика
═══ CUT ═══
Hi, Anton!
Среда 31 Март 2004, Anton Zimin wrote to All:
AZ> Короче задача...
AZ> Я рисую на компе такой график- квадратный и с кучей горок.
AZ> Hо не в
AZ> этом
AZ> проблема.
AZ> Затем я поворачиваю его в изометрию и в деметрию.
AZ> А теперь полученное нужно вертеть вокруг осей X, Y, Z.
AZ> Вопрос- как это сделать?
Простейший тупейший пример.
Procedure Rotate(var x,y,z:integer;xy,xz,yz:single);
var x1,y1,z1:single;
begin
x1:=x*sin(xy)+y*cos(xy);
y1:=-x*cos(xy)+y*sin(xy);
x:=trunc(z*sin(xz)+x1*cos(xz));
z1:=-z*cos(xz)+x1*sin(xz);
y:=trunc(z1*sin(yz)+y1*cos(yz));
z:=trunc(-z1*cos(yz)+y1*sin(yz));
end;
Всего наилучшего тебе, Anton!
Dmitriy
-+- GoldED+/W32 1.1.4.7
+ Origin: (2:4635/1024.312)
═══ END ═══
Спасибо за внимание.
|