felix/slime
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

we testing sucessfull again

Browse Source
This commit is contained in:
Felix Brendel
2019-06-06 15:28:57 +02:00
parent c0e79075bc
commit 582022601c
9 changed files with 87 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/tests/class_macro.slime
+14 -14
View File
@@ -1,6 +1,6 @@
(import "oo.slime")
(define-class vector3 (x y z)
(define-class (vector3 x y z)
(define (get-x) x)
(define (get-y) y)
(define (get-z) z)
@@ -20,26 +20,26 @@
(define (add other)
(make-vector3
(+ x (other get-x))
(+ y (other get-y))
(+ z (other get-z))))
(+ x (other 'get-x))
(+ y (other 'get-y))
(+ z (other 'get-z))))
(define (subtract other)
(make-vector3
(- x (other get-x))
(- y (other get-y))
(- z (other get-z))))
(- x (other 'get-x))
(- y (other 'get-y))
(- z (other 'get-z))))
(define (scalar-product other)
(+ (* x (other get-x))
(* y (other get-y))
(* z (other get-z))))
(+ (* x (other 'get-x))
(* y (other 'get-y))
(* z (other 'get-z))))
(define (cross-product other)
(make-vector3
(- (* y (other get-z)) (* z (other get-y)))
(- (* z (other get-x)) (* x (other get-z)))
(- (* x (other get-y)) (* y (other get-x)))))
(- (* y (other 'get-z)) (* z (other 'get-y)))
(- (* z (other 'get-x)) (* x (other 'get-z)))
(- (* x (other 'get-y)) (* y (other 'get-x)))))
(define (print)
(printf :sep "" "[vector3] (" x y z ")"))
@@ -49,4 +49,4 @@
(define v2 (make-vector3 3 2 1))
(assert (= (type v1) (type v2) :vector3))
(assert (= (v1 scalar-product v2) 10))
(assert (= (v1 'scalar-product v2) 10))