diff options
author | David Thompson <dthompson2@worcester.edu> | 2015-04-05 19:46:26 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2015-04-05 19:49:36 -0400 |
commit | 076a01c36d01c71ffcce1737855b2928bc6165bc (patch) | |
tree | b41de0b8edf27ee050a393ca47e5aa1a1130b263 /examples/tilemap.scm | |
parent | 9ddc407ced2d57b716002711492133e048d4fa53 (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/tilemap.scm')
-rw-r--r-- | examples/tilemap.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/examples/tilemap.scm b/examples/tilemap.scm index 5e54bde..bb4d9ef 100644 --- a/examples/tilemap.scm +++ b/examples/tilemap.scm @@ -90,10 +90,11 @@ (225 225 176 242 65 65 65 65 65 65 65 65 65 65 65 65 65 65 65 65)))) (define scene - (move (v- (vector2 320 240) - (v* (vector2 tile-width tile-height) - (vector2 10 15/2))) - (group* (compile-tile-layer map-tiles 32 32)))) + (chain (compile-tile-layer map-tiles 32 32) + (list->model) + (model-move (v- (vector2 320 240) + (v* (vector2 tile-width tile-height) + (vector2 10 15/2)))))) (define camera (orthographic-camera 640 480)) |