src/examples/entity-component-functions.scm

   1 ;;; Gacela, a GNU Guile extension for fast games development
   2 ;;; Copyright (C) 2013 by Javier Sancho Fernandez <jsf at jsancho dot org>
   3 ;;;
   4 ;;; This program is free software: you can redistribute it and/or modify
   5 ;;; it under the terms of the GNU General Public License as published by
   6 ;;; the Free Software Foundation, either version 3 of the License, or
   7 ;;; (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;;; GNU General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License
  15 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17
  18 (define-module (gacela examples entity-component-functions)
  19   #:use-module (gacela system)
  20   #:use-module (ice-9 receive))
  21
  22
  23 (define-component a x y)
  24 (define-component b)
  25
  26 (define (entity-component-functions)
  27   (let ((entities '())
  28         (components '())
  29         (key #f))
  30     (receive (e c k) ((new-entity (make-a 1 2) (make-b)) entities components)
  31       (set! entities e)
  32       (set! components c)
  33       (set! key k)
  34       (display k) (newline))
  35     (format #t "New entity with a and b:~%~a~%~a~%~%" entities components)
  36
  37     (receive (e c k) ((new-entity (make-a 10 20)) entities components)
  38       (set! entities e)
  39       (set! components c)
  40       (display k) (newline))
  41     (format #t "New entity with a:~%~a~%~a~%~%" entities components)
  42
  43     (receive (e c) (modify-entities (list (set-entity-components key (make-a 50 50)) (remove-entity-components key 'b)) entities components)
  44       (set! entities e)
  45       (set! components c))
  46     (format #t "First entity removes b and changes a:~%~a~%~a~%~%" entities components)
  47
  48     (receive (e c) ((remove-entity key) entities components)
  49       (set! entities e)
  50       (set! components c))
  51     (format #t "Removes first entity:~%~a~%~a~%~%" entities components)
  52
  53     (receive (e c k) ((new-entity (make-a 1 2) (make-b)) entities components)
  54       (set! entities e)
  55       (set! components c)
  56       (set! key k)
  57       (display k) (newline))
  58     (format #t "New entity with a and b:~%~a~%~a~%~%" entities components)
  59
  60     (receive (e c) (modify-entities (list (set-entity-components key (make-a 50 50)) (remove-entity-components key 'b) (new-entity (make-a 1000 1000))) entities components)
  61       (set! entities e)
  62       (set! components c))
  63     (format #t "Last entity removes b and changes a, and new entity with a:~%~a~%~a~%~%" entities components)
  64
  65     (receive (e c) (modify-entities (list (remove-entity key)) entities components)
  66       (set! entities e)
  67       (set! components c))
  68     (format #t "Remove last entity:~%~a~%~a~%~%" entities components)))
  69
  70 (export entity-component-functions)