From 61606741bb80c12458dc5129ef243d7445a5237e Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Wed, 1 May 2024 21:09:35 -0400
Subject: circle: Add layer support. Is this ugly?

---
 virtual-programs/display/circle.folk | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display/circle.folk b/virtual-programs/display/circle.folk
index 03e4def7..60ac839e 100644
--- a/virtual-programs/display/circle.folk
+++ b/virtual-programs/display/circle.folk
@@ -25,7 +25,9 @@ When /someone/ wishes to draw a circle with /...options/ {
     set thickness [dict get $options thickness]
     set color [getColor [dict get $options color]]
     set filled [dict_getdef $options filled false]
+    set layer [dict_getdef $options layer 0]
 
     Wish the GPU draws pipeline "circle" with arguments \
-        [list $center $radius $thickness $color [expr {$filled eq false ? 0 : 1}]]
+        [list $center $radius $thickness $color [expr {$filled eq false ? 0 : 1}]] \
+        layer $layer
 }
-- 
cgit v1.2.3