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

Fixed bugs in same_shape and is_consistent

Browse Source
This commit is contained in:
Adrian Mariano
2020-07-28 21:26:35 -04:00
parent b7b276099f
commit 045ea3085a
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
common.scad
View File

@@ -114,6 +114,11 @@ function is_list_of(list,pattern) =
is_list(list) && is_list(list) &&
[]==[for(entry=list) if (entry*0 != pattern) entry]; []==[for(entry=list) if (entry*0 != pattern) entry];
function _list_pattern(list) =
[for(entry=list) is_list(entry) ? _list_pattern(entry) : 0];
// Function: is_consistent() // Function: is_consistent()
// Usage: // Usage:
@@ -128,7 +133,7 @@ function is_list_of(list,pattern) =
// is_consistent([[3,[3,4,[5]]], [5,[2,9,[9]]]]); // Returns true // is_consistent([[3,[3,4,[5]]], [5,[2,9,[9]]]]); // Returns true
// is_consistent([[3,[3,4,[5]]], [5,[2,9,9]]]); // Returns false // is_consistent([[3,[3,4,[5]]], [5,[2,9,9]]]); // Returns false
function is_consistent(list) = function is_consistent(list) =
is_list(list) && is_list_of(list, list[0]); is_list(list) && is_list_of(list, _list_pattern(list[0]));
// Function: same_shape() // Function: same_shape()
@@ -139,7 +144,7 @@ function is_consistent(list) =
// Example: // Example:
// same_shape([3,[4,5]],[7,[3,4]]); // Returns true // same_shape([3,[4,5]],[7,[3,4]]); // Returns true
// same_shape([3,4,5], [7,[3,4]]); // Returns false // same_shape([3,4,5], [7,[3,4]]); // Returns false
function same_shape(a,b) = a*0 == b*0; function same_shape(a,b) = _list_pattern(a) == b*0;
// Section: Handling `undef`s. // Section: Handling `undef`s.