From 217dc9121284cc8b07b1c4f53fa07fe4cfee2104 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Mon, 3 Apr 2023 13:23:07 -0400
Subject: Thin out default shapes

---
 virtual-programs/shapes.folk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/shapes.folk b/virtual-programs/shapes.folk
index f5bbaf41..f5c913aa 100644
--- a/virtual-programs/shapes.folk
+++ b/virtual-programs/shapes.folk
@@ -64,9 +64,9 @@ proc shape {numPoints x y r {color white} {filled false} args} {
     lappend points [list $x $y]
   }
   if {$filled} {
-    polyline $points 5 $color
-  } else {
     polyline $points 10 $color
+  } else {
+    polyline $points 2 $color
   }
 }
 
-- 
cgit v1.2.3