From: Javier Sancho Date: Thu, 30 Mar 2017 23:09:22 +0000 (+0200) Subject: Replace tabs with spaces X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=5f298cad7dceabfa1a8f41bf71ae17b9554c0443;p=gacela.git Replace tabs with spaces --- diff --git a/gacela/image.scm b/gacela/image.scm index b1ee674..cd0d273 100644 --- a/gacela/image.scm +++ b/gacela/image.scm @@ -23,20 +23,20 @@ #:use-module ((sdl2 render) #:prefix sdl2:) #:use-module ((sdl2 surface) #:prefix sdl2:) #:export (bitmap - move-xy)) + move-xy)) (define (bitmap filename) (make-scene "bitmap" (let ((image (sdl2:load-image filename)) - (texture #f)) + (texture #f)) (let ((a 0)) (lambda* (#:key (xy '(0 0))) - (if (not texture) - (set! texture (sdl2:surface->texture %sdl-renderer image))) - (sdl2:clear-renderer %sdl-renderer) - (sdl2:render-copy %sdl-renderer texture #:dest-rect (sdl2:make-rect (car xy) (cadr xy) (sdl2:surface-width image) (sdl2:surface-height image))) - (sdl2:present-renderer %sdl-renderer)))))) + (if (not texture) + (set! texture (sdl2:surface->texture %sdl-renderer image))) + (sdl2:clear-renderer %sdl-renderer) + (sdl2:render-copy %sdl-renderer texture #:dest-rect (sdl2:make-rect (car xy) (cadr xy) (sdl2:surface-width image) (sdl2:surface-height image))) + (sdl2:present-renderer %sdl-renderer)))))) (define (move-xy x y scene) (define (to-integer n) @@ -45,5 +45,5 @@ "move-xy" (lambda () (let ((xy (list (to-integer (if (procedure? x) (x) x)) - (to-integer (if (procedure? y) (y) y))))) + (to-integer (if (procedure? y) (y) y))))) (display-scene scene #:xy xy))))) diff --git a/gacela/scene.scm b/gacela/scene.scm index f3803cd..4b66a1e 100644 --- a/gacela/scene.scm +++ b/gacela/scene.scm @@ -20,8 +20,8 @@ #:use-module (srfi srfi-9) #:use-module (srfi srfi-9 gnu) #:export (make-scene - display-scene - run-scene)) + display-scene + run-scene)) ;;; Scene Type @@ -48,8 +48,8 @@ (define (run-scene scene . args) (apply start-game - (cons - (if (scene? scene) - (scene-procedure scene) - scene) - args))) + (cons + (if (scene? scene) + (scene-procedure scene) + scene) + args)))