InComm

15 files changed, 302 insertions, 0 deletions

diff --git a/sounds/adams-fanfare.rsc b/sounds/adams-fanfare.rsc
new file mode 100644
index 0000000..b7ca7f9
--- /dev/null
+++ b/sounds/adams-fanfare.rsc
@@ -0,0 +1,4 @@
+ :for t from=1200 to=350 step=-50 do={
+   :beep frequency=$t length=33ms;
+   :delay 33ms;
+ }
diff --git a/sounds/adams-larm.rsc b/sounds/adams-larm.rsc
new file mode 100644
index 0000000..6e74597
--- /dev/null
+++ b/sounds/adams-larm.rsc
@@ -0,0 +1,6 @@
+ :for t1 from=1 to=10 step=1 do={
+   :for t2 from=300 to=1800 step=40 do={
+     :beep frequency=$t2 length=11ms;
+     :delay 11ms;
+   }
+ }
diff --git a/sounds/adams-telefone.rsc b/sounds/adams-telefone.rsc
new file mode 100644
index 0000000..e843d59
--- /dev/null
+++ b/sounds/adams-telefone.rsc
@@ -0,0 +1,9 @@
+ :for t1 from=1 to=4 step=1 do={
+   :for t2 from=1 to=25 step=1 do={
+     :beep frequency=540 length=33ms;
+     :delay 33ms;
+     :beep frequency=650 length=27ms;
+     :delay 27ms;
+   }
+   :delay 2000ms;
+ }
diff --git a/sounds/adams-tonarkade-2.rsc b/sounds/adams-tonarkade-2.rsc
new file mode 100644
index 0000000..70186d8
--- /dev/null
+++ b/sounds/adams-tonarkade-2.rsc
@@ -0,0 +1,4 @@
+ :for t from=1250 to=600 step=-8 do={
+   :beep frequency=$t length=11ms;
+   :delay 11ms;
+ }
diff --git a/sounds/adams-tonarkade.rsc b/sounds/adams-tonarkade.rsc
new file mode 100644
index 0000000..5b6287c
--- /dev/null
+++ b/sounds/adams-tonarkade.rsc
@@ -0,0 +1,6 @@
+ :for t1 from=1 to=8 step=1 do={
+     :for t2 from=600 to=750 step=8 do={
+     :beep frequency=$t2 length=11ms;
+     :delay 11ms;
+   }
+ }
diff --git a/sounds/mikrotourette-acdc-thunderstruck.rsc b/sounds/mikrotourette-acdc-thunderstruck.rsc
new file mode 100644
index 0000000..ac13e7e
--- /dev/null
+++ b/sounds/mikrotourette-acdc-thunderstruck.rsc
@@ -0,0 +1,55 @@
+# =================
+# Thunderstruck AC/DC
+# =================
+:local n11 63,66;
+:local n12 64,67;
+:local n21 71,69,68,69,68,66,68,64,66,63;
+:local n22 64,63;
+
+:local n11 ($n11,$n11);
+:local n12 ($n12,$n12);
+:local n1 ($n11,$n11,$n12,$n12);
+:local n2 ($n21,$n22,$n22,$n22);
+:local notes ($n1,$n1,$n2,$n2);
+  
+:local ticks 2;
+:local speed 55ms;
+:local stacc 5ms;
+# Transposition
+:local transpose -48;
+# ==============================
+# Don't change this:
+: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 $ticks;
+:set d ($d0 * $speed );
+:set l ($d0 * ($speed - $stacc));
+:beep fr=$frq le=$l;
+:delay $d;
+:set midi 59;
+: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 $ticks;
+:set d ($d0 * $speed );
+:set l ($d0 * ($speed - $stacc));
+:beep fr=$frq le=$l;
+:delay $d;
+}
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;
+}
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;
+}
+
diff --git a/sounds/squawk-chang.rsc b/sounds/squawk-chang.rsc
new file mode 100644
index 0000000..73a4d45
--- /dev/null
+++ b/sounds/squawk-chang.rsc
@@ -0,0 +1,10 @@
+ :for j from=1 to=4 step=1 do={
+   :for i from=2000 to=50 step=-400 do={
+     :beep frequency=$i length=11ms;
+     :delay 11ms;
+   }
+   :for i from=800 to=2000 step=400 do={
+     :beep frequency=$i length=11ms;
+     :delay 11ms;
+   }
+ }
diff --git a/sounds/squawk-coo.rsc b/sounds/squawk-coo.rsc
new file mode 100644
index 0000000..5107e4c
--- /dev/null
+++ b/sounds/squawk-coo.rsc
@@ -0,0 +1,6 @@
+ :for i from=0 to=150 step=10 do={
+   :beep frequency=(1295 - i) length=22ms;
+   :delay 22ms;
+   :beep frequency=(1095 + i) length=22ms;
+   :delay 22ms;
+ }
diff --git a/sounds/squawk-oh.rsc b/sounds/squawk-oh.rsc
new file mode 100644
index 0000000..4b4c060
--- /dev/null
+++ b/sounds/squawk-oh.rsc
@@ -0,0 +1,8 @@
+ :for i from=800 to=2000 step=100 do={
+   :beep frequency=$i length=11ms;
+   :delay 11ms;
+ }
+ :for i from=2000 to=50 step=-100 do={
+   :beep frequency=$i length=11ms;
+   :delay 11ms;
+ }
diff --git a/sounds/squawk-phone-f.rsc b/sounds/squawk-phone-f.rsc
new file mode 100644
index 0000000..05ec889
--- /dev/null
+++ b/sounds/squawk-phone-f.rsc
@@ -0,0 +1,8 @@
+:local phone [:parse ":for i from=1 to=10 step=1 do={:beep frequency=1195 length=22ms;:delay 22ms;:beep frequency=2571 length=22ms;:delay 22ms;}"];
+:for i from=1 to=4 do={
+	$phone;
+	:delay 400ms;
+	$phone;
+	:delay 2000ms;
+}
+
diff --git a/sounds/squawk-phone.rsc b/sounds/squawk-phone.rsc
new file mode 100644
index 0000000..ec697e4
--- /dev/null
+++ b/sounds/squawk-phone.rsc
@@ -0,0 +1,6 @@
+ :for i from=1 to=10 step=1 do={
+   :beep frequency=1195 length=22ms;
+   :delay 22ms;
+   :beep frequency=2571 length=22ms;
+   :delay 22ms;
+ }
diff --git a/sounds/squawk-space-1.rsc b/sounds/squawk-space-1.rsc
new file mode 100644
index 0000000..b25443c
--- /dev/null
+++ b/sounds/squawk-space-1.rsc
@@ -0,0 +1,4 @@
+ :for i from=1000 to=40 step=-20 do={
+   :beep frequency=$i length=11ms;
+   :delay 11ms;
+ }
diff --git a/sounds/squawk-space-2.rsc b/sounds/squawk-space-2.rsc
new file mode 100644
index 0000000..3a7a8e7
--- /dev/null
+++ b/sounds/squawk-space-2.rsc
@@ -0,0 +1,4 @@
+ :for i from=10000 to=500 step=-500 do={
+   :beep frequency=$i length=11ms;
+   :delay 11ms;
+ }