chiark / gitweb /
poster-tube-lid: wip parametric integration
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 20 Oct 2017 20:56:57 +0000 (21:56 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 20 Oct 2017 22:39:39 +0000 (23:39 +0100)
poster-tube-lid-parametric.scad.pl
poster-tube-lid.scad

index a2fd3a7..bbe70d9 100755 (executable)
@@ -16,12 +16,14 @@ my $slope_angle = 45 * TAU/360;
 my $jcurverad = 5;
 my $tall = 50;
 
-my $lin_len = 5;
+my $lin_len = 4;
 my $sine_size = 10;
-my $sine_angle = TAU/8;
+my $sine_angle = 1.2 * TAU/8;
 
 my $ballend_xr = $thick/2;
 
+my $skew_slope = 0.7;
+
 my @i_sections = qw(ball0  -6
                    sine0  -10
                    -
@@ -120,6 +122,13 @@ sub point ($$$$) {
        die "$jp ?";
     }
 
+    if ($i_offset->[0] < 0) {
+       my $base = $large_dia/2 + 3.0*($large_dia - $small_dia)/2;
+       $i_offset->[0] *=
+           ($base - $j_x) /
+           ($base - $small_dia/2);
+    }
+
 #    print STDERR "@_ $j_x $j_y $i_offset $i_outward\n";
     return
        $i_offset +
index 23299df..827ca05 100644 (file)
@@ -341,10 +341,12 @@ module Cover(){ ////toplevel
       }
     }
   }
-  translate([-implheadcup_large_dia * .5 - implheadcup_thick,
-            -implheadcup_large_dia * .0,
-            middle_bot_z])
-    ImplHeadCup();
+  for (r=[0,180])
+    rotate([0,0,r])
+      translate([-implheadcup_large_dia * .5 - implheadcup_thick/2,
+                -implheadcup_large_dia * .0,
+                middle_bot_z])
+      ImplHeadCup();
 //  translate(strap_hoop_thick * [-0.5, 0, +1])
 //    translate([handling_dia/2, 0, -side_height])
 //    rotate([0,180,0]) rotate([0,0,90])