openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-01-17 06:08:31 +01:00
Code Issues Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
Justin Lin 2022-05-08 10:19:09 +08:00
parent b37508dd94
commit 74411f32c3
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/turtle/_impl/_lsystem2_impl.scad
View File

@ -3,9 +3,7 @@ use <../turtle2d.scad>;
function _lsystem2_join(str_lt) = _join(str_lt);
function _lsystem2_derive(axiom, rules, n, rule_prs) =
is_undef(rule_prs) ? _derive(axiom, rules, n) :
_derive_p(axiom, rules, rule_prs, n);
function _lsystem2_derive(axiom, rules, n, rule_prs) = _derive(axiom, rules, n, rule_prs);
function _next_stack(t, code, stack) =
code == "[" ? [t, each stack] :

4
src/turtle/_impl/_lsystem3_impl.scad
View File

@ -3,9 +3,7 @@ use <../turtle3d.scad>;
function _lsystem3_join(str_lt) = _join(str_lt);
function _lsystem3_derive(axiom, rules, n, rule_prs) =
is_undef(rule_prs) ? _derive(axiom, rules, n) :
_derive_p(axiom, rules, rule_prs, n);
function _lsystem3_derive(axiom, rules, n, rule_prs) = _derive(axiom, rules, n, rule_prs);
function _next_stack(t, code, stack) =
code == "[" ? [t, each stack] :

14
src/turtle/_impl/_lsystem_comm.scad
View File

@ -21,14 +21,18 @@ function _derive1_p(base, rules, rules_pr) =
v == [] ? c : c_or_v(c, v, rules, rules_pr, len(v))
]);
function _derive_p(base, rules, rules_pr, n, i = 0) =
i == n ? base : _derive_p(_derive1_p(base, rules, rules_pr), rules, rules_pr, n, i + 1);
function _derive1(base, rules) = _join([
for(c = base)
let(v = _assoc_lookup(rules, c))
is_undef(v) ? c : v
]);
function _derive(base, rules, n, i = 0) =
i == n ? base : _derive(_derive1(base, rules), rules, n, i + 1);
function _derive(base, rules, n, rule_prs) =
let(
derive = is_undef(rule_prs) ? function(base) _derive1(base, rules) : function(base) _derive1_p(base, rules, rules_pr),
bs = [
for(i = 0, b = derive(base); i < n; i = i + 1, b = i != n ? derive(b) : undef)
b
]
)
bs[len(bs) - 1];