kaan/MCAD-Library
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

API change! This actually makes the bearing code usable sice it works around a bug in openscad that prevented using the code easily

Browse source
This commit is contained in:
Elmom 2010-10-07 17:33:07 +03:00
parent dab5a140ef
commit 25343d6978
1 changed files with 27 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
bearing.scad
View file

@ -9,16 +9,16 @@ include <units.scad>
include <materials.scad> include <materials.scad>
// Example, uncomment to view // Example, uncomment to view
//bearing_test(); //test_bearing();
//bearing_hole_test(); //test_bearing_hole();
module bearing_test(){ module test_bearing(){
bearing(); bearing();
bearing(pos=[5*cm, 0,0], angle=[90,0,0]); bearing(pos=[5*cm, 0,0], angle=[90,0,0]);
bearing(pos=[-2.5*cm, 0,0], model=Bearing688); bearing(pos=[-2.5*cm, 0,0], model=688);
} }
module bearing_hole_test(){ module test_bearing_hole(){
difference(){ difference(){
translate([0, 0, 3.5]) cube(size=[30, 30, 7-10*epsilon], center=true); translate([0, 0, 3.5]) cube(size=[30, 30, 7-10*epsilon], center=true);
bearing(outline=true); bearing(outline=true);
@ -29,20 +29,32 @@ BEARING_INNER_DIAMETER = 0;
BEARING_OUTER_DIAMETER = 1; BEARING_OUTER_DIAMETER = 1;
BEARING_WIDTH = 2; BEARING_WIDTH = 2;
//BearingXXX = [inner dia, outer dia, width]; // Common bearing names
Bearing608 = [8*mm, 22*mm, 7*mm]; SkateBearing = 608;
Bearing623 = [3*mm, 10*mm, 4*mm];
//Bearing624 = [4*mm, , ];
Bearing627 = [7*mm, 22*mm, 7*mm];
Bearing688 = [8*mm, 16*mm, 5*mm];
SkateBearing = Bearing608;
function bearingWidth(model) = model[BEARING_WIDTH]; // Bearing dimensions
function bearingInnerDiameter(model) = model[BEARING_INNER_DIAMETER]; // model == XXX ? [inner dia, outer dia, width]:
function bearingOuterDiameter(model) = model[BEARING_OUTER_DIAMETER]; function bearingDimensions(model) =
model == 608 ? [8*mm, 22*mm, 7*mm]:
model == 623 ? [3*mm, 10*mm, 4*mm]:
model == 624 ? [4*mm, 13*mm, 5*mm]:
model == 627 ? [7*mm, 22*mm, 7*mm]:
model == 688 ? [8*mm, 16*mm, 4*mm]:
model == 698 ? [8*mm, 19*mm, 6*mm]:
[8*mm, 22*mm, 7*mm]; // this is the default
function bearingWidth(model) = bearingDimensions(model)[BEARING_WIDTH];
function bearingInnerDiameter(model) = bearingDimensions(model)[BEARING_INNER_DIAMETER];
function bearingOuterDiameter(model) = bearingDimensions(model)[BEARING_OUTER_DIAMETER];
module bearing(pos=[0,0,0], angle=[0,0,0], model=SkateBearing, outline=false, module bearing(pos=[0,0,0], angle=[0,0,0], model=SkateBearing, outline=false,
material=Steel, sideMaterial=Brass) { material=Steel, sideMaterial=Brass) {
// Common bearing names
model =
model == "Skate" ? 608 :
model;
w = bearingWidth(model); w = bearingWidth(model);
innerD = outline==false ? bearingInnerDiameter(model) : 0; innerD = outline==false ? bearingInnerDiameter(model) : 0;
outerD = bearingOuterDiameter(model); outerD = bearingOuterDiameter(model);