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 +30 -51
1 changed files with 30 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit d0cada659a - Show all commits

63
samples/bounce.scm
View file

@ -39,7 +39,7 @@
rigidbody-2d? rigidbody-2d?
(velocity rigidbody-2d-velocity set-rigidbody-2d-velocity!)) (velocity rigidbody-2d-velocity set-rigidbody-2d-velocity!))
(define +gravity+ (make-vector 0 9.8)) (define +gravity+ (vector 0 9.8))
(define +friction+ -0.1) (define +friction+ -0.1)
(add-system (add-system
@ -62,7 +62,7 @@
(when (> (vector-y (position transform)) (- (cdr (*window-size*)) +ball-radius+)) (when (> (vector-y (position transform)) (- (cdr (*window-size*)) +ball-radius+))
(set-rigidbody-2d-velocity! rbody (set-rigidbody-2d-velocity! rbody
(v* (rigidbody-2d-velocity rbody) (v* (rigidbody-2d-velocity rbody)
(make-vector 1 -1))))))) (vector 1 -1)))))))
(add-system (add-system
(make-system 'apply-wall-bounce (make-system 'apply-wall-bounce
@ -74,7 +74,7 @@
(< (vector-x (position transform)) (+ 0 +ball-radius+))) (< (vector-x (position transform)) (+ 0 +ball-radius+)))
(set-rigidbody-2d-velocity! rbody (set-rigidbody-2d-velocity! rbody
(v* (rigidbody-2d-velocity rbody) (v* (rigidbody-2d-velocity rbody)
(make-vector -1 1))))))) (vector -1 1)))))))
(add-system (add-system
(make-system 'apply-friction (make-system 'apply-friction
@ -111,56 +111,35 @@
(v* 2 (v* 2
(rigidbody-2d-velocity rbody))))))) (rigidbody-2d-velocity rbody)))))))
(create-entity (define (make-ball position velocity color)
(create-entity
(make-visual-2d (make-visual-2d
(make-circle-2d (make-circle-2d
(make-vector 0 0) (vector 0 0)
+ball-radius+ +ball-radius+
#t) #t)
(make-color 0 0 1 1) color
0) 0)
(make-screen-transform (make-screen-transform
(make-vector 100 100) position
(make-vector 0 0) (vector 0 0)
0 0
(make-vector 1 1) (vector 1 1)
'center 'center
'none) 'none)
(make-rigidbody-2d (make-vector 5 1))) (make-rigidbody-2d velocity)))
(create-entity (make-ball (vector 100 100)
(make-visual-2d (vector 5 1)
(make-circle-2d (make-color 0 0 1 1))
(make-vector 0 0)
+ball-radius+
#t)
(make-color 0 1 0 1)
0)
(make-screen-transform
(make-vector 100 100)
(make-vector 0 0)
0
(make-vector 1 1)
'center
'none)
(make-rigidbody-2d (make-vector -2 -2)))
(create-entity (make-ball (vector 300 300)
(make-visual-2d (vector -2 -2)
(make-circle-2d (make-color 0 1 0 1))
(make-vector 0 0)
+ball-radius+ (make-ball (vector 600 600)
#t) (vector -2 -2)
(make-color 1 0 0 1) (make-color 1 0 0 1))
0)
(make-screen-transform
(make-vector 100 100)
(make-vector 0 0)
0
(make-vector 1 1)
'center
'none)
(make-rigidbody-2d (make-vector 10 -5)))
(create-window) (create-window)
) )