From 05cfb9bf2461785ec621b490747f48b96344017f Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Sat, 17 Aug 2024 12:35:43 +0100
Subject: sin, cos, more checks

---
 tests/sin.bth    | 14 ++++++++++++++
 tests/sin.out    | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 tests/sincos.bth | 37 +++++++++++++++++++++++++++++++++++++
 3 files changed, 101 insertions(+)
 create mode 100644 tests/sin.bth
 create mode 100644 tests/sin.out
 create mode 100644 tests/sincos.bth

(limited to 'tests')

diff --git a/tests/sin.bth b/tests/sin.bth
new file mode 100644
index 0000000..319241f
--- /dev/null
+++ b/tests/sin.bth
@@ -0,0 +1,14 @@
+(defn (ts x)
+  (* 10 (+ 1 (sin x))))
+
+(set! _G_ts ts)
+
+(defn (p t)
+  (for (i (_G_ts t))
+    (write " "))
+  (say 'x))
+
+
+
+(for (i 50) (p (/ i 8)))
+	
diff --git a/tests/sin.out b/tests/sin.out
new file mode 100644
index 0000000..3519c6d
--- /dev/null
+++ b/tests/sin.out
@@ -0,0 +1,50 @@
+          x
+            x
+             x
+              x
+               x
+                x
+                 x
+                  x
+                   x
+                    x
+                    x
+                    x
+                    x
+                    x
+                    x
+                    x
+                    x
+                   x
+                  x
+                 x
+                x
+               x
+              x
+             x
+            x
+           x
+         x
+        x
+       x
+      x
+     x
+    x
+   x
+  x
+  x
+ x
+ x
+ x
+ x
+ x
+ x
+ x
+  x
+   x
+   x
+    x
+     x
+       x
+        x
+         x
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)))
+	
-- 
cgit v1.2.3