#:use-module (gacela system)
#:use-module (ice-9 receive)
#:use-module (ice-9 threads)
#:use-module (gacela system)
#:use-module (ice-9 receive)
#:use-module (ice-9 threads)
(with-engine engine
(receive (e c) ((apply (engine-system engine) (engine-entities engine)))
(set-engine-entities! engine (list e c)))
(with-engine engine
(receive (e c) ((apply (engine-system engine) (engine-entities engine)))
(set-engine-entities! engine (list e c)))
- (set! delay (get-property '(engine-inner-properties delay))))
- (usleep (inexact->exact (* delay 1000000))))
+ (set! delay (- (inexact->exact (* (get-property '(engine-inner-properties step)) 1000000))
+ (- (current-utime) t))))
+ (cond ((> delay 0)
+ (usleep delay))))