summaryrefslogtreecommitdiffabout
authorMichael Krelin <hacker@klever.net>2016-06-13 14:10:26 (UTC)
committer Michael Krelin <hacker@klever.net>2016-06-13 14:10:26 (UTC)
commit96c68b7fc20735d0cacb027827282f070403d885 (patch) (unidiff)
treefd4adc6046f2b8b3d2e01b9ea415fbb9f96b3726
parent2d09f1c09a64adab3a756e5d7108a2138682a2f3 (diff)
downloadfanductory-96c68b7fc20735d0cacb027827282f070403d885.zip
fanductory-96c68b7fc20735d0cacb027827282f070403d885.tar.gz
fanductory-96c68b7fc20735d0cacb027827282f070403d885.tar.bz2
dualism: the duct
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--fanduct.scad96
1 files changed, 66 insertions, 30 deletions
diff --git a/fanduct.scad b/fanduct.scad
index 3e2a15e..b9689c9 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -25,52 +25,88 @@ inlet_h = 17; // inlet height
25 inlet_short_l = 7;// inlet length of protrusion (or depth of intrusion:)) 25 inlet_short_l = 7;// inlet length of protrusion (or depth of intrusion:))
26 inlet_away = 15;// how far away inlet is 26 inlet_away = 15;// how far away inlet is
27 27
28inlet_long_l = inlet_short_l+inlet_h; 28inlet_long_l = inlet_short_l+inlet_h;
29hotend_clearance = heater_clearance; 29hotend_clearance = heater_clearance;
30 30
31 nozzles_apart = 18; // distance between nozzles for dual hotend
32 space_behind_nozzle = 15;// space behind the nozzle where we're allowed to go
33 // without the fear of hitting carriage
34
31 snapper_d = 8; snapper_overlap=0.2;// snip snap 35 snapper_d = 8; snapper_overlap=0.2;// snip snap
32 36
33smooth_f = 120; 37smooth_f = 120;
34 38
35type="3jets"; // "3jets" ; // circular|3jets 39 type="circular"; // circular|3jets
36ductshape="square"; // square|round 40 ductshape="square"; // square|round
37 41 dual=true; // dual or single
38 42
39module fanduct(type=type,ductshape=ductshape) { 43to_midduct = fanduct_ir+fanduct_shell+fanduct_w/2;
44dual_spots = [ [+space_behind_nozzle, -(to_midduct+nozzles_apart/2)],
45 [- to_midduct, -(to_midduct+nozzles_apart/2)],
46 [- to_midduct, 0] ];
40 47
48module fanduct(type=type,ductshape=ductshape,dual=dual) {
41 // ***duct is all around! 49 // ***duct is all around!
42 module duct(what) { 50 module duct(what) {
43 if(what=="in") { 51 module single() {
44 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell; 52 if(what=="in") {
45 smax = max(sh,sv); 53 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
46 rotate_extrude($fn=smooth_f) 54 smax = max(sh,sv);
47 if(ductshape=="round") 55 rotate_extrude($fn=smooth_f)
48 translate([sh/2+fanduct_ir,sv/2]) 56 if(ductshape=="round")
49 scale([sh/smax,sv/smax]) 57 translate([sh/2+fanduct_ir,sv/2])
50 circle(d=smax,$fn=4*smax);
51 else if(ductshape=="square")
52 translate([fanduct_ir,0])
53 square([sh,sv]);
54 }else if(what=="out") {
55 sh = fanduct_w; sv = fanduct_h;
56 smax = max(sh,sv);
57 rotate_extrude($fn=smooth_f)
58 if(ductshape=="round")
59 translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell])
60 scale([sh/smax,sv/smax])
61 circle(d=smax,$fn=4*smax);
62 else if(ductshape=="square")
63 translate([fanduct_ir+fanduct_shell,fanduct_shell])
64 union() {
65 square([sh,sv/2]);
66 translate([sh/2,sv/2])
67 scale([sh/smax,sv/smax]) 58 scale([sh/smax,sv/smax])
68 circle(d=smax,$fn=36); 59 circle(d=smax,$fn=4*smax);
69 } 60 else if(ductshape=="square")
61 translate([fanduct_ir,0])
62 square([sh,sv]);
63 }else if(what=="out") {
64 sh = fanduct_w; sv = fanduct_h;
65 smax = max(sh,sv);
66 rotate_extrude($fn=smooth_f)
67 if(ductshape=="round")
68 translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell])
69 scale([sh/smax,sv/smax])
70 circle(d=smax,$fn=4*smax);
71 else if(ductshape=="square")
72 translate([fanduct_ir+fanduct_shell,fanduct_shell])
73 union() {
74 square([sh,sv/2]);
75 translate([sh/2,sv/2])
76 scale([sh/smax,sv/smax])
77 circle(d=smax,$fn=36);
78 }
79 }
80 }
81 module dual() {
82 module hulls(spots=dual_spots) {
83 for(my=[0,1]) mirror([0,my,0]) for(pn=[0:1:len(spots)-2]) hull() {
84 for(p=[spots[pn],spots[pn+1]]) translate(p) children();
85 }
86 }
87 if(what=="in") {
88 hulls() cylinder(d=fanduct_w+2*fanduct_shell,h=fanduct_h+2*fanduct_shell);
89 }else if(what=="out") {
90 sh = fanduct_w; sv = fanduct_h;
91 smax = max(sh,sv);
92 translate([0,0,fanduct_shell]) hulls() {
93 cylinder(d=fanduct_w,h=fanduct_h/2);
94 translate([0,0,fanduct_h/2])
95 scale([sh/smax,sh/smax,sv/smax])
96 intersection() {
97 sphere(d=smax,$fn=36);
98 translate([0,0,-1])
99 cylinder(d=smax+2,h=smax+2,$fn=36);
100 }
101 }
102 }
70 } 103 }
104
105 if(dual) dual();
106 else single();
71 } 107 }
72 108
73 // ***bumps for easier position adjustments in line with hotend 109 // ***bumps for easier position adjustments in line with hotend
74 module marks(what) { 110 module marks(what) {
75 if(what=="in") { 111 if(what=="in") {
76 for(y=[-1,1]) 112 for(y=[-1,1])