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

add sierpinski_pyramid

Browse Source
This commit is contained in:
Justin Lin
2019-09-27 11:13:54 +08:00
parent fe27685932
commit 918fde08a1
1 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
examples/sierpinski_pyramid.scad Normal file
View File

@@ -0,0 +1,40 @@
include <hull_polyline3d.scad>;
width = 100;
min_width = 5;
thickness = 2.5;
$fn = 4;
sierpinski_pyramid(width, min_width, thickness);
module sierpinski_pyramid(width, min_width, thickness) {
pyramid_frame(width, thickness);
if(width > min_width){
half_w = width / 2;
h = half_w * 0.707107;
pt = [width / 4, width / 4, 0];
for(i=[0:3]) {
rotate([0, 0, i * 90])
translate(pt)
sierpinski_pyramid(half_w, min_width, thickness);
}
translate([0, 0, h])
sierpinski_pyramid(half_w, min_width, thickness);
}
}
module pyramid_frame(width, thickness) {
half_w = width / 2;
h = half_w * 1.414214;
tri_pts = [[0, 0, h], [half_w, half_w, 0], [half_w, -half_w, 0], [0, 0, h]];
line_pts = [[half_w, half_w, 0], [-half_w, half_w, 0]];
hull_polyline3d(tri_pts, thickness = thickness);
mirror([1, 0, 0])
hull_polyline3d(tri_pts, thickness = thickness);
hull_polyline3d(line_pts, thickness = thickness);
mirror([0, 1, 0])
hull_polyline3d(line_pts, thickness = thickness);
}