aynish/hypersound
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

was live coding something idk

Browse source
This commit is contained in:
Anish Lakhwara 2022-04-02 23:45:59 +10:00
parent 4fe611117a
commit fd344c0400
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/hypersound/core.clj
View file

@ -67,14 +67,15 @@
[50 55 53 50] [50 55 53 50]
notes)] notes)]
(at (metro beat) (at (metro beat)
(kick)
(kick)) (kick))
(at (metro beat) (at (metro beat)
(if (zero? (mod beat 5)) (if (zero? (mod beat 5))
(overpad (+ 24 (choose notes)) 0.2 0.75 0.005))) (overpad (+ 24 (choose notes)) 0.3 0.75 0.005)))
(at (metro (+ 0.5 beat)) (at (metro (+ 0.5 beat))
(if (zero? (mod beat 6)) (if (zero? (mod beat 6))
(overpad (+ 12 (choose notes)) 0.5 0.15 0.1) (overpad (+ 12 (choose notes)) 0.5 0.15 0.1)
(overpad (choose notes) 0.5 0.15 0.1))) (overpad (choose notes) 0.1 0.15 0.1)))
(apply-by (metro (inc beat)) #'player (inc beat) (next notes) []))) (apply-by (metro (inc beat)) #'player (inc beat) (next notes) [])))
(comment (player (metro) [])) (comment (player (metro) []))