diff options
| author | Andrés Cuervo <andrescuervor@gmail.com> | 2023-05-10 19:57:58 +0000 |
|---|---|---|
| committer | Andrés Cuervo <andrescuervor@gmail.com> | 2023-05-10 19:57:58 +0000 |
| commit | ab8bde99521e35b65401edcd9368f45dff76ff54 (patch) | |
| tree | d7c11ed48057f450d6b3f51fff28b1c03d449336 /virtual-programs | |
| parent | Merge pull request #27 from FolkComputer/haip/laser-blob-tracking (diff) | |
| download | folk-ab8bde99521e35b65401edcd9368f45dff76ff54.tar.gz folk-ab8bde99521e35b65401edcd9368f45dff76ff54.zip | |
Make circles proper circles, add hex- & octagon
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/shapes.folk | 9 |
1 files changed, 7 insertions, 2 deletions
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 |