From b581e494b06da36825cd3b9618838bfe9e4d28b6 Mon Sep 17 00:00:00 2001 From: Naveen Michaud-Agrawal Date: Mon, 25 Sep 2023 21:17:54 -0400 Subject: Add filled circles --- virtual-programs/display.folk | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'virtual-programs') 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 { -- cgit v1.2.3