diff --git a/virtual-programs/title.folk b/virtual-programs/title.folk index f697e227..66a1cb21 100644 --- a/virtual-programs/title.folk +++ b/virtual-programs/title.folk @@ -11,8 +11,8 @@ When /thing/ has a quad { set text [join [lmap match $matches {dict get $match text}] "\n"] if {$text eq ""} { return } - set radians [region angle $region] When $thing has region /region/ { + set radians [region angle $region] set scale [dict getdef $match scale 1.0] set pos [region top [region move $region up 10px]] Wish to draw text with position $pos scale $scale text $text radians $radians anchor bottom @@ -23,8 +23,8 @@ When /thing/ has a quad { set text [join [lmap match $matches {dict get $match text}] "\n"] if {$text eq ""} { return } - set radians [region angle $region] When $thing has region /region/ { + set radians [region angle $region] set scale [dict getdef $match scale 0.75] set pos [region bottomleft [region move $region down 20px]] Wish to draw text with position $pos scale $scale text $text radians $radians anchor topleft @@ -35,8 +35,8 @@ When /thing/ has a quad { set text [join [lmap match $matches {dict get $match text}] "\n"] if {$text eq ""} { return } - set radians [region angle $region] When $thing has region /region/ { + set radians [region angle $region] set scale [dict getdef $match scale 0.75] set pos [region right [region move $region right 10px]] Wish to draw text with position $pos scale $scale text $text radians $radians anchor left @@ -47,8 +47,8 @@ When /thing/ has a quad { set text [join [lmap match $matches {dict get $match text}] "\n"] if {$text eq ""} { return } - set radians [region angle $region] When $thing has region /region/ { + set radians [region angle $region] set scale [dict getdef $match scale 0.75] set pos [region left [region move $region left 10px]] Wish to draw text with position $pos scale $scale text $text radians $radians anchor right