grey/BOSL2
1
0
Fork 0
mirror of https://github.com/BelfrySCAD/BOSL2.git synced 2025-01-17 09:59:39 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed transpose for vectors and non-array lists

Browse source
This commit is contained in:
Revar Desmera 2019-05-12 12:51:58 -07:00
parent 78e3cd3c27
commit dba2edc984
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
arrays.scad
View file

@ -496,8 +496,7 @@ function array_dim(v, depth=undef) =
// transpose([3,4,5]); // Returns: [[3],[4],[5]] // transpose([3,4,5]); // Returns: [[3],[4],[5]]
function transpose(arr) = function transpose(arr) =
arr==[]? [] : arr==[]? [] :
is_list(arr[0])? [for (i=[0:len(arr[0])-1]) [for (j=[0:len(arr)-1]) arr[j][i]]] : is_list(arr[0])? [for (i=[0:len(arr[0])-1]) [for (j=[0:len(arr)-1]) arr[j][i]]] : arr;
[for (x=arr) [x]];

2
tests/test_arrays.scad
View file

@ -215,7 +215,7 @@ test_array_dim();
module test_transpose() { module test_transpose() {
assert(transpose([[1,2,3],[4,5,6],[7,8,9]]) == [[1,4,7],[2,5,8],[3,6,9]]); assert(transpose([[1,2,3],[4,5,6],[7,8,9]]) == [[1,4,7],[2,5,8],[3,6,9]]);
assert(transpose([[1,2,3],[4,5,6]]) == [[1,4],[2,5],[3,6]]); assert(transpose([[1,2,3],[4,5,6]]) == [[1,4],[2,5],[3,6]]);
assert(transpose([3,4,5]) == [[3],[4],[5]]); assert(transpose([3,4,5]) == [3,4,5]);
} }
test_transpose(); test_transpose();