Simplifying engine interface #14
1 changed files with 3 additions and 3 deletions
|
|
@ -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>
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue