From ed74ef0abc8e508aa77aed14ef416aad5eb47d99 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Thu, 1 Dec 2022 15:17:54 -0500 Subject: Fix line order for upside-down labels --- virtual-programs/label.folk | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'virtual-programs') diff --git a/virtual-programs/label.folk b/virtual-programs/label.folk index f0b4fdc3..8b97c152 100644 --- a/virtual-programs/label.folk +++ b/virtual-programs/label.folk @@ -14,7 +14,8 @@ 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 $x [expr {$y+$lineNum*18}] $fontSize [lindex $lines $lineNum] $radians + set ly [expr {abs($radians) < 1.57 ? $y-$lineNum*18 : $y+$lineNum*18}] + Display::text device $x $ly $fontSize [lindex $lines $lineNum] $radians } } } -- cgit v1.2.3