Fixed issue with Lamda

2019-07-24 09:31:41 +09:00
parent 6785286118
commit 0294c04858
7 changed files with 44 additions and 46 deletions
--- a/examples/misc/theme.lisp
+++ b/examples/misc/theme.lisp
@@ -0,0 +1,38 @@
+; theme
+; reads color from the theme.
+(clear) 
+(def col 
+  (λ 
+    (i) 
+    (of 
+      (
+        (theme "f_high") 
+        (theme "f_med") 
+        (theme "f_low") 
+        (theme "f_inv") 
+        (theme "b_high") 
+        (theme "b_med") 
+        (theme "b_low") 
+        (theme "b_inv")) 
+      (mod i 8)))) 
+(def rec 
+  (λ 
+    (v i) 
+    (if 
+      (gt v 0) 
+      (
+        (fill 
+          (circle 
+            (add 
+              (div 
+                (of 
+                  (frame) "w") 1.6) 
+              (mul 1.5 v)) 
+            (mul 10 v) 
+            (mul v 
+              (div v 5))) 
+          (col i)) 
+        (rec 
+          (sub v 3) 
+          (add i 1)))))) 
+(rec 40 0)