Rev 4493 Rev 4495
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   5  
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   9  
10   10  
11   11  
12   12  
13   13  
14 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) 14 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)
15   15  
16 { 16 {
17 angle_sep = 360/D03_pocet_vyztuh; 17 angle_sep = 360/D03_pocet_vyztuh;
18   18  
-   19  
-   20 //horni zavit
19 translate ([0,0,D03_vyska_stitu]) 21 translate ([0,0,D03_vyska_stitu])
20 // screen upper rim 22 // screen upper rim
21 difference () { 23 difference () {
22 screw_thread((D03_polomer_zavitu-D03_tolerance_zavitu)*2,4,55,D03_vyska_zavitu,PI/2,2); 24 screw_thread((D03_polomer_zavitu-D03_tolerance_zavitu)*2,4,55,D03_vyska_zavitu,PI/2,2);
23 25
24 translate ([0,0,-0.01]) 26 translate ([0,0,-0.01])
25 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- 2*D03_material_za_zavitem ,$fn=100); 27 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem ,$fn=100);
26 } 28 }
27   29  
28   30  
29   31  
30 //screen 32 //screen
31   33  
32 difference () { 34 difference () {
33 cylinder (h=D03_vyska_stitu,r1=D03_polomer_stitu-D03_tolerance_zavitu ,r2=D03_polomer_zavitu,$fn=100); 35 cylinder (h=D03_vyska_stitu,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu,$fn=100);
34 translate ([0,0,-0.01/2]) 36 translate ([0,0,-0.01/2])
35 cylinder (h=D03_vyska_stitu+0.01,r1=D03_polomer_stitu-D03_tloustka_materialu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- 2*D03_material_za_zavitem,$fn=100); 37 cylinder (h=D03_vyska_stitu+0.01,r1=D03_polomer_stitu-D03_tloustka_materialu ,r2=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem,$fn=100);
36 38
37 39
38 } 40 }
39   41  
40   42  
41 //inner ring 43 //inner ring
42   44  
43   45  
44 difference () { 46 difference () {
45 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem,$fn=100); 47 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem/2,$fn=100);
46 translate([0,0,-1]) 48 translate([0,0,-1])
47 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2); 49 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2);
48 } 50 }
49   51  
50   52  
51 // center ribs 53 // center ribs
52 for (i = [0 : (D03_pocet_vyztuh-1)]) { 54 for (i = [0 : (D03_pocet_vyztuh-1)]) {
53 rotate ([90,0,angle_sep* i]) 55 rotate ([90,0,angle_sep* i])
54 translate ([0,0,-D03_tloustka_materialu/2]) 56 translate ([0,0,-D03_tloustka_materialu/2])
55 linear_extrude (height = D03_tloustka_materialu, convexity = 10) 57 linear_extrude (height = D03_tloustka_materialu, convexity = 10)
56 polygon(points=[[D03_polomer_zavitu, D03_vyska_zavitu],[D03_polomer_zavitu, 0],[D03_polomer_stitu - D03_tloustka_materialu,0],[D03_polomer_zavitu,D03_vyska_stitu]]); 58 polygon(points=[[D03_polomer_zavitu, D03_vyska_zavitu],[D03_polomer_zavitu, 0],[D03_polomer_stitu - D03_tloustka_materialu,0],[D03_polomer_zavitu,D03_vyska_stitu]]);
57   59  
58 } 60 }
59 } 61 }