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

Ideal state for vector ops and interface

Browse source
This commit is contained in:
BirDt_ 2026-04-17 19:00:44 +08:00
parent b37f78330c
commit b4a08ea918
1 changed files with 30 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

61
samples/bounce.scm
View file

@ -39,7 +39,7 @@
rigidbody-2d?
(velocity rigidbody-2d-velocity set-rigidbody-2d-velocity!))
(define +gravity+ (make-vector2 0 9.8))
(define +gravity+ (make-vector 0 9.8))
(define +friction+ -0.1)
(add-system
@ -49,11 +49,9 @@
'(<rigidbody-2d>)
(lambda (_ rbody)
(set-rigidbody-2d-velocity! rbody
(vector-+ (rigidbody-2d-velocity rbody)
(vector-*
(make-vector2 (get-frame-time)
(get-frame-time))
+gravity+))))))
(+ (rigidbody-2d-velocity rbody)
(* (get-frame-time)
+gravity+))))))
(add-system
(make-system 'apply-bounce
@ -63,7 +61,8 @@
(lambda (_ rbody transform)
(when (> (vector-y (position transform)) (- (cdr (*window-size*)) +ball-radius+))
(set-rigidbody-2d-velocity! rbody
(make-vector2 (vector-x (rigidbody-2d-velocity rbody)) (* -1 (vector-y (rigidbody-2d-velocity rbody)))))))))
(* (rigidbody-2d-velocity rbody)
(make-vector 1 -1)))))))
(add-system
(make-system 'apply-wall-bounce
@ -74,7 +73,8 @@
(when (or (> (vector-x (position transform)) (- (car (*window-size*)) +ball-radius+))
(< (vector-x (position transform)) (+ 0 +ball-radius+)))
(set-rigidbody-2d-velocity! rbody
(make-vector2 (* -1 (vector-x (rigidbody-2d-velocity rbody))) (vector-y (rigidbody-2d-velocity rbody))))))))
(* (rigidbody-2d-velocity rbody)
(make-vector -1 1)))))))
(add-system
(make-system 'apply-friction
@ -83,10 +83,9 @@
'(<rigidbody-2d>)
(lambda (_ rbody)
(set-rigidbody-2d-velocity! rbody
(vector-+ (rigidbody-2d-velocity rbody)
(vector-*
(make-vector2 (* (get-frame-time) +friction+) (* (get-frame-time) +friction+))
(rigidbody-2d-velocity rbody)))))))
(+ (rigidbody-2d-velocity rbody)
(* (get-frame-time) +friction+
(rigidbody-2d-velocity rbody)))))))
(add-system
(make-system 'move-rigidbody
@ -95,8 +94,8 @@
'(<rigidbody-2d> <screen-transform>)
(lambda (_ rbody transform)
(set-position! transform
(vector-+ (rigidbody-2d-velocity rbody)
(position transform))))))
(+ (rigidbody-2d-velocity rbody)
(position transform))))))
(define-record-type <key-press>
(make-key-press key)
@ -120,8 +119,8 @@
(lambda (_ rbody)
(when (peek-event 'input 'boost)
(set-rigidbody-2d-velocity! rbody
(vector-* (make-vector2 2 2)
(rigidbody-2d-velocity rbody)))))))
(* 2
(rigidbody-2d-velocity rbody)))))))
(add-system
(make-system 'clear-boost-input
@ -134,53 +133,53 @@
(create-entity
(make-visual-2d
(make-circle-2d
(make-vector2 0 0)
(make-vector 0 0)
+ball-radius+
#t)
(make-color 0 0 1 1)
0)
(make-screen-transform
(make-vector2 100 100)
(make-vector2 0 0)
(make-vector 100 100)
(make-vector 0 0)
0
(make-vector2 1 1)
(make-vector 1 1)
'center
'none)
(make-rigidbody-2d (make-vector2 5 1)))
(make-rigidbody-2d (make-vector 5 1)))
(create-entity
(make-visual-2d
(make-circle-2d
(make-vector2 0 0)
(make-vector 0 0)
+ball-radius+
#t)
(make-color 0 1 0 1)
0)
(make-screen-transform
(make-vector2 100 100)
(make-vector2 0 0)
(make-vector 100 100)
(make-vector 0 0)
0
(make-vector2 1 1)
(make-vector 1 1)
'center
'none)
(make-rigidbody-2d (make-vector2 -2 -2)))
(make-rigidbody-2d (make-vector -2 -2)))
(create-entity
(make-visual-2d
(make-circle-2d
(make-vector2 0 0)
(make-vector 0 0)
+ball-radius+
#t)
(make-color 1 0 0 1)
0)
(make-screen-transform
(make-vector2 100 100)
(make-vector2 0 0)
(make-vector 100 100)
(make-vector 0 0)
0
(make-vector2 1 1)
(make-vector 1 1)
'center
'none)
(make-rigidbody-2d (make-vector2 10 -5)))
(make-rigidbody-2d (make-vector 10 -5)))
(create-window)
)