Практическое задание n 1. 56
1. Нарисовать узор из 30 - ти эллипсов с центром узора в середине экрана. Радиусы каждого эллипса (Rx, Ry) и расстояние от "центра" эллипсов до центра узора увеличивать на один пиксел.
2. Нарисовать узор из 20 -ти прямоугольников с центром узора в середине экрана. Длины сторон прямоугольников и расстояние от центра узора до "центра" фигуры (например, левого верхнего угла прямоугольника) уменьшать на один пиксел. Для рисования прямоугольника использовать оператор: Rectangle(xf, yf, xf+a-i, yf+b-i); где a и b - стороны прямоугольника, i - параметр цикла вращения вокруг центра узора.
3. Нарисовать узор из отрезка прямой линии, вращающегося вокруг своего "центра" (N - раз) за один оборот вокруг центра узора.
4. Нарисовать узор из отрезка прямой линии, вращающегося вокруг своего "центра" (N - раз) за один полупериод движения по синусоиде.
yf = yс + Af * sin((xf-xc)/100), где Xf = xc + 10 * Pi * j; j= 1, 2, . . , 10,
Af - задать исходя из размеров экрана.
5. Составить процедуру рисования самолета (задавать координаты узлов, которые соединяются прямыми линиями). Нарисовать самолет, движущийся вокруг центра узора по эллиптической траектории (Lx<>Ly). Самолет должен поворачиваться вокруг своего "центра" в соответствии с траекторией ( cos(A)= Fx/L, sin(A)= Fy/L, где L= /Fx2 + Fy2 ).
6. Составить процедуру рисования машины (задавать координаты узлов, которые соединяются прямыми линиями). Нарисовать машину, движущуюся синусоиде. Машина должна поворачиваться вокруг своего "центра" в соответствии с траекторией ( A= arctg(d(yf)/d(xf)), для данного случая: A:=arctan(Af/100*cos((xf-xc)/100);
Примечание к п. 5, 6: Фигура перерисовывается в режиме SetWriteMode(1);
95
2. Масштабирование фигуры.
Рассмотрим случай уменьшения размеров фигуры делением ее сторон.
N:= 7; R:= 170; xc:= GetMaxX div 2; yc:= GetMaxY div 2;
for i:= 1 to N do begin alfa:= i*2. *pi/N;
x[i]:= xc + round(R*cos(alfa)); { координаты вершин }
y[i]:= yc + round(R*sin(alfa)) { исходного N-угольника }
end;
MoveTo(x[N], y[N]);
for i:= 1 to N do LineTo(x[i], y[i]); { рисуем N-угольник }
ch:= ReadKey; { нажать клавишу }
Repeat { найдем середины сторон многоугольника
и запишем их в массивы новых координат многоугольника }
x1:= x[1]; y1:= y[1];
for i:=1 to N-1 do begin x[i]:= (x[i]+x[i+1]) div 2;
y[i]:= (y[i]+y[i+1]) div 2 end;
x[N]:= (x[N]+x1) div 2;
y[N]:= (y[N]+y1) div 2;
{ строим многоугольник по новым точкам }
MoveTo(x[N], y[N]);
for i:=1 to N do LineTo(x[i], y[i]);
ch:=ReadKey; { нажать клавишу }
Until ch=#27;
Масштабирование фигур можно проводить используя зависимости, приведенные выше для вращения фигуры относительно своего "центра", изменяя Kx и Ky, при постоянных параметрах xf, yf, A.