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 +9 -9
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 1b759d7771 - Show all commits

10
samples/bounce.scm
View file

@ -23,15 +23,15 @@
(push-render-object 'screen (push-render-object 'screen
(visual-2d-layer vis-2d) (visual-2d-layer vis-2d)
(lambda () (lambda ()
(let ((draw-pos (+ (position transform)
(circle-2d-center circle))))
((if (circle-2d-filled? circle) ((if (circle-2d-filled? circle)
draw-circle draw-circle
draw-circle-lines) draw-circle-lines)
(inexact->exact (round (+ (vector-x (position transform)) (vector-x draw-pos)
(vector-x (circle-2d-center circle))))) (vector-y draw-pos)
(inexact->exact (round (+ (vector-y (position transform))
(vector-y (circle-2d-center circle)))))
(circle-2d-radius circle) (circle-2d-radius circle)
(use-color (visual-2d-color vis-2d)))))))))) (visual-2d-color vis-2d))))))))))
(define-record-type <rigidbody-2d> (define-record-type <rigidbody-2d>