Added basic math functions

2019-07-13 20:29:39 +09:00
parent d309a9f032
commit 0dc0db98a9
3 changed files with 35 additions and 2 deletions
--- a/examples/guides.lisp
+++ b/examples/guides.lisp
@@ -16,5 +16,21 @@
      (pos 0 (of (frame) "h"))) 
    1 "red")

-  (stroke (line (pos 0 0) (pos (of (frame) "w") (of (frame) "h"))) 1 "red")
+  (stroke 
+    (line 
+      (pos (div (of (frame) "w") 2) 0) 
+      (pos (div (of (frame) "w") 2) (of (frame) "h"))) 
+    1 "red")
+
+  (stroke 
+    (line 
+      (pos 0 (div (of (frame) "h") 2)) 
+      (pos (div (of (frame) "w") 2) (of (frame) "h"))) 
+    1 "#72dec2")
+
+  (stroke 
+    (line 
+      (pos (div (of (frame) "w") 2) 0) 
+      (pos (of (frame) "w") (div (of (frame) "h") 2))) 
+    1 "#72dec2")
 )