GLScene, как сделать смену дня и ночи?

[Alex2009]

Нужна помощь пишу игру на GLScene мне нужно сделать смену дня и ночи есть такой параметр SanElevation=75 как сделать чтобы каждые 30 секунд от 75 отнималось 1 тоесть прошло 30 секунд 34 еше 30 секунд 73 и т.д. а потом как доходит до - 75 должно прибовлятся 1

[Alex Cones]

Обычный таймер тебе в помощь.

[Alex2009]

Что таймером делается это я знаю.А код можно плиз...

[Alex Cones]

Ну ежели на дельфе, то примерно так:
В таймере:

If Napr = true Then Inc(N) Else Dec(N);
If N = 75 Then Napr:=False;
If N = -75 Then Napr:=True;
SunElevation:=N;

[Alex2009]

Неработает вот код небо как было дневным так и осталось интервал таймера 100

procedure TForm1.Timer1Timer(Sender: TObject);
var
 napr:boolean;
 n: integer;
begin
napr:=true;
If Napr = true Then Inc(N) Else Dec(N);
If N = -75 Then Napr:=True;
If N = 75 Then Napr:=False;
GLEarthSkyDome1.SunElevation:=N;

end;

[Alex Cones]

Ну ды во-первых убери napr:=true; - перенеси в онкрейт формы, еще в онкрейт добавь:N:=1,