Skip to content

Commit

Permalink
Use dmusic #defines for XS:Lisp solfège pitch values
Browse files Browse the repository at this point in the history
  • Loading branch information
@mesheets
mesheets committed Jul 20, 2024
1 parent 5f64a32 commit 6c9ec21
Showing 1 changed file with 153 additions and 153 deletions.
306 changes: 153 additions & 153 deletions xs/lisp/front.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1241,159 +1241,159 @@ void initReader() {
defReaderConstant("Gm8", PITCH_Gm8);
defReaderConstant("A8" , PITCH_A8 );

defReaderConstant("La0" , 0);
defReaderConstant("La#0", 1);
defReaderConstant("Tib0" , 1);
defReaderConstant("Sib0" , 1);
defReaderConstant("Ti0" , 2);
defReaderConstant("Si0" , 2);
defReaderConstant("Do1" , 3);
defReaderConstant("Do#1", 4);
defReaderConstant("Reb1", 4);
defReaderConstant("Re1" , 5);
defReaderConstant("Re#1", 6);
defReaderConstant("Mib1", 6);
defReaderConstant("Mi1" , 7);
defReaderConstant("Fa1" , 8);
defReaderConstant("Fa#1", 9);
defReaderConstant("Sob1", 9);
defReaderConstant("So1" , 10);
defReaderConstant("So#1", 11);
defReaderConstant("Lab1", 11);
defReaderConstant("La1" , 12);
defReaderConstant("La#1", 13);
defReaderConstant("Tib1", 13);
defReaderConstant("Sib1", 13);
defReaderConstant("Ti1" , 14);
defReaderConstant("Si1" , 14);
defReaderConstant("Do2" , 15);
defReaderConstant("Do#2", 16);
defReaderConstant("Reb2", 16);
defReaderConstant("Re2" , 17);
defReaderConstant("Re#2", 18);
defReaderConstant("Mib2", 18);
defReaderConstant("Mi2" , 19);
defReaderConstant("Fa2" , 20);
defReaderConstant("Fa#2", 21);
defReaderConstant("Sob2", 21);
defReaderConstant("So2" , 22);
defReaderConstant("So#2", 23);
defReaderConstant("Lab2", 23);
defReaderConstant("La2" , 24);
defReaderConstant("La#2", 25);
defReaderConstant("Tib2", 25);
defReaderConstant("Sib2", 25);
defReaderConstant("Ti2" , 26);
defReaderConstant("Si2" , 26);
defReaderConstant("Do3" , 27);
defReaderConstant("Do#3", 28);
defReaderConstant("Reb3", 28);
defReaderConstant("Re3" , 29);
defReaderConstant("Re#3", 30);
defReaderConstant("Mib3", 30);
defReaderConstant("Mi3" , 31);
defReaderConstant("Fa3" , 32);
defReaderConstant("Fa#3", 33);
defReaderConstant("Sob3", 33);
defReaderConstant("So3" , 34);
defReaderConstant("So#3", 35);
defReaderConstant("Lab3", 35);
defReaderConstant("La3" , 36);
defReaderConstant("La#3", 37);
defReaderConstant("Tib3", 37);
defReaderConstant("Sib3", 37);
defReaderConstant("Ti3" , 38);
defReaderConstant("Si3" , 38);
defReaderConstant("Do4" , 39);
defReaderConstant("Do#4", 40);
defReaderConstant("Reb4", 40);
defReaderConstant("Re4" , 41);
defReaderConstant("Re#4", 42);
defReaderConstant("Mib4", 42);
defReaderConstant("Mi4" , 43);
defReaderConstant("Fa4" , 44);
defReaderConstant("Fa#4", 45);
defReaderConstant("Sob4", 45);
defReaderConstant("So4" , 46);
defReaderConstant("So#4", 47);
defReaderConstant("Lab4", 47);
defReaderConstant("La4" , 48);
defReaderConstant("La#4", 49);
defReaderConstant("Tib4", 49);
defReaderConstant("Sib4", 49);
defReaderConstant("Ti4" , 50);
defReaderConstant("Si4" , 50);
defReaderConstant("Do5" , 51);
defReaderConstant("Do#5", 52);
defReaderConstant("Reb5", 52);
defReaderConstant("Re5" , 53);
defReaderConstant("Re#5", 54);
defReaderConstant("Mib5", 54);
defReaderConstant("Mi5" , 55);
defReaderConstant("Fa5" , 56);
defReaderConstant("Fa#5", 57);
defReaderConstant("Sob5", 57);
defReaderConstant("So5" , 58);
defReaderConstant("So#5", 59);
defReaderConstant("Lab5", 59);
defReaderConstant("La5" , 60);
defReaderConstant("La#5", 61);
defReaderConstant("Tib5", 61);
defReaderConstant("Sib5", 61);
defReaderConstant("Ti5" , 62);
defReaderConstant("Si5" , 62);
defReaderConstant("Do6" , 63);
defReaderConstant("Do#6", 64);
defReaderConstant("Reb6", 64);
defReaderConstant("Re6" , 65);
defReaderConstant("Re#6", 66);
defReaderConstant("Mib6", 66);
defReaderConstant("Mi6" , 67);
defReaderConstant("Fa6" , 68);
defReaderConstant("Fa#6", 69);
defReaderConstant("Sob6", 69);
defReaderConstant("So6" , 70);
defReaderConstant("So#6", 71);
defReaderConstant("Lab6", 71);
defReaderConstant("La6" , 72);
defReaderConstant("La#6", 73);
defReaderConstant("Tib6", 73);
defReaderConstant("Sib6", 73);
defReaderConstant("Ti6" , 74);
defReaderConstant("Si6" , 74);
defReaderConstant("Do7" , 75);
defReaderConstant("Do#7", 76);
defReaderConstant("Reb7", 76);
defReaderConstant("Re7" , 77);
defReaderConstant("Re#7", 78);
defReaderConstant("Mib7", 78);
defReaderConstant("Mi7" , 79);
defReaderConstant("Fa7" , 80);
defReaderConstant("Fa#7", 81);
defReaderConstant("Sob7", 81);
defReaderConstant("So7" , 82);
defReaderConstant("So#7", 83);
defReaderConstant("Lab7", 83);
defReaderConstant("La7" , 84);
defReaderConstant("La#7", 85);
defReaderConstant("Tib7", 85);
defReaderConstant("Sib7", 85);
defReaderConstant("Ti7" , 86);
defReaderConstant("Si7" , 86);
defReaderConstant("Do8" , 87);
defReaderConstant("Do#8", 88);
defReaderConstant("Reb8", 88);
defReaderConstant("Re8" , 89);
defReaderConstant("Re#8", 90);
defReaderConstant("Mib8", 90);
defReaderConstant("Mi8" , 91);
defReaderConstant("Fa8" , 92);
defReaderConstant("Fa#8", 93);
defReaderConstant("Sob8", 93);
defReaderConstant("So8" , 94);
defReaderConstant("So#8", 95);
defReaderConstant("Lab8", 95);
defReaderConstant("La8" , 96);
defReaderConstant("LA0" , PITCH_A0 );
defReaderConstant("LA#0", PITCH_Am0);
defReaderConstant("TIb0", PITCH_Bb0);
defReaderConstant("SIb0", PITCH_Hb0);
defReaderConstant("TI0" , PITCH_B0 );
defReaderConstant("SI0" , PITCH_H0 );
defReaderConstant("DO1" , PITCH_C1 );
defReaderConstant("DO#1", PITCH_Cm1);
defReaderConstant("REb1", PITCH_Db1);
defReaderConstant("RE1" , PITCH_D1 );
defReaderConstant("RE#1", PITCH_Dm1);
defReaderConstant("MIb1", PITCH_Eb1);
defReaderConstant("MI1" , PITCH_E1 );
defReaderConstant("FA1" , PITCH_F1 );
defReaderConstant("FA#1", PITCH_Fm1);
defReaderConstant("SOb1", PITCH_Gb1);
defReaderConstant("SO1" , PITCH_G1 );
defReaderConstant("SO#1", PITCH_Gm1);
defReaderConstant("LAb1", PITCH_Ab1);
defReaderConstant("LA1" , PITCH_A1 );
defReaderConstant("LA#1", PITCH_Am1);
defReaderConstant("TIb1", PITCH_Bb1);
defReaderConstant("SIb1", PITCH_Hb1);
defReaderConstant("TI1" , PITCH_B1 );
defReaderConstant("SI1" , PITCH_H1 );
defReaderConstant("DO2" , PITCH_C2 );
defReaderConstant("DO#2", PITCH_Cm2);
defReaderConstant("REb2", PITCH_Db2);
defReaderConstant("RE2" , PITCH_D2 );
defReaderConstant("RE#2", PITCH_Dm2);
defReaderConstant("MIb2", PITCH_Eb2);
defReaderConstant("MI2" , PITCH_E2 );
defReaderConstant("FA2" , PITCH_F2 );
defReaderConstant("FA#2", PITCH_Fm2);
defReaderConstant("SOb2", PITCH_Gb2);
defReaderConstant("SO2" , PITCH_G2 );
defReaderConstant("SO#2", PITCH_Gm2);
defReaderConstant("LAb2", PITCH_Ab2);
defReaderConstant("LA2" , PITCH_A2 );
defReaderConstant("LA#2", PITCH_Am2);
defReaderConstant("TIb2", PITCH_Bb2);
defReaderConstant("SIb2", PITCH_Hb2);
defReaderConstant("TI2" , PITCH_B2 );
defReaderConstant("SI2" , PITCH_H2 );
defReaderConstant("DO3" , PITCH_C3 );
defReaderConstant("DO#3", PITCH_Cm3);
defReaderConstant("REb3", PITCH_Dd3);
defReaderConstant("RE3" , PITCH_D3 );
defReaderConstant("RE#3", PITCH_Dm3);
defReaderConstant("MIb3", PITCH_Eb3);
defReaderConstant("MI3" , PITCH_E3 );
defReaderConstant("FA3" , PITCH_F3 );
defReaderConstant("FA#3", PITCH_Fm3);
defReaderConstant("SOb3", PITCH_Gb3);
defReaderConstant("SO3" , PITCH_G3 );
defReaderConstant("SO#3", PITCH_Gm3);
defReaderConstant("LAb3", PITCH_Ab3);
defReaderConstant("LA3" , PITCH_A3 );
defReaderConstant("LA#3", PITCH_Am3);
defReaderConstant("TIb3", PITCH_Bb3);
defReaderConstant("SIb3", PITCH_Hb3);
defReaderConstant("TI3" , PITCH_B3 );
defReaderConstant("SI3" , PITCH_H3 );
defReaderConstant("DO4" , PITCH_C4 );
defReaderConstant("DO#4", PITCH_Cm4);
defReaderConstant("REb4", PITCH_Db4);
defReaderConstant("RE4" , PITCH_D4 );
defReaderConstant("RE#4", PITCH_Dm4);
defReaderConstant("MIb4", PITCH_Eb4);
defReaderConstant("MI4" , PITCH_E4 );
defReaderConstant("FA4" , PITCH_F4 );
defReaderConstant("FA#4", PITCH_Fm4);
defReaderConstant("SOb4", PITCH_Gb4);
defReaderConstant("SO4" , PITCH_G4 );
defReaderConstant("SO#4", PITCH_Gm4);
defReaderConstant("LAb4", PITCH_Ab4);
defReaderConstant("LA4" , PITCH_A4 );
defReaderConstant("LA#4", PITCH_Am4);
defReaderConstant("TIb4", PITCH_Bb4);
defReaderConstant("SIb4", PITCH_Hb4);
defReaderConstant("TI4" , PITCH_B4 );
defReaderConstant("SI4" , PITCH_H4 );
defReaderConstant("DO5" , PITCH_C5 );
defReaderConstant("DO#5", PITCH_Cm5);
defReaderConstant("REb5", PITCH_Db5);
defReaderConstant("RE5" , PITCH_D5 );
defReaderConstant("RE#5", PITCH_Dm5);
defReaderConstant("MIb5", PITCH_Eb5);
defReaderConstant("MI5" , PITCH_E5 );
defReaderConstant("FA5" , PITCH_F5 );
defReaderConstant("FA#5", PITCH_Fm5);
defReaderConstant("SOb5", PITCH_Gb5);
defReaderConstant("SO5" , PITCH_G5 );
defReaderConstant("SO#5", PITCH_Gm5);
defReaderConstant("LAb5", PITCH_Ab5);
defReaderConstant("LA5" , PITCH_A5 );
defReaderConstant("LA#5", PITCH_Am5);
defReaderConstant("TIb5", PITCH_Bb5);
defReaderConstant("SIb5", PITCH_Hb5);
defReaderConstant("TI5" , PITCH_B5 );
defReaderConstant("SI5" , PITCH_H5 );
defReaderConstant("DO6" , PITCH_C6 );
defReaderConstant("DO#6", PITCH_Cm6);
defReaderConstant("REb6", PITCH_Db6);
defReaderConstant("RE6" , PITCH_D6 );
defReaderConstant("RE#6", PITCH_Dm6);
defReaderConstant("MIb6", PITCH_Eb6);
defReaderConstant("MI6" , PITCH_E6 );
defReaderConstant("FA6" , PITCH_F6 );
defReaderConstant("FA#6", PITCH_Fm6);
defReaderConstant("SOb6", PITCH_Gb6);
defReaderConstant("SO6" , PITCH_G6 );
defReaderConstant("SO#6", PITCH_Gm6);
defReaderConstant("LAb6", PITCH_Ab6);
defReaderConstant("LA6" , PITCH_A6 );
defReaderConstant("LA#6", PITCH_Am6);
defReaderConstant("TIb6", PITCH_Bb6);
defReaderConstant("SIb6", PITCH_Hb6);
defReaderConstant("TI6" , PITCH_B6 );
defReaderConstant("SI6" , PITCH_H6 );
defReaderConstant("DO7" , PITCH_C7 );
defReaderConstant("DO#7", PITCH_Cm7);
defReaderConstant("REb7", PITCH_Db7);
defReaderConstant("RE7" , PITCH_D7 );
defReaderConstant("RE#7", PITCH_Dm7);
defReaderConstant("MIb7", PITCH_Eb7);
defReaderConstant("MI7" , PITCH_E7 );
defReaderConstant("FA7" , PITCH_F7 );
defReaderConstant("FA#7", PITCH_Fm7);
defReaderConstant("SOb7", PITCH_Gb7);
defReaderConstant("SO7" , PITCH_G7 );
defReaderConstant("SO#7", PITCH_Gm7);
defReaderConstant("LAb7", PITCH_Ab7);
defReaderConstant("LA7" , PITCH_A7 );
defReaderConstant("LA#7", PITCH_Am7);
defReaderConstant("TIb7", PITCH_Bb7);
defReaderConstant("SIb7", PITCH_Hb7);
defReaderConstant("TI7" , PITCH_B7 );
defReaderConstant("SI7" , PITCH_H7 );
defReaderConstant("DO8" , PITCH_C8 );
defReaderConstant("DO#8", PITCH_Cm8);
defReaderConstant("REb8", PITCH_Db8);
defReaderConstant("RE8" , PITCH_D8 );
defReaderConstant("RE#8", PITCH_Dm8);
defReaderConstant("MIb8", PITCH_Eb8);
defReaderConstant("MI8" , PITCH_E8 );
defReaderConstant("FA8" , PITCH_F8 );
defReaderConstant("FA#8", PITCH_Fm8);
defReaderConstant("SOb8", PITCH_Gb8);
defReaderConstant("SO8" , PITCH_G8 );
defReaderConstant("SO#8", PITCH_Gm8);
defReaderConstant("LAb8", PITCH_Ab8);
defReaderConstant("LA8" , PITCH_A8 );

}

Expand Down

0 comments on commit 6c9ec21

Please sign in to comment.