+module LanyardCurveChannelProfile(){
+ translate([0, -ly_r])
+ LanyardLanyardProfile();
+}
+
+module LanyardEntryChannelProfile(){
+ LanyardLanyardProfile(true);
+}
+
+module LanyardMainChannelProfile(){
+ LanyardCurveChannelProfile();
+ difference(){
+ square(center=true, ly_r * [6, 2]);
+ for (xs=[-1,+1])
+ translate(ly_r * [3 * xs, -1])
+ circle(r = ly_r);
+ }
+}
+
+module LanyardEntry(){
+ q_z = -(ly_rc + ly_r);
+ d_x = -ly_rc;
+
+ translate([d_x, 0, q_z]) {
+ intersection(){
+ rotate([90,0,0])
+ rotate_extrude(convexity=10)
+ rotate(90)
+ translate([0, -q_z])
+ LanyardCurveChannelProfile();
+ translate([0,-10,0])
+ cube([20,20,20]);
+ }
+ }
+
+ mirror([0,0,1])
+ translate([0,0,-1])
+ linear_extrude(height=20)
+ rotate(-90)
+ LanyardEntryChannelProfile();
+}
+
+module LanyardCutout(l){
+ rotate([0,-90,0])
+ linear_extrude(height=l)
+ rotate(-90)
+ LanyardMainChannelProfile();
+
+ for (ee=[0,1]){
+ translate(ee * l * [-1,0])
+ mirror([ee,0,0])
+ LanyardEntry();
+ }
+}
+