summaryrefslogtreecommitdiff
path: root/examples/font.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-04-05 19:46:26 -0400
committerDavid Thompson <dthompson2@worcester.edu>2015-04-05 19:49:36 -0400
commit076a01c36d01c71ffcce1737855b2928bc6165bc (patch)
treeb41de0b8edf27ee050a393ca47e5aa1a1130b263 /examples/font.scm
parent9ddc407ced2d57b716002711492133e048d4fa53 (diff)
render: model: Prefix procedures with 'model-'.
* sly/render/model.scm (paint, blend, group, group*, move, place): Renamed. (model-paint, model-blend, model-group, list->model, model-move, model-place): New procedures. * README.org (Example): s/move/model-move/ * examples/2048/2048.scm: Update example. * examples/mines/mines.scm: Likewise. * examples/animation.scm: Likewise. * examples/font.scm: Likewise. * examples/joystick.scm: Likewise. * examples/simple.scm: Likewise. * examples/tilemap.scm: Likewise.
Diffstat (limited to 'examples/font.scm')
-rw-r--r--examples/font.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/font.scm b/examples/font.scm
index b3fcfc3..33c4940 100644
--- a/examples/font.scm
+++ b/examples/font.scm
@@ -34,24 +34,24 @@
(define font (load-default-font 18))
(define-signal message-label
- (move (vector2 320 240)
- (label font "The quick brown fox jumped over the lazy dog."
- #:anchor 'center)))
+ (model-move (vector2 320 240)
+ (label font "The quick brown fox jumped over the lazy dog."
+ #:anchor 'center)))
(define-signal fps-label
(signal-map (lambda (fps)
(let ((text (format #f "FPS: ~d" fps)))
- (move (vector2 0 480) (label font text))))
+ (model-move (vector2 0 480) (label font text))))
fps))
(define-signal mouse-label
(signal-map (lambda (p)
(let ((text (format #f "Mouse: (~d, ~d)" (vx p) (vy p))))
- (move (vector2 0 460) (label font text))))
+ (model-move (vector2 0 460) (label font text))))
(signal-throttle 5 mouse-position)))
(define-signal scene
- (signal-map group message-label fps-label mouse-label))
+ (signal-map model-group message-label fps-label mouse-label))
(define camera (orthographic-camera 640 480))