Rev 4548 Rev 4694
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  
-   7  
-   8 difference () {
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); 9 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   10  
8   11  
-   12 cube([180,180,180]);
-   13  
-   14 }
9   15  
10   16  
11   17  
12   18  
13   19  
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) 20 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   21  
16 { 22 {
17 angle_sep = 360/D03_pocet_vyztuh; 23 angle_sep = 360/D03_pocet_vyztuh;
18   24  
19 //spodní kruh 25 //spodní kruh
20 difference () { 26 difference () {
21 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100); 27 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
22 translate ([0,0,-0.005]) 28 translate ([0,0,-0.005])
23 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100); 29 cylinder (h=2*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
24 30
-   31 translate ([0,0,3*D03_tloustka_materialu])
-   32 translate ([0,0,-D03_tloustka_materialu-0.01/2])
-   33 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu-0.4,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu,$fn=100);
-   34
-   35
25 } 36 }
-   37
-   38 //spodní kruh - kvůli doplnění výkroje
-   39 difference () {
-   40
-   41
-   42 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
-   43 translate ([0,0,-0.005])
-   44 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
-   45
-   46
-   47
-   48 }
-   49
26   50  
27   51  
28   52  
29 53
30   54  
31   55  
32   56  
33 //screen - velky kuzel 57 //screen - velky kuzel
34 58
35 translate ([0,0,3*D03_tloustka_materialu]) 59 translate ([0,0,3*D03_tloustka_materialu])
36 difference () { 60 difference () {
37 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu,$fn=100); 61 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu,$fn=100);
38 translate ([0,0,-0.01/2]) 62 translate ([0,0,-D03_tloustka_materialu-0.01/2])
39 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu-0.4,r1=D03_polomer_stitu-D03_tloustka_materialu ,r2=D03_polomer_zavitu -D03_tloustka_materialu,$fn=100); 63 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu-0.4,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu,$fn=100);
40 64
41 65
42 } 66 }
43 67
44 //horni kuzel 68 //horni kuzel
45 69
46 translate ([0,0,D03_vyska_stitu]) 70 translate ([0,0,D03_vyska_stitu])
47 71
48 cylinder (h=5,r1=D03_polomer_zavitu ,r2=1,$fn=100); 72 cylinder (h=5,r1=D03_polomer_zavitu ,r2=1,$fn=100);
49 73
50   74  
51   75  
52 //inner ring 76 //inner ring
53   77  
54   78  
55 difference () { 79 difference () {
56 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem/2,$fn=100); 80 cylinder (h=D03_vyska_zavitu,r = D03_polomer_zavitu + D03_material_za_zavitem/2,$fn=100);
57 translate([0,0,-1]) 81 translate([0,0,-1])
58 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2); 82 screw_thread(D03_polomer_zavitu*2,4,55,D03_vyska_zavitu+2,PI/2,2);
59 } 83 }
60   84  
61   85  
62 // center ribs 86 // center ribs
63 for (i = [0 : (D03_pocet_vyztuh-1)]) { 87 for (i = [0 : (D03_pocet_vyztuh-1)]) {
64 rotate ([90,0,angle_sep* i]) 88 rotate ([90,0,angle_sep* i])
65 translate ([0,0,-D03_tloustka_materialu/2]) 89 translate ([0,0,-D03_tloustka_materialu/2])
66 linear_extrude (height = D03_tloustka_materialu, convexity = 10) 90 linear_extrude (height = D03_tloustka_materialu, convexity = 10)
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]]); 91 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]]);
68   92  
69 } 93 }
70 } 94 }