🚀 go-pugleaf

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 :)


> Fajnie jak byś się zagłębił, bo ta część też mi się nie podoba =)

Tzn. co? [adjust_timer]? Co Ci się tam nie podoba?

> 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ę.

-- 
Pozdrawiam!
Googie