summaryrefslogtreecommitdiff
path: root/starling/system.scm
blob: f498aa483e3fc972e690544fd1e1c09e27de9c56 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(define-module (starling system)
  #:use-module (oop goops)
  #:use-module (sdl2)
  #:use-module (sdl2 video)
  #:export (elapsed-time
            current-window
            current-window-size))

(define (elapsed-time)
  (sdl-ticks))

(define current-window (make-parameter #f))

(define (current-window-size)
  (window-size (current-window)))