Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

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