🚀 go-pugleaf

On Fri, 30 Dec 2005 08:20:11 +0100, Googie wrote:

> Derek Kuliński / takeda wrote:
>> Fakt to z pętlą foreach raczej będzie działało dłużej... Ale jeżeli wykona
>> się w mniej niż sekundę to powinno być ok... Z drugiej strony, poniższa
>> funkcja skoryguje czas (o ile działa poprawnie).
> Hehe, ja tu mówiłem raczej o rzędach wielkości milisekund :)

Milisekundy w sumie też mają wpływ, w sumie dlatego odejmuję 499 przy
poleceniu after, pewnie powinienem chyba zmierzyć czas wykonywania
polecenia timer i odjąć tyle ile mi wyjdzie.

W każdym razie jak nic nie odejmę to timer zawsze spóźnia się o sekundę...

>> Fajnie jak byś się zagłębił, bo ta część też mi się nie podoba =)
> Tzn. co? [adjust_timer]? Co Ci się tam nie podoba?

Wiesz, jak to pisałem to byłem pół przytomny (grypa czy coś mnie chwyciła)
przy tej funkcji bardziej zgadywałem co trzeba zrobić =)

>> Ogólnie chodzi, żeby cały timer (after) mógł być wywołany w dowolnym
>> momencie, ale mimo tego ustawił właściwy czas aby poprawnie odliczał.
> Na prawdę nie mam sił rozgryzać działania całego skryptu :)
> Szybkim rzutem oka zauważyłem jeszcze jedną - na prawdę drobną - 
> optymalizację:
> 
> proc adjust_timer {current increment} {
> 	set res [expr {$current % $increment}]
> 	if {$res == 0} {
> 		set res $increment
> 	}
> 	return $res
> }
> 
> można zapisać tak:
> 
> proc adjust_timer {current increment} {
> 	set res [expr {$current % $increment}]
> 	if {$res == 0} {
> 		return $increment
> 	}
> 	return $res
> }
> 
> i w przypadku $res == 0 oszczędzimy 1 wywołane komendy :) Wiem, to 
> śmieszne żeby się bawić w takie pierdółki... tak tylko piszę.

Czemu nie? Czym krócej wywoływane jest to całe timer, tym chyba mniej
trzeba skorygować czas (jak to napisałem na samym początku)...

-- 
ダレック
takeda@IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poświęcona IRC