use <base/bezier_extrusion.scad>;
use <base/headband.scad>;

thickness = 2.7;
height = 5.5;
epsilon = 0.001; //needs to be small but greater 0 so that the model doesn't break

module catear(){

  ctrl_ear1 = [[49,96],[58,112],[63,137],[61.5,141]];
  ctrl_ear2 = [[61.5+1.5*epsilon,141-4*epsilon],[60,145],[42.5,140.5],[18,123]];

  shape_band = [[thickness/2,height/2-0.5],
                [thickness/2,-height/2+0.5],
                [thickness/2-0.5,-height/2],
                [-thickness/2+0.5,-height/2],
                [-thickness/2,-height/2+0.5],
                [-thickness/2,height/2-0.5],
                [-thickness/2+0.5,height/2],
                [thickness/2-0.5,height/2]];
    
  bezier_extrude(ctrl = ctrl_ear1, shape = shape_band, sections = 32);
  bezier_extrude(ctrl = ctrl_ear2, shape = shape_band, sections = 32);
}

module catears(){
  union(){
    headband(thickness = thickness, height = height);
    catear();
    mirror([1,0,0]) catear();
  }
}

catears();