openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-14 18:54:41 +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

31
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)]; [["OBTUSE", r, c, a], each _sub_acute(b, a, r)];
function _penrose3(triangles, n, i = 0) = function _penrose3(triangles, n, i = 0) =
i == n ? triangles : i == n ? triangles : _penrose3(_subdivide(triangles), n, i+ 1);
_penrose3(_subdivide(triangles), n, i+ 1);
function tri2tile(type, tri) = function tri2tile(type, tri) =
let( let(
c = (tri[1] + tri[2]) / 2, tri1 = tri[1],
tri2 = tri[2],
c = (tri1 + tri2) / 2,
v = c - tri[0], v = c - tri[0],
m = c + v 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) = function tile_penrose3(n, triangles) =
let( let(
fn = 10, fn = 10,
a = 720 / fn, a = 720 / fn,
shape_tri0 = [[1, 0], [1, 0] + ptf_rotate([-1, 0], -180 + a), [0, 0]],
tris = _penrose3( tris = _penrose3(
is_undef(triangles) ? [ is_undef(triangles) ?
for(i = [0:fn / 2 - 1]) let(shape_tri0 = [[1, 0], [1, 0] + ptf_rotate([-1, 0], -180 + a), [0, 0]])
let(t = [for(p = shape_tri0) ptf_rotate(p, i * a)]) [
each tri2tile("OBTUSE", [t[0], t[1], t[2]]) for(i = [0:fn / 2 - 1])
] : let(m = _zRotation(i * a), t = [for(p = shape_tri0) m * p])
[for(tri = triangles) each tri2tile(tri[0], [tri[1][1], tri[1][2], tri[1][0]])], each tri2tile("OBTUSE", t)
] :
[for(tri = triangles) each tri2tile(tri[0], [tri[1][1], tri[1][2], tri[1][0]])],
n n
) )
) )