grey/BOSL2
1
0
Fork 0
mirror of https://github.com/BelfrySCAD/BOSL2.git synced 2025-01-01 09:49:45 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Gear tooth profile clearance value bugfix.

Browse source
This commit is contained in:
Revar Desmera 2023-07-31 02:08:30 -07:00
parent 1ae1c3cf0f
commit 9233197a6c
1 changed files with 5 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gears.scad
View file

@ -2282,7 +2282,8 @@ function _gear_tooth_profile(
adendum = _adendum(circ_pitch=circ_pitch, profile_shift=profile_shift),
dedendum = _dedendum(circ_pitch=circ_pitch, clearance=clearance, profile_shift=profile_shift),
clear = abs(dedendum-adendum),
mod = module_value(circ_pitch=circ_pitch),
clear = default(clearance, 0.25 * mod),
srad = max(rrad,brad),
tthick = circ_pitch/PI / cos(helical) * (PI/2 + 2*profile_shift * tan(pressure_angle)) - backlash,
@ -2290,12 +2291,6 @@ function _gear_tooth_profile(
// Generate a lookup table for the involute curve angles, by radius
involute_lup = [
if (clear > 0 && false)
each xy_to_polar(
arc(n=16, r=clear, corner=[
[-0.1,rrad], [0,rrad], [0,rrad+clear]
])
),
for (i=[0:5:arad/PI/brad*360])
let(
xy = _involute(brad,i),
@ -2361,9 +2356,9 @@ function _gear_tooth_profile(
a2 = lookup(r, undercut_lup),
a = internal || r < undercut_lup[0].x? a1 : min(a1,a2)
)
if( internal || r > (rrad+clear) )
if(!internal || r < (ma_rad-clear) )
if(a<90+180/teeth)
if ( internal || r > (rrad+clear) )
if (!internal || r < (ma_rad-clear) )
if (a < 90+180/teeth)
polar_to_xy(r, a),
if (!internal)
for (i=[0:1:cap_steps-1]) let(