makita-drill-handle-blivet.scad

   1 // -*- C -*-
   2
   3 include <utils.scad>
   4
   5 hex_across = 12.70 - 0.3;
   6 screw_dia = 8.0 + 0.0;
   7
   8 min_th = 0.425;
   9 extra_th = 0.5;
  10
  11 // calculated
  12
  13 total_th = min_th + extra_th;
  14 hex_rad = hex_across / 2 / cos(30);
  15
  16 module Plan(){
  17   difference(){
  18     circle(r = hex_rad, $fn = 6);
  19     circle(r = screw_dia/2);
  20   }
  21 }
  22
  23 module Elevation(){
  24   square([ hex_across*2, min_th*2 ], center=true);
  25   hull(){
  26     rectfromto([ 0, -1],
  27                [ 0.1, min_th]);
  28     translate([ hex_rad, 0 ])
  29       rectfromto([ 0, -1 ],
  30                  [ 1, total_th]);
  31   }
  32 }
  33
  34 module Blivet(){
  35   intersection(){
  36     linextr(0, total_th + 1)
  37       Plan();
  38     linextr_y_xz(-hex_across, hex_across)
  39       Elevation();
  40   }
  41 }
  42
  43 Blivet();