summaryrefslogtreecommitdiff
path: root/2d/tileset.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-06-28 18:46:16 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-06-28 18:46:16 -0400
commitf47eb69a354188154731846dde8b384c2c2f39f6 (patch)
tree6aa1ccb9212836b7c941e771475eb995fa6df9f9 /2d/tileset.scm
parentdf0f2a5f3f09394f1953abbc7e33e9a98204680e (diff)
Rename guile-2d to Sly!
Massive find/replace job.
Diffstat (limited to '2d/tileset.scm')
-rw-r--r--2d/tileset.scm89
1 files changed, 0 insertions, 89 deletions
diff --git a/2d/tileset.scm b/2d/tileset.scm
deleted file mode 100644
index 669372b..0000000
--- a/2d/tileset.scm
+++ /dev/null
@@ -1,89 +0,0 @@
-;;; guile-2d
-;;; Copyright (C) 2013, 2014 David Thompson <dthompson2@worcester.edu>
-;;;
-;;; This program is free software: you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation, either version 3 of the
-;;; License, or (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program. If not, see
-;;; <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; Tilesets encapsulate a group of uniformly sized texture regions
-;; that come from a single texture.
-;;
-;;; Code:
-
-(define-module (2d tileset)
- #:use-module (srfi srfi-9)
- #:use-module (srfi srfi-42)
- #:use-module (2d texture)
- #:export (<tileset>
- make-tileset
- load-tileset
- tileset?
- tileset-tiles
- tileset-width
- tileset-height
- tileset-margin
- tileset-spacing
- tileset-ref))
-
-(define-record-type <tileset>
- (%make-tileset tiles width height margin spacing)
- tileset?
- (tiles tileset-tiles)
- (width tileset-width)
- (height tileset-height)
- (margin tileset-margin)
- (spacing tileset-spacing))
-
-(define (split-texture texture width height margin spacing)
- "Split TEXTURE into a vector of texture regions of WIDTH x HEIGHT
-size. SPACING refers to the number of pixels separating each
-tile. MARGIN refers to the number of pixels on the top and left of
-TEXTURE before the first tile begins."
- (define (build-tile tx ty)
- (let* ((x (+ (* tx (+ width spacing)) margin))
- (y (+ (* ty (+ height spacing)) margin)))
- (make-texture-region texture x y width height)))
-
- (let* ((tw (texture-width texture))
- (th (texture-height texture))
- (rows (/ (- tw margin) (+ width spacing)))
- (columns (/ (- tw margin) (+ height spacing))))
- (vector-ec (: y rows) (: x columns) (build-tile x y))))
-
-(define* (make-tileset texture width height
- #:optional #:key (margin 0) (spacing 0))
- "Return a new tileset that is built by splitting TEXTURE into
-tiles."
- (let ((tiles (split-texture texture
- width
- height
- margin
- spacing)))
- (%make-tileset tiles width height margin spacing)))
-
-(define* (load-tileset filename width height
- #:optional #:key (margin 0) (spacing 0))
- "Return a new tileset that is built by loading the texture at
-FILENAME and splitting the texture into tiles."
- (let* ((tiles (split-texture (load-texture filename)
- width
- height
- margin
- spacing)))
- (%make-tileset tiles width height margin spacing)))
-
-(define (tileset-ref tileset i)
- "Return the tile texture of TILESET at index I."
- (vector-ref (tileset-tiles tileset) i))