52 lines
1.0 KiB
OpenSCAD
52 lines
1.0 KiB
OpenSCAD
$fn = 32;
|
|
gate_height = 50;
|
|
|
|
|
|
sq_poly = let(corner = 1 / sqrt(2)) [
|
|
[corner, corner],
|
|
[-corner, corner],
|
|
[-corner, -corner],
|
|
[corner, -corner]
|
|
];
|
|
|
|
oct_poly = let(corner = 1 / sqrt(2))[
|
|
[1,0],
|
|
[corner, corner],
|
|
[0,1],
|
|
[-corner, corner],
|
|
[-1,0],
|
|
[-corner, -corner],
|
|
[0,-1],
|
|
[corner, -corner],
|
|
];
|
|
|
|
function scale_xy_z(m, xy, z) = [ for (i = [0 : len(m) - 1]) [m[i].x * xy, m[i].y * xy, z]];
|
|
|
|
function throw_end(throw) = gate_height * tan(throw);
|
|
|
|
function throw_points(shape, throw) = concat([[0,0,0]],scale_xy_z(shape, throw_end(throw), gate_height));
|
|
|
|
function throw_faces(points) = [
|
|
[each [1:len(points) - 1]],
|
|
for(i =[1:len(points) - 1]) let (next = i < len(points) - 1 ? i + 1 : 1) [i, next, 0]
|
|
];
|
|
|
|
module shape_gate (shape, throw, shaft_r, sharpness = 1) {
|
|
|
|
}
|
|
|
|
//echo(concat([[0,0,0]],scale_xy_z(sq_poly, 3, 3)));
|
|
|
|
echo(throw_points(sq_poly, 15));
|
|
echo(throw_faces(throw_points(sq_poly, 15)));
|
|
|
|
points = throw_points(oct_poly, 15);
|
|
faces = throw_faces(points);
|
|
|
|
minkowski() {
|
|
hull(){
|
|
polyhedron(points, faces);
|
|
}
|
|
cylinder(1,3);
|
|
}
|