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 () {
4888 jacho 23 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
4554 jacho 24  
4498 jacho 25 translate ([0,0,-0.005])
4689 jacho 26 cylinder (h=2*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
27  
28 translate ([0,0,3*D03_tloustka_materialu])
29 translate ([0,0,-0.01/2-D03_tloustka_materialu])
30 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);
31  
4888 jacho 32 }
4689 jacho 33  
34 //spodní kruh - kvůli doplnění výkroje
35 difference () {
4888 jacho 36 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
4689 jacho 37  
38 translate ([0,0,-0.005])
4498 jacho 39 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
4888 jacho 40  
4689 jacho 41 }
4495 jacho 42  
43 //horni zavit
4888 jacho 44 translate ([0,0,D03_vyska_stitu-0.01])
45 // screen upper rim
46 difference () {
47 screw_thread((D03_polomer_zavitu-D03_tolerance_zavitu)*2,4,55,D03_vyska_zavitu+5,PI/2,2);
4442 jacho 48  
49 translate ([0,0,-0.01])
4712 jacho 50 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);
4888 jacho 51  
4542 jacho 52 translate ([0,0,D03_vyska_zavitu-0.01])
53 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu ,$fn=100);
54  
4442 jacho 55 }
56  
4495 jacho 57 //screen
4498 jacho 58  
4888 jacho 59 translate ([0,0,3*D03_tloustka_materialu])
60 difference () {
61 union () {
4712 jacho 62 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 63  
4888 jacho 64 //materiál pod horním závitem
65 translate ([0,0,D03_vyska_stitu-2*D03_tloustka_materialu-3*D03_tloustka_materialu])
66 translate ([0,0,0])
67 cylinder (h=2*D03_tloustka_materialu ,r=D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem+D03_tloustka_materialu ,$fn=100);
68  
69 }
70  
71 //materiál pod horním závitem - odečet
72 translate ([0,0,D03_vyska_stitu-2*D03_tloustka_materialu-3*D03_tloustka_materialu])
73 translate ([0,0,-0.01])
74 cylinder (h=2*D03_tloustka_materialu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem-D03_material_za_zavitem_pridani ,$fn=100);
75  
76 translate ([0,0,-0.01/2-D03_tloustka_materialu])
77 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);
78  
79 translate ([0,0,D03_vyska_stitu-D03_vyska_zavitu-3*D03_tloustka_materialu])
4712 jacho 80 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);
4888 jacho 81  
82 }
4442 jacho 83  
84 //inner ring
4554 jacho 85 //spodní závit
4888 jacho 86 difference () {
87 union(){
4495 jacho 88 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem/2,$fn=100);
4888 jacho 89  
90 //výztuhy
91 // center ribs
4442 jacho 92 for (i = [0 : (D03_pocet_vyztuh-1)]) {
93 rotate ([90,0,angle_sep* i])
94 translate ([0,0,-D03_tloustka_materialu/2])
95 linear_extrude (height = D03_tloustka_materialu, convexity = 10)
4712 jacho 96 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 97  
98 }
4888 jacho 99 }
100 translate([0,0,-1])
101 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2);
4554 jacho 102 }
4493 jacho 103 }