summaryrefslogtreecommitdiffabout
Unidiff
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--fanduct.scad28
1 files changed, 14 insertions, 14 deletions
diff --git a/fanduct.scad b/fanduct.scad
index 302ea07..a18ce56 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -1,66 +1,66 @@
1use <snapper.scad>; 1use <snapper.scad>;
2 extrusion_width=.5; layer_height=.2; // print parameters 2 extrusion_width=.5; layer_height=.2; // print parameters
3 3
4 epsilon=.005; // for finer cuts 4 epsilon=.005; // for finer cuts
5 5
6 type="circular"; // circular|3jets
7 ductshape="square"; // square|round
8 dual=true; // dual or single
9
10 nozzles_apart = 18; // distance between nozzles for dual hotend
11 space_behind_nozzle = 10;// space behind the nozzle where we're allowed to go
12 // without the fear of hitting carriage
13
14 inlet_w = 12.5; // inlet width
15 inlet_h = 17; // inlet height
16 inlet_short_l = 7;// inlet length of protrusion (or depth of intrusion:))
17 inlet_away = 15;// how far away inlet is
18
19inlet_long_l = inlet_short_l+inlet_h;
6function hypothenuse(a,b) = sqrt(pow(a,2)+pow(b,2)); 20function hypothenuse(a,b) = sqrt(pow(a,2)+pow(b,2));
7 21
8silicone_shell = 2; 22silicone_shell = 2;
9heater_clearance = max( 23heater_clearance = max(
10 hypothenuse(16/2 +silicone_shell, 20-4.5 +silicone_shell),// E3D v6 24 hypothenuse(16/2 +silicone_shell, 20-4.5 +silicone_shell),// E3D v6
11 hypothenuse(11.5-4.5 +silicone_shell, 15.5 +silicone_shell)// E3D volcano 25 hypothenuse(11.5-4.5 +silicone_shell, 15.5 +silicone_shell)// E3D volcano
12); 26);
13 27
14 fanduct_elevation = 3; // fanduct elevation above nozzle tip 28 fanduct_elevation = 3; // fanduct elevation above nozzle tip
15 fanduct_blowtarget = -2; // what to blow at 29 fanduct_blowtarget = -2; // what to blow at
16 fanduct_h = 6; // inner height of the duct 30 fanduct_h = 6; // inner height of the duct
17 fanduct_w = 7; // inner width of the duct 31 fanduct_w = 7; // inner width of the duct
18 fanduct_shell=1.2; // shell thickness 32 fanduct_shell=1.2; // shell thickness
19 fanduct_ir = heater_clearance+5; // inner radius 33 fanduct_ir = heater_clearance+5; // inner radius
20 34
21 jet_angle = 60-2; // angular width of the jet 35 jet_angle = 60-2; // angular width of the jet
22 36
23 inlet_w = 12.5; // inlet width
24 inlet_h = 17; // inlet height
25 inlet_short_l = 7;// inlet length of protrusion (or depth of intrusion:))
26 inlet_away = 15;// how far away inlet is
27
28inlet_long_l = inlet_short_l+inlet_h;
29hotend_clearance = heater_clearance; 37hotend_clearance = heater_clearance;
30 38
31 nozzles_apart = 18; // distance between nozzles for dual hotend
32 space_behind_nozzle = 10;// space behind the nozzle where we're allowed to go
33 // without the fear of hitting carriage
34
35 snapper_d = 8; snapper_overlap=0.2;// snip snap 39 snapper_d = 8; snapper_overlap=0.2;// snip snap
36 40
37smooth_f = 120; 41smooth_f = 120;
38 42
39 type="circular"; // circular|3jets
40 ductshape="square"; // square|round
41 dual=false; // dual or single
42
43to_midduct = fanduct_ir+fanduct_shell+fanduct_w/2; 43to_midduct = fanduct_ir+fanduct_shell+fanduct_w/2;
44dual_spots = [ [+space_behind_nozzle, -(to_midduct+nozzles_apart/2)], 44dual_spots = [ [+space_behind_nozzle, -(to_midduct+nozzles_apart/2)],
45 [- to_midduct, -(to_midduct+nozzles_apart/2)], 45 [- to_midduct, -(to_midduct+nozzles_apart/2)],
46 [- to_midduct, 0] ]; 46 [- to_midduct, 0] ];
47 47
48module fanduct(type=type,ductshape=ductshape,dual=dual) { 48module fanduct(type=type,ductshape=ductshape,dual=dual) {
49 // ***duct is all around! 49 // ***duct is all around!
50 module duct(what) { 50 module duct(what) {
51 module single() { 51 module single() {
52 if(what=="in") { 52 if(what=="in") {
53 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell; 53 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
54 smax = max(sh,sv); 54 smax = max(sh,sv);
55 rotate_extrude($fn=smooth_f) 55 rotate_extrude($fn=smooth_f)
56 if(ductshape=="round") 56 if(ductshape=="round")
57 translate([sh/2+fanduct_ir,sv/2]) 57 translate([sh/2+fanduct_ir,sv/2])
58 scale([sh/smax,sv/smax]) 58 scale([sh/smax,sv/smax])
59 circle(d=smax,$fn=4*smax); 59 circle(d=smax,$fn=4*smax);
60 else if(ductshape=="square") 60 else if(ductshape=="square")
61 translate([fanduct_ir,0]) 61 translate([fanduct_ir,0])
62 square([sh,sv]); 62 square([sh,sv]);
63 }else if(what=="out") { 63 }else if(what=="out") {
64 sh = fanduct_w; sv = fanduct_h; 64 sh = fanduct_w; sv = fanduct_h;
65 smax = max(sh,sv); 65 smax = max(sh,sv);
66 rotate_extrude($fn=smooth_f) 66 rotate_extrude($fn=smooth_f)