Fix for issue #581

This commit is contained in:
Garth Minette 2021-06-22 20:04:33 -07:00
parent 64f9a3ebe8
commit 2e84cc64a7

View file

@ -91,10 +91,10 @@ module thinning_wall(h=50, l=100, thick=5, ang=30, braces=false, strut, wall, an
wall = is_num(wall)? wall : thick/2; wall = is_num(wall)? wall : thick/2;
bevel_h = strut + (thick-wall)/2/tan(ang); bevel_h = strut + (thick-wall)/2/tan(ang);
cp1 = circle_2tangents([0,0,h/2], [l2/2,0,h/2], [l1/2,0,-h/2], r=strut)[0]; cp1 = circle_2tangents([0,0,+h/2], [l2/2,0,+h/2], [l1/2,0,-h/2], r=strut)[0];
cp2 = circle_2tangents([0,0,h/2], [l2/2,0,h/2], [l1/2,0,-h/2], r=bevel_h)[0]; cp2 = circle_2tangents([0,0,+h/2], [l2/2,0,+h/2], [l1/2,0,-h/2], r=bevel_h)[0];
cp3 = circle_2tangents([0,0,-h/2], [l1/2,0,-h/2], [l2/2,0,h/2], r=bevel_h)[0]; cp3 = circle_2tangents([0,0,-h/2], [l1/2,0,-h/2], [l2/2,0,+h/2], r=bevel_h)[0];
cp4 = circle_2tangents([0,0,-h/2], [l1/2,0,-h/2], [l2/2,0,h/2], r=strut)[0]; cp4 = circle_2tangents([0,0,-h/2], [l1/2,0,-h/2], [l2/2,0,+h/2], r=strut)[0];
z1 = h/2; z1 = h/2;
z2 = cp1.z; z2 = cp1.z;
@ -116,7 +116,7 @@ module thinning_wall(h=50, l=100, thick=5, ang=30, braces=false, strut, wall, an
size = [l1, thick, h]; size = [l1, thick, h];
attachable(anchor,spin,orient, size=size, size2=[l2,thick]) { attachable(anchor,spin,orient, size=size, size2=[l2,thick]) {
union() { zrot(90) {
polyhedron( polyhedron(
points=[ points=[
[-x4, -y1, -z1], [-x4, -y1, -z1],