1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use <MCAD/involute_gears.scad>
// Wheel radius (approximated)
r = 20;
// Wheel tickness
thickness = 2;
// Hub tickness
max_thickness = 3;
// Axle radius
axle_r = 3;
teeth = r*1.15;
$fn=30;
intersection() {
cylinder(r1=r*1.1, r2=r/2, h=max_thickness);
gear (
number_of_teeth=teeth,
circular_pitch=300,
diametral_pitch=false,
pressure_angle=38,
clearance = 0.2,
gear_thickness=thickness,
rim_thickness=thickness,
rim_width=5,
hub_thickness=max_thickness,
hub_diameter=axle_r*3,
bore_diameter=axle_r*2,
circles=0,
backlash=0,
twist=0,
involute_facets=0,
flat=false
);
}
|
