chiark / gitweb /
sewing-table: Abolish InterlockNegative in favour of a parameter (nfc)
[reprap-play.git] / sewing-table.scad.m4
1 // -*- C -*-
2
3 include <funcs.scad>
4 include <commitid.scad>
5
6 ply_th = 18;
7 ply_hole_dia = 15;
8 ply_edge_min = 10;
9
10 tile_th = 3;
11 post_dia = 8;
12
13 post_shorter = 1;
14
15 screw_dia = 2.2;
16 screw_big_dia = 3.6;
17 screw_big_len = 4.0;
18
19 round_edge_rad = 2.0;
20
21 interlock_dia = 10;
22
23 // calculated
24
25 ply_edge_hole_dist = ply_edge_min + ply_hole_dia/2;
26
27 echo(str("HOLES IN PLY ctr dist from PLY edge = ", ply_edge_hole_dist));
28
29 hole_slop = (ply_hole_dia - post_dia)/2;
30 tile_hard_edge_hole_dist = ply_edge_hole_dist + hole_slop;
31
32 echo(str("HOLES IN PLY ctr dist from TILE HARD edge = ",
33          tile_hard_edge_hole_dist));
34
35 echo(str("HOLES IN PLY ctr dist from TILE ROUND edge = ",
36          tile_hard_edge_hole_dist + round_edge_rad));
37
38 thehd = [ tile_hard_edge_hole_dist, tile_hard_edge_hole_dist ];
39 thehd_tr = thehd;
40 thehd_tl = [ -thehd_tr[0], thehd_tr[1] ];
41 thehd_bl = -thehd_tr;
42 thehd_br = -thehd_tl;
43
44 interlock_rad = interlock_dia/2;
45 interlock_negative_rad = interlock_rad + 0.125;
46
47 module Post(){
48   mirror([0,0,1]) {
49     difference(){
50       cylinder(r= post_dia/2, h= tile_th + ply_th - post_shorter);
51       translate([0,0, tile_th]) {
52         cylinder(r= screw_big_dia/2, h= screw_big_len);
53         cylinder(r= screw_dia/2, h= ply_th, $fn=20);
54       }
55     }
56   }
57 }
58
59 module Posts(posts) {
60   for (p= posts) {
61     translate(concat(p, [0]))
62       Post();
63   }
64 }
65
66 module TileBase(botleft, topright){
67   size = topright - botleft;
68   botleft_post = botleft + thehd_tr;
69   topright_post = topright - thehd_bl;
70   echo(botleft_post, topright_post);
71   difference(){
72     mirror([0,0,1])
73       translate(concat(botleft, [0]))
74       cube(concat(size, [tile_th]));
75     translate( concat(botleft_post, [-tile_th])
76                + 0.5 * [ post_dia, post_dia, 0 ] )
77       Commitid_BestCount_M( topright_post-botleft_post
78                             + [0, thehd[1] ]
79                             + [-post_dia,-post_dia] );
80   }
81 }
82
83 m4_dnl  INREFFRAME(left_cnr, right_cnr, morevars) { body; }
84 m4_define(`INREFFRAME',`
85   length_vec = ($2) - ($1);
86   length = dist2d([0,0], length_vec);
87   length_uvec = length_vec / length;
88   ortho_uvec = [ -length_uvec[1], length_uvec[0] ];
89   m = [ [ length_uvec[0],  ortho_uvec[0], 0, ($1)[0], ],
90         [ length_uvec[1],  ortho_uvec[1], 0, ($1)[1], ],
91         [ 0,              0,              1,            0, ],
92         [ 0,              0,              0,            1, ] ];
93   $3
94   multmatrix(m)
95 ')
96
97 m4_dnl  INREFFRAME(left_cnr, right_cnr, morevars)
98 m4_dnl    INREFFRAME_EDGE { body; }
99 m4_define(`INREFFRAME_EDGE',`
100   translate([0,0, -round_edge_rad])
101 ')
102
103 module RoundEdge(left_cnr, right_cnr) {
104   INREFFRAME(left_cnr, right_cnr)
105     INREFFRAME_EDGE {
106     difference(){
107       rotate([0,90,0])
108         cylinder(r= round_edge_rad, h= length, $fn=50);
109       translate([-1, 0, -20])
110         cube([length+2, 20, 20]);
111     }
112   }
113 }
114
115 module RoundLeftCorner(this_cnr, right_cnr) {
116   INREFFRAME(this_cnr, right_cnr) INREFFRAME_EDGE {
117     difference(){
118       sphere(r= round_edge_rad, $fn=60);
119       translate([0,0, -20])
120         cube([20,20,20]);
121     }
122   }
123 }
124
125 module InterlockPlan(r, ymir) {
126   dx = sqrt(3) * r;
127   $fn= 80;
128   translate([thehd[0], 0]){
129     mirror([0,ymir,0]){
130       circle(r=r);
131       difference(){
132         translate([-dx, -0.1])
133           square([ dx*2, r/2 + 0.1 ]);
134         for (xi = [-1, 1]) {
135           translate([ xi*dx, r ])
136             circle(r=r);
137         }
138       }
139     }
140   }
141 }
142
143 module InterlockCore(r, plusth, ymir) {
144   translate([0, 0, plusth]){
145     mirror([0,0,1]){
146       linear_extrude(height=tile_th+plusth*2, convexity=10){
147         InterlockPlan(r, ymir);
148       }
149     }
150   }
151 }
152
153 module Interlock(this_cnr, right_cnr, negative=0) {
154   INREFFRAME(this_cnr, right_cnr)
155     InterlockCore(negative ? interlock_negative_rad : interlock_rad,
156                   negative ? 1 : 0,
157                   negative ? 0 : 1);
158 }
159
160 function TestPiece_holes2corners(holes) =
161   [ holes[0] + thehd_bl,
162     holes[1] + thehd_br,
163     holes[1] + thehd_tr,
164     holes[0] + thehd_tl ];
165
166 module TestPiece1(){ ////toplevel
167   holes = [ [-100, 0],
168             [   0, 0]
169             ];
170   corners = TestPiece_holes2corners(holes);
171   difference(){
172     TileBase(corners[0], corners[2]);
173     Interlock(corners[1], corners[2], 1);
174   }
175   Posts(holes);
176   RoundEdge(corners[0], corners[1]);
177   RoundEdge(corners[3], corners[0]);
178   RoundLeftCorner(corners[0], corners[1]);
179 }
180
181 module TestPiece2(){ ////toplevel
182   holes = [ [   0, 0],
183             [  50, 0]
184             ];
185   corners = TestPiece_holes2corners(holes);
186   TileBase(corners[0], corners[2]);
187   Posts(holes);
188   RoundEdge(corners[0], corners[1]);
189   Interlock(corners[3], corners[0]);
190 }
191
192 module Demo(){ ////toplevel
193   translate([ -thehd[0], 0 ])
194     color("blue")
195     TestPiece1();
196   translate([ +thehd[0], 0 ])
197     TestPiece2();
198 }
199   
200 //TestPiece1();
201 //TestPiece2();
202 //Demo();