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

refactor

Browse Source
This commit is contained in:
Justin Lin
2022-05-20 08:40:06 +08:00
parent e5d38e2d6f
commit a3b8fc41b5
1 changed files with 21 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/experimental/tile_penrose3.scad
View File

@@ -28,29 +28,38 @@ function _sub_obtuse(a, b, c) =
[["OBTUSE", r, c, a], each _sub_acute(b, a, r)];
function _penrose3(triangles, n, i = 0) =
i == n ? triangles :
_penrose3(_subdivide(triangles), n, i+ 1);
i == n ? triangles : _penrose3(_subdivide(triangles), n, i+ 1);
function tri2tile(type, tri) =
let(
c = (tri[1] + tri[2]) / 2,
tri1 = tri[1],
tri2 = tri[2],
c = (tri1 + tri2) / 2,
v = c - tri[0],
m = c + v
)
[[type, tri[0], tri[1], tri[2]], [type, m, tri[1], tri[2]]];
[[type, each tri], [type, m, tri1, tri2]];
function _zRotation(a) =
let(c = cos(a), s = sin(a))
[
[c, -s],
[s, c]
];
function tile_penrose3(n, triangles) =
let(
fn = 10,
a = 720 / fn,
shape_tri0 = [[1, 0], [1, 0] + ptf_rotate([-1, 0], -180 + a), [0, 0]],
tris = _penrose3(
is_undef(triangles) ? [
for(i = [0:fn / 2 - 1])
let(t = [for(p = shape_tri0) ptf_rotate(p, i * a)])
each tri2tile("OBTUSE", [t[0], t[1], t[2]])
] :
[for(tri = triangles) each tri2tile(tri[0], [tri[1][1], tri[1][2], tri[1][0]])],
is_undef(triangles) ?
let(shape_tri0 = [[1, 0], [1, 0] + ptf_rotate([-1, 0], -180 + a), [0, 0]])
[
for(i = [0:fn / 2 - 1])
let(m = _zRotation(i * a), t = [for(p = shape_tri0) m * p])
each tri2tile("OBTUSE", t)
] :
[for(tri = triangles) each tri2tile(tri[0], [tri[1][1], tri[1][2], tri[1][0]])],
n
)
)