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

Simplifying engine interface #14

Merged
BirDt merged 14 commits from feature/basic-samples into master 2026-04-18 09:12:01 +08:00
Conversation 0 Commits 14 Files changed 6 +5 -5
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 5f95f1f527 - Show all commits

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))