BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Add functions to clear ECS state

Browse source
This commit is contained in:
BirDt_ 2026-03-29 02:16:56 +08:00
parent af50ef7c09
commit 5c19a5f3a6
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
engine/core.scm
View file

@ -120,6 +120,12 @@
(queue-del-entity id) (queue-del-entity id)
id) id)
;; Clear the entire world
(define (clear-world)
(for-each
remove-entity
(hash-table-keys world)))
;; System record interface ;; System record interface
(export make-system system? system-name system-rendering (export make-system system? system-name system-rendering
system-priority set-system-priority! system-criteria system-priority set-system-priority! system-criteria
@ -235,6 +241,11 @@
(queue-del-system name) (queue-del-system name)
name) name)
(define (clear-systems)
(for-each
remove-system
(map system-name systems)))
;; Execute a single system ;; Execute a single system
;; TODO: Implement ;; TODO: Implement
(define (execute-system system) (define (execute-system system)