Fixed issue with pixels

2019-07-24 10:09:21 +09:00
parent a1af04063b
commit d78a610d80
4 changed files with 20 additions and 17 deletions
--- a/examples/demo/branch.lisp
+++ b/examples/demo/branch.lisp
@@ -0,0 +1,25 @@
+(resetTransform)
+(clear)
+
+(defn branch
+  (v)
+  (if
+    (gt v 0)
+    (
+        (scale 0.95)
+        (stroke
+          (line (pos 0 0) (pos 100 100))
+          10 "white")
+        (move 100 100)
+        (pushTransform)
+        (rotate (div v 50))
+        (branch (sub v 1))
+        (popTransform)
+        (pushTransform)
+        (rotate (div v -50))
+        (branch (sub v 1))
+        (popTransform)
+    )
+  )
+)
+(branch 10)