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

Remove system rendering in preparation for a rendering queue

Browse source
This commit is contained in:
BirDt_ 2026-04-02 10:46:21 +08:00
parent 0f8c4bcf87
commit 99ba25abec
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
engine/core.scm
View file

@ -133,28 +133,26 @@
(hash-table-keys world))) (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-priority set-system-priority! system-criteria system-priority set-system-priority! system-criteria
set-system-criteria! system-process set-system-process!) set-system-criteria! system-process set-system-process!)
;; The system record ;; The system record
(define-record-type <system> (define-record-type <system>
(internal-make-system name rendering priority criteria process) (int:make-system name priority criteria process)
system? system?
(name system-name) (name system-name)
(rendering system-rendering) (priority system-priority int:set-system-priority!)
(priority system-priority internal-set-system-priority!) (criteria system-criteria int:set-system-criteria!)
(criteria system-criteria internal-set-system-criteria!) (process system-process int:set-system-process!))
(process system-process internal-set-system-process!))
;; Type-checked system constructor wrapper ;; Type-checked system constructor wrapper
(define (make-system name rendering priority criteria process) (define (make-system name priority criteria process)
(assert (symbol? name)) (assert (symbol? name))
(assert (and (symbol? rendering) (member rendering '(3d 2d screen none))))
(assert (integer? priority)) (assert (integer? priority))
(assert (every symbol? criteria)) (assert (every symbol? criteria))
(assert (procedure? process)) (assert (procedure? process))
(internal-make-system name rendering priority criteria process)) (internal-make-system name priority criteria process))
;; Type-checked system priority mutator ;; Type-checked system priority mutator
(define (set-system-priority! system priority) (define (set-system-priority! system priority)