Undo the rendering wrapper so it can be moved out

This commit is contained in:
BirDt_ 2026-04-17 22:44:22 +08:00
parent 04e3ec5fa6
commit 8c48d4ee42

View file

@ -29,10 +29,10 @@
((if (circle-2d-filled? circle) ((if (circle-2d-filled? circle)
draw-circle draw-circle
draw-circle-lines) draw-circle-lines)
(inexact->exact (round (v-x draw-pos))) (v-x draw-pos)
(inexact->exact (round (v-y draw-pos))) (v-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>