fairphone-case: wip lanyard, proper profiles

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/fairphone-case.scad b/fairphone-case.scad
index bc0cef0062460d5c596fed1c65c6c4d6709b1c17..06edd69e2d5bccc6de1921e6d63e4b158b66c23c 100644 (file)
--- a/fairphone-case.scad
+++ b/fairphone-case.scad
@@ -533,9 +533,18 @@ module LanyardLanyardProfile(entry=false){
   }
 }
 
-module LanyardMainChannelProfile(){
+module LanyardCurveChannelProfile(){
   translate([0, -ly_r])
     LanyardLanyardProfile();
+}  
+
+module LanyardEntryChannelProfile(){
+  translate([0, -ly_r])
+    LanyardLanyardProfile(true);
+}  
+
+module LanyardMainChannelProfile(){
+  LanyardCurveChannelProfile();
   difference(){
     square(center=true, ly_r * [6, 2]);
     for (xs=[-1,+1])
@@ -1574,6 +1583,8 @@ module DemoProfiles(){ ////toplevel
 
   translate([0,20]) {
     LanyardMainChannelProfile();
+    translate([0,0,1]) color("purple") LanyardCurveChannelProfile();
+    translate([0,0,-1]) color("red") LanyardEntryChannelProfile();
   }
 
   translate([20,0]) {