diff options
Diffstat (limited to 'sounds/mikrotourette-cpe-bach-solfeggietto-c-minor.rsc')
| -rw-r--r-- | sounds/mikrotourette-cpe-bach-solfeggietto-c-minor.rsc | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/sounds/mikrotourette-cpe-bach-solfeggietto-c-minor.rsc b/sounds/mikrotourette-cpe-bach-solfeggietto-c-minor.rsc new file mode 100644 index 0000000..af45697 --- /dev/null +++ b/sounds/mikrotourette-cpe-bach-solfeggietto-c-minor.rsc @@ -0,0 +1,76 @@ +# Solfeggietto c minor for solo Mikrotik +# H 220, Wq. 117: 2 +# C. P. E. Bach +# Transcription MikroTourette 2017 +# +:local notes 51,48,51,55,60,63,62,60,59,55,59,62,67,65,63,62; +:local notes ($notes, 63,60,63,67,72,75,74,72,74,72,71,69,67,65,63,62); +:local notes ($notes, 63,60,63,67,72,75,74,72,71,67,71,74,79,77,75,74); +:local notes ($notes, 75,72,75,79,84,87,86,84,86,84,83,81,79,77,75,74); +:local notes ($notes, 75,72,67,63,60,84,79,75,80,53,56,60,65,68,72,75); +:local notes ($notes, 74,70,65,62,58,82,77,74,79,51,55,58,63,67,70,74); + +:local notes ($notes, 72,69,68,69,72,69,68,69,75,72,67,69,75,72,67,69); +:local notes ($notes, 74,72,66,69,81,72,66,69,78,72,62,69,72,69,66,62); +:local notes ($notes, 70,43,46,50,55,58,57,55,54,50,54,57,62,60,58,57); +:local notes ($notes, 58,55,58,62,67,70,69,67,69,67,66,64,62,60,58,57); +:local notes ($notes, 58,55,58,62,67,70,69,67,66,62,66,69,74,72,70,69); +:local notes ($notes, 70,67,70,74,79,82,81,79,81,79,78,76,74,72,70,69); +:local notes ($notes, 70,67,70,74,79,74,70,67,53,79,74,71,67,71,74,79); +:local notes ($notes, 72,67,79,67,72,67,79,67,71,67,77,67,71,67,77,67); +:local notes ($notes, 75,72,75,79,84,79,75,72,58,84,79,76,72,76,79,84); +:local notes ($notes, 77,72,84,72,77,72,84,72,76,72,82,72,76,72,82,72); +:local notes ($notes, 80,41,44,48,53,56,55,53,52,48,52,55,60,58,56,55); +:local notes ($notes, 56,53,56,60,65,68,67,65,67,65,64,62,60,58,56,55); +:local notes ($notes, 56,53,56,60,65,68,67,65,64,60,64,67,72,70,68,67); +:local notes ($notes, 68,65,68,72,77,80,79,77,79,77,76,74,72,70,68,67); +:local notes ($notes, 68,77,72,68,65,72,68,65,60,68,65,60,56,65,60,56); +:local notes ($notes, 49,80,77,76,77,79,77,76,77,48,68,65,64,65,67,65); +:local notes ($notes, 64,65,47,86,77,79,80,79,77,75,74,75,79,84,79,82); +:local notes ($notes, 80,79,77,75,75,74,75,74,75,74,75,74,72,67,79,67); +:local notes ($notes, 72,67,79,67,71,67,77,67,71,67,77,67,70,67,76,67); +:local notes ($notes, 70,67,76,67,69,75,84,75,69,75,84,75,68,65,74,65); +:local notes ($notes, 68,65,74,65,67,73,82,73,67,73,82,73,66,63,72,63); +:local notes ($notes, 66,63,72,63,65,72,84,72,65,72,84,72,63,72,75,79); +:local notes ($notes, 84,79,75,72,79,75,72,67,77,74,71,65,63,48,51,55); +:local notes ($notes, 60,63,62,60,59,55,59,62,67,65,63,62,63,60,63,67); +:local notes ($notes, 72,75,74,72,74,72,71,69,67,65,63,62,63,60,63,67); +:local notes ($notes, 72,75,74,72,71,67,71,74,79,77,75,74,75,72,75,79); +:local notes ($notes, 84,87,86,83,84,79,75,74,72,67,63,62,60); + +:local speed 50ms; +:local stacc 10ms; +:local transpose -48; +:local frqtab 8372,8869,9397,9956,10548,11175,11839,12543,13288,14080,14916,15804; +:local n0; :local n; +:local d0; :local d; +:local l; +:local midi; +:local i; +:local octa; +:local frq; +:for i from=0 to= ([:len $notes]-1) do={ +:set midi [:pick $notes $i]; +:set midi ($midi + $transpose); +:set octa 0; +:while ( $midi < 60) do={:set midi ($midi + 12); :set octa ($octa + 1 ); }; +:set midi ($midi - (12 * ($midi /12))); +:set frq [:tonum [:pick $frqtab $midi]]; +:set frq ($frq>>($octa)); +:set d0 2; +:if ($i >371 && $i<380) do={:set d0 1}; +:if ($i =336) do={:set d0 16}; +:if ($i =345) do={:set d0 16}; +:if ($i =354) do={:set d0 16}; +:if ($i =371) do={:set d0 8}; +:if ($i =524) do={:set d0 16}; + +:set d ($d0 * $speed ); +:set l ($d0 * ($speed - $stacc)); +# :put $midi; +# :put $frq; +# :put $octa; +:beep fr=$frq le=$l; +:delay $d; +} + |