From 0398dd6a4e41ec26d48ad02caffc319f34cbfcb1 Mon Sep 17 00:00:00 2001
From: Michael Krelin <hacker@klever.net>
Date: Sat, 11 Jun 2016 14:08:31 +0000
Subject: selectable round/square duct section

---
diff --git a/fanduct.scad b/fanduct.scad
index 53630a3..746f753 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -32,9 +32,10 @@ snapper_d = 8; snapper_overlap=0.2;	// snip snap
 smooth_f = 120;
 
 type="3jets"; // "3jets" ; // circular|3jets
+ductshape="square"; // square|round
 
 
-module fanduct(type=type) {
+module fanduct(type=type,ductshape=ductshape) {
 
  //	***	duct is all around!
  module duct(what) {
@@ -42,16 +43,28 @@ module fanduct(type=type) {
    sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
    smax = max(sh,sv);
    rotate_extrude($fn=smooth_f)
-   translate([sh/2+fanduct_ir,sv/2])
-   scale([sh/smax,sv/smax])
-   circle(d=smax,$fn=4*smax);
+    if(ductshape=="round")
+     translate([sh/2+fanduct_ir,sv/2])
+     scale([sh/smax,sv/smax])
+     circle(d=smax,$fn=4*smax);
+    else if(ductshape=="square")
+     translate([fanduct_ir,0])
+     square([sh,sv]);
   }else if(what=="out") {
    sh = fanduct_w; sv = fanduct_h;
    smax = max(sh,sv);
    rotate_extrude($fn=smooth_f)
-   translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell])
-   scale([sh/smax,sv/smax])
-   circle(d=smax,$fn=4*smax);
+    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);
+     } 
   }
  }
 
@@ -240,7 +253,7 @@ module fanduct(type=type) {
  }
 }
 
-view="full"; // hcut|vcut|*
+view="vcut"; // hcut|vcut|*
 
 hinfinity=4*(fanduct_ir+fanduct_shell*2+fanduct_w+inlet_away);
 vinfinity=2*(fanduct_shell*2+fanduct_h+inlet_h);
--
cgit v0.9.0.2