Кастомный чиптюн⁠⁠

Помню, как в детстве с восхищением смотрел на динамик в колонке, чудесным образом воспроизводящий музыку/звуки с помощью колебаний картонной мембраны. Сейчас решил сделать в игре собственный синтезатор в реальном времени.

Никакой записанной заранее музыки. Все должно генерироваться на лету. Захотелось попробовать сделать 100% контроль над звуковой волной. По сути, сделать формулу, в которую передаешь текущее время, а она возвращает позицию картонки мембраны динамика.

Сделал)) Вот на SoundCloud музыка для главного меню игры. Как вам?

Исходный код музыки (на встроенном языке Sandbasix):

10 // ***********************************

20 // *** SPETROMSX Main Menu Theme ***

30 // *** by Andrey Fomin ***

40 // ***********************************

50 //

60 // 0 - High Arpegio

70 TRACK:0 vol=6 sqr=5 oct=4

80 STEREO min=-8 max=5

90 LFGVOL per=16 min=10 max=15 bynote=true adsr=90,5,100,30

100 ARPEGIO steps=--0--1&2--3-4--5-6--0&3--2-1 shift=16 dur=8 mode=ext

110 DELAY:0 fading=40 time=8 count=2 pan=-5,5

120 // 1 - Mid Bass Arpegio

130 TRACK:1 vol=3 oct=3 sqr=10 adsr=1,30,30,20

140 LFGPAN:1 per=8 min=-12 max=0 bynote=true

150 LFGDUTY:1 per=0.125 min=0 max=8 bynote=false

160 ARPEGIO:1 steps=0-1--0-1-2-0-1-2----0--2 shift=16 dur=24 mode=ext

170 DELAY:1 fading=50 time=8 count=2 pan=10,-5

180 // 2 - Strings

190 TRACK:2 vol=6 oct=3 sqr=12 adsr=90,8,70,50

200 LFGVOL:2 per=16 min=8 max=15 bynote=true adsr=50,8,100,50

210 STEREO:2 min=0 max=12

220 // 3 - Bass

230 TRACK:3 vol=12 oct=1 sqr=4 duty=2 adsr=4,30,30,40

240 LFGPAN:3 per=8 min=-7 max=3 bynote=true

250 ARPEGIO:3 steps=0--0--0--0-0- shift=8 dur=8

260 // 4 - Drums

270 TRACK:4 vol=11

280 // 5 - Solo

290 TRACK:5 vol=3 sqr=10 oct=4 duty=2 adsr=10,50,50,10

300 LFGPAN:5 per=8 min=-10 max=10 bynote=true

310 DELAY:5 fading=75 time=8 count=4 pan=-13,13,-7,7

320 LFGSQR:5 per=8 min=0 max=15 bynote=true

330 //

340 // *** MAIN CHORDS ***

350 SET:A F#maj9| Bmaj9| Amaj9| Emaj9|

360 SET:a F#maj9| Bmaj9| Amaj9| Dmaj9|

370 SET:B Gm9| D#9| Cm11| D#mMaj7|

380 SET:C Am11| D7| Fmaj7| Cmaj7|

390 SET:D Fm9| D#maj9| Fm9| D#maj9|

400 // *** POWER CHORDS ***

410 SET:pA F#5| B5| A5| E5| F#5| B5| A5| D5|

420 SET:pB G5| D#5| C5| D#5| G5| D#5| C5| D#5|

430 SET:pC A5| D5| F5| C5| A5| D5| F5| C5|

440 SET:pD F5| D#5| F5| G5| F5| D#5| F5| G5|

450 // *** DRUMS ***

460 SET:d1 @*-%-%-*-!-$-*-^-%-*-_-*-!-*-%-$-

470 SET:d2 *-%-%-*-!-%-*-!-%*-^-!-*-!-_-%-$-

480 SET:d3 %*--$-*-%!--$*--%-*-$-*-%!-*-$--

490 SET:d4 *---*-!--*-*-^_-^_-!-~_-~_-!-*_-*_-

500 SET:d ?d1 ?d2 ?d1 ?d4 ?d1 ?d2 ?d3 ?d4

510 SET:e1 %*--$-%-!%--$-^-_-%-$--!%-%-$-%-

520 SET:e2 %*-*-$-%-!%--$-~-*-%-$--!%-%-$-%-

530 SET:e3 %*-*-$-%-!%--$-~-*-%-$-*-!%-%-!$-*%-

540 SET:e ?e1 ?e2 ?e1 ?e3

550 //

560 // *** PLAY ***

570 //

590 PLAY:1 ?pA :1

600 PLAY:4 R0.5 ?e1 ?e3 ?e

610 PLAY:0 R0.25 ?a

630 REWIND 1

640 PLAY:0 ?A ?a :2

650 PLAY:1 ?pA

660 PLAY:3 ?pA

670 PLAY:4 ?e ?e

690 REWIND 2

700 PLAY:0 ?B ?B :3

710 PLAY:2 v5 ?B ?B

720 PLAY:3 ?pB

730 PLAY:4 ?d

750 REWIND 3

760 PLAY:0 ?C ?C :4

770 PLAY:1 ?pC

780 PLAY:3 ?pC

790 PLAY:4 ?e ?e

810 REWIND 4

820 PLAY:0 ?D ?D :5

830 PLAY:2 v5 ?D ?D

840 PLAY:3 ?pD

850 PLAY:4 ?d

870 REWIND 5

880 PLAY:2 v5 ?A ?a

890 PLAY:3 ?pA

900 PLAY:5 A#8 F>4 F>4 C#>4 F>8 D#>8 R2 R4 R8 C#>4 R8 G#4 R4 R8 B4 R8 D#4 R4 R8 F

910 LOOP