sfml.scm

;; SFML/System.h
;; ////////////////////////////////////////////////////////////

;; #ifndef SFML_SYSTEM_H
;; #define SFML_SYSTEM_H

;; ////////////////////////////////////////////////////////////
;; // Headers
;; ////////////////////////////////////////////////////////////

;; #include <SFML/Config.h>
;; #include <SFML/System/Clock.h>
;; #include <SFML/System/Mutex.h>
;; #include <SFML/System/Randomizer.h>
;; #include <SFML/System/Sleep.h>
;; #include <SFML/System/Thread.h>

;; #endif // SFML_SYSTEM_H

(require-extension bind)

(bind-file* "/usr/local/include/SFML/System.h")

(define clock (sfClock_Create))
(define (now) (sfClock_GetTime clock))

(let loop ((time (now)))
  (display time)
  (sfSleep 0.5)
  (if (< (now) 5) 
      (loop (now))))