diff options
| author | Omar Rizwan <omar@omar.website> | 2023-09-26 20:16:51 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-09-26 20:16:51 +0000 |
| commit | fa444bdf00ff651ebf75c9532a81586b1c4e4364 (patch) | |
| tree | 3d446c48fb67ec9f2ec7e405ac42eb0919e8865d /virtual-programs | |
| parent | Merge pull request #90 from FolkComputer/fix/region-math (diff) | |
| parent | display: Revert display list stuff for now (diff) | |
| download | folk-fa444bdf00ff651ebf75c9532a81586b1c4e4364.tar.gz folk-fa444bdf00ff651ebf75c9532a81586b1c4e4364.zip | |
Merge pull request #91 from FolkComputer/nm/filled-circle
Filled circles
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/display.folk | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk index 674cf1f7..b07ec644 100644 --- a/virtual-programs/display.folk +++ b/virtual-programs/display.folk @@ -16,8 +16,8 @@ namespace eval ::Display { uplevel [list Wish display runs [list Display::stroke $points $width $color] on layer $::Display::LAYER] } - proc circle {x y radius thickness color} { - uplevel [list Wish display runs [list Display::circle $x $y $radius $thickness $color] on layer $::Display::LAYER] + proc circle {x y radius thickness color {filled false}} { + uplevel [list Wish display runs [list Display::circle $x $y $radius $thickness $color $filled] on layer $::Display::LAYER] } proc text args { |