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

Temporarily revert rendering change so we have a working example

Browse source
This commit is contained in:
BirDt_ 2026-04-17 22:33:24 +08:00
parent 66fbc1587c
commit 5f95f1f527
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
samples/bounce.scm
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)
(v-x draw-pos) (inexact->exact (round (v-x draw-pos)))
(v-y draw-pos) (inexact->exact (round (v-y draw-pos)))
(circle-2d-radius circle) (circle-2d-radius circle)
(visual-2d-color vis-2d)))))))))) (use-color (visual-2d-color vis-2d)))))))))))
(define-record-type <rigidbody-2d> (define-record-type <rigidbody-2d>
@ -134,11 +134,11 @@
(vec 5 1) (vec 5 1)
(make-color 0 0 1 1)) (make-color 0 0 1 1))
(make-ball (vec 300 300) (make-ball (vec 200 200)
(vec -2 -2) (vec -2 -2)
(make-color 0 1 0 1)) (make-color 0 1 0 1))
(make-ball (vec 600 600) (make-ball (vec 300 300)
(vec -2 -2) (vec -2 -2)
(make-color 1 0 0 1)) (make-color 1 0 0 1))