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

Change vector math interface

Browse source
This commit is contained in:
BirDt_ 2026-04-17 22:30:34 +08:00
parent 30b8206889
commit 66fbc1587c
4 changed files with 215 additions and 214 deletions
Download patch file Download diff file Expand all files Collapse all files

35
samples/bounce.scm
View file

@ -4,6 +4,7 @@
raylib
(engine core)
(engine components core)
(engine math)
(srfi 1)
(srfi 99))
@ -28,8 +29,8 @@
((if (circle-2d-filled? circle)
draw-circle
draw-circle-lines)
(vector-x draw-pos)
(vector-y draw-pos)
(v-x draw-pos)
(v-y draw-pos)
(circle-2d-radius circle)
(visual-2d-color vis-2d))))))))))
@ -39,7 +40,7 @@
rigidbody-2d?
(velocity rigidbody-2d-velocity set-rigidbody-2d-velocity!))
(define +gravity+ (vector 0 9.8))
(define +gravity+ (vec 0 9.8))
(define +friction+ -0.1)
(add-system
@ -59,10 +60,10 @@
'entity
'(<rigidbody-2d> <screen-transform>)
(lambda (_ rbody transform)
(when (> (vector-y (position transform)) (- (cdr (*window-size*)) +ball-radius+))
(when (> (v-y (position transform)) (- (cdr (*window-size*)) +ball-radius+))
(set-rigidbody-2d-velocity! rbody
(v* (rigidbody-2d-velocity rbody)
(vector 1 -1)))))))
(vec 1 -1)))))))
(add-system
(make-system 'apply-wall-bounce
@ -70,11 +71,11 @@
'entity
'(<rigidbody-2d> <screen-transform>)
(lambda (_ rbody transform)
(when (or (> (vector-x (position transform)) (- (car (*window-size*)) +ball-radius+))
(< (vector-x (position transform)) (+ 0 +ball-radius+)))
(when (or (> (v-x (position transform)) (- (car (*window-size*)) +ball-radius+))
(< (v-x (position transform)) (+ 0 +ball-radius+)))
(set-rigidbody-2d-velocity! rbody
(v* (rigidbody-2d-velocity rbody)
(vector -1 1)))))))
(vec -1 1)))))))
(add-system
(make-system 'apply-friction
@ -115,30 +116,30 @@
(create-entity
(make-visual-2d
(make-circle-2d
(vector 0 0)
(vec 0 0)
+ball-radius+
#t)
color
0)
(make-screen-transform
position
(vector 0 0)
(vec 0 0)
0
(vector 1 1)
(vec 1 1)
'center
'none)
(make-rigidbody-2d velocity)))
(make-ball (vector 100 100)
(vector 5 1)
(make-ball (vec 100 100)
(vec 5 1)
(make-color 0 0 1 1))
(make-ball (vector 300 300)
(vector -2 -2)
(make-ball (vec 300 300)
(vec -2 -2)
(make-color 0 1 0 1))
(make-ball (vector 600 600)
(vector -2 -2)
(make-ball (vec 600 600)
(vec -2 -2)
(make-color 1 0 0 1))
(create-window)