From 86d072c4205fec692176dc3a67c5b1799e3faa43 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= Date: Fri, 22 Sep 2023 13:23:06 -0400 Subject: Fix halo angle, begin fixing editor text position --- virtual-programs/editor.folk | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'virtual-programs/editor.folk') diff --git a/virtual-programs/editor.folk b/virtual-programs/editor.folk index 6387c363..81b635c4 100644 --- a/virtual-programs/editor.folk +++ b/virtual-programs/editor.folk @@ -117,15 +117,7 @@ Commit code { Claim $id has program code $baseCode } proc drawText {text cursor count region} { set lineNumber 1 set showCursor [expr {$count % 2 == 0}] - set corner [region topleft $region] - set angle [region angle $region] - lassign $corner cornerX cornerY - foreach line [split $text "\n"] { - set lineCornerY [- $cornerY [* $lineNumber 50]] - set lineCornerX [- $cornerX [* [string length $line] 9]] - Display::text $lineCornerX $lineCornerY 2 $line $angle - set lineNumber [+ $lineNumber 1] - } + Display::text {*}[region centroid $region] 2 $text [region angle $region] } # TODO: refactor this to not reply on absolute region position but instead to compose as 0, 0 -- cgit v1.2.3