Undo the rendering wrapper so it can be moved out
This commit is contained in:
parent
04e3ec5fa6
commit
8c48d4ee42
1 changed files with 3 additions and 3 deletions
|
|
@ -29,10 +29,10 @@
|
|||
((if (circle-2d-filled? circle)
|
||||
draw-circle
|
||||
draw-circle-lines)
|
||||
(inexact->exact (round (v-x draw-pos)))
|
||||
(inexact->exact (round (v-y draw-pos)))
|
||||
(v-x draw-pos)
|
||||
(v-y draw-pos)
|
||||
(circle-2d-radius circle)
|
||||
(use-color (visual-2d-color vis-2d)))))))))))
|
||||
(visual-2d-color vis-2d))))))))))
|
||||
|
||||
|
||||
(define-record-type <rigidbody-2d>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue