Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра

@muffng · Регистрация: 09.01.2019

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите решить задачу.

Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра. Центр вращения с постоянной скоростью перемещается горизонтально от одного края экрана до другого.

@JuriiMW · 09.01.2019, 17:57

Pascal

uses GraphWPF;
var(a,b):=(100,75);
var(x,y,dx):=(Window.Center.X,Window.Center.Y,5);
var(angle,rotation):=(0.0,0.05);
 
procedure NextStep;
begin
  x+=dx;
  if (x<0)or(x>Window.Width) then dx:=-dx;
  angle+=rotation;
  var(si,co):=(sin(angle),cos(angle));
  var(asi,aco,bsi,bco):=(a*si,a*co,b*si,b*co);
  Polygon(Arr(Pnt(x-aco+bsi,y-asi-bco),Pnt(x-aco-bsi,y-asi+bco),Pnt(x+aco-bsi,y+asi+bco),Pnt(x+aco+bsi,y+asi-bco)));
end;
 
begin
  BeginFrameBasedAnimation( NextStep );
end.

@muffng 0 / 0 / 0 Регистрация: 09.01.2019 Сообщений: 3
		1
	Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра 09.01.2019, 14:54. Показов 974. Ответов 1 Метки нет (Все метки) Здравствуйте. Помогите решить задачу. Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг своего центра. Центр вращения с постоянной скоростью перемещается горизонтально от одного края экрана до другого. 0

	09.01.2019, 17:57