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

Intermediate commit

Browse source
This commit is contained in:
Elmom 2010-07-25 18:14:45 +03:00
parent 983b4b7b16
commit 3c1731bc40
1 changed files with 32 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
screw.scad
View file

@ -1,3 +1,5 @@
include <curves.scad>
/* common screw parameter
length
pitch = length/rotations: the distance between the turns of the thread
@ -5,14 +7,16 @@ outside_diameter
inner_diameter: thickness of the shaft
*/
module helix(pitch, length){
module helix(pitch, length, slices=500){
rotations = length/pitch;
linear_extrude(height=length, center=false, convexity=10, twist=360*rotations, slices=slices, $fn=100)
child(0);
}
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)
helix(pitch, length)
polygon(points=[[10,10],[100,1],[100,-1],[10,-10]], paths=[[0,1,2,3]]);
cylinder(h=length, r=20);
}
@ -21,14 +25,30 @@ module auger(pitch, length, outside_diameter, inner_diameter) {
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)
module ball_groove(pitch, length, diameter, ball_radius=10) {
helix(pitch, length, slices=100)
translate([diameter, 0, 0])
circle(r = bearing_radius);
circle(r = ball_radius);
}
ball_groove(100, 300, 10);
translate([0, 300, 0]) ball_groove(100, 300, 10);
module ball_groove2(pitch, length, diameter, ball_radius, slices=200){
rotations = length/pitch;
radius=diameter/2;
offset = length/slices;
union(){
for (i = [0:slices]) {
assign (z = i*offset){
translate(helix_curve(pitch, radius, z)) sphere(ball_radius, $fa=5, $fs=1);
}
}
}
}
translate([0, 0, 0]) ball_groove2(100, 300, 100, 10);
module ball_screw(pitch, length, bearing_radius=2) {