Community discussions

 
MikroTourette
just joined
Topic Author
Posts: 3
Joined: Sun Jan 24, 2016 1:26 pm

Some Music

Sat Feb 20, 2016 9:31 pm

# 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;
}


 
User avatar
simobeliata
just joined
Posts: 8
Joined: Tue Feb 09, 2016 10:15 am
Location: Sofia, Bulgaria

Re: Some Music

Thu Feb 25, 2016 6:09 pm

That is AWESOME!!! :D
Please, give us some more!
 
User avatar
Sinan
Trainer
Trainer
Posts: 128
Joined: Tue Sep 01, 2015 7:00 am

Re: Some Music

Thu Mar 10, 2016 6:21 am

This is really Awesome
 
MikroTourette
just joined
Topic Author
Posts: 3
Joined: Sun Jan 24, 2016 1:26 pm

Re: Some Music

Tue Dec 27, 2016 4:07 pm

OK,
now for something completely different: Thunderstruck (AC/DC)
# =================
# 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;
}

Highly compressed, all data in 4 variables and 16 notes.
 
MikroTourette
just joined
Topic Author
Posts: 3
Joined: Sun Jan 24, 2016 1:26 pm

Re: Some Music

Thu Jan 12, 2017 12:58 am

Another one:
# 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;
}


 
User avatar
macgaiver
Forum Guru
Forum Guru
Posts: 1721
Joined: Wed May 18, 2005 5:57 pm
Location: Sol III, Sol system, Sector 001, Alpha Quadrant

Re: Some Music

Thu Jan 12, 2017 7:33 am

This is on completely another level compared to all other PC speaker music we had here - really impressed!
With great knowledge comes great responsibility, because of ability to recognize id... incompetent people much faster.
 
User avatar
lapsio
Member
Member
Posts: 472
Joined: Wed Feb 24, 2016 5:19 pm

Re: Some Music

Sun Jan 15, 2017 11:27 pm

Oh my god... This is exactly what i was looking for as notification sound about detected server failure... MORE :D
MTCNA, MTCRE, MTCINE
 
User avatar
null31
Member Candidate
Member Candidate
Posts: 177
Joined: Fri Dec 23, 2016 6:07 pm
Location: Brazil

Re: Some Music

Thu Feb 09, 2017 6:29 pm

OK,
now for something completely different: Thunderstruck (AC/DC)
# =================
# 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;
}

Highly compressed, all data in 4 variables and 16 notes.
Excellent!
I tested this and recorded in a video.
> https://www.youtube.com/watch?v=UqiR_CcDZhg
 
georgionic
just joined
Posts: 1
Joined: Tue Aug 28, 2018 10:12 am

Re: Some Music

Wed Aug 29, 2018 5:20 pm

Can you do Africa by Toto? That would be the coolest thing ever.
 
yuridee
Frequent Visitor
Frequent Visitor
Posts: 92
Joined: Wed Jun 27, 2012 5:32 am

Re: Some Music

Thu Aug 30, 2018 6:45 pm

 
User avatar
nichky
Long time Member
Long time Member
Posts: 526
Joined: Tue Jun 23, 2015 2:35 pm

Re: Some Music

Fri Aug 31, 2018 9:50 am

wowww
Nikola Suminoski
MikroTik Consultan
MTCRE l MTCWE

!) Safe Mode is your friend;

Who is online

Users browsing this forum: No registered users and 14 guests