sin, cos, more checks

1 files changed, 37 insertions, 0 deletions

diff --git a/tests/sincos.bth b/tests/sincos.bth
new file mode 100644
index 0000000..7f6a135
--- /dev/null
+++ b/tests/sincos.bth
@@ -0,0 +1,37 @@
+(defn (ts x)
+  (* 10 (+ 1 (sin x))))
+(defn (tc x)
+  (* 10 (+ 1 (cos x))))
+(set! _G_ts ts)
+(set! _G_tc tc)
+
+(defn (min x y)
+  (if (< x y) x y))
+(defn (max x y)
+  (if (< x y) y x))
+(set! _G_min min)
+(set! _G_max max)
+
+(defn (ws n)
+  (for (i (- n 1)) (write " "))
+  (say 'x))
+(set! _G_ws ws)
+
+(defn (p2 t)
+  (let (s (_G_ts t)
+        c (_G_tc t)
+        fs (floor s)
+        fc (floor c)
+        m (_G_min fs fc)
+        M (_G_max fs fc)
+        d (- M m))
+    (if (= 0 d)
+      (_G_ws m)
+      (do (_G_ws m) (_G_ws d)))))
+
+      
+
+
+
+(for (i 100) (p2 (/ i 16)))
+