openscad/BOSL2
1
0
Fork 0
mirror of https://github.com/revarbat/BOSL2.git synced 2025-09-25 14:39:08 +02:00
Code Issues Projects Releases Wiki Activity

Fixes for approx() with mixed types.

Browse Source
This commit is contained in:
Garth Minette
2021-11-04 21:13:50 -07:00
parent 7ed34f592a
commit 2b7d0d935d
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
comparisons.scad
View File

@@ -29,8 +29,14 @@ function approx(a,b,eps=EPSILON) =
a == b? is_bool(a) == is_bool(b) : a == b? is_bool(a) == is_bool(b) :
is_num(a) && is_num(b)? abs(a-b) <= eps : is_num(a) && is_num(b)? abs(a-b) <= eps :
is_list(a) && is_list(b) && len(a) == len(b)? ( is_list(a) && is_list(b) && len(a) == len(b)? (
is_num(a.x) && is_num(b.x)? norm(a-b) <= eps : [] == [
[] == [for (i=idx(a)) if (!approx(a[i],b[i],eps=eps)) 1] for (i=idx(a))
let(aa=a[i], bb=b[i])
if(
is_num(aa) && is_num(bb)? abs(aa-bb) > eps :
!approx(aa,bb,eps=eps)
) 1
]
) : false; ) : false;
@@ -783,3 +789,4 @@ function list_smallest(list, k) =
let( bigger = [for(li=list) if(li>v) li ] ) let( bigger = [for(li=list) if(li>v) li ] )
concat(smaller, equal, list_smallest(bigger, k-len(smaller) -len(equal))); concat(smaller, equal, list_smallest(bigger, k-len(smaller) -len(equal)));
// vim: expandtab tabstop=4 shiftwidth=4 softtabstop=4 nowrap