From 3f6d2ee821f6d8d9f0288dbbebabf9d4986b00b2 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Thu, 1 Dec 2022 15:12:50 -0500 Subject: Hack to draw upside-down text. It doesn't get line order right yet --- virtual-programs/label.folk | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'virtual-programs') diff --git a/virtual-programs/label.folk b/virtual-programs/label.folk index b3ed5222..f0b4fdc3 100644 --- a/virtual-programs/label.folk +++ b/virtual-programs/label.folk @@ -4,6 +4,7 @@ When /someone/ wishes /thing/ is labelled /text/ { When $thing has region /region/ { set radians [lindex $region 2] if {$radians eq ""} {set radians 0} + set bbox [regionToBbox $region] lassign [boxCentroid $bbox] x y set width [boxWidth $bbox] @@ -13,6 +14,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 $x [expr {$y+$lineNum*18}] $fontSize [lindex $lines $lineNum] 0 } + Display::text device $x [expr {$y+$lineNum*18}] $fontSize [lindex $lines $lineNum] $radians + } } } -- cgit v1.2.3