From ab8bde99521e35b65401edcd9368f45dff76ff54 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <andrescuervor@gmail.com>
Date: Wed, 10 May 2023 12:57:58 -0700
Subject: Make circles proper circles, add hex- & octagon

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

(limited to 'virtual-programs')

diff --git a/virtual-programs/shapes.folk b/virtual-programs/shapes.folk
index f5c913aa..9515568b 100644
--- a/virtual-programs/shapes.folk
+++ b/virtual-programs/shapes.folk
@@ -95,9 +95,14 @@ When /someone/ wishes /p/ draws a /color/ /shape/ offset /offsetVector/ & /p/ ha
     square {
       shape 4 $x $y $adjustedWidth $color $filled
     }
-    # TODO: cwervo - fix magic numbers here
+    hexagon {
+      shape 6 $x $y $adjustedWidth $color $filled
+    }
+    octagon {
+      shape 8 $x $y $adjustedWidth $color $filled
+    }
     circle {
-      shape 10 [expr {$x * 0.98}] $y [expr {$adjustedWidth * 0.4}] $color $filled
+      shape 30 $x $y [expr {$adjustedWidth * 0.1}] $color $filled
     }
     default {
       shape 5 $x $y $adjustedWidth $color $filled
-- 
cgit v1.2.3