Rev Author Line No. Line
4442 jacho 1 $fn=40; // model faces resolution.
2 include <../configuration.scad>
3 include <polyScrewThread_r1.scad>
4  
5  
4493 jacho 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);
4442 jacho 7  
8  
9  
10  
11  
12  
13  
4493 jacho 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)
4442 jacho 15  
16 {
17 angle_sep = 360/D03_pocet_vyztuh;
18  
4493 jacho 19  
4442 jacho 20  
21  
22  
23 //screen
24  
25 difference () {
4493 jacho 26 cylinder (h=D03_vyska_stitu,r1=D03_polomer_stitu-D03_tolerance_zavitu ,r2=1,$fn=100);
4442 jacho 27 translate ([0,0,-0.01/2])
4493 jacho 28 cylinder (h=D03_vyska_stitu+0.01,r1=D03_polomer_stitu-D03_tloustka_materialu ,r2=0,$fn=100);
4442 jacho 29  
4493 jacho 30  
4442 jacho 31 }
32  
33  
34 //inner ring
35  
36  
37 difference () {
38 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem,$fn=100);
39 translate([0,0,-1])
40 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2);
41 }
42  
43  
44 // center ribs
45 for (i = [0 : (D03_pocet_vyztuh-1)]) {
46 rotate ([90,0,angle_sep* i])
47 translate ([0,0,-D03_tloustka_materialu/2])
48 linear_extrude (height = D03_tloustka_materialu, convexity = 10)
4493 jacho 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]]);
4442 jacho 50  
51 }
4493 jacho 52 }