From 5a86108d60b8cd474b5e092b5e007d6a9b49caa7 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 7 Nov 2022 17:11:42 -0500 Subject: Fix label positioning --- virtual-programs/label.folk | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'virtual-programs') diff --git a/virtual-programs/label.folk b/virtual-programs/label.folk index 2c2ef0f0..dcb89dcb 100644 --- a/virtual-programs/label.folk +++ b/virtual-programs/label.folk @@ -11,7 +11,7 @@ When /someone/ wishes /thing/ is labelled /text/ { set longestLineLength [tcl::mathfunc::max {*}[lmap line $lines {string length $line}]] set fontSize [expr {$width / $longestLineLength}] for {set lineNum 0} {$lineNum < [llength $lines]} {incr lineNum} { - Display::text device [expr {$x+$width/2}] [expr {$y+$height/2+$lineNum*18}] $fontSize [lindex $lines $lineNum] + Display::text device $x [expr {$y+$lineNum*18}] $fontSize [lindex $lines $lineNum] } } } -- cgit v1.2.3