diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-02-15 19:05:25 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-02-15 19:49:12 +0530 |
| commit | 4014dc198f2ef7152f37f59668b16792e3358001 (patch) | |
| tree | c44cd40d4b4c06ec207ef8ddcbaf424a2b99c038 /5-polyrhythms/main.ua | |
| parent | 381101385d632b169ce87fa29873c5bdb0a038b0 (diff) | |
| download | uiua-creative-coding-4014dc198f2ef7152f37f59668b16792e3358001.tar.gz uiua-creative-coding-4014dc198f2ef7152f37f59668b16792e3358001.zip | |
Update polyrhythm notes/chords
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 |