Fix broken oval procedure

2023-09-11 06:46:03 +00:00 · 2023-09-11 06:46:03 +00:00 · c3f70c9b83
parent b4cf5cd078
commit c3f70c9b83
2 changed files with 8 additions and 2 deletions
--- a/NEWS.md
+++ b/NEWS.md
@ -1,5 +1,11 @@
 # Genoa Banner Creator project news

+## [0.3.1 alpha] - 2023-09-11
+
+### Fixed
+
+* broken `oval` procedure
+
 ## [0.3 alpha] - 2023-09-09

 Initial release
--- a/genoa.tcl
+++ b/genoa.tcl
@ -86,9 +86,9 @@ proc circle {cx cy r} {
 		-fill $drawing(fill)]
 }

-proc oval {cx cy r1 r2} {
+proc oval {cx cy rx ry} {
 	global d_list drawing
-	set coords [list [- $cx $r1] [- $cy $r2] [+ $cx $r1] [+ $cy $r2]]
+	set coords [list [- $cx $rx] [- $cy $ry] [+ $cx $rx] [+ $cy $ry]]
 	lappend d_list [dict create type oval coords $coords \
 		cx $cx cy $cy rx $rx ry $ry \
 		-outline $drawing(color) -width $drawing(width) \