Rev Author Line No. Line
4429 jacho 1 $fn=40; // model faces resolution.
2 //include <../configuration.scad>
3  
4 //kryt_rotoru(prumer_rotoru1,sila_materialu,prumer_sroubu,vyska_rotoru1);
5  
6 /*
7 prumer_rotoru1 - urcuje vnitrni prumer krytu
8 sila_materialu - urcuje tloustku materialu krytu
9 prumer
10 vyska_rotoru1 - urcuje vysku, kterou prekryva kryt rotor 1
11  
12 */
13  
14 module kryt_rotoru(prumer_rotoru1,sila_materialu,vyska_rotoru1)
15 {
16  
17 //kopule
18 difference()
19 {
20 sphere(d = prumer_rotoru1+2*sila_materialu, $fn=100);
21  
22 sphere(d = prumer_rotoru1+0.1, $fn=100);
23  
24 translate([0,0,-(prumer_rotoru1+2*sila_materialu)/2])
25 cube(size = [prumer_rotoru1+2*sila_materialu, prumer_rotoru1+2*sila_materialu, prumer_rotoru1+2*sila_materialu], center = true);
26  
27 }
28  
29  
30  
31 //válcová část krytu
32 difference()
33 {
34 //zakladni valec
35 translate([0,0,-vyska_rotoru1/2])
36 cylinder (h = vyska_rotoru1, r=(prumer_rotoru1+2*sila_materialu)/2, center = true, $fn=100);
37  
38 //válec pro vykrojení
39 translate([0,0,-vyska_rotoru1/2])
40 cylinder (h = vyska_rotoru1+0.05, r=(prumer_rotoru1+0.1)/2, center = true, $fn=100);
41  
42 }
43 }
44  
45  
46