poster-tube-lid-parametric: last bugfixes

diff --git a/poster-tube-lid-parametric.pl b/poster-tube-lid-parametric.pl
index 793f22d7c003fe81a5fd3d0bb1ea2ef028c9a176..2c1a2890f37a6b33d733e73434439592461cc52d 100755 (executable)
--- a/poster-tube-lid-parametric.pl
+++ b/poster-tube-lid-parametric.pl
@@ -83,6 +83,7 @@ sub point ($$$$) {
                       0,
                       +$sine_height
                     );
+       $i_thickscale = cos($angle);
     } else {
        die "$ip ?";
     }
@@ -118,6 +119,7 @@ sub point ($$$$) {
     } elsif ($jp =~ m/^lin0$/) {
        $j_x = $j_rs_x + $i_thick * (+0.5 - $jt);
        $j_y = $j_s_y;
+       $i_offset->[2] = 0;
     } else {
        die "$jp ?";
     }