1 files changed, 96 insertions, 0 deletions
diff --git a/sounds/mikrotourette-bach-preludio-from-partita-no-3-e-major.rsc b/sounds/mikrotourette-bach-preludio-from-partita-no-3-e-major.rsc
new file mode 100644
index 0000000..08a64c6
--- /dev/null
+++ b/sounds/mikrotourette-bach-preludio-from-partita-no-3-e-major.rsc
@@ -0,0 +1,96 @@
+# Preludio from Partita No. 3 E major for solo Mikrotik
+# BWV 1006 
+# Johann Sebastian Bach
+# Transcription MikroTourette 2016
+#
+:local notes 88,87,88,83,80,83,76,78,76,75,76,71,68,71,64,71,66,71,68,71,69,71,68,71,66,71,64,76,75,73,71,76;
+:local notes ($notes, 75,73,71,69,68,66,64,71,66,71,68,71,69,71,68,71,66,71,64,76,75,73,71,76,75,73,71,69,68,66,64,66);
+:local notes ($notes, 68,69,71,73,75,76,78,80,81,78,80,83,76,78,80,81,83,85,87,88,85,87,88,83,81,83,80,83,81,83,80,83);
+:local notes ($notes, 78,83,76,88,87,85,83,76,85,76,83,76,81,76,80,83,78,83,80,83,81,83,80,83,78,83,76,88,87,85,83,76);
+:local notes ($notes, 85,76,83,76,81,76,80,76,76,76,75,76,76,76,78,76,75,76,76,76,80,76,78,76,80,76,81,76,78,76,80,76);
+:local notes ($notes, 76,76,75,76,76,76,78,76,75,76,76,76,80,76,78,76,80,76,81,76,78,76,80,76,80,76,80,76,80,76,80,76);
+:local notes ($notes, 80,76,80,76,80,75,80,76,80,75,80,76,80,75,80,76,80,74,80,76,80,74,80,76,80,74,81,76,81,73,81,76);
+:local notes ($notes, 81,73,81,76,81,73,81,76,81,71,81,76,81,71,81,76,81,71,80,76,80,71,80,76,80,71,80,76,80,71,80,76);
+:local notes ($notes, 80,69,80,76,80,69,80,76,80,69,78,76,78,69,78,76,78,69,78,76,78,69,78,76,78,68,78,76,78,68,78,76);
+:local notes ($notes, 78,68,76,76,76,68,76,76,76,68,76,76,76,68,76,76,76,66,76,76,76,66,76,76,76,66,75,76,75,66,75,76);
+:local notes ($notes, 75,66,75,76,75,66,64,66,64,66,68,71,64,66,68,71,64,66,68,69,68,69,71,76,68,69,71,76,68,69,71,73);
+:local notes ($notes, 71,73,74,80,71,73,74,80,71,73,74,83,80,76,74,71,68,64,62,61,62,59,61,63,61,63,65,68,61,63,65,68);
+:local notes ($notes, 61,63,65,66,65,66,68,73,65,66,68,73,65,66,68,69,68,69,71,77,68,69,71,77,68,69,71,80,77,73,83,80);
+:local notes ($notes, 81,78,77,80,73,71,69,73,69,66,78,75,76,73,72,75,68,66,64,68,64,61,64,68,73,68,76,73,80,73,72,75);
+:local notes ($notes, 72,68,80,79,80,79,80,75,76,73,72,75,72,68,78,77,78,77,78,75,76,73,72,75,72,68,69,68,69,68,69,63);
+:local notes ($notes, 64,61,60,66,61,66,63,66,61,66,60,66,63,66,56,66,75,66,72,66,75,66,72,66,75,66,56,64,73,64,76,64);
+:local notes ($notes,73,64,76,64,73,64,56,66,75,66,72,66,75,66,72,66,75,66,56,64,73,64,76,64,73,64,76,64,73,64,56,67);
+:local notes ($notes,73,67,76,67,73,67,76,67,73,67,56,67,73,67,76,67,73,67,76,67,73,67,56,68,73,68,75,68,73,68,75,68);
+:local notes ($notes,73,68,56,66,72,66,75,66,72,66,75,66,72,66,61,73,71,69,68,73,68,66,64,68,64,63,61,73,68,66,64,68);
+:local notes ($notes,64,63,61,64,61,59,58,66,73,66,76,66,73,66,76,66,73,66,58,66,76,66,73,66,76,66,73,66,76,66,59,83);
+:local notes ($notes,82,80,78,83,78,76,75,78,75,73,71,83,78,76,75,78,75,73,71,75,71,69,68,74,76,74,80,74,83,74,80,74);
+:local notes ($notes,76,74,68,74,76,74,68,74,66,74,68,74,64,74,73,76,81,80,81,76,74,76,73,76,71,76,69,81,80,78,76,69);
+:local notes ($notes,78,69,76,69,74,69,73,76,71,76,73,76,74,76,73,76,71,76,69,81,80,78,76,69,78,69,76,69,74,69,73,69);
+:local notes ($notes,69,69,68,69,69,69,71,69,68,69,69,69,73,69,71,69,73,69,74,69,71,69,73,69,69,69,68,69,69,69,71,69);
+:local notes ($notes,68,69,69,69,73,69,71,69,73,69,74,69,71,69,73,69,73,69,73,69,73,69,73,69,73,69,73,69,73,68,73,69);
+:local notes ($notes,73,68,73,69,73,68,73,69,73,67,73,69,73,67,73,69,73,67,74,69,74,66,74,69,74,66,74,69,74,66,74,69);
+:local notes ($notes,74,64,74,69,74,64,74,69,74,64,73,69,73,64,73,69,73,64,73,69,73,64,73,69,73,62,73,69,73,62,73,69);
+:local notes ($notes,73,62,71,69,71,62,71,69,71,62,71,69,71,62,71,69,71,61,71,69,71,61,71,69,71,61,69,69,69,61,69,69);
+:local notes ($notes,69,61,69,69,69,61,69,69,69,59,69,69,69,59,69,69,69,59,68,69,68,59,68,69,68,59,68,69,68,59,57,59);
+:local notes ($notes,57,59,61,64,57,59,61,64,57,59,61,62,61,62,64,69,61,62,64,69,61,62,64,66,64,66,67,73,64,66,67,73);
+:local notes ($notes,64,66,67,76,73,74,76,73,70,71,73,70,66,64,62,61,59,61,62,66,59,61,62,66,59,61,62,64,62,64,66,71);
+:local notes ($notes,62,64,66,71,62,64,66,68,66,68,69,75,66,68,69,75,66,68,69,78,75,76,78,75,72,73,75,72,68,66,65,83);
+:local notes ($notes,80,81,83,80,77,78,80,77,73,71,69,85,81,83,85,81,78,80,81,78,74,73,71,86,83,85,86,83,80,81,83,80);
+:local notes ($notes,77,80,73,75,73,75,77,80,73,75,77,80,73,75,77,78,77,78,80,83,77,78,80,83,77,78,80,81,80,81,83,86);
+:local notes ($notes,80,81,83,86,80,81,83,86,83,80,77,83,80,77,73,83,81,80,78,80,81,78,71,81,80,78,73,80,78,77,74,76);
+:local notes ($notes,78,74,68,78,76,74,70,76,74,73,71,73,74,71,65,74,73,71,66,73,71,69,68,69,71,69,68,71,69,71,68,71);
+:local notes ($notes,66,71,65,66,68,69,71,65,74,65,73,65,71,65,66,69,66,61,57,61,66,61,69,61,66,61,65,68,65,61,65,68);
+:local notes ($notes,73,68,77,73,80,71,69,73,69,66,69,73,78,73,81,78,85,78,77,80,77,73,85,84,85,84,85,80,81,78,77,80);
+:local notes ($notes,77,73,83,82,83,82,83,80,81,78,77,80,77,73,74,73,74,73,74,68,69,66,65,68,73,83,83,80,81,78,77,80);
+:local notes ($notes,73,71,69,73,78,85,85,81,83,80,78,81,74,73,71,74,67,66,65,68,61,59,57,61,66,68,69,66,71,66,73,66);
+:local notes ($notes,74,66,61,66,68,65,66,69,68,69,69,69,68,69,66,69,64,69,63,69,64,69,66,69,68,69,69,69,66,69,68,69);
+:local notes ($notes,68,66,64,76,75,76,73,76,71,76,70,76,71,76,73,76,75,76,76,76,73,76,75,76,75,73,71,73,75,76,78,80);
+:local notes ($notes,81,78,83,71,69,71,68,71,66,71,64,71,62,71,61,64,66,68,69,71,73,74,76,78,80,76,81,69,68,69,66,69);
+:local notes ($notes,64,69,63,69,61,69,59,63,64,66,68,69,71,73,75,76,78,75,80,64,62,64,61,64,59,64,57,64,56,64,57,64);
+:local notes ($notes,73,71,73,76,81,80,81,78,73,76,59,66,75,73,75,78,81,80,81,78,75,78,59,68,71,69,71,76,80,78,80,76);
+:local notes ($notes,71,76,59,70,73,71,73,76,82,80,82,76,73,76,75,83,82,80,78,83,78,76,75,78,75,73,71,83,81,80,78,81);
+:local notes ($notes,78,76,75,78,75,73,71,81,80,78,76,80,76,75,73,76,73,71,69,80,78,76,75,78,75,73,71,75,71,69,68,76);
+:local notes ($notes,73,71,69,73,69,68,66,69,66,64,63,66,69,73,71,75,78,81,81,80,81,78,80,76,80,83,88,83,80,76,71,78);
+:local notes ($notes,88,87,88,83,80,76,74,76,73,76,74,76,71,76,73,76,81,76,73,76,71,76,73,76,69,76,71,76,80,76,71,76);
+:local notes ($notes,69,76,71,76,68,76,69,76,78,76,75,76,76,76,78,76,80,76,59,66,75,81,83,64,71,80,57,81,80,81,78,80);
+:local notes ($notes,78,80,78,80,78,80,78,80,78,80,78,76,76,88,87,85,83,88,81,88,80,88,78,88,76,76,75,73,71,76,69);
+:local notes ($notes,76,68,76,66,76,64,68,71,75,76,80,83,87,88);
+:local speed 60ms;
+:local stacc 3ms;
+:local transpose -60;
+: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 >1 && $i<6) do={:set d0 4};
+:if ($i >9 && $i<14) do={:set d0 4};
+:if ($i > 1585 && $i <1589) do={:set d0 1};
+:if ($i = 1589) do={:set d0 9};
+:if ($i = 1590) do={:set d0 4};
+:if ($i = 1591) do={:set d0 1};
+:if ($i = 1592) do={:set d0 1};
+:if ($i = 1593) do={:set d0 6};
+:if ($i > 1596 && $i <1612 ) do={:set d0 1};
+:if ($i = 1611) do={:set d0 4};
+:if ($i = 1644) do={:set d0 12};
+:set d ($d0 * $speed );
+:set l ($d0 * ($speed - $stacc));
+# :put $midi;
+# :put $frq;
+# :put $octa;
+:beep fr=$frq le=$l;
+:delay $d;
+}