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 546480100c55b67497d5032762d73fbef934320e..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;