BirDt/imugi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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)))
;; System record interface
(export make-system system? system-name system-rendering
(export make-system system? system-name
system-priority set-system-priority! system-criteria
set-system-criteria! system-process set-system-process!)
;; The system record
(define-record-type <system>
(internal-make-system name rendering priority criteria process)
(int:make-system name priority criteria process)
system?
(name system-name)
(rendering system-rendering)
(priority system-priority internal-set-system-priority!)
(criteria system-criteria internal-set-system-criteria!)
(process system-process internal-set-system-process!))
(priority system-priority int:set-system-priority!)
(criteria system-criteria int:set-system-criteria!)
(process system-process int:set-system-process!))
;; Type-checked system constructor wrapper
(define (make-system name rendering priority criteria process)
(define (make-system name priority criteria process)
(assert (symbol? name))
(assert (and (symbol? rendering) (member rendering '(3d 2d screen none))))
(assert (integer? priority))
(assert (every symbol? criteria))
(assert (procedure? process))
(internal-make-system name rendering priority criteria process))
(internal-make-system name priority criteria process))
;; Type-checked system priority mutator
(define (set-system-priority! system priority)