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