diff options
| author | Omar Rizwan <omar@omar.website> | 2023-07-12 14:36:33 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-07-12 14:36:33 +0000 |
| commit | f7b6e96f6ad67d613fda9f448f57b6c9cbd75fba (patch) | |
| tree | f2a7860d4dcdb16a1400a1dd5ff9db4db2b91230 /virtual-programs | |
| parent | Add rotate.tcl (diff) | |
| download | folk-f7b6e96f6ad67d613fda9f448f57b6c9cbd75fba.tar.gz folk-f7b6e96f6ad67d613fda9f448f57b6c9cbd75fba.zip | |
Blit only the core part of buffer to the screen; flag bad angle
(speeds up Display a fair amount, I think)
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/label.folk | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/virtual-programs/label.folk b/virtual-programs/label.folk index bfc67ada..5f792aa0 100644 --- a/virtual-programs/label.folk +++ b/virtual-programs/label.folk @@ -9,7 +9,11 @@ When /thing/ has region /region/ { if {$text eq ""} { return } set scale 1 - Display::text $x $y $scale $text $radians + if {[abs $radians] < 3.14/2} { + Display::text $x $y $scale $text $radians + } else { + Display::text $x $y $scale "BAD ANGLE" 0 + } } } |