////////////////////////////////////////////////////////////////
// Delta simple
// 20191203
////////////////////////////////////////////////////////////////
$fn=30;

// Main parameters
le_diex=0.038;
le_thk=0.0015;
le_length=6;
le_s1=0.06;

nose=95;

ke_diex=0.038;
ke_thk=0.0015;
ke_length=4.5;
ke_pc=2.5;
ke_s1=0.04;

cr_diex=0.038;
cr_thk=0.0015;
cr_s1=0.05;

// Derivated
le_lc=ke_pc/cos(nose/2);
cr_sc=le_lc*sin(nose/2);

// Keel

rotate ([0,90,0])
translate ([0,0,ke_length/2+ke_s1])
difference () {
cylinder (h=ke_length-ke_s1, d1=ke_diex, d2=ke_diex, center=true);
cylinder (h=ke_length*1.5-ke_s1, d1=(ke_diex-ke_thk*2), d2=ke_diex-ke_thk*2, center=true);
}

// Leading edge

rotate ([0,0,nose/2])
rotate ([0,90,0])
translate ([0,0,le_length/2+le_s1])
cylinder (h=le_length-le_s1, d1=le_diex, d2=le_diex, center=true);

rotate ([0,0,-nose/2])
rotate ([0,90,0])
translate ([0,0,le_length/2+le_s1])
cylinder (h=le_length-le_s1, d1=le_diex, d2=le_diex, center=true);

// Crossbar
translate ([ke_pc,0,-le_diex])
rotate ([0,0,90])
rotate ([0,90,0])
cylinder (h=(cr_sc+cr_s1)*2, d1=cr_diex, d2=cr_diex, center=true);