From a7063b5672e2e152faa979837d72b744520bdece Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 24 Apr 2023 18:20:59 -0400 Subject: Some moderate performance improvements from the C branch Reduce scope that's carried into critical-path Whens, don't evaluate Display commit twice --- virtual-programs/tags-and-calibration.folk | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index 531ed087..bc39033e 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -71,12 +71,12 @@ proc ::projectorToCamera {projectorPoint} { } # Wish $this is highlighted white -When tag /tag/ has center /c/ size /size/ { +Say when tag /tag/ has center /c/ size /size/ { Claim tag $tag is a tag lassign [cameraToProjector $c] px py Claim $tag is a rectangle with x [expr $px-20] y [expr $py-10] width [expr $size*2] height [expr $size*2] -} +} with environment {} When tag /tag/ is a tag { puts "Added tag $tag" @@ -90,7 +90,7 @@ When tag /tag/ is a tag { } -When tag /tag/ has corners /corners/ { +Say when tag /tag/ has corners /corners/ { set tagcorners [lmap p $corners {cameraToProjector $p}] #foreach tagcorner $tagcorners { Display::text fb {*}$tagcorner 10 "$tag" } set tagbottom [sub [lindex $tagcorners 1] [lindex $tagcorners 0]] @@ -105,4 +105,8 @@ When tag /tag/ has corners /corners/ { lappend edges [list [expr {[llength $corners] - 1}] 0] set region [list $corners $edges [::tcl::mathfunc::atan2 {*}$tagright]] Claim $tag has region $region +} with environment { + %matmul ::math::linearalgebra::matmul + %sub ::math::linearalgebra::sub + %add ::math::linearalgebra::add } -- cgit v1.2.3