Анимация

  • Автор темы BuTeK
  • Дата начала
Статус
Закрыто для дальнейших ответов.
B

BuTeK

#1
Уважаемые программисты !
Как сделать чтобы данная фигура (прямоугольный треугольник) вращался на 360 градусов ? Размеры прямоугольного треугольника любые !
 

Вложения

B

BurcevD

#4
Вот держи
Код:
uses Graph, Crt; //Подключаемые модули

var
Gd, Gm: Integer; //Переменные для инициализации графики
al:Integer; //Переменная для угла от 0 до 359
x,y:Integer; //Переменная для вращающейся точки
begin
//Инициализируем графику
Gd := Detect;
InitGraph(Gd, Gm, '..\bgi');
if GraphResult <> grOk then Halt(1);
//Угол равен 0
al:=0;
//Цикл пока не нажата любая клавиша
repeat
//Увеличиваем угол на 1
Inc(al);
if al>359 then al:=0;
//Стираем старую линию
SetColor(0);
Line(320,200,x,y);
line(320,260,x,y);
//Вычисляем координаты новой линии, где 100 - это радиус по Х
x:=320+Round(sin(al*Pi/180)*100);
//30 - это радиус по У
y:=200+Round(cos(al*Pi/180)*30);
//Рисуем новый треугольник
SetColor(15);
Line(320,200,x,y);
line(320,260,x,y);
Line(320,100,320,350);
//Задержка, в миллискенудах (по иде)
Delay(1000);
until keypressed;
//Закрываем графический режим
CloseGraph;
end.
 
B

BuTeK

#5
Большое спасибо !

(Огромное спасибо за пояснения)
 
Статус
Закрыто для дальнейших ответов.