Begin implementing onscreen docs.

2019-07-18 11:37:51 +09:00
parent 998a2db53e
commit ef68e52438
5 changed files with 66 additions and 49 deletions
--- a/examples/resize.lisp
+++ b/examples/resize.lisp
@@ -1,7 +1,5 @@
 ; resize
-
 (
-  (clear)
-  (open "../../PREVIEW.jpg")
-  (resize 0.5 0.5)
-)
+  (clear) 
+  (open "../../PREVIEW.jpg") 
+  (resize 0.5 0.5))
--- a/examples/theme.lisp
+++ b/examples/theme.lisp
@@ -1,30 +1,38 @@
-((clear)
- (def col
-   (lambda
-    (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
-   (lambda
-    (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))
+; theme
+(
+  (clear) 
+  (def col 
+    (lambda 
+      (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 
+    (lambda 
+      (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))