Added arc() shape

2019-08-02 14:13:42 +09:00
parent c21f39edbe
commit 44699fa08e
8 changed files with 107 additions and 61 deletions
--- a/examples/basics/shapes.lisp
+++ b/examples/basics/shapes.lisp
@@ -1,4 +1,3 @@
-
 (clear)
 ; stroke rect
 (stroke 
@@ -11,6 +10,10 @@
  (line 0 150 300 150) "red")
 (stroke 
  (text 600 300 60 "hell") "white")
+(stroke 
+  (arc 600 298 296 
+    (rad 180) 
+    (rad -90)) "white")
 (stroke 
  (poly 
    (pos 300 300) 
@@ -27,6 +30,10 @@
  (line 0 150 300 150) "red")
 (fill 
  (text 600 300 60 "hell") "white")
+(fill 
+  (arc 600 298 296 
+    (rad 180) 
+    (rad -90)) "white")
 (fill 
  (poly 
    (pos 300 300)