diff options
| -rw-r--r-- | 5-polyrhythms/main.ua | 32 | ||||
| -rw-r--r-- | 5-polyrhythms/output.mp4 | bin | 380215 -> 380563 bytes | |||
| -rw-r--r-- | 5-polyrhythms/output.wav | bin | 8467268 -> 8467268 bytes | |||
| -rw-r--r-- | README.md | 4 |
4 files changed, 21 insertions, 15 deletions
diff --git a/5-polyrhythms/main.ua b/5-polyrhythms/main.ua index 7e184ce..24583fc 100644 --- a/5-polyrhythms/main.ua +++ b/5-polyrhythms/main.ua @@ -9,20 +9,26 @@ Fade ← × ⇌ ÷⟜(⇡)⧻. Tone ← ×V /+∿ ⊞× : ×τ ÷⟜(⇡⌊×)S MkNotes ← JoinB ≡(□ ⊂ (Fade Tone Dn °□⊣:) Silence°□⊢.) -ChRoot ← ∵({(↥0 -Dn ÷:⊙: Bar) [330]}◌) ⇡. -ChN₁ ← ∵({(↥0 -Dn ÷:⊙: Bar) [415]}◌) ⇡. -ChN₂ ← ∵({(↥0 -Dn ÷:⊙: Bar) [220]}◌) ⇡. -ChN₃ ← ∵({(↥0 -Dn ÷:⊙: Bar) [247]}◌) ⇡. -# [E, G#, B, D] -Ch₁ ← ∵({(↥0 -Dn ÷:⊙: Bar) [330 415 493 293]}◌) ⇡. -# [A, C#, E, G] -Ch₂ ← ∵({(↥0 -Dn ÷:⊙: Bar) [220 277 324 392]}◌) ⇡. -# [B, D#, F#, A] -Ch₃ ← ∵({(↥0 -Dn ÷:⊙: Bar) [247 311 370 440]}◌) ⇡. +ChX ← ∵({(↥0 -Dn ÷:⊙: Bar) ⊂[]:}◌) ⇡. +ChXHalf ← ∵({(↥0 -Dn ÷:⊙: ÷2Bar) ⊂[]:}◌) ⇡. -Bar₁ ← ++ (MkNotes ChRoot 10) (MkNotes ChN₂ 6) (MkNotes Ch₂ 4) -Bar₂ ← ++ (MkNotes ChRoot 10) (MkNotes ChN₃ 6) (MkNotes Ch₃ 4) -Bar₃ ← ++ (MkNotes ChRoot 10) (MkNotes ChN₁ 6) (MkNotes Ch₁ 4) +ChRoot ← ChX: [165] + +ChN₁ ← ChX: [185] +ChN₂ ← ChX: [123] +ChN₃₁ ← ChXHalf: [207] +ChN₃₂ ← ChXHalf: [247] + +# [F#, C#, E, A] +Ch₁ ← ∵({(↥0 -Dn ÷:⊙: Bar) [185 277 329 440]}◌) ⇡. +# [B, F#, A, D#] +Ch₂ ← ∵({(↥0 -Dn ÷:⊙: Bar) [123 185 220 311]}◌) ⇡. +# [E, B, D#, G#] +Ch₃ ← ∵({(↥0 -Dn ÷:⊙: Bar) [165 247 311 415]}◌) ⇡. + +Bar₁ ← ++ (MkNotes ChRoot 10) (MkNotes ChN₁ 6) (MkNotes Ch₁ 4) +Bar₂ ← ++ (MkNotes ChRoot 10) (MkNotes ChN₂ 6) (MkNotes Ch₂ 4) +Bar₃ ← ++ (MkNotes ChRoot 10) (⊂ (MkNotes ChN₃₁ 3) (MkNotes ChN₃₂ 3)) (MkNotes Ch₃ 4) Samples ← ⊟. JoinB [Bar₁ Bar₂ Bar₃ Bar₂] &ap Samples diff --git a/5-polyrhythms/output.mp4 b/5-polyrhythms/output.mp4 Binary files differindex cfcf6d3..d09e668 100644 --- a/5-polyrhythms/output.mp4 +++ b/5-polyrhythms/output.mp4 diff --git a/5-polyrhythms/output.wav b/5-polyrhythms/output.wav Binary files differindex 64274e6..1b80e60 100644 --- a/5-polyrhythms/output.wav +++ b/5-polyrhythms/output.wav @@ -30,10 +30,10 @@ </td> <td width="50%" valign="top"> <h3> - <a href="5-polyrhythms/main.ua">Polyrhythms music generation</a> + <a href="5-polyrhythms/main.ua">Polyrhythms</a> </h3> -https://github.com/user-attachments/assets/18ce9a04-b597-4340-876d-8585a054c6ad +https://github.com/user-attachments/assets/37e38ccf-5e7e-47e5-ba3e-1bc216b7ff2f </td> |