From f150638c6d3fe992a1557d36d3e1858e9a4f395c Mon Sep 17 00:00:00 2001 From: jsancho Date: Wed, 15 Jun 2011 16:57:44 +0000 Subject: [PATCH] --- src/gacela_mobs.scm | 28 ++++++++++++++++++++-------- 1 file changed, 20 insertions(+), 8 deletions(-) diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm index 555ce0f..6b9d699 100755 --- a/src/gacela_mobs.scm +++ b/src/gacela_mobs.scm @@ -57,12 +57,24 @@ (lambda-mob ,attr ,@look)))) (define-macro (lambda-mob attr . look) - (let ((look-code (map (lambda (x) (if (string? x) `(draw-texture ,x) x)) look))) - `(let ((attr ',attr)) - (lambda (option) - (case option - ((#:render) - (glPushMatrix) - ,@look-code + (define (process-look look) + (cond ((null? look) (values '() '())) + (else + (let ((line (car look))) + (receive (lines images) (process-look (cdr look)) + (cond ((string? line) + (cons `(draw-texture ,line) lines) + (cons line images)) + (else + (cons line lines))) + (values lines images)))))) + + (receive (look-lines look-images) (process-look look) + `(let ((attr ',attr)) + (lambda (option) + (case option + ((#:render) + (glPushMatrix) + ,@look-lines ; ,@(map (lambda (x) (if (string? x) `(draw-texture ,x) x)) look) - (glPopMatrix))))))) + (glPopMatrix))))))) -- 2.39.2