Merge pull request #94 from cauli/feature/ellipse

Add ellipse shape
2019-07-30 09:28:17 +12:00
parent 69be09fe87 2eafa354bb
commit 60f580ebf0
4 changed files with 19 additions and 1 deletions
--- a/examples/basics/shapes.lisp
+++ b/examples/basics/shapes.lisp
@@ -19,4 +19,8 @@
 ; draw line
 (stroke 
  (line (sub center-w rad) center-h (add center-w rad) center-h))
-(stroke (text 10 170 200 "HELL") "pink" 2)
+(stroke (text 10 170 200 "HELL") "pink" 2)
+
+; draw ellipse
+(stroke 
+  (ellipse center-w center-h rad (div rad 2)) "white" 2)