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

change vertices order

Browse Source
This commit is contained in:
Justin Lin
2021-08-11 20:03:51 +08:00
parent 9b0c825f92
commit 2844a30d91
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/experimental/tile_penrose3.scad
View File

@@ -35,21 +35,22 @@ function _penrose3(triangles, n, i = 0) =
function tile_penrose3(n) = function tile_penrose3(n) =
let( let(
acute = 360 / $fn, acute = 360 / $fn,
shape_tri0 = [[0, 0], [1, 0], ptf_rotate([1, 0], acute)] shape_tri0 = [[0, 0], [1, 0], ptf_rotate([1, 0], acute)],
tris = _penrose3([
for(i = [0:$fn - 1])
let(t = [for(p = shape_tri0) ptf_rotate(p, i * acute)])
i % 2 == 0 ? ["acute", t[0], t[1], t[2]] : ["acute", t[0], t[2], t[1]]
], n)
) )
_penrose3([ [for(t = tris) [t[0], t[2], t[1], t[3]]];
for(i = [0:$fn - 1])
let(t = [for(p = shape_tri0) ptf_rotate(p, i * acute)])
i % 2 == 0 ? ["acute", t[0], t[1], t[2]] : ["acute", t[0], t[2], t[1]]
], n);
module draw(tris) { module draw(tris) {
for(t = tris) { for(t = tris) {
color(t[0] == "obtuse" ? "white" : "black") color(t[0] == "obtuse" ? "white" : "black")
linear_extrude(.5) linear_extrude(.5)
polygon([t[2], t[1], t[3]] * radius); polygon([t[1], t[2], t[3]] * radius);
linear_extrude(1) linear_extrude(1)
hull_polyline2d([t[2], t[1], t[3]] * radius, .1); hull_polyline2d([t[1], t[2], t[3]] * radius, .1);
} }
} }