shelf-label-holder.scad

   1 // -*- C -*-
   2
   3 prong_nomdepth = 15;
   4 prong_curverad = 30;
   5 prong_thick = 1.0;
   6 prong_maxdepth = 18;
   7
   8 nom_shelf = 14.54;
   9
  10 interference = 0.5;
  11
  12 // calculated
  13
  14 interference_angle = atan2(interference, prong_nomdepth);
  15
  16 module ProngElevationUnrotated(){
  17   intersection(){
  18     union(){
  19       translate([ prong_nomdepth, prong_curverad ])
  20         circle( prong_curverad , $fa=0.5 );
  21       translate([ -10, 0 ])
  22         square([ prong_nomdepth + 10, 10 ]);
  23     }
  24     translate([-5, -5])
  25       square([ prong_maxdepth + 5, prong_thick + 5]);
  26   }
  27 }
  28
  29 module Elevation(){
  30   rotate(-interference_angle)
  31     ProngElevationUnrotated();
  32   translate([0, -nom_shelf])
  33     mirror([0,1])
  34     rotate(-interference_angle)
  35     ProngElevationUnrotated();
  36 }
  37
  38 //ProngElevationUnrotated();
  39 Elevation();