diff options
Diffstat (limited to '5-polyrhythms/main.ua')
| -rw-r--r-- | 5-polyrhythms/main.ua | 32 |
1 files changed, 19 insertions, 13 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 |