diff options
| -rw-r--r-- | 2d/sprite.scm | 2 | ||||
| -rw-r--r-- | README.org | 20 |
2 files changed, 10 insertions, 12 deletions
diff --git a/2d/sprite.scm b/2d/sprite.scm index bf2a0f6..b652f4d 100644 --- a/2d/sprite.scm +++ b/2d/sprite.scm @@ -314,7 +314,7 @@ bound." (%make-sprite-batch max-size 0 #f (make-packed-array sprite-vertex (* 4 max-size)))) (define (sprite-batch-draw . args) - "Adds a textured quad to the current zsprite batch." + "Adds a textured quad to the current sprite batch." (apply %sprite-batch-draw *sprite-batch* args)) (define* (%sprite-batch-draw batch texture x y width height origin-x origin-y @@ -21,8 +21,7 @@ Here is the simplest Guile-2d application (so far). #+BEGIN_SRC scheme - (use-modules (figl gl) - (2d sprite) + (use-modules (2d sprite) (2d game-loop) (2d window) (2d helpers)) @@ -78,12 +77,13 @@ supported formats. #+BEGIN_SRC scheme - (define sprite (load-sprite "cirno.png" - #:position #(0 0) - #:scale (1 1) - #:rotation (0) - #:color #xffffff - #:anchor 'center)) + (define sprite + (load-sprite "cirno.png" + #:position #(0 0) + #:scale (1 1) + #:rotation (0) + #:color white + #:anchor 'center)) #+END_SRC Alternatively, you can make a sprite from an existing texture. The @@ -120,9 +120,7 @@ (define batch (make-sprite-batch)) (with-sprite-batch batch - (for-each - (lambda (sprite) (draw-sprite sprite)) - sprites)) + (for-each draw-sprite sprites)) #+END_SRC *** Coroutines and Agendas |