diff options
| author | Omar Rizwan <omar@omar.website> | 2023-06-27 19:39:47 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-06-27 19:40:00 +0000 |
| commit | 4b2679ca8a61ce2edf9b74876df97aa923657872 (patch) | |
| tree | 1fb1b52bab02313cdc7a36a3dfcb77eb0609e463 /virtual-programs | |
| parent | Merge branch 'main' into osnr/camera-pipeline (diff) | |
| download | folk-4b2679ca8a61ce2edf9b74876df97aa923657872.tar.gz folk-4b2679ca8a61ce2edf9b74876df97aa923657872.zip | |
Add prefix math ops to language
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/regions.folk | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/virtual-programs/regions.folk b/virtual-programs/regions.folk index 1702bbfa..8f320b42 100644 --- a/virtual-programs/regions.folk +++ b/virtual-programs/regions.folk @@ -1,5 +1,4 @@ namespace eval ::vec2 { - namespace import ::tcl::mathop::+ ::tcl::mathop::- ::tcl::mathop::* proc add {a b} { list [+ [lindex $a 0] [lindex $b 0]] [+ [lindex $a 1] [lindex $b 1]] } @@ -21,8 +20,6 @@ namespace eval ::vec2 { proc dot {a b} { expr {[lindex $a 0]*[lindex $b 0] + [lindex $a 1]*[lindex $b 1]} } - namespace import ::tcl::mathfunc::max ::tcl::mathfunc::min - namespace import ::tcl::mathop::/ proc distanceToLineSegment {a v w} { set l2 [vec2 distance $v $w] if {$l2 == 0.0} { |