Added a screw generator script, WIP

This commit is contained in:
Elmom 2010-07-24 16:13:39 +03:00
parent 4129da763e
commit e32971d3cf

35
screw.scad Normal file
View file

@ -0,0 +1,35 @@
/* common screw parameter
length
pitch = length/rotations: the distance between the turns of the thread
outside_diameter
inner_diameter: thickness of the shaft
*/
module helix(pitch, length){
}
module auger(pitch, length, outside_diameter, inner_diameter) {
rotations = length/pitch;
union() {
linear_extrude(height=length, center=false, convexity=10, twist=360*rotations, slices=100, $fn=1000)
polygon(points=[[10,10],[100,1],[100,-1],[10,-10]], paths=[[0,1,2,3]]);
cylinder(h=length, r=20);
}
}
translate([300, 0, 0]) auger(100, 300);
module ball_groove(pitch, rotations, diameter, bearing_radius=10) {
rotations = length/pitch;
linear_extrude(height = 10, center = false, convexity = 10, twist = 360, $fn = 1000)
translate([diameter, 0, 0])
circle(r = bearing_radius);
}
ball_groove(100, 300, 10);
module ball_screw(pitch, length, bearing_radius=2) {
}