From e91f7c12cb45b7430b08a860993ab5dbbf599b81 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Fri, 6 Oct 2023 17:59:03 -0400 Subject: dict getdef -> dict_getdef. Much, much faster --- virtual-programs/display/circle.folk | 4 ++-- virtual-programs/display/image.folk | 2 +- virtual-programs/display/text.folk | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/display/circle.folk b/virtual-programs/display/circle.folk index f50813eb..2951f3a9 100644 --- a/virtual-programs/display/circle.folk +++ b/virtual-programs/display/circle.folk @@ -19,12 +19,12 @@ Wish the GPU compiles pipeline "circle" { } When /someone/ wishes to draw a circle with /...options/ { - set center [dict getdef $options center ""] + set center [dict_getdef $options center ""] if {center eq ""} { set center [list [dict get $options x] [dict get $options y]] } set radius [dict get $options radius] set thickness [dict get $options thickness] set color [getColor [dict get $options color]] - set filled [dict getdef $options filled false] + set filled [dict_getdef $options filled false] Wish the GPU draws pipeline "circle" with arguments \ [list $center $radius $thickness $color $filled] diff --git a/virtual-programs/display/image.folk b/virtual-programs/display/image.folk index 4665a236..8ef1cc30 100644 --- a/virtual-programs/display/image.folk +++ b/virtual-programs/display/image.folk @@ -89,7 +89,7 @@ On process "display" { set y [dict get $options y] set im [dict get $options image] set radians [dict get $options radians] - set scale [dict getdef $options scale 1.0] + set scale [dict_getdef $options scale 1.0] lassign [dict get $::ImCache $im] gim diff --git a/virtual-programs/display/text.folk b/virtual-programs/display/text.folk index 412ce266..1c8f6c45 100644 --- a/virtual-programs/display/text.folk +++ b/virtual-programs/display/text.folk @@ -104,7 +104,7 @@ On process "display" { When /someone/ wishes to draw text with /...options/ { set x0 [dict get $options x] set y0 [dict get $options y] - set scale [dict getdef $options scale 1.0] + set scale [dict_getdef $options scale 1.0] set text [dict get $options text] set radians [dict get $options radians] -- cgit v1.2.3