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

init from OBTUSE

Browse Source
This commit is contained in:
Justin Lin
2021-08-15 13:58:14 +08:00
parent ed3b8c1422
commit 0c1e85e5db
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/experimental/tile_penrose3.scad
View File

@@ -42,16 +42,13 @@ function tri2tile(type, tri) =
function tile_penrose3(n, triangles) =
let(
fn = 10,
acute = 360 / fn,
shape_tri0 = [[0, 0], [1, 0], ptf_rotate([1, 0], acute)],
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 - 1])
let(t = [for(p = shape_tri0) ptf_rotate(p, i * acute)])
each (i % 2 == 0 ?
tri2tile("ACUTE", [t[0], t[1], t[2]]):
tri2tile("ACUTE", [t[0], t[2], t[1]])
)
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]])],
n
@@ -70,6 +67,7 @@ module draw(tris, radius) {
}
radius = 10;
$fn = 12;
draw(tile_penrose3(5, [
["OBTUSE", [ptf_rotate([2, 0], 108), [0, 0], [2, 0]]]