Rev 4554 Rev 4689
Line 1... Line 1...
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 difference () {
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); 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);
7   7  
8   8  
-   9 cube([180,180,180]);
9   10  
-   11 }
10   12  
11   13  
12   14  
13   15  
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) 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)
15   17  
16 { 18 {
17 angle_sep = 360/D03_pocet_vyztuh; 19 angle_sep = 360/D03_pocet_vyztuh;
18   20  
19 //spodní kruh 21 //spodní kruh - kvůli výkroji
-   22 difference () {
-   23
-   24
-   25 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
-   26 translate ([0,0,-0.005])
-   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
20 difference () { 40 difference () {
21 41
22 42
23 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100); 43 cylinder (h=3*D03_tloustka_materialu,r = D03_polomer_stitu,$fn=100);
24 translate ([0,0,-0.005]) 44 translate ([0,0,-0.005])
25 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100); 45 cylinder (h=3*D03_tloustka_materialu+0.01,r = D03_polomer_stitu-D03_tloustka_materialu,$fn=100);
26 46
-   47
-   48
27 } 49 }
28   50  
29   51  
30 //horni zavit 52 //horni zavit
31 translate ([0,0,D03_vyska_stitu]) 53 translate ([0,0,D03_vyska_stitu])
Line 40... Line 62...
40 translate ([0,0,D03_vyska_zavitu-0.01]) 62 translate ([0,0,D03_vyska_zavitu-0.01])
41 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu ,$fn=100); 63 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu ,$fn=100);
42 64
43 } 65 }
44   66  
-   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])
-   75 cylinder (h=D03_tloustka_materialu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem ,$fn=100);
-   76
-   77 }
-   78  
45   79  
46   80  
47 //screen 81 //screen
48 82
49 translate ([0,0,3*D03_tloustka_materialu]) 83 translate ([0,0,3*D03_tloustka_materialu])
50 difference () { 84 difference () {
51 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu,r1=D03_polomer_stitu ,r2=D03_polomer_zavitu-D03_tolerance_zavitu,$fn=100); 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,$fn=100);
52 translate ([0,0,-0.01/2]) 86 translate ([0,0,-0.01/2-D03_tloustka_materialu])
53 cylinder (h=D03_vyska_stitu-3*D03_tloustka_materialu+0.01,r1=D03_polomer_stitu-D03_tloustka_materialu ,r2=D03_polomer_zavitu- D03_material_za_zavitem-D03_tolerance_zavitu,$fn=100); 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,$fn=100);
-   88
-   89 translate ([0,0,D03_vyska_stitu-D03_vyska_zavitu-3*D03_tloustka_materialu])
-   90 cylinder (h=D03_vyska_zavitu+0.02 ,r= D03_polomer_zavitu -D03_tolerance_zavitu- D03_material_za_zavitem ,$fn=100);
54 91
55 92
56 } 93 }
57   94  
58   95