часы

[lulia]

Здравствуйте! Мне необходимо создать часы следующего вида в PascalABC c движущимися стрелками: часы.jpg.
Я сделала программу в которой есть круг часов и движущаяся секундная стрелка, а вот как добавить деления в виде кругов затрудняюсь. Помогите кто может!

Мой листинг:
uses graphABC;
  begin
   lockdrawing;
   for var x:=1 to 61 do
    begin
    window.clear;
    coordinate.SetOrigin(320, 240);
    circle(0,0,200);
    line (0,0,180,0);
    coordinate.Angle:=360/60*x;
    sleep (1000);
    redraw;
   end;
end.

[morgan97]

ну если я не ошибаюсь надо вставить эти круги в координаты, где они нужны с помощью той же функции, которой вы рисовали основной круг.

[lulia]

Если я их вставляю в цикл, то круг деления двигается вместе со стрелкой. Если я их пишу перед циклом, то цикл их стирает. Если я их пишу после цикла, то сначала двигается стрелка, а потом появляются деления. А нужно чтоб были деления и двигалась стрелка. Поэтому и прошу помощи!

[unbanned]

а как вы прорисовываете деления?

[Zer0]

Вспомните тригонометрию
Мысленно нарисуйте внутренний круг, на котором будут располагаться эти "деления", делений 12, соответственно разница в углах между ними - 360/12 = 30 градусов
Берете начальный угол 90 градусов и начинаете в цикле считать координаты:
X=cos(угол)*(Радиус мнимой окружности)
Y=sin(угол)*(рад. мн. окр)

и добавляете к текущему углу 30 градусов. все в общем то просто (не забудьте только про то, что в паскале нужно оперировать радианами)

[lulia]

Я прорисовываю деления так:

PHP код:

for var x1:=1 to 12 do
  begin
   circle(180,0,10);
   coordinate.Angle:=360/12*x1;
  end; 


Она рисует правильно, но если я ее вставляю в самое начало программы, то функция window.clear эти деления стирает. Если я ее вставляю в цикл, то деление двигается вместе со стрелкой, а мне нужно чтоб они оставались на месте. Если деления вставить после цикла, то сначало двигается стрелка, но потом деления не появляются.
Как же мне поправить прогу?

[Hacker19_90]

нарисовали круг
нарисовали деления
цикл
    нарисовали стрелку
    перерисовали деления
    задержка
    стёрли стрелку
конец цикла

[lulia]

Подскажите какая функция стирает стрелку? Я знаю только как очистить экран.

[unbanned]

из поста Zer0

uses
  graphABC;

var
  x, x1: real; 

begin
  lockdrawing;
  x := 0;
  while x <= 360 do
  begin
    window.clear; 
    coordinate.SetOrigin(320, 240); 
    circle(0, 0, 200); 
    x1 := 0;
    while x1 <= 2 * pi do 
    begin
      circle(round(cos(x1) * (180)), round(sin(x1) * (180)), 10);
      x1 := x1 + pi / 6;
    end;
    line(0, 0, round(cos(x) * (180)), round(sin(x) * (180))); 
    x := x + (6 * pi / 180);
    sleep(1000);
    redraw; 
  end; 
end.

Сообщение от Hacker19_90

    задержка
    стёрли стрелку

и да, мне тоже интересно как стереть стрелку?))

[Hacker19_90]

и да, мне тоже интересно как стереть стрелку?))

нарисовать на её месте такую же "стрелку" ток цветом фона!