grey/BOSL2
1
0
Fork 0
mirror of https://github.com/BelfrySCAD/BOSL2.git synced 2024-12-29 16:29:40 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added ability to list_insert() to multiple positions at once.

Browse source
This commit is contained in:
Revar Desmera 2019-08-17 01:14:00 -07:00
parent 659584b6ea
commit a51e3563fe
1 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
arrays.scad
View file

@ -245,11 +245,33 @@ function list_remove(list, elements) =
// list_insert(list, pos, elements);
// Description:
// Insert `elements` into `list` before position `pos`.
function list_insert(list, pos, elements) =
concat(
slice(list,0,pos),
elements,
(pos<len(list)? slice(list,pos,-1) : [])
// Example:
// list_insert([3,6,9,12],1,5); // Returns [3,5,6,9,12]
// list_insert([3,6,9,12],[1,3],[5,11]); // Returns [3,5,6,9,11,12]
function list_insert(list, pos, elements, _i=0) =
is_list(pos)? (
assert(len(pos)==len(elements))
let(
idxs = sortidx(pos),
lastidx = pos[idxs[len(idxs)-1]]
)
concat(
[
for(i=idx(idxs)) each concat(
assert(pos[idxs[i]]<=len(list), "Indices in pos must be <= len(list)")
[for (j=[(i==0?0:pos[idxs[i-1]]):1:pos[idxs[i]]-1]) list[j]],
[elements[idxs[i]]]
)
],
[for (j=[lastidx:1:len(list)-1]) list[j]]
)
) : (
assert(pos<=len(list), "Indices in pos must be <= len(list)")
concat(
slice(list,0,pos),
elements,
(pos<len(list)? slice(list,pos,-1) : [])
)
);