1
0
mirror of https://github.com/nophead/Mendel90.git synced 2025-01-16 20:38:15 +01:00
Mendel90/scad/vitamins/ball-bearings.scad
Chris Palmer e853cfbe30 Replaced minkowski with scale, child with children, and removed assign.
Added thinner fan for Huxley.
Added missing nut for M2 screw.
Ball bearings can now position children.
2016-01-05 12:18:38 +00:00

38 lines
1.2 KiB
OpenSCAD

//
// Mendel90
//
// GNU GPL v2
// nop.head@gmail.com
// hydraraptor.blogspot.com
//
// Ball bearings
//
BB624 = [4, 13, 5, "624"]; // 624 ball bearing for idlers
BB608 = [8, 22, 7, "608"]; // 608 bearings for wades
function ball_bearing_diameter(type) = type[1];
function ball_bearing_width(type) = type[2];
module ball_bearing(type) {
vitamin(str("BB",type[3],": Ball bearing ",type[3]," ",type[0], "mm x ", type[1], "mm x ", type[2], "mm"));
rim = type[1] / 10;
color(bearing_color) render() difference() {
cylinder(r = type[1] / 2, h = type[2], center = true);
cylinder(r = type[0] / 2, h = type[2] + 1, center = true);
for(z = [-type[2] / 2, type[2] / 2])
translate([0,0,z]) difference() {
cylinder(r = (type[1] - rim) / 2, h = 2, center = true);
cylinder(r = (type[0] + rim) / 2, h = 3, center = true);
}
}
if($children)
translate([0, 0, ball_bearing_width(type) / 2])
children();
}
module bearing_ball(dia) {
vitamin(str("SB",dia * 10,": Steel ball ",dia, "mm"));
color(bearing_color) render() sphere(r = dia / 2);
}