Rev 4689 Rev 4706
1 $fn=40; // model faces resolution. 1 $fn=40; // model faces resolution.
2 include <../configuration.scad> 2 include <../configuration.scad>
3 include <polyScrewThread_r1.scad> 3 include <polyScrewThread_r1.scad>
4   4  
5 difference () { 5 difference () {
6 AWSCREEN01A_D03(D03_vyska_zavitu,D03_tolerance_zavitu,D03_material_za_zavitem,D03_polomer_zavitu,D03_polomer_stitu,D03_tloustka_materialu,D03_vyska_stitu,D03_pocet_vyztuh,screen_bevel); 6 AWSCREEN01A_D03(D03_vyska_zavitu,D03_tolerance_zavitu,D03_material_za_zavitem,D03_polomer_zavitu,D03_polomer_stitu,D03_tloustka_materialu,D03_vyska_stitu,D03_pocet_vyztuh,screen_bevel);
7   7  
8   8  
9 cube([180,180,180]); 9 cube([180,180,180]);
10   10  
11 } 11 }
12   12  
13   13  
14   14  
15   15  
16 module AWSCREEN01A_D03(D03_vyska_zavitu,D03_tolerance_zavitu,D03_material_za_zavitem,D03_polomer_zavitu,D03_polomer_stitu,D03_tloustka_materialu,D03_vyska_stitu,D03_pocet_vyztuh,screen_bevel) 16 module AWSCREEN01A_D03(D03_vyska_zavitu,D03_tolerance_zavitu,D03_material_za_zavitem,D03_polomer_zavitu,D03_polomer_stitu,D03_tloustka_materialu,D03_vyska_stitu,D03_pocet_vyztuh,screen_bevel)
17   17  
18 { 18 {
19 angle_sep = 360/D03_pocet_vyztuh; 19 angle_sep = 360/D03_pocet_vyztuh;
20   20  
21 //spodní kruh - kvůli výkroji 21 //spodní kruh - kvůli výkroji
22 difference () { 22 difference () {
23 23
24 24
25 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100); 25 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
26 translate ([0,0,-0.005]) 26 translate ([0,0,-0.005])
27 cylinder (h=2*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100); 27 cylinder (h=2*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
28 28
29 translate ([0,0,3*D03_tloustka_materialu]) 29 translate ([0,0,3*D03_tloustka_materialu])
30 30
31 translate ([0,0,-0.01/2-D03_tloustka_materialu]) 31 translate ([0,0,-0.01/2-D03_tloustka_materialu])
32 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu+0.01,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem,$fn=100); 32 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu+0.01,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem,$fn=100);
33 33
34 34
35 35
36 36
37 } 37 }
38 38
39 //spodní kruh - kvůli doplnění výkroje 39 //spodní kruh - kvůli doplnění výkroje
40 difference () { 40 difference () {
41 41
42 42
43 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100); 43 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
44 translate ([0,0,-0.005]) 44 translate ([0,0,-0.005])
45 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100); 45 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
46 46
47 47
48 48
49 } 49 }
50   50  
51   51  
52 //horni zavit 52 //horni zavit
53 translate ([0,0,D03_vyska_stitu]) 53 translate ([0,0,D03_vyska_stitu])
54 // screen upper rim 54 // screen upper rim
55 difference () { 55 difference () {
56 screw_thread((D03_polomer_zavitu-D03_tolerance_zavitu)*2,4,55,D03_vyska_zavitu+5,PI/2,2); 56 screw_thread((D03_polomer_zavitu-D03_tolerance_zavitu)*2,4,55,D03_vyska_zavitu+5,PI/2,2);
57 57
58 translate ([0,0,-0.01]) 58 translate ([0,0,-0.01])
59 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem ,$fn=100); 59 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem-1 ,$fn=100);
60 60
61 61
62 translate ([0,0,D03_vyska_zavitu-0.01]) 62 translate ([0,0,D03_vyska_zavitu-0.01])
63 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu ,$fn=100); 63 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu ,$fn=100);
64 64
65 } 65 }
66   66  
67 //materiál pod horním závitem 67 //materiál pod horním závitem
68 translate ([0,0,D03_vyska_stitu-D03_tloustka_materialu]) 68 translate ([0,0,D03_vyska_stitu-D03_tloustka_materialu])
69 difference () { 69 difference () {
70 translate ([0,0,0]) 70 translate ([0,0,0])
71 cylinder (h=D03_tloustka_materialu ,r=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem+D03_tloustka_materialu ,$fn=100); 71 cylinder (h=D03_tloustka_materialu ,r=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem+D03_tloustka_materialu ,$fn=100);
72 72
73 73
74 translate ([0,0,-0.01]) 74 translate ([0,0,-0.01])
75 cylinder (h=D03_tloustka_materialu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem ,$fn=100); 75 cylinder (h=D03_tloustka_materialu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem-1 ,$fn=100);
76 76
77 } 77 }
78   78  
79   79  
80   80  
81 //screen 81 //screen
82 82
83 translate ([0,0,3*D03_tloustka_materialu]) 83 translate ([0,0,3*D03_tloustka_materialu])
84 difference () { 84 difference () {
85 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem,$fn=100); 85 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem-1,$fn=100);
86 translate ([0,0,-0.01/2-D03_tloustka_materialu]) 86 translate ([0,0,-0.01/2-D03_tloustka_materialu])
87 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu+0.01,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem,$fn=100); 87 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu+0.01,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem-1,$fn=100);
88 88
89 translate ([0,0,D03_vyska_stitu-D03_vyska_zavitu-3*D03_tloustka_materialu]) 89 translate ([0,0,D03_vyska_stitu-D03_vyska_zavitu-3*D03_tloustka_materialu])
90 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem ,$fn=100); 90 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem-1 ,$fn=100);
91 91
92 92
93 } 93 }
94   94  
95   95  
96 //inner ring 96 //inner ring
97   97  
98 //spodní závit 98 //spodní závit
99 difference () { 99 difference () {
100 100
101 union(){ 101 union(){
102 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem/2,$fn=100); 102 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem/2,$fn=100);
103 103
104 //výztuhy 104 //výztuhy
105 // center ribs 105 // center ribs
106 for (i = [0 : (D03_pocet_vyztuh-1)]) { 106 for (i = [0 : (D03_pocet_vyztuh-1)]) {
107 rotate ([90,0,angle_sep* i]) 107 rotate ([90,0,angle_sep* i])
108 translate ([0,0,-D03_tloustka_materialu/2]) 108 translate ([0,0,-D03_tloustka_materialu/2])
109 linear_extrude (height = D03_tloustka_materialu, convexity = 10) 109 linear_extrude (height = D03_tloustka_materialu, convexity = 10)
110 polygon(points=[[D03_polomer_zavitu- D03_material_za_zavitem-D03_tolerance_zavitu,D03_vyska_stitu],[D03_polomer_zavitu, 0],[D03_polomer_stitu - D03_tloustka_materialu,0],[D03_polomer_stitu- D03_tloustka_materialu,3*D03_tloustka_materialu]]); 110 polygon(points=[[D03_polomer_zavitu- D03_material_za_zavitem-D03_tolerance_zavitu,D03_vyska_stitu],[D03_polomer_zavitu, 0],[D03_polomer_stitu - D03_tloustka_materialu,0],[D03_polomer_stitu- D03_tloustka_materialu,3*D03_tloustka_materialu]]);
111   111  
112 } 112 }
113 113
114 114
115 } 115 }
116 translate([0,0,-1]) 116 translate([0,0,-1])
117 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2); 117 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2);
118 } 118 }
119   119  
120   120  
121   121  
122 } 122 }