//D Dur a Pent míra
//----------------------------------
Do=15.88; //vnejsi prumer trubky
lao=0.5; //ladeni prumeru trubky
lav=-7; //ladení snižení ořezu držáku zvrchu

zkde=170; //zakladna delka
zkvy=22; //zakladna vyska
zksi=22; //zakladna sirka
zktl=3; //tloustka zakladny
zkme=3; //vykusovy kvadr
zkpo=12; //sirka jedne z podper
zkdn=3; //dno vymerovace tloustka



//-------------------------------------
Xx=5; //velikost pisma
Hx=2; //hloubka písma
//Texty
module textus(abcd) //texty
color("green")
     {    linear_extrude(height = Hx, twist = 0, scale = 1, center = true, slices = 10)
           text(abcd, size=Xx);
     }
//rotate([0,0,Ax]) translate([Do/2,0,Si/2-Xx/2+Lx]) rotate([90,0,90]) translate([Px,0,0]) textus("B");




//----------------------------------
//zakladna
module zaklad()
color("green")
difference()
{
//zakladní kvádr
translate([0,0,0]) cube([zkde,zksi,zkvy]);

//vrt do kvádru pro trubku
 translate([zkdn,Do/2+zktl,Do/2+zktl]) rotate([0,90,0]) cylinder(h=zkde, d=Do+lao, $fn=180);

//zarez z vrchu pro vytvorení klestiny pro drzeni trubky
translate([0,Do/2+zktl-zkme/2,Do/2+zktl]) cube([zkde,zkme,zkvy]);
translate([0,Do/2+zktl,Do/2+zktl-lav]) rotate([45,0,0]) cube([zkde,zkvy,zkvy]);
    
//dilci orezy z boku a vrchu zakladního kvádru tvorba podper
translate([zkpo,zktl,zktl]) cube([(zkde-zkpo*4)/3,zksi,zkvy]);
translate([zkpo*2+(zkde-zkpo*4)/3,zktl,zktl]) cube([(zkde-zkpo*4)/3,zksi,zkvy]);
translate([zkpo*3+(zkde-zkpo*4)/1.5,zktl,zktl]) cube([(zkde-zkpo*4)/3,zksi,zkvy]);
   
}
//zamerovac bez direk
//translate([0,0,0]) zaklad();



//----------------------------------
//vývrt dírek sorta1 D dur
Lc=1.5; //pro vsechny diry odkud srazet hranu pro tuzku
Lar=3; //ladeni prumeru srazeni na dvou tlouskach zakladny

D1=5.85; //průměr dírky E
L1=44.08; //vzdálenost dírky od konce píštaly
D2=7.9; //průměr dírky F#
L2=68.25; //vzdálenost dírky od konce píštaly
D3=5.4; //průměr dírky G
L3=83.9; //vzdálenost dírky od konce píštaly
D4=5.9; //průměr dírky A
L4=108.75; //vzdálenost dírky od konce píštaly
D5=6.4; //průměr dírky H
L5=128.3; //vzdálenost dírky od konce píštaly
D6=5.83; //průměr dírky C#
L6=146.95; //vzdálenost dírky od konce píštaly

module vrtprim()
color("tomato")
difference()
{
translate([-zkdn,0,zksi]) rotate([270,0,0]) zaklad();//telo pripravku natocit pro vrt
//DIRA 1
translate([L1,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D1,$fn=60);//vrt díry 1
translate([L1,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D1,d2=D1*Lar);//srazeni hrany vrtu díry 1
translate([L1-D1-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("E");//text
//DIRA 2
translate([L2,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D2,$fn=60);//vrt díry 2
translate([L2,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D2,d2=D2*Lar);//srazeni hrany vrtu díry 2
translate([L2-D2-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("F#");//text
//DIRA 3
translate([L3,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D3,$fn=60);//vrt díry 3
translate([L3,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D3,d2=D3*Lar);//srazeni hrany vrtu díry 3
translate([L3-D3-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("G");//text
//DIRA 4
translate([L4,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D4,$fn=60);//vrt díry 4
translate([L4,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D4,d2=D4*Lar);//srazeni hrany vrtu díry 4
translate([L4-D4-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("A");//text
//DIRA 5
translate([L5,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D5,$fn=60);//vrt díry 5
translate([L5,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D5,d2=D5*Lar);//srazeni hrany vrtu díry 5
translate([L5-D5-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("H");//text
//DIRA 6
translate([L6,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D6,$fn=60);//vrt díry 6
translate([L6,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D6,d2=D6*Lar);//srazeni hrany vrtu díry 6
translate([L6-D6-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("C#");//text
//POPIS
translate([0,19,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("D dur");//text
}
//translate([0,0,0])rotate([0,0,0])vrtprim();


//----------------------------------
//vývrt dírek sorta2 D moll

D21=7.25; //průměr dírky E
L21=38.4; //vzdálenost dírky od konce píštaly
D22=4.3; //průměr dírky F
L22=60.3; //vzdálenost dírky od konce píštaly
D23=6.9; //průměr dírky G
L23=82.0; //vzdálenost dírky od konce píštaly
D24=8.23; //průměr dírky A
L24=102.7; //vzdálenost dírky od konce píštaly
D25=3.9; //průměr dírky Bb
L25=122.3; //vzdálenost dírky od konce píštaly
D26=5.3; //průměr dírky C
L26=142.5; //vzdálenost dírky od konce píštaly

module vrtsekund()
color("orange")
difference()
{
translate([0,0,zksi]) rotate([270,0,0]) vrtprim();//telo pripravku natocit pro vrt
//DIRA 21
translate([L21,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D21,$fn=60);//vrt díry 21
translate([L21,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D21,d2=D21*Lar);//srazeni hrany vrtu díry 21
translate([L21-D21-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("E");//text  
//DIRA 22
translate([L22,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D22,$fn=60);//vrt díry 22
translate([L22,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D22,d2=D22*Lar);//srazeni hrany vrtu díry 22
translate([L22-D22-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("F");//text 
//DIRA 23
translate([L23,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D23,$fn=60);//vrt díry 23
translate([L23,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D23,d2=D23*Lar);//srazeni hrany vrtu díry 23
translate([L23-D23-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("G");//text
//DIRA 24
translate([L24,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D24,$fn=60);//vrt díry 24
translate([L24,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D24,d2=D24*Lar);//srazeni hrany vrtu díry 24
translate([L24-D24-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("A");//text
//DIRA 25
translate([L25,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D25,$fn=60);//vrt díry 25
translate([L25,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D25,d2=D25*Lar);//srazeni hrany vrtu díry 25
translate([L25-D25-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("Bb");//text
//DIRA 26
translate([L26,zktl+Do/2,zktl+Do/2])cylinder(h=Do,d=D26,$fn=60);//vrt díry 26
translate([L26,zktl+Do/2,zktl+Do+Lc])cylinder(h=zktl*2,d1=D26,d2=D26*Lar);//srazeni hrany vrtu díry 26
translate([L26-D26-2,21,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("C");//text
//Popis
translate([0,19,22.5]) rotate([0,0,270]) translate([0,0,0]) textus("D mi");//text
    
}
translate([0,zksi,zksi])rotate([180,0,0])vrtsekund();