«Попкорн» на МК-161 (мелодия из Диггера)

| рубрика «Программы» | автор AtH
Метки: ,

Музыкальная демка из готовящегося релиза Каллисто Классик.

listmkt v0.3.5a (c) AtH, 8 апреля 2015, Файл: B044.mkt
  0\Popcornmusic#44,AtH,20170905
  1
  2forthdefinitions
  3vocabularyММЯ  ММЯdefinitions  \МузыкальныйМакроЯзык
  4:нота  (частота−−)
  5   <builds4,,does>here4cmove4allot10,0,;
  6:3нота  (частота−−)
  7   <builds7,,does>here4cmove4allot21,0,;
  8:;  (−−)   ?csp  hereover2+4/!forth;
  9
104400нотаa<  3нотаa++<  4662нотаa#<  5233нотаc
115873нотаd   3нотаd++   6593нотаe    29373нотаd++<
126985нотаf   3нотаf++   7840нотаg    3492нотаf<
138800нотаa   3нотаa++   9878нотаb   10465нотаc>
14
15forthdefinitions
16::мелодия  (−−)   <buildshere  2allot  !csp  ММЯ
17    does>2+u@(play);
18
19:мелодияПопкорн  \Манве,5сентября2017
20  dcda<f<a<d++<   \такт1
21  dcda<f<a<d++<   \такт2
22  defefded       \такт3
23  ecdcda#<d++     \такт4
24
25  dcda<f<a<d++<   \такт5
26  dcda<f<a<d++<   \такт6
27  defefded       \такт7
28  ecdcdef++       \такт8
29
30  agafcfa++<      \такт1
31  agafcfa++<      \такт2
32  abc>bc>aba     \такт3
33  bgagafa++       \такт4
34
35  agafcfa++<      \такт5
36  agafcfa++<      \такт6
37  abc>bc>aba     \такт7
38  bgagega++       \такт8
39;
40
41:tune  \(−−)   воспроизведениемелодии
42     beginПопкорн?breakagain;
43\s

blog comments powered by Disqus