From 96c68b7fc20735d0cacb027827282f070403d885 Mon Sep 17 00:00:00 2001
From: Michael Krelin <hacker@klever.net>
Date: Mon, 13 Jun 2016 14:10:26 +0000
Subject: dualism: the duct

---
diff --git a/fanduct.scad b/fanduct.scad
index 3e2a15e..b9689c9 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -28,46 +28,82 @@ inlet_away = 15;	// how far away inlet is
 inlet_long_l = inlet_short_l+inlet_h;
 hotend_clearance = heater_clearance;
 
+nozzles_apart = 18;		// distance between nozzles for dual hotend
+space_behind_nozzle = 15;	// space behind the nozzle where we're allowed to go
+				// without the fear of hitting carriage
+
 snapper_d = 8; snapper_overlap=0.2;	// snip snap
 
 smooth_f = 120;
 
-type="3jets"; // "3jets" ; // circular|3jets
-ductshape="square"; // square|round
-
+type="circular"; 	// circular|3jets
+ductshape="square"; 	// square|round
+dual=true;		// dual or single
 
-module fanduct(type=type,ductshape=ductshape) {
+to_midduct = fanduct_ir+fanduct_shell+fanduct_w/2;
+dual_spots = [ [+space_behind_nozzle, -(to_midduct+nozzles_apart/2)],
+	       [-         to_midduct, -(to_midduct+nozzles_apart/2)],
+	       [-         to_midduct, 0] ];
 
+module fanduct(type=type,ductshape=ductshape,dual=dual) {
  //	***	duct is all around!
  module duct(what) {
-  if(what=="in") {
-   sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
-   smax = max(sh,sv);
-   rotate_extrude($fn=smooth_f)
-    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)
-    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([sh,sv/2]);
-      translate([sh/2,sv/2])
+  module single() {
+   if(what=="in") {
+    sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
+    smax = max(sh,sv);
+    rotate_extrude($fn=smooth_f)
+     if(ductshape=="round")
+      translate([sh/2+fanduct_ir,sv/2])
       scale([sh/smax,sv/smax])
-      circle(d=smax,$fn=36);
-     } 
+      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)
+     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([sh,sv/2]);
+       translate([sh/2,sv/2])
+       scale([sh/smax,sv/smax])
+       circle(d=smax,$fn=36);
+      }
+   }
+  }
+  module dual() {
+   module hulls(spots=dual_spots) {
+    for(my=[0,1]) mirror([0,my,0]) for(pn=[0:1:len(spots)-2]) hull() {
+     for(p=[spots[pn],spots[pn+1]]) translate(p) children();
+    }
+   }
+   if(what=="in") {
+    hulls() cylinder(d=fanduct_w+2*fanduct_shell,h=fanduct_h+2*fanduct_shell);
+   }else if(what=="out") {
+    sh = fanduct_w; sv = fanduct_h;
+    smax = max(sh,sv);
+    translate([0,0,fanduct_shell]) hulls() {
+     cylinder(d=fanduct_w,h=fanduct_h/2);
+     translate([0,0,fanduct_h/2])
+     scale([sh/smax,sh/smax,sv/smax])
+     intersection() {
+      sphere(d=smax,$fn=36);
+      translate([0,0,-1])
+      cylinder(d=smax+2,h=smax+2,$fn=36);
+     }
+    }
+   }
   }
+
+  if(dual) dual();
+  else single();
  }
 
  //	***	bumps for easier position adjustments in line with hotend
--
cgit v0.9.0.2