parkzone_extra300_cowl.scad

include <ub.scad>

$fn=100;
thickness = 0.5;

module shape(h, w, l, n32=1.5, n31=3) {
  outer_radii = [w/2,h/2,l];
  inner_radii = [w/2-thickness,h/2-thickness,l] - [thickness,thickness,thickness];
  
  difference() {
    Halb() Superellipse(n=2.5, n2=3.5, r=outer_radii, n3=2.5, n32=n32, n31=n31);
    Superellipse(n=2.5, n2=3.5, r=inner_radii, n3=2.5, n32=n32, n31=n31);
    Tz(l-10) cylinder(50,d=200);
  }
}

module cowl(h, w, l) {
  y = -20;
  
  Halb(x=1) T(0,y) M(skewzy=0.05) shape(h, w, l);
  Halb(1,x=1) T(0,y) M(skewzy=-0.084) shape(h, w, l, n32=3.2, n31=3.9);
}

cowl(106+thickness, 123+thickness, 105);