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

Replace most trivial uses of slice() with faster list_head() and list_tail()

Browse Source
This commit is contained in:
Garth Minette
2021-03-25 00:23:36 -07:00
parent e9e3616861
commit d7cb503ffc
10 changed files with 112 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
turtle3d.scad
View File

@@ -540,28 +540,28 @@ function _turtle3d_command(command, parm, parm2, state, index) =
command=="addlength" ? list_set(state, movestep, state[movestep]+parm) :
command=="arcsteps" ? assert(is_int(parm) && parm>0, str("\"",command,"\" requires a postive integer argument at index ",index))
list_set(state, arcsteps, parm) :
command=="roll" ? list_set(state, trlist, concat(slice(state[trlist],0,-2), [lastT*xrot(parm)])):
command=="roll" ? list_set(state, trlist, concat(list_head(state[trlist]), [lastT*xrot(parm)])):
in_list(command,["right","left","up","down"]) ?
list_set(state, trlist, concat(slice(state[trlist],0,-2), [lastT*_turtle3d_rotation(command,default(parm,state[angle]))])):
list_set(state, trlist, concat(list_head(state[trlist]), [lastT*_turtle3d_rotation(command,default(parm,state[angle]))])):
in_list(command,["xrot","yrot","zrot"]) ?
let(
Trot = _rotpart(lastT), // Extract rotational part of lastT
shift = _transpart(lastT) // Translation part of lastT
)
list_set(state, trlist, concat(slice(state[trlist],0,-2),
list_set(state, trlist, concat(list_head(state[trlist]),
[move(shift)*_turtle3d_rotation(command,default(parm,state[angle])) * Trot])):
command=="rot" ?
let(
Trot = _rotpart(lastT), // Extract rotational part of lastT
shift = _transpart(lastT) // Translation part of lastT
)
list_set(state, trlist, concat(slice(state[trlist],0,-2),[move(shift) * parm * Trot])):
list_set(state, trlist, concat(list_head(state[trlist]),[move(shift) * parm * Trot])):
command=="setdir" ?
let(
Trot = _rotpart(lastT),
shift = _transpart(lastT)
)
list_set(state, trlist, concat(slice(state[trlist],0,-2),
list_set(state, trlist, concat(list_head(state[trlist]),
[move(shift)*rot(from=apply(Trot,RIGHT),to=parm) * Trot ])):
in_list(command,["arcleft","arcright","arcup","arcdown"]) ?
assert(is_num(parm),str("\"",command,"\" command requires a numeric radius value at index ",index))