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

36
test/components.scm
View file

@ -7,24 +7,24 @@
(srfi 78)
(srfi 99))
(define v1 (make-vector2 0 0))
(define v2 (make-vector2 10 10))
(define v1 (vec 0 0))
(define v2 (vec 10 10))
(check (vector-= v2 (make-vector2 10 10)) => #t)
(check (vector-= (make-vector2 20 20)
(vector-+ v2 (make-vector2 10 10))) => #t)
(check (vector-= v1
(vector-- v2 (make-vector2 10 10))) => #t)
(check (vector-= (make-vector2 100 100)
(vector-* v2 (make-vector2 10 10))) => #t)
(check (vector-= (make-vector2 1 1)
(vector-/ v2 (make-vector2 10 10))) => #t)
(check (vector-magnitude (make-vector2 100 0)) => 100)
(check (vector-= (make-vector2 1 0)
(vector-normalize (make-vector2 100 0))) => #t)
(check (vector-dot (make-vector2 1 2)
(make-vector2 3 4)) => 11)
(check (v= v2 (vec 10 10)) => #t)
(check (v= (vec 20 20)
(v+ v2 (vec 10 10))) => #t)
(check (v= v1
(v- v2 (vec 10 10))) => #t)
(check (v= (vec 100 100)
(v* v2 (vec 10 10))) => #t)
(check (v= (vec 1 1)
(v/ v2 (vec 10 10))) => #t)
(check (vector-magnitude (vec 100 0)) => 100)
(check (v= (vec 1 0)
(vector-normalize (vec 100 0))) => #t)
(check (vector-dot (vec 1 2)
(vec 3 4)) => 11)
(check (rad-to-deg
(vector-angle-between (make-vector2 1 2)
(make-vector2 3 4))) (=> approx-=) 10.305)
(vector-angle-between (vec 1 2)
(vec 3 4))) (=> approx-=) 10.305)
)