[REBOL] Re: RATE experiment...
From: fsievert:uos at: 31-Aug-2001 9:58
At least with Linux, this works:
; Patch the do-events - Function:
timer: none
do-events: func [/local s tmp] [
s: 0
forever [
tmp: now/time/precise
wait 1 / 30 - s
s: (to-decimal tmp) + (1 / 30)
do timer
if empty? system/view/screen-face/pane [break]
s: (to-decimal now/time/precise) - s
]]
; Now "timer" will be called up to every 1 / 30 second:
use [c s] [
timer: [
box/color: complement box/color
show box
if none? s [
c: 0 s: now/time/precise
]
if s + 0:0:5 < now/time/precise [print c / 5 s: none]
c: c + 1
] s: none
]
view layout [box: box red]
On Thu, 30 Aug 2001, Petr Krenzelok wrote: