diff options
| author | Omar Rizwan <omar@omar.website> | 2022-11-07 22:11:42 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-11-07 22:11:42 +0000 |
| commit | 5a86108d60b8cd474b5e092b5e007d6a9b49caa7 (patch) | |
| tree | ea0aca6da49ed8f5c582cc4816c17e39189c2b9c /virtual-programs | |
| parent | Archive metrics.folk (diff) | |
| download | folk-5a86108d60b8cd474b5e092b5e007d6a9b49caa7.tar.gz folk-5a86108d60b8cd474b5e092b5e007d6a9b49caa7.zip | |
Fix label positioning
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/label.folk | 2 |
1 files changed, 1 insertions, 1 deletions
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] } } } |