Паскаль. Помогите пожалуйста разобраться с процедурой!!! Срочно!!!

[Электрик-студент]

Уважаемые программисты, помогите пожалуйтса понять процедуру. Не могу найти её описание:

Код:

procedure Dec2Polar(Ang, Len: Real; var P: TPoint);
begin
 Ang := Ang - 90; { Correlation for our coord system }
 P.x := Xc + Len * cos(Ang * Pi / 180);
 P.y := Yc + Len * sin(Ang * Pi / 180);
end;

Нсколько я смог разобраться это перевод из декартовых координат в полярные. Но возникает ряд вопросов:
откуда программа берет значения Ang, Len, P??? Мы их только объявляем, но значения не присваиваем
Сама программа, это идущие стрелочные часы показывающие системное время!

[Вад]

Вообще, судя по коду, оно, вопреки названию, переводит наоборот - полярные в декартовы Принимает угол (в радианах) и расстояние от центра, а возвращает точку в декартовых координатах. Что в контексте отрисовки часов имеет смысл: угол поворота, видимо, перед этим вычисляется исходя из текущего времени, и по этому углу и длине вычисляется точка, в которой находится конец стрелки.

[Sla]

полностью согласен с Вад'ом
XC и YC координаты центра циферблата

[Электрик-студент]

Спасибо!!!
А вот с этим не поможете разобраться?! Это продолжение той же программы.

Код:

 for i := 0 to 23 do
 begin
  Dec2Polar(i * 15, Yc - 40, P);
  Circle(Round(P.x), Round(P.y), 2 + 3*Byte(i mod 2 = 0));
 end;

{ SetLineStyle(0, 0, 3);}
 while not keypressed do
 begin
  { Erase }
  SetColor(0);
  Line(Round(P2.x), Round(P2.y), Round(P.x), Round(P.y));
  Line(Round(P4.x), Round(P4.y), Round(P3.x), Round(P3.y));
  Line(Round(P6.x), Round(P6.y), Round(P5.x), Round(P5.y));

  GetTime(H, M, S, Hund);

  { Second arrow }
  Dec2Polar((S + Hund/100) * 6, Yc - 50, P);
  Dec2Polar((S + Hund/100) * 6, 5, P2);

  { Minute arrow }
  Dec2Polar((M + S/60) * 6, Yc - 100, P3);
  Dec2Polar((M + S/60) * 6, 5, P4);

  { Hour arrow }
  Dec2Polar((H + M/60) * 30, Yc - 150, P5);
  Dec2Polar((H + M/60) * 30, 5, P6);

  { Redraw }
  SetColor(15);
  Line(Round(P2.x), Round(P2.y), Round(P.x), Round(P.y));

  SetColor(9);
  Line(Round(P4.x), Round(P4.y), Round(P3.x), Round(P3.y));

  SetColor(7);
  Line(Round(P6.x), Round(P6.y), Round(P5.x), Round(P5.y));

у меня получилось так:

Код:

 for i := 0 to 23 do Деления циферблата
 begin
  Dec2Polar(i * 15, Yc - 40, P);
  Circle(Round(P.x), Round(P.y), 2 + 3*Byte(i mod 2 = 0)); в Турбо Паскале есть операция MOD - 
получение остатка от целочисленного деления.
 end;

{ SetLineStyle(0, 0, 3);} Устанавливает текущие толщину и цвет линии. (тип, образец, 
толщина линии)
Цикл вывода стрелок
 while not keypressed do Оператор цикла while с предпроверкой условия: пока не нажата клавиша 
делать (выполнять) оператор
keypressed (Анализирует нажатие клавиши. Результат TRUE, если на клавиатуре нажата клавиша 
(кроме Alt, Ctrl и т.п.), и FALSE в противном случае. Не задерживает исполнение программы.)
 begin
  { Erase }
  SetColor(0); Устанавливает основной цвет, которым будет осуществляться рисование
  Line(Round(P2.x), Round(P2.y), Round(P.x), Round(P.y)); ROUND округляет REAL до ближайшего целого
  Line(Round(P4.x), Round(P4.y), Round(P3.x), Round(P3.y));
  Line(Round(P6.x), Round(P6.y), Round(P5.x), Round(P5.y));

  GetTime(H, M, S, Hund);  Процедура для работы с датой и временем, возвращает текущее время,  
установленное  в операционной системе. GetTime занимается тем, что берет текущую дату/время и 
преобразует его к виду, переданному как параметр. 
Затем полученная строка передается внешней программе или записывается в файл.               

 { Second arrow } Стрелка часа
  Dec2Polar((S + Hund/100) * 6, Yc - 50, P);
  Dec2Polar((S + Hund/100) * 6, 5, P2);

  { Minute arrow } Стрелка минут
  Dec2Polar((M + S/60) * 6, Yc - 100, P3);
  Dec2Polar((M + S/60) * 6, 5, P4);

  { Hour arrow } Стрелка секунд
  Dec2Polar((H + M/60) * 30, Yc - 150, P5);
  Dec2Polar((H + M/60) * 30, 5, P6);

  { Redraw } Перерисовка
  SetColor(15);
  Line(Round(P2.x), Round(P2.y), Round(P.x), Round(P.y)); рисует линию от точки P2.x, P2.y к точке P.x, P.y

  SetColor(9);
  Line(Round(P4.x), Round(P4.y), Round(P3.x), Round(P3.y));

  SetColor(7);
  Line(Round(P6.x), Round(P6.y), Round(P5.x), Round(P5.y));

Round - это как бы цикл совершается вокруг этих точек :

[Sla]

round - как бы округляет полученный результат

[Вад]

SetColor(0) и то, что дальше - закрашивает (чёрным?) предыдущее положение стрелок, если я всё правильно понял.
Стрелка часа и стрелка секунд - перепутано местами Hour arrow - это часовая
SetColor(15) и далее - отрисовка новой позиции стрелок.

[Электрик-студент]

Да, спасибо, это я уже нашел: координаты должны быть целочисленными, нужно использовать функцию round - округление!!!
Ещё пожалуйста уделите мне немножко времени!!!
Вот это не могу понять как работает:

Код:

Dec2Polar(i * 15, Yc - 40, P);
  Circle(Round(P.x), Round(P.y), 2 + 3*Byte(i mod 2 = 0)); 

и вот:

Код:

 { Second arrow } Стрелка секунд
  Dec2Polar((S + Hund/100) * 6, Yc - 50, P);
  Dec2Polar((S + Hund/100) * 6, 5, P2);

и ещё вопросик в процедуре GetTime, Hund - это миллисекунды( а точнее - сотые части)

[Электрик-студент]

Вад
Команда клуба, спасибо!!!
Я так определил: Нужно очищать изображение перед каждой новой отрисовкой. Самый простой способ очистить - закрасить его весь цветом фона.
А со стрелками просто невнимателность

[Алексей++]

Электрик-студент, всё правильно сделал ) А не мигает картинка ? Можно ещё сделать битмап часов без стрелки (нарисовать вначале и помнить) - ляпать сначала его, потом рисовать стрелки. Тогда мигать точно не будет

[Вад]

Алексей1153++, +1

Электрик-студент, я так понимаю, что Circle в твоём случае рисует маленькие круги по периметру циферблата - делает насечку делений. Зачем-то делается 24 деления, и чётные рисуются жирнее - я так понимаю, они должны соответствовать часовым отметкам. Поэтому вопрос к тебе - GetTime возвращает часы в 12-часовом интервале или в 24-часовом? На циферблат традиционно выводят в 12-часовом

[Электрик-студент]

Делений как таковых нет! Есть действительно круги на месте делений, которые побольше в диаметре, те означают часы, а между ними маленькие, т.е. получается так, большой круг(12)-маленький-большой(1)-маленький и т.д.
Вроде в 12-часовом

[Sla]

Электрик-студент, странно, всю жизнь считал что в 24 часовом формате

[PooH]

рисуются просто не только "часы" (побольше) но и "полу-часы" (моменьше)...

Dec2Polar(i * 15, Yc - 40, P);
  Circle(Round(P.x), Round(P.y), 2 + 3*Byte(i mod 2 = 0));

здесь 15 это 15 градусов... то есть, рисуется 24 круга по окружности со смещением в 15 градусов - получаем один полный круг.

[PooH]

возвращает она в 24-х часовом но при переводе в градусы * 30 - получается все правильно - 720 градусов за сутки.

[Электрик-студент]

24
секундная стрелка
Dec2Polar((S + Hund/100) * 6, Yc - 50, P);
  Dec2Polar((S + Hund/100) * 6, 5, P2);
А здесь как?!

и ещё вопросик в процедуре GetTime, Hund - это миллисекунды( а точнее - сотые части), вот там Sсекунды,Mминуты, Hчасы, Hund?

Нигде нет информации 

[Sla]

Электрик-студент, ну как это нет нигде информации?
неужели в help'е нету? Не верю!

[Электрик-студент]

Нету ни Dec2Polar ни этого злосчастный Hund!

[Sla]

Электрик-студент, Dec2polar - пользовательская процедура
hund - пользовательская переменная.

GetTime - встроенная процедура в турбопаскаль, кажется в модуле Dos

[Электрик-студент]

Мда, ну а в этих то строчках
Dec2Polar((S + Hund/100) * 6, Yc - 50, P);
  Dec2Polar((S + Hund/100) * 6, 5, P2); как всё происходит? Не могу разобраться....

[Вад]

угол вычисляется как произведение числа секунд (дробного) на 6 (6 градусов угла на одну секунду), Yc-50 - это, как я понимаю, длина стрелки.
Так что первый вызов считает точку для конца секундной стрелки, а второй - координаты точки, находящейся под тем же углом, но на расстоянии 5 от центра. Это же очевидно

[Электрик-студент]

Вад, для вас это очевидно, для меня не настолько!!! Спасибо что пояснили!!!