diff --git a/src/experimental/_impl/_lsystem2_impl.scad b/src/experimental/_impl/_lsystem2_impl.scad index 6fb0dcaf..d6b3c860 100644 --- a/src/experimental/_impl/_lsystem2_impl.scad +++ b/src/experimental/_impl/_lsystem2_impl.scad @@ -1,6 +1,8 @@ use ; use ; - + +function _lsystem2_join(str_lt) = _join(str_lt); + function _lsystem2_derive(axiom, rules, n, rules_pr) = is_undef(rules_pr) ? _derive(axiom, rules, n) : _derive_p(axiom, rules, rules_pr, n); diff --git a/src/experimental/_impl/_lsystem3_impl.scad b/src/experimental/_impl/_lsystem3_impl.scad index e99f3a54..8c74038c 100644 --- a/src/experimental/_impl/_lsystem3_impl.scad +++ b/src/experimental/_impl/_lsystem3_impl.scad @@ -1,6 +1,8 @@ use ; use ; - + +function _lsystem3_join(str_lt) = _join(str_lt); + function _lsystem3_derive(axiom, rules, n, rules_pr) = is_undef(rules_pr) ? _derive(axiom, rules, n) : _derive_p(axiom, rules, rules_pr, n); diff --git a/src/experimental/lsystem2.scad b/src/experimental/lsystem2.scad index 37265ab0..a8b38537 100644 --- a/src/experimental/lsystem2.scad +++ b/src/experimental/lsystem2.scad @@ -16,7 +16,7 @@ use ; function lsystem2(axiom, rules, n, angle, leng = 1, heading = 0, start = [0, 0], forward_chars = "F", rules_pr) = let( derived = _lsystem2_derive(axiom, rules, n, rules_pr), - codes = forward_chars == "F" ? derived : _join([ + codes = forward_chars == "F" ? derived : _lsystem2_join([ for(c = derived) let(idx = search(c, forward_chars)) idx == [] ? c : "F" diff --git a/src/experimental/lsystem3.scad b/src/experimental/lsystem3.scad index 2da9ade8..eb12cbe1 100644 --- a/src/experimental/lsystem3.scad +++ b/src/experimental/lsystem3.scad @@ -20,7 +20,7 @@ use ; function lsystem3(axiom, rules, n, angle, leng = 1, heading = 0, start = [0, 0, 0], forward_chars = "F", rules_pr) = let( derived = _lsystem3_derive(axiom, rules, n, rules_pr), - codes = forward_chars == "F" ? derived : _join([ + codes = forward_chars == "F" ? derived : _lsystem3_join([ for(c = derived) let(idx = search(c, forward_chars)) idx == [] ? c : "F"