music/lib.rb at main · m-bdf/music · GitHub

8000 music/lib.rb at main · m-bdf/music · GitHub

Repository navigation

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

### ARRANGE

define :arrange do |song, skip: 0|

song.each do |part|

part.each do |pattern, vs|

in_thread do

vs.drop(skip).each do |v|

if v

send pattern, v

else

sleep 8

end

end

end

end

max = part.values.map(&:length).max

sleep (max - skip) * 8

skip = 0

end

end

define :_ do nil end

### UTILS

define :synths do |lead, *synths, &fn|

synths.each do |s|

in_thread do

use_synth s

fn.call

end

end

use_synth lead

fn.call

end

0