openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-17 20:11:50 +02:00
Code Issues Releases Wiki Activity

add lsystem2_collections

Browse Source
This commit is contained in:
Justin Lin
2020-04-12 11:01:53 +08:00
parent 7fe15d563d
commit 5f039abf41
2 changed files with 226 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/experimental/demo/lsystem2_demo.scad Normal file
View File

@@ -0,0 +1,12 @@
use <experimental/lsystem2_collections.scad>;
use <line2d.scad>;
for(line = sierpinski_square()) {
line2d(
line[0],
line[1],
.5,
p1Style = "CAP_ROUND",
p2Style = "CAP_ROUND"
);
}

214
src/experimental/lsystem2_collections.scad Normal file
View File

@@ -0,0 +1,214 @@
use <experimental/lsystem2.scad>;
function tree(n = 2, angle = 36, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "F[+FF][-FF]F[-F][+F]F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function plant(n = 4, angle = 25, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "X"],
["X", "F+[[X]-X]-F[-FX]+X"],
["F", "FF"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function koch_curve(n = 4, angle = 60, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "F-F++F-F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function koch_snowflake(n = 4, angle = 60, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F++F++F"],
["F", "F-F++F-F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function koch_quadratic_type1(n = 4, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "F-F+F+F-F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function koch_quadratic_type2(n = 4, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "F-F+F+FF-F-F+F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function dragon_curve(n = 10, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "FX"],
["X", "X+YF+"],
["Y", "-FX-Y"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function twin_dragon_curve(n = 8, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "FX+FX+"],
["X", "X+YF"],
["Y", "Y=FX-Y"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function hilbert_curve(n = 5, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "A"],
["A", "-BF+AFA+FB-"],
["B", "+AF-BFB-FA+"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function moore_curve(n = 4, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "LFL+F+LFL"],
["L", "-RF+LFL+FR-"],
["R", "+LF-RFR-FL+"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function peano_curve(n = 3, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "L"],
["L", "LFRFL-F-RFLFR+F+LFRFL"],
["R", "RFLFR+F+LFRFL-F-RFLFR"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function gosper_curve(n = 4, angle = 60, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "A"],
["A", "A-B--B+A++AA+B-"],
["B", "+A-BB--B-A++A+B"]
]
)
lsystem2(rule, n, angle, leng, heading, start, "AB");
function levy_c_curve(n = 8, angle = 45, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "+F--F+"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function island_curve(n = 2, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F-F-F-F"],
["F", "F-M+FF-F-FF-FM-FF+M-FF+F+FF+FM+FFF"],
["M", "MMMMMM"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function sierpinski_triangle(n = 5, angle = 120, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F-G-G"],
["F", "F-G+F+G-F"],
["G", "GG"]
]
)
lsystem2(rule, n, angle, leng, heading, start, "FG");
function sierpinski_arrowhead(n = 6, angle = 60, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "XF"],
["X", "YF+XF+Y"],
["Y", "XF-YF-X"]
]
)
lsystem2(rule, n, angle, leng, heading, start, "FG");
function sierpinski_square(n = 8, angle = 45, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "L--F--L--F"],
["L", "+R-F-R+"],
["R", "-L+F+L-"]
]
)
lsystem2(rule, n, angle, leng, heading, start, "FG");
function terdragon(n = 5, angle = 120, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "F+F-F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function pentadendrite(n = 2, angle = 72, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F-F-F-F-F"],
["F", "F-F-F++F+F-F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function icy(n = 2, angle = 90, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F+F+F+F"],
["F", "FF+F++F+F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function round_star(n = 3, angle = 77, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "F"],
["F", "F++F"]
]
)
lsystem2(rule, n, angle, leng, heading, start);
function penrose_tiling(n = 2, angle = 36, leng = 1, heading = 0, start = [0, 0]) =
let(
rule = [
["S", "[7]++[7]++[7]++[7]++[7]"],
["6", "81++91----71[-81----61]++"],
["7", "+81--91[---61--71]+"],
["8", "-61++71[+++81++91]-"],
["9", "--81++++61[+91++++71]--71"]
]
)
lsystem2(rule, n, angle, leng, heading, start, "6789");