From 97488fd4bf7f3660f95087ca6af4563401ecc375 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 26 Jun 2019 07:46:15 -0400 Subject: node-2d: Rename 'rect' method to 'source-rect'. --- starling/node-2d.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/starling/node-2d.scm b/starling/node-2d.scm index b9d5e2b..c71d4e8 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -80,7 +80,7 @@ texture texcoords - rect + source-rect blend-mode tint @@ -470,12 +470,12 @@ (define-method (texcoords (sprite )) (texture-gl-tex-rect (asset-ref (texture sprite)))) -(define-method (rect (sprite )) +(define-method (source-rect (sprite )) (texture-gl-rect (asset-ref (texture sprite)))) (define-method (render (sprite ) alpha) (let* ((tex (asset-ref (texture sprite))) - (rect (rect sprite)) + (rect (source-rect sprite)) (batch (batch sprite)) (tint (tint sprite)) (matrix (world-matrix sprite))) @@ -495,14 +495,14 @@ (define-class () (texture #:accessor texture #:init-keyword #:texture) (texcoords #:init-keyword #:texcoords #:init-form #f) - (rect #:init-keyword #:rect #:init-form #f)) + (source-rect #:init-keyword #:source-rect #:init-form #f)) (define-method (texcoords (sprite )) (or (slot-ref sprite 'texcoords) (next-method))) -(define-method (rect (sprite )) - (or (slot-ref sprite 'rect) +(define-method (source-rect (sprite )) + (or (slot-ref sprite 'source-rect) (next-method))) -- cgit v1.2.3