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

Simplifying engine interface #14

Merged
BirDt merged 14 commits from feature/basic-samples into master 2026-04-18 09:12:01 +08:00
Conversation 0 Commits 14 Files changed 6 +5 -4
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit da164ae3c4 - Show all commits

9
engine/core.scm
View file

@ -371,7 +371,7 @@
(assert (symbol? name)) (assert (symbol? name))
(assert (member type '(key-press))) (assert (member type '(key-press)))
(set! input-actions (set! input-actions
(cons (list name (cons (cons name
(apply (cond (apply (cond
((eqv? type 'key-press) make-key-press)) ((eqv? type 'key-press) make-key-press))
data)) data))
@ -389,9 +389,10 @@
(lambda (action) (lambda (action)
(cond (cond
((key-press? (cdr action)) ((key-press? (cdr action))
(push-event 'input (when (key-pressed? (key-press-key (cdr action)))
(car action) (push-event 'input
(cdr action))))) (car action)
(cdr action))))))
input-actions)))) input-actions))))
;; Render queue exports ;; Render queue exports