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   difference(){
  31     union(){
  32       rotate(-interference_angle)
  33         ProngElevationUnrotated();
  34       translate([0, -nom_shelf])
  35         mirror([0,1])
  36         rotate(-interference_angle)
  37         ProngElevationUnrotated();
  38       translate([-10, -nom_shelf - prong_thick/2])
  39         square([10, nom_shelf + prong_thick]);
  40     }
  41     mirror([1,0])
  42       translate([ front_thick, -100 ])
  43       square([ 50, 200 ]);
  44   }
  45 }
  46
  47 //ProngElevationUnrotated();
  48 Elevation();