// -*- C -*-
include <funcs.scad>
-
-module FArcSegment_mask(beta) {
- for (i=[0 : 0.75 : 3]) {
- rotate(i*beta/4)
- polygon([[0, 0],
- [1, 0],
- [cos(beta/4), sin(beta/4)]]);
- }
-}
-
-module FArcSegment(xc,yc,inrad,outrad,alpha,delta) {
- translate([xc,yc]) {
- intersection() {
- difference() {
- circle(r=outrad, $fn=70);
- circle(r=inrad, $fn=70);
- }
- rotate(alpha) scale(outrad*2) {
- FArcSegment_mask(delta);
- }
- }
- }
-}
+include <utils.scad>
tubeslop = 0.5;
tubeheight = 30 + tubeslop;
tbend_raw = tangents_intersect_beta(tjoin0c, tjoinrad,
tjoin1c, -hookoutrad);
-echo(tbend_raw);
tbend0 = angle_map_range(tbend_raw, 0);
tbend1 = angle_map_range(tbend_raw + 180, -180);
}
}
-module THookL(){ ///toplevel
+module THookR(){ ///toplevel
intersection(){
linear_extrude(height=topwidth) TPlan();
SElevationPlaced();
mirror([1,0,0]) SHookL();
}
-module THookR(){ ////toplevel
- mirror([1,0,0]) THookL();
+module THookL(){ ////toplevel
+ mirror([1,0,0]) THookR();
}
module Demo(){ ////toplevel