summaryrefslogtreecommitdiffabout
Unidiff
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--fanduct.scad12
1 files changed, 8 insertions, 4 deletions
diff --git a/fanduct.scad b/fanduct.scad
index 563920c..421dd5a 100644
--- a/fanduct.scad
+++ b/fanduct.scad
@@ -1,111 +1,115 @@
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 heater_w = 16; // heatblock width 6function hypothenuse(a,b) = sqrt(pow(a,2)+pow(b,2));
7 heater_l = 20; // heatblock length 7
8 nozzle_offset=4.5;// nozzle offset from the edge of heatblock 8silicone_shell = 2;
9heater_clearance = max(
10 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
12);
9 13
10 fanduct_elevation = 3; // fanduct elevation above nozzle tip 14 fanduct_elevation = 3; // fanduct elevation above nozzle tip
11 fanduct_blowtarget = -2; // what to blow at 15 fanduct_blowtarget = -2; // what to blow at
12 fanduct_h = 6; // inner height of the duct 16 fanduct_h = 6; // inner height of the duct
13 fanduct_w = 7; // inner width of the duct 17 fanduct_w = 7; // inner width of the duct
14 fanduct_shell=1.2; // shell thickness 18 fanduct_shell=1.2; // shell thickness
15 fanduct_ir = sqrt(pow(heater_w/2,2)+pow(heater_l-nozzle_offset,2))+5;// inner radius 19 fanduct_ir = heater_clearance+5; // inner radius
16 20
17 jet_angle = 60; // angular width of the jet 21 jet_angle = 60; // angular width of the jet
18 22
19 inlet_w = 12.5; // inlet width 23 inlet_w = 12.5; // inlet width
20 inlet_h = 17; // inlet height 24 inlet_h = 17; // inlet height
21 inlet_l = 7; // inlet length of protrusion (or depth of intrusion:)) 25 inlet_l = 7; // inlet length of protrusion (or depth of intrusion:))
22 inlet_away = 15;// how far away inlet is 26 inlet_away = 15;// how far away inlet is
23 27
24hotend_clearance = 12; 28hotend_clearance = 12;
25 29
26 snapper_d = 8; snapper_overlap=0.2;// snip snap 30 snapper_d = 8; snapper_overlap=0.2;// snip snap
27 31
28smooth_f = 120; 32smooth_f = 120;
29 33
30type="3jets"; // "3jets" ; // circular|3jets 34type="3jets"; // "3jets" ; // circular|3jets
31 35
32 36
33module fanduct(type=type) { 37module fanduct(type=type) {
34 38
35 // ***duct is all around! 39 // ***duct is all around!
36 module duct(what) { 40 module duct(what) {
37 if(what=="in") { 41 if(what=="in") {
38 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell; 42 sh = fanduct_w+2*fanduct_shell; sv = fanduct_h+2*fanduct_shell;
39 smax = max(sh,sv); 43 smax = max(sh,sv);
40 rotate_extrude($fn=smooth_f) 44 rotate_extrude($fn=smooth_f)
41 translate([sh/2+fanduct_ir,sv/2]) 45 translate([sh/2+fanduct_ir,sv/2])
42 scale([sh/smax,sv/smax]) 46 scale([sh/smax,sv/smax])
43 circle(d=smax,$fn=4*smax); 47 circle(d=smax,$fn=4*smax);
44 }else if(what=="out") { 48 }else if(what=="out") {
45 sh = fanduct_w; sv = fanduct_h; 49 sh = fanduct_w; sv = fanduct_h;
46 smax = max(sh,sv); 50 smax = max(sh,sv);
47 rotate_extrude($fn=smooth_f) 51 rotate_extrude($fn=smooth_f)
48 translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell]) 52 translate([sh/2+fanduct_shell+fanduct_ir,sv/2+fanduct_shell])
49 scale([sh/smax,sv/smax]) 53 scale([sh/smax,sv/smax])
50 circle(d=smax,$fn=4*smax); 54 circle(d=smax,$fn=4*smax);
51 } 55 }
52 } 56 }
53 57
54 // ***bumps for easier position adjustments in line with hotend 58 // ***bumps for easier position adjustments in line with hotend
55 module marks(what) { 59 module marks(what) {
56 if(what=="in") { 60 if(what=="in") {
57 for(y=[-1,1]) 61 for(y=[-1,1])
58 hull() for(z=[0,-fanduct_shell-fanduct_h/2]) 62 hull() for(z=[0,-fanduct_shell-fanduct_h/2])
59 translate([0,y*(fanduct_ir+fanduct_shell+fanduct_w/2),fanduct_shell*2+fanduct_h+z]) 63 translate([0,y*(fanduct_ir+fanduct_shell+fanduct_w/2),fanduct_shell*2+fanduct_h+z])
60 rotate([90,0,0]) { 64 rotate([90,0,0]) {
61 cylinder(r=fanduct_shell,h=fanduct_w,center=true,$fn=30); 65 cylinder(r=fanduct_shell,h=fanduct_w,center=true,$fn=30);
62 for(z=[-1,1]) translate([0,0,z*fanduct_w/2]) 66 for(z=[-1,1]) translate([0,0,z*fanduct_w/2])
63 sphere(r=fanduct_shell,$fn=30); 67 sphere(r=fanduct_shell,$fn=30);
64 } 68 }
65 } 69 }
66 } 70 }
67 71
68 // ***output 72 // ***output
69 module output(what,type=type) { 73 module output(what,type=type) {
70 module guideline(xyxy) { 74 module guideline(xyxy) {
71 module pin(xy) { 75 module pin(xy) {
72 translate([xy[0],xy[1],0]) 76 translate([xy[0],xy[1],0])
73 cylinder(d=2*extrusion_width,h=2*fanduct_shell+inlet_h,$fn=6); 77 cylinder(d=2*extrusion_width,h=2*fanduct_shell+inlet_h,$fn=6);
74 } 78 }
75 xyxyxy=concat(xyxy,[[0,0]]); 79 xyxyxy=concat(xyxy,[[0,0]]);
76 for(i=[0:1:len(xyxyxy)-2]) 80 for(i=[0:1:len(xyxyxy)-2])
77 hull() for(j=[i,i+1]) pin(xyxyxy[j]); 81 hull() for(j=[i,i+1]) pin(xyxyxy[j]);
78 } 82 }
79 83
80 module circus(what) { 84 module circus(what) {
81 if(what=="in") { 85 if(what=="in") {
82 difference() { 86 difference() {
83 rotate_extrude($fn=smooth_f) 87 rotate_extrude($fn=smooth_f)
84 polygon([ 88 polygon([
85 [0,-fanduct_elevation+fanduct_blowtarget+epsilon], 89 [0,-fanduct_elevation+fanduct_blowtarget+epsilon],
86 [fanduct_ir+fanduct_shell,fanduct_shell+fanduct_h/2], 90 [fanduct_ir+fanduct_shell,fanduct_shell+fanduct_h/2],
87 [fanduct_ir+fanduct_shell+fanduct_w/2,0], 91 [fanduct_ir+fanduct_shell+fanduct_w/2,0],
88 [0,-fanduct_elevation+fanduct_blowtarget-epsilon]]); 92 [0,-fanduct_elevation+fanduct_blowtarget-epsilon]]);
89 translate([0,0,-1]) 93 translate([0,0,-1])
90 cylinder(r=hotend_clearance,h=fanduct_h+2*fanduct_shell+2,$fn=smooth_f); 94 cylinder(r=hotend_clearance,h=fanduct_h+2*fanduct_shell+2,$fn=smooth_f);
91 mirror([0,0,1]) 95 mirror([0,0,1])
92 translate([0,0,-epsilon]) 96 translate([0,0,-epsilon])
93 cylinder(r=fanduct_ir+fanduct_shell+1,h=fanduct_elevation+.1+2); 97 cylinder(r=fanduct_ir+fanduct_shell+1,h=fanduct_elevation+.1+2);
94 } 98 }
95 }else if(what=="out") { 99 }else if(what=="out") {
96 rotate_extrude($fn=smooth_f) 100 rotate_extrude($fn=smooth_f)
97 polygon([ 101 polygon([
98 [0,-fanduct_elevation+fanduct_blowtarget+epsilon], 102 [0,-fanduct_elevation+fanduct_blowtarget+epsilon],
99 [fanduct_ir+fanduct_shell+1,fanduct_h/2], 103 [fanduct_ir+fanduct_shell+1,fanduct_h/2],
100 [fanduct_ir+fanduct_w/2+fanduct_shell+1,fanduct_shell], 104 [fanduct_ir+fanduct_w/2+fanduct_shell+1,fanduct_shell],
101 [0,-fanduct_elevation+fanduct_blowtarget-epsilon]]); 105 [0,-fanduct_elevation+fanduct_blowtarget-epsilon]]);
102 }else if(what=="airguides") { 106 }else if(what=="airguides") {
103 inr = fanduct_ir+fanduct_shell; our = inr+fanduct_w; 107 inr = fanduct_ir+fanduct_shell; our = inr+fanduct_w;
104 union() { 108 union() {
105 for(my=[0,1]) mirror([0,my,0]) { 109 for(my=[0,1]) mirror([0,my,0]) {
106 guideline([ 110 guideline([
107 [-our,inlet_w/6], 111 [-our,inlet_w/6],
108 [-inr*sin(60),inr*cos(60)] 112 [-inr*sin(60),inr*cos(60)]
109 ]); 113 ]);
110 a0=30; as=15; a1=180; 114 a0=30; as=15; a1=180;
111 for(a=[a0+as:as:a1]) { 115 for(a=[a0+as:as:a1]) {