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

Fix queue being unset

Browse source
This commit is contained in:
BirDt_ 2026-04-02 14:18:45 +08:00
parent 213dfc67b6
commit ac6ae74781
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
engine/core.scm
View file

@ -371,10 +371,12 @@
(define (evaluate-render-queue queue-name mode)
(assert (symbol? queue-name))
(assert (symbol? mode) (member mode '(screen 2d 3d)))
(when (or (eq? mode 'screen)
(and (eq? mode '2d) (not (null? (*active-camera-2d*))))
(and (eq? mode '3d) (not (null? (*active-camera-3d*)))))
(let ((queue (hash-table-ref render-queues queue-name)))
(let ((queue (hash-table-ref render-queues queue-name)))
(when (or (eq? mode 'screen)
(and (eq? mode '2d)
(not (null? (*active-camera-2d*))))
(and (eq? mode '3d)
(not (null? (*active-camera-3d*)))))
(when (eq? mode '2d)
(begin-mode-2d (*active-camera-2d*)))
(when (eq? mode '3d)
@ -388,8 +390,8 @@
(when (eq? mode '2d)
(end-mode-2d))
(when (eq? mode '3d)
(end-mode-3d))))
(set! queue '()))
(end-mode-3d)))
(set! queue '())))
;; Frame generation and game loop
(export resolve-queues next-frame *clear-color* perform-render)