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