Кто знает, киньте формулы расчёта положения стрелок часов, можно кусок кода (на любом языке), заранее спасибо
Вид для печати
Кто знает, киньте формулы расчёта положения стрелок часов, можно кусок кода (на любом языке), заранее спасибо
удо не надо - сам посчитал)
Вот так надо работать!
Вот так быстро надо реагировать :)
полярные координаты. любой справочник по математике...
та ну вас... я уже 5 месяцев как с этим разобрался...
[b]Злое_Ведро[/b], и как же удалось решить? случайно не синусом, косинусом и секундной задержкой?
ЗЫ просто интересуюсь...
Давным давно на паскале это делалсь так :
[code]program clock;
uses crt, graph, mc;
var
x, y, xx, yy,
xx1, yy1, r,
r1, ug, ug1,
w, w1, x1, y1,
x2, y2 :integer;
s : char;
begin
open_graph;
x := getmaxx div 2;
y := getmaxy div 2;
ug := 180;
ug1 := 180;
r := x div 2 - 20;
r1 := x div 5;
w := 360 div 12;
w1 := 360 div 60;
dec (r, 10);
circle (x, y, r + 10);
repeat
if keypressed then begin
s := readkey;
end;
delay (700);
setcolor (getbkcolor);
line (x, y, xx1, yy1);
line (xx, yy, x, y);
line (x, y, x1, y1);
line (x, y, x2, y2);
dec (ug, w);
dec (ug1, w1);
xx1 := round (x + r1 * cos(pi * ug1 / 180));
yy1 := round (y - r1 * sin(pi * ug1 / 180));
x1 := round (x + r1 div 3 * cos(pi * (ug1 + 180) / 180));
y1 := round (y - r1 div 3 * sin(pi * (ug1 + 180) / 180));
x2 := round (x + r div 6 * cos(pi * (ug + 180) / 180));
y2 := round (y - r div 6 * sin(pi * (ug + 180) / 180));
xx := round (x + r * cos(pi * ug / 180));
yy := round (y - r * sin(pi * ug / 180));
setcolor (15);
circle (x, y, 5);
line (x, y, xx1, yy1);
line (xx, yy, x, y);
line (x, y, x1, y1);
line (x, y, x2, y2);
until ord(s) = 27;
closegraph;
end.[/code]