chiark / gitweb /
earring-stand: TestRAProtr looks good
[reprap-play.git] / earring-stand.scad
1 // -*- C -*-
2
3 eclip_inner_rad = 2.5;
4 eclip_gap_rad = 0.5;
5 eclip_prong_th = 3;
6 eclip_outer_strt = 0.5;
7 eclip_inner_xstrt = 0.5;
8
9 eclip_ult_angle = 44;
10 eclip_base_epsilon = 0.5;
11
12 eclip_each_len = 6;
13 eclip_each_every = 15;
14
15 test_alpha = 10;
16 test_main_th = 1.5;
17 test_eclips = 5;
18 test_base_th = 2.5;
19 test_len = eclip_each_len + eclip_each_every*(test_eclips-1);
20
21 // calculated
22
23 include <utils.scad>
24
25 eclip_inner_strt = eclip_outer_strt + eclip_inner_xstrt;
26
27 r0 = eclip_inner_rad;
28 r1 = r0 + eclip_gap_rad;
29 r2 = r1 + eclip_prong_th;
30 r2e = r1 + eclip_base_epsilon;
31
32 ppxl = -(r0 / sqrt(2)) + (eclip_inner_strt / sqrt(2));
33
34 rgap = eclip_gap_rad;
35
36 eclip_base_offset = r1;
37 eclip_wall_offset = -ppxl;
38
39 $fn=70;
40
41 module EclipLPlanCore(alpha){
42   FArcSegment(0,0, r1,r2,
43               180-eclip_ult_angle, eclip_ult_angle-alpha +1);
44
45   difference(){
46     hull(){
47       intersection(){
48         circle(r2);
49         rotate(-alpha) mirror([1,1]) square([r2e, 50]);
50      }
51       rotate(-alpha) mirror([1,1]) square([r2e, r2]);
52     }
53     circle(r1);
54   }
55 }
56
57 module EclipRPlan(alpha, main_th){
58   intersection(){
59     rotate(alpha)
60       translate([ppxl + main_th + rgap, -r2*2])
61       square([eclip_prong_th, r2*(2 + 1/sqrt(2))]);
62     translate([-r2, -r2e])
63       square([r2*3, eclip_base_epsilon + r2*4]);
64   }
65 }
66
67 module EclipLPlan(alpha){
68   rotate(alpha) EclipLPlanCore(alpha);
69 }
70
71 module EclipPPlan(main_th){
72   intersection(){
73     hull(){
74       circle(r0);
75       rotate(90-eclip_ult_angle) square([r0,r0]);
76     }
77     translate([-(r0+.1), -(r0+.1)])
78       square([(r0+.1) + main_th + ppxl, r2*2]);
79   }
80   translate([ppxl, 0]) square([main_th, r2]);
81 }
82
83 module TestBase(){
84   translate([0,0, eclip_base_offset]){
85     for (i=[0 : 2: test_eclips-1]) {
86       translate([0, i*eclip_each_every])
87         rotate([90,0,0])
88         linear_extrude(height=eclip_each_len)
89         EclipLPlan(test_alpha);
90     }
91     for (j=[1 : 2: test_eclips-2]) {
92       translate([0, j*eclip_each_every])
93         rotate([90,0,0])
94         linear_extrude(height=eclip_each_len)
95         EclipRPlan(test_alpha, test_main_th);
96     }
97   }
98   translate([-r2, -eclip_each_len, -test_base_th])
99     cube([r2*2,
100           test_len,
101           test_base_th]);
102 }
103
104 module TestProtr(){
105   translate([0,0, test_main_th - eclip_wall_offset])
106     rotate([0,90,0])
107     linear_extrude(height=test_len)
108     EclipPPlan(test_main_th);
109 }
110
111 module TestRAProtr(){
112   rotate([-90,0,0]) TestProtr();
113   mirror([1,0,0])
114     translate([-test_len,
115                -r2,
116                -(r2 + test_base_th) + 0.1])
117     cube([test_len,
118           r2*2,
119           test_base_th]);
120 }
121
122 module PlanDemo(){
123   color("red") EclipLPlan(test_alpha);
124   color("blue") rotate(test_alpha) EclipPPlan(test_main_th);
125   color("green") EclipRPlan(test_alpha, test_main_th);
126 }
127
128 //PlanDemo();
129 //TestBase();
130 //TestProtr();
131 TestRAProtr();