summaryrefslogtreecommitdiffabout
Unidiff
Diffstat (more/less context) (show whitespace changes)
-rw-r--r--fanduct.scad7
1 files changed, 4 insertions, 3 deletions
diff --git a/fanduct.scad b/fanduct.scad
index 746f753..fa14b7a 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -61,9 +61,10 @@ module fanduct(type=type,ductshape=ductshape) {
61 else if(ductshape=="square") 61 else if(ductshape=="square")
62 translate([fanduct_ir+fanduct_shell,fanduct_shell]) 62 translate([fanduct_ir+fanduct_shell,fanduct_shell])
63 union() { 63 union() {
64 square([fanduct_w,fanduct_h/2]); 64 square([sh,sv/2]);
65 translate([fanduct_w/2,fanduct_h-fanduct_w/2]) 65 translate([sh/2,sv/2])
66 rotate([0,0,90]) circle(d=fanduct_w,$fn=36); 66 scale([sh/smax,sv/smax])
67 circle(d=smax,$fn=36);
67 } 68 }
68 } 69 }
69 } 70 }