From 06b6615eb5cc417457255aaae1f23ad7371edbd3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= Date: Fri, 17 Feb 2023 12:31:52 -0500 Subject: Fix label orientation --- 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 4e45ae03..8b1382aa 100644 --- a/virtual-programs/label.folk +++ b/virtual-programs/label.folk @@ -18,7 +18,7 @@ When /thing/ has region /region/ { for {set lineNum 0} {$lineNum < [llength $lines]} {incr lineNum} { set shouldFlip [expr {abs($radians) < 1.57}] set ly [expr {$shouldFlip ? $y+$lineNum*18 : $y+$lineNum*18}] - Display::text device $x $ly $fontSize [lindex [expr {$shouldFlip ? $lines : [lreverse $lines] }] $lineNum] $radians + Display::text device $x $ly $fontSize [lindex [expr {$shouldFlip ? [lreverse $lines] : $lines }] $lineNum] $radians } } } -- cgit v1.2.3