Анимация

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем BuTeK, 19 янв 2009.

Статус темы:
Закрыта.
  1. BuTeK

    BuTeK Гость

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

    Вложения:

    • untitled.JPG
      untitled.JPG
      Размер файла:
      4,4 КБ
      Просмотров:
      27
  2. BurcevD

    BurcevD Гость

    Вращаться как вокруг оси? или как?
     
  3. BuTeK

    BuTeK Гость

    Да ! ну вот напримет как эта фигура
     

    Вложения:

  4. BurcevD

    BurcevD Гость

    Вот держи
    Код (Text):
    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.
     
  5. BuTeK

    BuTeK Гость

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

    (Огромное спасибо за пояснения)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей