fix duct inner shape

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
@@ -52,27 +52,28 @@ module fanduct(type=type,ductshape=ductshape) {
      square([sh,sv]);
   }else if(what=="out") {
    sh = fanduct_w; sv = fanduct_h;
    smax = max(sh,sv);
    rotate_extrude($fn=smooth_f)
     if(ductshape=="round")
      translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell])
      scale([sh/smax,sv/smax])
      circle(d=smax,$fn=4*smax);
     else if(ductshape=="square")
      translate([fanduct_ir+fanduct_shell,fanduct_shell])
      union() {
-      square([fanduct_w,fanduct_h/2]);
-      translate([fanduct_w/2,fanduct_h-fanduct_w/2])
-      rotate([0,0,90]) circle(d=fanduct_w,$fn=36);
+      square([sh,sv/2]);
+      translate([sh/2,sv/2])
+      scale([sh/smax,sv/smax])
+      circle(d=smax,$fn=36);
      } 
   }
  }
 
  //	***	bumps for easier position adjustments in line with hotend
  module marks(what) {
   if(what=="in") {
    for(y=[-1,1])
     hull() for(z=[0,-fanduct_shell-fanduct_h/2])
      translate([0,y*(fanduct_ir+fanduct_shell+fanduct_w/2),fanduct_shell*2+fanduct_h+z])
      rotate([90,0,0]) {
       cylinder(r=fanduct_shell,h=fanduct_w,center=true,$fn=30);