Work transfer

2020-02-18 10:52:05 +01:00
parent 7aa492df67
commit 7c220ed9d6
72 changed files with 19257 additions and 19094 deletions
@@ -1,60 +1,60 @@
-(define-module math
-  :imports ("oo.slime")
-  :exports (pi abs sqrt make-vector3)
-
-  (define pi
-    :doc "Tha famous circle constant."
-    3.14159265)
-
-  (define (abs x)
-    :doc "Accepts one argument and returns the absoulte value of it"
-    (if (> x 0) x (- x)))
-
-  (define (sqrt x)
-    :doc "Accepts one argument and returns the square root of it"
-    (** x 0.5))
-
-  (define-class (vector3 x y z)
-    (define (set-x new-x) (mutate x new-x))
-    (define (set-y new-y) (mutate y new-y))
-    (define (set-z new-z) (mutate z new-z))
-
-    (define (length)
-      (** (+ (* x x) (* y y) (* z z)) 0.5))
-
-    (define (scale fac)
-      (mutate x (* fac x))
-      (mutate y (* fac y))
-      (mutate z (* fac z))
-      fac)
-
-    (define (add other)
-      (make-vector3
-       (+ (-> other x) x)
-       (+ (-> other y) y)
-       (+ (-> other z) z)))
-
-    (define (subtract other)
-      (make-vector3
-       (- (-> other x) x)
-       (- (-> other y) y)
-       (- (-> other z) z)))
-
-    (define (equal? other)
-      (and (= (-> other x) x)
-           (= (-> other y) y)
-           (= (-> other z) z)))
-
-    (define (scalar-product other)
-      (+ (* (-> other x) x)
-         (* (-> other y) y)
-         (* (-> other z) z)))
-
-    (define (cross-product other)
-      (make-vector3
-       (- (* (-> other z) y) (* (-> other y) z))
-       (- (* (-> other x) z) (* (-> other z) x))
-       (- (* (-> other y) x) (* (-> other x) y))))
-
-    (define (print)
-      (print :sep "" "[vector3] (" x " " y " " z ")"))))
+(define-module math
+  :imports ("oo.slime")
+  :exports (pi abs sqrt make-vector3)
+
+  (define pi
+    :doc "Tha famous circle constant."
+    3.14159265)
+
+  (define (abs x)
+    :doc "Accepts one argument and returns the absoulte value of it"
+    (if (> x 0) x (- x)))
+
+  (define (sqrt x)
+    :doc "Accepts one argument and returns the square root of it"
+    (** x 0.5))
+
+  (define-class (vector3 x y z)
+    (define (set-x new-x) (mutate x new-x))
+    (define (set-y new-y) (mutate y new-y))
+    (define (set-z new-z) (mutate z new-z))
+
+    (define (length)
+      (** (+ (* x x) (* y y) (* z z)) 0.5))
+
+    (define (scale fac)
+      (mutate x (* fac x))
+      (mutate y (* fac y))
+      (mutate z (* fac z))
+      fac)
+
+    (define (add other)
+      (make-vector3
+       (+ (-> other x) x)
+       (+ (-> other y) y)
+       (+ (-> other z) z)))
+
+    (define (subtract other)
+      (make-vector3
+       (- (-> other x) x)
+       (- (-> other y) y)
+       (- (-> other z) z)))
+
+    (define (equal? other)
+      (and (= (-> other x) x)
+           (= (-> other y) y)
+           (= (-> other z) z)))
+
+    (define (scalar-product other)
+      (+ (* (-> other x) x)
+         (* (-> other y) y)
+         (* (-> other z) z)))
+
+    (define (cross-product other)
+      (make-vector3
+       (- (* (-> other z) y) (* (-> other y) z))
+       (- (* (-> other x) z) (* (-> other z) x))
+       (- (* (-> other y) x) (* (-> other x) y))))
+
+    (define (print)
+      (print :sep "" "[vector3] (" x " " y " " z ")"))))