diff options
Diffstat (limited to 'examples/font.scm')
-rw-r--r-- | examples/font.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/font.scm b/examples/font.scm index 8bcd90d..4a8412b 100644 --- a/examples/font.scm +++ b/examples/font.scm @@ -22,7 +22,7 @@ (2d game) (2d mouse) (2d signal) - (2d vector2) + (2d vector) (2d window)) (load "common.scm") @@ -32,18 +32,18 @@ (define font (load-default-font 18)) (define label (make-label font "The quick brown fox jumped over the lazy dog." - (vector2 320 240) #:anchor 'center)) + #(320 240) #:anchor 'center)) (define-signal fps-label (signal-map (lambda (fps) (let ((text (format #f "FPS: ~d" fps))) - (make-label font text (vector2 0 0)))) + (make-label font text #(0 0)))) fps)) (define-signal mouse-label (signal-map (lambda (p) (let ((text (format #f "Mouse: (~d, ~d)" (vx p) (vy p)))) - (make-label font text (vector2 0 20)))) + (make-label font text #(0 20)))) (signal-throttle 5 mouse-position))) (add-hook! draw-hook (lambda (dt alpha) |