Merge branch 'martinbudden-flanged_bearings'

readme.md

@@ -149,6 +149,8 @@ Also single bearing balls are modelled as just a silver sphere and a BOM entry.
 | `bb_bore(type)` | Internal diameter |
 | `bb_colour(type)` | Shield colour, "silver" for metal |
 | `bb_diameter(type)` | External diameter |
+| `bb_flange_diameter(type)` | Flange diameter |
+| `bb_flange_width(type)` | Flange width |
 | `bb_hub(type)` | Inner rim thickness guesstimate |
 | `bb_name(type)` | Part code without shield type suffix |
 | `bb_rim(type)` | Outer rim thickness guesstimate |
@@ -170,8 +172,14 @@ Also single bearing balls are modelled as just a silver sphere and a BOM entry.
 |   1 | `ball_bearing(BB6201)` |  Ball bearing 6201-2RS 12mm x 32mm x 10mm |
 |   1 | `ball_bearing(BB624)` |  Ball bearing 624-2RS 4mm x 13mm x 5mm |
 |   1 | `ball_bearing(BB6808)` |  Ball bearing 6808-2RS 40mm x 52mm x 7mm |
+|   1 | `ball_bearing(BBF623)` |  Ball bearing F623-2RS 3mm x 10mm x 4mm |
+|   1 | `ball_bearing(BBF693)` |  Ball bearing F693ZZ 3mm x 8mm x 3mm |
+|   1 | `ball_bearing(BBF695)` |  Ball bearing F695ZZ 5mm x 13mm x 4mm |
+|   1 | `ball_bearing(BBMR63)` |  Ball bearing MR63ZZ 3mm x 6mm x 2.5mm |
+|   1 | `ball_bearing(BBMR83)` |  Ball bearing MR83ZZ 3mm x 8mm x 3mm |
+|   1 | `ball_bearing(BBMR93)` |  Ball bearing MR93ZZ 3mm x 9mm x 4mm |
 |   1 | `ball_bearing(BBSMR95)` |  Ball bearing SMR95ZZ 5mm x 9mm x 2.5mm |
-|   6 | ` bearing_ball(3)` |  Steel ball 3mm |
+|   5 | ` bearing_ball(3)` |  Steel ball 3mm |
 
 
 <a href="#top">Top</a>

tests/ball_bearings.scad

@@ -21,10 +21,23 @@ use <../utils/layout.scad>
 
 include <../vitamins/ball_bearings.scad>
 
-module ball_bearings()
+
-    layout([for(b = ball_bearings) bb_diameter(b)])
+module do_bearings(list)
-        ball_bearing(ball_bearings[$i])
+    layout([for(b = list) bb_diameter(b)])
-            bearing_ball(3);
+        ball_bearing(list[$i])
+            if (bb_width(list[$i]) >= 5)
+                bearing_ball(3);
+
+module ball_bearings() {
+    small_bearings = [for(b = ball_bearings) if(bb_diameter(b) < 12) b];
+    big_bearings = [for(b = ball_bearings) if(!in(small_bearings, b)) b];
+
+    translate([0, 0])
+        do_bearings(big_bearings);
+
+    translate([0, -20])
+        do_bearings(small_bearings);
+}
 
 if($preview)
     ball_bearings();

vitamins/ball_bearing.scad

@@ -28,13 +28,16 @@
 include <../utils/core/core.scad>
 include <../utils/tube.scad>
 
-function bb_name(type)     = type[0]; //! Part code without shield type suffix
+function bb_name(type)            = type[0]; //! Part code without shield type suffix
-function bb_bore(type)     = type[1]; //! Internal diameter
+function bb_bore(type)            = type[1]; //! Internal diameter
-function bb_diameter(type) = type[2]; //! External diameter
+function bb_diameter(type)        = type[2]; //! External diameter
-function bb_width(type)    = type[3]; //! Width
+function bb_width(type)           = type[3]; //! Width
-function bb_colour(type)   = type[4]; //! Shield colour, "silver" for metal
+function bb_colour(type)          = type[4]; //! Shield colour, "silver" for metal
-function bb_rim(type)      = type[5]; //! Outer rim thickness guesstimate
+function bb_rim(type)             = type[5]; //! Outer rim thickness guesstimate
-function bb_hub(type)      = type[6]; //! Inner rim thickness guesstimate
+function bb_hub(type)             = type[6]; //! Inner rim thickness guesstimate
+function bb_flange_diameter(type) = type[7]; //! Flange diameter
+function bb_flange_width(type)    = type[8]; //! Flange width
+
 
 module ball_bearing(type) { //! Draw a ball bearing
     shield = bb_colour(type);
@@ -45,32 +48,45 @@ module ball_bearing(type) { //! Draw a ball bearing
     h = bb_width(type);
     or = bb_diameter(type) / 2;
     ir = bb_bore(type) / 2;
+    fr = bb_flange_diameter(type) / 2;
+    fw = bb_flange_width(type);
 
     color("silver") {
         $fn = 360;
 
-        rim_chamfer = rim / 6;
         rotate_extrude()
             hull() {
-                translate([or - rim, -h / 2 + rim_chamfer])
+                chamfer = rim / 6;
-                    square([rim, h - 2 * rim_chamfer]);
+                translate([or - rim, -h / 2 + chamfer])
+                    square([rim, h - 2 * chamfer]);
 
                 translate([or - rim, -h / 2])
-                    square([rim - rim_chamfer, h]);
+                    square([rim - chamfer, h]);
             }
 
-        hub_chamfer = hub / 6;
+        if (fr)
+            rotate_extrude()
+                hull() {
+                    chamfer = fw / 6;
+                    translate([or - rim, -h / 2 + chamfer])
+                        square([fr - or + rim, fw - 2 * chamfer]);
+
+                    translate([or - rim,  -h / 2])
+                        square([fr - or + rim - chamfer, fw]);
+                }
+
         rotate_extrude()
             hull() {
-                translate([ir, -h / 2 + hub_chamfer])
+                chamfer = hub / 6;
-                    square([hub, h - 2 * hub_chamfer]);
+                translate([ir, -h / 2 + chamfer])
+                    square([hub, h - 2 * chamfer]);
 
-                translate([ir + hub_chamfer, -h / 2])
+                translate([ir + chamfer, -h / 2])
-                    square([hub - hub_chamfer, h]);
+                    square([hub - chamfer, h]);
             }
     }
 
-    color(shield) tube(or - rim - eps, ir + hub + eps, h - 1);
+    color(shield) tube(or - rim - eps, ir + hub + eps, h - (h < 5 ? 0.5 : 1));
 
     if($children)
         translate_z(bb_width(type) / 2)

vitamins/ball_bearings.scad

@@ -16,12 +16,24 @@
 // You should have received a copy of the GNU General Public License along with NopSCADlib.
 // If not, see <https://www.gnu.org/licenses/>.
 //
-BBSMR95 =  ["SMR95", 5,  9,  2.5, "silver",    0.5, 0.7];  // SMR95 ball bearing for FlexDrive extruder
+
-BB624   =  ["624",   4,  13, 5,   "blue",      1.2, 1.2];  // 624 ball bearing for idlers
+
-BB608   =  ["608",   8,  22, 7,   "OrangeRed", 1.4, 2.0];  // 608 bearings for wades
+//          name     id od   w    colour       or    ir    fd   fw
-BB6200   = ["6200",  10, 30, 9,   "black",     2.3, 3.6];  // 6200 bearings for KP pillow blocks
+BBSMR95  = ["SMR95", 5,  9,  2.5, "silver",    0.5,  0.7,   0,    0];  // SMR95 ball bearing for FlexDrive extruder
-BB6201   = ["6201",  12, 32, 10,  "black",     2.4, 3.7];  // 6201 bearings for KP pillow blocks
+BB624    = ["624",   4,  13, 5,   "blue",      1.2,  1.2,   0,    0];  // 624 ball bearing for idlers
-BB6808   = ["6808",  40, 52, 7,   "black",     1.5, 1.6];
+BB608    = ["608",   8,  22, 7,   "black",     1.4,  2.0,   0,    0];  // 608 bearings for wades
-ball_bearings = [BBSMR95, BB624, BB608, BB6200, BB6201, BB6808];
+BB6200   = ["6200",  10, 30, 9,   "black",     2.3,  3.6,   0,    0];  // 6200 bearings for KP pillow blocks
+BB6201   = ["6201",  12, 32, 10,  "black",     2.4,  3.7,   0,    0];  // 6201 bearings for KP pillow blocks
+BB6808   = ["6808",  40, 52, 7,   "black",     1.5,  1.6,   0,    0];
+BBMR63   = ["MR63",  3,  6,  2.5, "silver",    0.5,  0.5,   0,    0];
+BBMR83   = ["MR83",  3,  8,  3,   "silver",    0.5,  0.5,   0,    0];
+BBMR85   = ["MR85",  5,  8,  2.5, "silver",    0.5,  0.5,   0,    0];
+BBMR93   = ["MR93",  3,  9,  4,   "silver",    0.5,  0.5,   0,    0];
+BBMR95   = ["MR95",  5,  9,  3,   "silver",    0.5,  0.5,   0,    0];
+BBF623   = ["F623",  3,  10, 4,   "black",     0.6,  0.7,  11.5,  1];
+BBF693   = ["F693",  3,  8,  3,   "silver",    0.5,  0.7,  9.5,   0.7];
+BBF695   = ["F695",  5,  13, 4,   "silver",    1.0,  1.0,  15,    1];
+
+ball_bearings = [BBF693, BBF623, BBF695, BBMR63, BBMR83, BBMR93, BBSMR95, BB624, BB608, BB6200, BB6201, BB6808];
 
 use <ball_bearing.scad>