+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 LanyardEntryOuterProfile(){
+ circleat([ly_re + ly_r, 0], ly_re);
+}
+
+module LanyardEntry(){
+ q_z = ly_q_z;
+ oec_y = ly_oec_y;
+
+ 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();
+
+ translate([0, ly_r*2, 0])
+ rotate([90,0,0])
+ linear_extrude(height = ly_r*4){
+ difference(){
+ rectfromto([d_x, q_z], [ly_r, 0]);
+ circleat([d_x, q_z], ly_rc);
+ }
+ }
+
+ translate([0,0,q_z]){
+ for (my=[0,1])
+ mirror([0,my,0]){
+ translate([0, oec_y, 0]){
+ difference(){
+ translate(ly_re * [-1,0,-2])
+ cube(ly_re * [2,1,2]);
+ rotate_extrude(convexity=10)
+ LanyardEntryOuterProfile();
+ }
+ }
+ }
+ difference(){
+ translate([-ly_re, -(oec_y + 0.01), -2*ly_re])
+ cube([ly_re*2, 2*(oec_y + 0.01), 2*ly_re]);
+ for (mx=[0,1])
+ mirror([mx,0,0])
+ rotate([90,0,0])
+ translate([0,0,-10])
+ linear_extrude(height=20)
+ LanyardEntryOuterProfile();
+ }
+ }
+}
+
+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();
+ }
+}
+