diff options
| author | Omar Rizwan <omar@omar.website> | 2022-10-18 22:55:35 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-10-18 22:55:35 +0000 |
| commit | 9d090b897630710f8d64a4d6d74d04a80cce1fb1 (patch) | |
| tree | f087f0ffc5e8f1d418518496cc558c6017f63778 /virtual-programs | |
| parent | Assert-before-retract to help incrementalize Camera stuff (diff) | |
| download | folk-9d090b897630710f8d64a4d6d74d04a80cce1fb1.tar.gz folk-9d090b897630710f8d64a4d6d74d04a80cce1fb1.zip | |
Fix trie leak
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/keyboard-character-log.folk | 2 | ||||
| -rw-r--r-- | virtual-programs/tags-and-calibration.folk | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/virtual-programs/keyboard-character-log.folk b/virtual-programs/keyboard-character-log.folk index 7ff0d20f..a855933c 100644 --- a/virtual-programs/keyboard-character-log.folk +++ b/virtual-programs/keyboard-character-log.folk @@ -2,7 +2,7 @@ When $::nodename has step count /c/ { Wish $this is labelled [string trim " step count: $c steptime: $::stepTime -camera: [expr {[namespace exists Camera] ? [llength $Camera::statements] : {none}}] +camera prev: [expr {[namespace exists Camera] ? [llength $Camera::prevStatements] : {none}}] statement count: [Statements::size] logsize: $::logsize "] diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index db4f88d8..ab061585 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -43,6 +43,7 @@ set ::H [subst { }] proc cameraToProjector {cameraPoint} { + # FIXME: this is slow but not the cause of leak lassign [math::linearalgebra::matmul $::H [list [lindex $cameraPoint 0] [lindex $cameraPoint 1] 1]] Hx Hy Hz set Hx [expr $Hx / $Hz] set Hy [expr $Hy / $Hz] |