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

Nicer rendering interface

Browse source
This commit is contained in:
BirDt_ 2026-04-17 19:25:42 +08:00
parent b4a08ea918
commit 1b759d7771
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
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 ()
((if (circle-2d-filled? circle) (let ((draw-pos (+ (position transform)
draw-circle (circle-2d-center circle))))
draw-circle-lines) ((if (circle-2d-filled? circle)
(inexact->exact (round (+ (vector-x (position transform)) draw-circle
(vector-x (circle-2d-center circle))))) draw-circle-lines)
(inexact->exact (round (+ (vector-y (position transform)) (vector-x draw-pos)
(vector-y (circle-2d-center circle))))) (vector-y draw-pos)
(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>