distort-stl: debugging, fix a perl warning

[reprap-play.git] / poster-tube-lid.scad

diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad
index 2e8209f0430e9e3ca591dce15c9d05e35c96275f..2e11f7949079ddf22289ab82dfc780bf4f0db240 100644 (file)
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad
@@ -145,7 +145,10 @@ catch_cr = catch_knob_dia/2 + catch_stem_beside_gap;
 catch_strap_width = sm_main_width;
 catch_strap_thick = sm_main_thick;
 catch_stem_end_h = catch_stem_h;
-catch_pin_width = rivet_entry_width - catch_pin_gap;
+catch_pin_width = (rivet_entry_width * sm_inner_rad / bayo_nom_rad)
+                  - catch_pin_gap;
+
+echo("R ", sm_inner_rad, bayo_real_rad, bayo_nom_rad);
 
 cppy6 = -catch_strap_width/2;
 cppxC = 0.34 * sm_inner_rad * TAU;
@@ -611,6 +614,35 @@ module CatchDemo(){ /////toplevel
     Cover();
 }
 
+module CatchDemoS(){ /////toplevel
+  color("blue") translate([0,0,
+            -catch_strap_width
+            -cpp0[1]
+            ])
+    CatchAssembly();
+  intersection(){
+    translate([0,0,+side_height
+              ])
+      Cover();
+    mirror([0,1,0]) translate([-250,33,0]) cube([500,500,500]);
+  }
+  color("black")
+    translate([0,-33,0])
+    cube([6.15, 2,2], center=true);
+}
+
+module CatchPinProfileDemo(){ /////toplevel
+  echo("G ",
+       cpp2[0] - cpp1[0],
+       bayo_n[0] - bayo_e[0]);
+  color("blue") translate([-cpp2[0],
+                          -cpp2[1],
+                          +1,
+            ])
+    CatchCoreProfile();
+  polygon(bayo_polygon, convexity=10);
+}
+
 //ProfilesDemo();
 //BayonetCutout();
 //MainProfile();