|
Чё та такое писали в институте...
типа t - угол, Хс и Ус - координаты центра.
procedure Rotate(t:real; Xc,Yc:integer);
var sn,cs:real;
i,j,a,b:integer;
begin
t:=pi*t/180;
sn:=sin(t); cs:=cos(t);
for i:=Ymin to Ymax do
for j:=Xmin to Xmax do
begin
a:=round(Yc-(j-Xc)*sn+(i-Yc)*cs);
b:=round(Xc+(j-Xc)*cs+(i-Yc)*sn);
pic1[a,b]:=pict[i,j];
end;
end;
Составить ответ ||| Конференция ||| Архив
Ответы
E-mail: info@telesys.ru