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