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

Testing vector components

Browse source
This commit is contained in:
BirDt_ 2026-04-04 14:47:38 +08:00
parent 6f9e0a934f
commit 2991268ecb
2 changed files with 42 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

20
engine/components.scm
View file

@ -54,6 +54,22 @@
(assert (number? y))
((rtd-mutator (record-rtd component) 'y) component y))
;; Export vector functions
(export vector-= vector-+ vector-- vector-* vector-/
vector-magnitude vector-normalize)
;; TODO: make this function accept any number of vectors
(define (vector-= vec1 vec2)
(assert (and (record? vec1)
(record? vec2)))
(assert (eq? (rtd-name (record-rtd vec1))
(rtd-name (record-rtd vec2))))
(assert (any (lambda (pred) (pred vec1)) '(vector2?)))
(cond
((vector2? vec1)
(and (= (vector-x vec1) (vector-x vec2))
(= (vector-y vec1) (vector-y vec2))))))
;; TODO: make this function accept any number of vectors
(define (vector-+ vec1 vec2)
(assert (and (record? vec1)
@ -107,8 +123,8 @@
(assert (any (lambda (pred) (pred vec)) '(vector2?)))
(cond
((vector2? vec)
(sqrt (expt (vector-x vec) 2)
(expt (vector-y vec) 2)))))
(sqrt (+ (expt (vector-x vec) 2)
(expt (vector-y vec) 2))))))
;; Normalization
(define (vector-normalize vec)