diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-03-09 08:52:14 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-03-09 08:58:42 -0400 |
| commit | d84bb24d2359be9c4be7b3e4f05caf3daf68f243 (patch) | |
| tree | d57b082948ef75bdd0f9cc5d1c15a8d70d784d26 /examples/simple.scm | |
| parent | 8ac70ff3cef2963c460ce5382e37946eb0a4914e (diff) | |
render: Merge <group> into <model>.
* sly/render/model.scm (<model>): Add 'transform' and 'children' fields.
(model-transform, model-children): New accessors.
(make-model): Add 'transform' and 'children' keyword arguments.
(set-transform-identity!): New procedure.
(draw-model): Recursively draw model and all children.
(model-paint, model-blend): Renamed.
(paint, blend, group, group*, move, place): New procedures.
* sly/render/group.scm: Delete.
* Makefile.am (SOURCES): Remove it.
* examples/2048/2048.scm: Update example.
* examples/animation.scm: Likewise.
* examples/font.scm: Likewise.
* examples/joystick.scm: Likewise.
* examples/mines/mines.scm: Likewise.
* examples/simple.scm: Likewise.
* examples/tilemap.scm: Likewise.
* README.org (Example): Update sample code.
Diffstat (limited to 'examples/simple.scm')
| -rw-r--r-- | examples/simple.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/examples/simple.scm b/examples/simple.scm index 9560f6f..1596cfe 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -17,20 +17,23 @@ (use-modules (sly game) (sly window) + (sly utils) (sly math vector) (sly render camera) - (sly render group) - (sly render sprite)) + (sly render model) + (sly render sprite) + (sly render color)) (load "common.scm") (define scene - (group-move (vector2 320 240) - (group (load-sprite "images/p1_front.png")))) + (chain (load-sprite "images/p1_front.png") + (paint red) + (move (vector2 320 240)))) (define camera (orthographic-camera 640 480)) -(add-hook! draw-hook (lambda _ (draw-group scene camera))) +(add-hook! draw-hook (lambda _ (draw-model scene camera))) (with-window (make-window #:title "Simple Sprite Demo") (start-game-loop)) |