catears-v2/catears.scad

33 lines
No EOL
870 B
OpenSCAD

use <bezier_extrusion.scad>;
use <headband.scad>;
thickness = 2.7;
height = 5.5;
module catear(){
ctrl_ear1 = [[49,96],[58,112],[63,137],[61.5,141]];
ctrl_ear2 = [[61.5,141],[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();