Помощь - Поиск - Пользователи - Календарь
Полная версия: графика
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Pautina
Очень надеюсь на вашу помощь! Подскажите ход решения задачи!
Надо изобразить на экране прямую, вращающуюся в плоскости экрана вокруг одной из своих точек. Цвет прямой должен меняться при переходе от предыдущего положения к следующему.
Заранее спасибо!
klem4
uses crt, graph;
var
  gd, gm, cx, cy, len, angle: Integer;

begin
  gd := detect; initgraph(gd, gm, '');

  randomize;

  cx := GetMaxX div 2; cy := GetMaxY div 2;

  len := 200; angle := 90;

  repeat
    SetColor(random(16) + 1);

    line
     ( cx,
       cy,
       round(len * cos(angle * pi / 180) + cx),
       round(len * sin(angle * pi / 180) + cy)
     );

    delay(30);

    SetColor(black);


    line
     ( cx,
       cy,
       round(len * cos(angle * pi / 180) + cx),
       round(len * sin(angle * pi / 180) + cy)
     );

    inc(angle);

    if angle > 360 then angle := 0;
  until keypressed;

  closegraph;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.