mirror of
https://github.com/nophead/Mendel90.git
synced 2025-01-17 21:08:16 +01:00
31 lines
786 B
OpenSCAD
31 lines
786 B
OpenSCAD
|
//
|
||
|
|
// Mendel90
|
||
|
|
//
|
||
|
|
// GNU GPL v2
|
||
|
|
// nop.head@gmail.com
|
||
|
|
// hydraraptor.blogspot.com
|
||
|
|
//
|
||
|
|
// See http://hydraraptor.blogspot.com/2011/02/polyholes.html
|
||
|
|
//
|
||
|
|
function sides(r) = max(round(4 *r),3);
|
||
|
|
function corrected_radius(r,n) = 0.1 + r / cos(180 / n);
|
||
|
|
function corrected_diameter(d) = 0.2 + d / cos(180 / sides(d / 2));
|
||
|
|
|
||
|
|
module poly_circle(r, center = false) {
|
||
|
|
n = sides(r);
|
||
|
|
circle(r = corrected_radius(r,n), $fn = n, center = center);
|
||
|
|
}
|
||
|
|
|
||
|
|
module poly_cylinder(r, h, center = false) {
|
||
|
|
n = sides(r);
|
||
|
|
cylinder(h = h, r = corrected_radius(r,n), $fn = n, center = center);
|
||
|
|
}
|
||
|
|
|
||
|
|
module poly_d_cylinder(r, center = false) {
|
||
|
|
n = sides(r);
|
||
|
|
r = corrected_radius(r,n);
|
||
|
|
cylinder(h = h, r = r, $fn = n, center = center);
|
||
|
|
translate([0, -r, 0])
|
||
|
|
cube([r, 2 * r, h]);
|
||
|
|
}
|