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 (make-entity-set))
  28         (key #f))
  29     (receive (e k) ((new-entity (make-a 1 2) (make-b)) entities)
  30       (set! entities e)
  31       (set! key (car k)))
  32     (format #t "New entity with a and b:~%~a~%~%" (entity-list entities))
  33
  34     (receive (e k) ((new-entity (make-a 10 20)) entities)
  35       (set! entities e))
  36     (format #t "New entity with a:~%~a~%~%" (entity-list entities))
  37
  38     (set! entities (modify-entities entities (list (set-entity-components key (make-a 50 50)) (remove-entity-components key 'b))))
  39     (format #t "First entity removes b and changes a:~%~a~%~%" (entity-list entities))
  40
  41     (set! entities ((remove-entity key) entities))
  42     (format #t "Removes first entity:~%~a~%~%" (entity-list entities))
  43
  44     (receive (e k) ((new-entity (make-a 1 2) (make-b)) entities)
  45       (set! entities e)
  46       (set! key (car k)))
  47     (format #t "New entity with a and b:~%~a~%~%" (entity-list entities))
  48
  49     (set! entities (modify-entities entities (list (set-entity-components key (make-a 50 50)) (remove-entity-components key 'b) (new-entity (make-a 1000 1000)))))
  50     (format #t "Last entity removes b and changes a, and new entity with a:~%~a~%~%" (entity-list entities))
  51
  52     (set! entities (modify-entities entities (list (remove-entity key))))
  53     (format #t "Remove last entity:~%~a~%~%" (entity-list entities))))
  54
  55 (export entity-component-functions)