18.03.2012, 04:08
|
|
Продвинутый
|
|
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
|
|
Цитата:
Сообщение от koroleva25
Я тут немножко переоформила ваш код, сделала его на Canvase Image (таковы требования преподавателя).
на примере вашего кода:
Код:
begin
form1.Image1.Canvas.lineTo(200+xn[i],200+yn[i]);
xn[i]:=round(x[i]*cosa-y[i]*sina) ;
yn[i]:=round(x[i]*sina+y[i]*cosa);
form1.Canvas.MoveTo(200+xn[i],200+yn[i]);
end;
если мне нужно вращать вокруг точки, являющейся центром координат, (центр x0 := Image1.Width div 2; // центр координатной плоскости по х оси
y0 := Image1.Height div 2; // центр координатной плоскости по у оси
)
это будет выглядеть как?
|
да...............
|