Created
April 1, 2021 17:36
-
-
Save tedthetrumpet/cc826e6fb6572f09ab9316a74c0d03dc to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
29 mar | |
x << saw (100 ~~ 400 $ sqr [2,3,5,7]) * (-28) db; | |
x >> audio; -- direct audio output... | |
delay 0.01 0.8 x >> audio; -- and delayed audio output by 0.1 seconds | |
delay 0.2 0.7 x >> audio; -- and delayed audio output by 0.1 seconds | |
delay 0.05 0.7 x >> audio -- and delayed audio output by 0.1 seconds | |
struct (ascii "gh") $ n "2 1 5 3 6 2 5" # s "barung" | |
struct (ascii "<gh ij gh qw>") $ n "2 1 5 3 6 2 5" # s "barung" | |
variation | |
x << saw (100 ~~ 400 $ sqr [2,3,5,7]) * (-20) db * sin 1; | |
25 mar solo ply | |
-- activate experimental | |
fast 8 $ interlace (sound "kenong:6") (sound "gong:6") | |
spin 5 $ s "gong" # shape 0.9 | |
24 mar kath play | |
stack[ | |
juxBy 0.6 rev $ every 4 (hurry " 0.5 3 4") $ cat [ | |
n " 0 1 0 1 0 3 0 2" # s "peri barung" # gain 0.9, | |
slow 1.5 $ n " 0 4 0 5 0 1 7 1" # s "db barung" # gain 0.9] | |
] | |
--- | |
19 Mar rewrite my piece | |
-- metronome | |
n "8 5!3 " # s "808" | |
mask "1 0!15" $ fast 16 $ trunc (3/8) $ n (shuffle 8 $ run 8) #s "saron" | |
mask "1 0!31" $ fast 32 $ trunc (3/8) $ n (shuffle 8 $ run 8) #s "saron" | |
-- testing this seems correct | |
-- order of three instruments rotates, not really a problem? | |
mask "1 0!3" $ fast 2 $ trunc (3/8) $ n (shuffle 8 $ run 8) # s "{demung saron peking}%8" # gain 1 | |
-- is this a four bar repeated pattern? | |
mask "1 0!3" $ fast 2 $ trunc (3/8) $ n (loopFirst $ shuffle 8 $ run 8) # s "{demung saron peking}%8" # gain 1 | |
-- ok, getting there | |
!setbpm 50 | |
mask "1 0!15" $ fast 8 $ trunc (3/8) $ n (loopFirst $ shuffle 8 $ run 8) # s "{demung saron peking}%8" # gain 0.8 # up "-24" # silence | |
slow 2 $ struct (binary "88 88 7 88") $ s "{sf kendhang peri ul glitch}%8" # n (run 19) # silence | |
n "8 5!3 " # s "808" # silence | |
-- possible kemanak sounds | |
808:0, 808:2 | |
n "~ 0 2 0 " # s "808" # silence | |
ab:2 | |
bin:0 and bin:1 pitched up? | |
-------------- | |
18 Mar | |
-- !setbpm 60 version of Heather (dados) | |
fast 2 $ iter 2 $ every 2 (|+ n 1) $ every 4 (|- n 2) $ stack [slow 2 $ n " ~ 3 2 ~ 5 3 ~ 3" # s "peking" # cut 2 | |
, n "2 3 ~ 2 ~ 3 2 ~" # s "demung" # cut 1 | |
-- , n "5*4" # s "gong" # gain 0.7# cut 3 | |
, n "1 <2 3> ~ ~ 3 ~ ~ 2*3" # s "slenthem" # cut 4 | |
, iter 4 $ n "3 5 3 2" # s "saron" # cut 5 | |
-- , spin 2 $ every 2 rev $ n "4 3" # s "fada" # gain 0.6 | |
, n "3 5 2 4" # s "kendhang" | |
--, n "3 5 2 4" # s "juno kurt" | |
] | |
-- endpoint kath impro | |
degradeBy 1 $ stack [ | |
every 4 (hurry "2 2.5 3") $ cat [ | |
n " 0 1*4 0 1*4 0 1 0 1" # s "numbers" # gain 0 # end 0.2, | |
slow 1.5 $ n " 0 1 0 1 0 1 0 1" # s "numbers" # gain 0], | |
--n "6/2" # s "gong" # gain 0.8 # up (-12), | |
n "6" # s "glitch" # up "[-12, -30]" # gain 0.6, | |
degradeBy 1 $ slow 2 $ sometimes (rev) $ every 2 (hurry 2) $ spin 4 $ n "~ 4 ~ 2 4 <3 2> 6 5" # s "peking" # vowel "i" # cut 2 # up "[-24, -12]" # gain 0.8, | |
--slow 2 $ n " <3> ~ ~ ~ ~ <6 5 4> ~ ~" # s "saron" # up "0" # cut 1, | |
degradeBy 0.5 $ sometimes (rev) $ every 6 (hurry 2) $ n " 1 2 3 4 5 6 7 8 " # s "kendhang glitch juno" # gain 0.7 | |
--- figuring out structure of my piece | |
-- metronome n "8 5!3 " # s "808" | |
stack[ | |
n "1" # s "click" | |
, slow 8 $ n "1" #s "gong" | |
, slow 2 $ trunc (1/81) $ n (outside 4 loopFirst $ shuffle 81 $ run 81) #s "{demung saron peking}%81" # up "0" # gain 0.8 | |
-- , slow 4 $ struct (binary "88 88 7 88") $ s "{sf kendhang peri ul glitch}%8" # n (run 19) | |
] | |
-- | |
15 mar working | |
-- kath, er… | |
-- must be a simpler way to write the cat at the start | |
cat[ | |
n " 0 1 0 1 0 1 0 1" # s "peri" # gain 0.7, | |
slow 1.5 $ n " 0 1 0 1 0 1 0 1" # s "peri" # gain 0.7 | |
] | |
sometimes rev $ every 6 (hurry 2) $ n "1 2 3 4 5 6 7 8" # s "kendhang glitch juno" # gain 0.7 | |
sometimes rev $ n "~ 4 ~ 5 4 <3 2> 6 7" # s "peking" # vowel "a" # cut 2 # up "[0,0]" # gain 0.7 | |
-- js from that | |
rarely (# speed 0.5) $ slow 4 $ spin 5 $ iter 4 $ n "~ 4 ~ 5 4 <3 2> 6 7" # s "peking" # vowel "{a e x o u}%8" # gain 0.7 # up "[-24,-12]" | |
-- not quite the same as the cat | |
slow "<1 1.5>" $ n " 0 1 0 1 0 1 0 1" # s "peri" # gain 0.7 | |
-- dev HS piece | |
-- original | |
stack [n " 2 3 ~ 2 ~ 3 2 ~ " # s "saron" # cut 1, n " ~ 3 2 ~ 5 3 ~ 3 " # s "peking" # cut 2] | |
stack[ | |
every 2 (rotR 0.25) $ every 4 (|- n 1) $ stack [n " 2 3 ~ 2 ~ 3 2 ~ " # s "saron" # cut 1, n " ~ 3 2 ~ 5 3 ~ 3 " # s "peking" # cut 2], | |
struct "1!4" $ s "kenong", | |
n "<2 6 5 [3(3,8)]>" # s "[gong, demung]" | |
] | |
------------ | |
kath | |
120 | |
stack [ | |
cat [ | |
n " 0 1 0 1 0 1 0 1" # s "peri" # gain 0.7, | |
slow 1.5 $ n " 0 1 0 1 0 1 0 1" # s "peri" # gain 0.7 | |
] | |
, | |
--"6" # s "glitch" # up "[-12, -80]" # gain 0.6, | |
sometimes (rev) $ every 6 (hurry 2) $ n " 1 2 3 4 5 6 7 8 " # s "kendhang glitch juno" # gain 0.5 | |
] | |
---- my one | |
slow 2 $ trunc (3/81) $ n (shuffle 81 $ run 81) #s "{demung saron peking}%64" # up "-24" | |
slow 4 $ struct (binary "88 88 7 88") $ s "kendhang" # n (run 19) | |
stack[ | |
slow 2 $ trunc (3/81) $ n (outside 4 loopFirst $ shuffle 81 $ run 81) #s "{demung saron peking}%64" # up "-24" # gain 0.9 # vowel "i a e a a u a" | |
, slow 4 $ struct (binary "88 88 7 88") $ s "{sf kendhang peri ul glitch}%8" # n (run 19) | |
] | |
-- not quite yet | |
-- slow 8 $ struct (ascii "iaeaaua" ) $ s "kendhang" # n "8 4 8 2 7 8 6" | |
-- slow "8 4" $ struct (ascii "8888788" ) $ s "kendhang" # n "1 a e a a 2 a" | |
slow "8 8 8 8 7 8 8" $ struct (ascii "iaeaaua" ) $ s "kendhang" # n "8 4 8 2 7 8 6" | |
-- prep 10/3 | |
-- chords | |
trunc (0.0625) $ n (shuffle 64 $ run 64) #s "{slenthem demung saron peking}%64 | |
loopFirst $ stripe "0.125 2" $ trunc (0.0625) $ n (shuffle 64 $ run 64) #s "{slenthem demung saron peking}%64" | |
-- fast "<0.5 1 2 3>" $ trunc (0.0625) $ n (slow 4 $ loopFirst $ fast 4 $ shuffle 64 $ run 64) #s "{slenthem demung saron peking}%64" | |
fast "<0.5 1 2 3>" $ trunc (0.0625) $ n (outside 4 loopFirst $ shuffle 64 $ run 64) #s "{slenthem demung saron peking}%64" | |
fast "<0.5 1 4 2 4 4 8 8>" $ trunc (0.0625) $ n (outside 4 loopFirst $ shuffle 64 $ run 64) #s "{gong kenong barung slenthem}%64" | |
fast "<0.5 1 4 2 4 4 8 8>" $ trunc (0.0625) $ n (outside 8 loopFirst $ shuffle 64 $ run 64) #s "{kenong barung slenthem demung}%64" | |
-- | |
stack[ | |
n "" | |
, every 4 (struct "t(13,16)") $ n "[0 .. 3]!4" # s "expbd" # pan (range "-0.5" 0.5 $ sine) | |
, s "kenong!4" # up "[-12,0] 0!3" | |
, every 2 (|+ n 2) $ every 4 rev $ struct (ascii "ji") $ s "barung" # gain 1.2 | |
# n "0 ~ 9 2 5*3 <6 9> 8 3!2 8 3" | |
] | |
-- | |
struct (ascii "iu") $ n "9 2 6 4 7 8 6 2 8" # s "barung" | |
!setcps 100 | |
mask (ascii "er") $ stack[ | |
cat[ | |
struct (ascii "iu") $ n "9 2 6 4 7 8 6 2 8" # s "barung" | |
, rotR 0.25 $ struct (ascii "qj") $ n "9 2 6 4 7 8 6 2 8" # s "kenong" | |
, struct (ascii "iu") $ n "9 2 6 4 7 8 6 2 8" # s "barung" | |
, struct (ascii "nb") $ n "9 2 ~ 7 4 6*2 2 8" # s "kenong" | |
] | |
, struct (ascii "wq") $ n "0 ~ 9 5 8 4 7 5" # s "kendhang" | |
] | |
mask (ascii "er jh") | |
mask (slow 2 $ ascii "er jh er hg") | |
"kendhang peri cabinet" | |
every 3 (|- n 2) $ mask (slow 2 $ ascii "er jh er hg") $ stack[ | |
cat[ | |
struct (ascii "iu") $ n "9 2 6 4 7 8 6 2 8" # s "barung" | |
, rotR 0.25 $ struct (ascii "qj") $ n "9 2 6 4 7 8 6 2 8" # s "kenong" | |
, struct (ascii "iu") $ n "9 2 6 4 7 8 6 2 8" # s "barung" | |
, struct (ascii "nb") $ n "9 2 ~ 7 4 6*2 2 8" # s "kenong" | |
] # cut 1 # up "-12" | |
, struct (ascii "wq") $ n "0 ~ 9 5 8 4 7 5" # s "sf:2 db peri cabinet" | |
] | |
-- jamming 6/03 | |
superimpose ((rotL 0.25) . (# speed "-0.25")) $ loopAt 0.25 $ n 2 # s "barung" | |
-- iya! | |
stack [ | |
spin 2 $ n " 2 3 5 7 6 4 1" # s "kendhang sf:8 barung" # up " 0 0 -19 0 0" | |
, n " 2 3 5 7 6 4 1" # s "peri cabinet speakspell kenong" | |
] | |
stack [ | |
spin 2 $ n " 2 3 5 7 6 4 1 2 3" # s "kendhang sf:8 barung" # up " {0 0 -19 0 6 7}%14" # gain 0.5 | |
, slow 2 $ iter 4 $ n " 2 3 [5 7] 5 6 4 1 3 2" # s "peri juno kenong" | |
, spin 3 $ n "5 6" # s "kurt" # up "-12" | |
] | |
-- silent $ stack [ | |
mask "t(5,8)" $ spin 4 $s "peri:5 3 ul:4 2 industrial:6 cabinet: 4 5" # up "[3,0,-5] [2,-1,-5]" # gain 0.8, | |
every 2 ((ply 2) . (superimpose $ ply 3)) $ n "5 3 5 2 5 4 3 1" # s "kenong" # vowel "a e a o" # gain 0.7 # cut 1, | |
every 2 ((ply 2) . (superimpose $ ply 3)) $ n "5 [4 3] 7 6 5 4 3 2" # s "kenong" # vowel "a e a o" # gain 0.7 # cut 1 # up "-7" | |
] # silence | |
4 mar prep | |
!setbpm 120 | |
iter "2 7" $ superimpose ((# up 12).((1/14) ~>)) $ loopFirst $ n (scramble 7 $ run 7) # s "barung" | |
iter "2 7" $ superimpose ((# up "-12").((1/14) ~>)) $ loopFirst $ n (scramble 7 $ run 7) # s "barung" # vowel "{u i o e a x}%7" | |
iter "2 7" $ superimpose ((# up "-5").((1/14) ~>)) $ loopFirst $ n (scramble 7 $ run 7) # s "barung" # vowel "{u i o e a x}%7" # cut 1 | |
stack[ | |
every 2 (# silence) $ s "saron!4" | |
, (1 ~>) $ every 2 (# silence) $ s "kenong!4" | |
] | |
-- yes | |
stack[ | |
s "" | |
, whenmod 3 1 (# silence) $ loopFirst $ n "1!4" # s "demung" | |
, (1 ~>) $ whenmod 3 1 (# silence) $ n "2!4" # s "barung" | |
, (2 ~>) $ whenmod 3 1 (# silence) $ loopFirst $ n "3!4" # s "peking" | |
] | |
-- yes | |
stack[ | |
s "" | |
, whenmod 8 1 (# silence) $ n "1!4" # s "demung" | |
, (1 ~>) $ whenmod 8 1 (# silence) $ n "2!4" # s "barung" | |
, (2 ~>) $ whenmod 8 1 (# silence) $ n "3!4" # s "peking" | |
, (3 ~>) $ whenmod 8 1 (# silence) $ n "4!4" # s "saron" | |
, (4 ~>) $ whenmod 8 1 (# silence) $ n "5!4" # s "kendhang" | |
, (5 ~>) $ whenmod 8 1 (# silence) $ n "5!4" # s "gong" | |
, (6 ~>) $ whenmod 8 1 (# silence) $ n "6!4" # s "kenong" | |
, (7 ~>) $ whenmod 8 1 (# silence) $ n "7!4" # s "peking" | |
] | |
-- longer cycle | |
slow 2 $ stack[ | |
s "" | |
, whenmod 8 1 (# silence) $ n "1 2 3 5 6 5 3 2" # s "demung" # cut 1 | |
, (1 ~>) $ whenmod 8 1 (# silence) $ n "1 2 3 5 6 5 3 2" # s "barung" | |
, (2 ~>) $ whenmod 8 1 (# silence) $ fast 2 $ n "1 2 3 5 6 5 3 2 6 5 3 6 4 5 1 2" # s "peking" | |
, (3 ~>) $ whenmod 8 1 (# silence) $ n "1 2 3 5*3 6 5 3 2" # s "saron" | |
, (4 ~>) $ whenmod 8 1 (# silence) $ n "1 2*2 3 5 6 5 3 2" # s "kendhang" | |
, (5 ~>) $ whenmod 8 1 (# silence) $ n "1 2 <3 4 > 5 6 5 3 2" # s "gong" # cut 2 | |
, (6 ~>) $ whenmod 8 1 (# silence) $ n "1 2 3 5 6 5 <3 4> 2" # s "kenong" | |
, (7 ~>) $ whenmod 8 1 (# silence) $ ply 2 $ n "1 2 3 5 6 5 3 2" # s "peking" | |
] | |
-- oh ffs | |
slow 2 $ cat $ [n "1 2 3 5 6 5 3 2" # s "demung", n "1 2 3 5 6 5 3 2" # s "barung"] | |
slow 2 $ cat $ [ | |
n "1 2 3 5 6 5 3 2" # s "demung" # cut 1 | |
, n "1 2 3 5 6 5 3 2" # s "barung" | |
, fast 2 $ n "1 2 3 5 6 5 3 2 6 5 3 6 4 5 1 2" # s "peking" | |
, n "1 2 3 5*3 6 5 3 2" # s "saron" | |
, n "1 2*2 3 5 6 5 3 2" # s "kendhang" | |
, n "1 2 <3 4 > 5 6 5 3 2" # s "gong" # cut 2 | |
, n "1 2 3 5 6 5 <3 4> 2" # s "kenong" | |
, ply 2 $ n "1 2 3 5 6 5 3 2" # s "peking" | |
] | |
-- building | |
mask "t(5,8)" $ n (loopFirst $ shuffle 8 $ run 8) # s "barung" | |
cat [ | |
mask "t(5,8)" $ n (loopFirst $ shuffle 8 $ run 8) # s "barung" | |
, n (loopFirst $ (1 ~>) $ shuffle 8 $ run 8) # s "barung" |+ n 8 | |
] | |
cat [ | |
mask "t(5,8)" $ n (loopFirst $ shuffle 8 $ run 8) # s "barung" | |
, n (loopFirst $ (1 ~>) $ shuffle 8 $ run 8) # s "barung" |+ n 8 | |
, mask "t(5,8)" $ n (loopFirst $ shuffle 8 $ run 8) # s "barung" | |
, n (loopFirst $ (2 ~>) $ shuffle 8 $ run 16) # s "barung" |+ n 8 | |
] | |
stack [ | |
cat [ | |
mask "t(5,8)" $ n (loopFirst $ shuffle 8 $ run 8) # s "barung" | |
, n (loopFirst $ (1 ~>) $ shuffle 8 $ run 8) # s "barung" |+ n 8 | |
, mask "t(5,8)" $ n (loopFirst $ shuffle 8 $ run 8) # s "barung" | |
, n (loopFirst $ (2 ~>) $ shuffle 8 $ run 16) # s "barung" |+ n 8 | |
] | |
, rarely (hurry 2) $ n (shuffle 8 $ run 8) # s "kendhang" | |
, slow 4 $ s "gong" | |
] | |
from 24 feb roulette (probably slow tempo!) | |
stack[ | |
s "" | |
, slow 2 $ n "6*4" # s "gong" # gain 0.6 | |
-- , degradeBy 0 $ n "[3 5 3 2 5 6 5 3]" # s "demung kenong" | |
, slow 3 $ n " 6*3 ~ ~ ~ ~ ~ 2 ~ " # s " saron" | |
, spin 3 $ n "5!4" # s "rave" | |
, n "1*3 2 1*3 3 1*3 <5 4>" # s "kenong" | |
, fast 2 $ iter 4 $ n "4 5 4 2 5 6 7 8" # s "peking" | |
] | |
n "2*4" # s "kurt" # up "-5 0 -7 -12" | |
degradeBy 1 $ stack | |
[ | |
fast 2 $ n "9 8 2 3 9 4 8 7 5 5 3 5 2" # s "sf" # up (range 0 12 rand) | |
,n " 5 2 4 3 " # s "can" | |
,slow 2 $ n "2 ~ 2 ~ " # s "can" # up "-12" | |
,n "5 2" # s "kurt gong" # up "-12" | |
-- , fast 1.4 $ n "6 <5 3*3> 2 7" # s "peking kurt gong:5 kenong" | |
,n "8 ~ 8 [2 8 8]/3 ~ 8 3" # s"peri" | |
] | |
24 Feb 2021 revisit | |
index bit.ly/nagacode | |
new: have to drop down 'MiniTidal | |
no tempo box: use !setbpm in terminal/chat | |
try the roulette? | |
!presetview roulette | |
!publishview default (should push that view to everyone) | |
Basic idea is this: (1) login to an ensemble and give yourself a name/handle while you do it; (2) to line up to change to code click on a + - so long as your name is at the head of the list it is your turn; (3) when you are finished your turn, click on the little x next to your name/handle to remove yourself (and if someone else is behind you in the line they will now be the head of the line) | |
try some other sounds? | |
can (14), sf (18) | |
slow 4 $ up (toScale [0, 2, 3.3, 4.9, 7.9, 9, 10.3, 12] "7!8") # s "gtr" # gain 0.7 # cut 1 | |
slow 2 $ n "7!8" # s "demung" # gain 0.7 # cut 2 | |
C pitch sounds: | |
demung:7, bajo (2), gtr (3), sprvibe, arpy, bass1:6 (also others 30 there, but some are f not c), flick, juno, sf | |
saving our own bits of code | |
jam | |
degradeBy 0.9 $ ghost $ fast "4 2" $ every 4 (|- up "[0,6]") $ iter 4 $ n "< [~ 2 ] [3 5 ] [ 6*4 ~*4 ] [1 2 3 ~ ]>" # s (sew "t(3,8)" "peking" "saron") # up "-24" | |
---------------------------- | |
16 Dec sampak | |
slow 8 $ n "3 4 4*2 4 3 4 2 ~ 5 ~ 6 ~ 5 ~ 3 ~ 6 ~ 5 ~ 6 ~ 7 ~ ~ 3 5 6 7 ~ ~ 6 5 6 5 ~ 3 6 5 ~ 2 ~ 3 ~ 5 ~ 6 ~ 5 7 ~ 6 ~ 5 6 ~ 5 7 ~ 6 ~ 5 3 ~ 5 6 7 6 5 3 2 ~ " # s "saron" # gain 0 | |
3 Dec notes from performances | |
trunc plays only part of a pattern | |
see also linger | |
1 Dec just jamming, now a piece 'redline' | |
-- struct "t f f t f t t f " $ off 0.5 (|+ n 8) $ every 4 (rev . (hurry 1.5)) $ n "8 8 7 3 5*2 4 6 [9 8] 2" # s "ul" # vowel "e a k o i" | |
-- s "pad" # n "2" # up "<0 0 0 2>" | |
-- up "~ 2 6 4 7 6 4 <9 2 9 7>" # s "demung:7" | |
-- hline ([-1,2.5,3,-4,7] / 6 * fxy * sin [0.35,(0.25 ~~ 0.4 $ sin 0.04) ]) 0.05 >> rgb | |
26 Nov rehearsal | |
mute discipline in zoom | |
Heather gong impro, show her the code? | |
Soundcheck carefully | |
propose weekend times | |
suwukan2 is out of tune! | |
alternative in-tune less helicopter 2 rumble (eb-e ish!) | |
n "[1!9,1!13]" # s "gong " # up 1.6 # gain 0.6 # pan (range (-0.5) 0.5 sine) | |
rumble on 1 (d) | |
n "[1!9,1!13]" # s "gong " # up 0 # gain 0.6 # pan (range (-0.5) 0.5 sine) | |
song in gm, but a bit slow | |
slow 25 $ n "0 1 2 3 4 5 6 7" # s "fada" # up "-4" | |
Tonight's deployment of Estuary includes 4 new terminal commands: !resetzones [clears all running code even if not visible] | |
!resetviews [clears away all custom and locally defined views, taking everyone back to the default default] | |
!resettempo [restarts the tempo grid at the present moment, which helps with rounding errors in some languages] | |
!reset [a short cut for !resetzones + !resettempo] | |
19 Nov rehearsal | |
notes | |
no talking: zoom audio off except when playing or singing | |
sophie will 'conduct' in the chat box | |
at start, muireann solo song once before others join | |
three waves of impro | |
so two interludes | |
one of those interludes live balungan | |
https://rcs-ac-uk.zoom.us/j/9043822682 | |
jam | |
loopFirst $ (2 <~) $ scramble "<16 4>" $ n "1 2? 3 4? 5? 6 7 1" # s "kenong" # up "{-12 -7 0 12}%8" # cut 1 | |
5 Nov rehearsal | |
* while on zoom, share screen and demonstrate | |
* settings: canvas, WebDirt, Dynamics | |
* reference, MiniTidal | |
* theme | |
* display images and/or videos? | |
* hydra not | |
* punctual for images ok, but need to upload to github | |
* CineCer0 for video, from github works: | |
"https://github.com/tedthetrumpet/testpage/blob/master/first%20gadhon%20rehearsal%20with%20prasad%2024%20may%202017.mp4?raw=true" | |
s "demung!8" # gain 0.7 # up (scale "dorian" "0 .. 7 ") | |
stack [ | |
up "<c4'maj e4'min f4'maj e4'min>" # s "demung:7" | |
, s "slenthem:7(3,8)" # up "-12" # cut 1 | |
, slow 2 $ s "saron!8" # up (scale "dorian" "0 1 2 3 4 5 4 3 2 1") | |
] | |
-- pad? | |
s "ch2018R" # n "13" # up 1 | |
--------------------------- | |
https://github.com/tidalcycles/Dirt-Samples | |
https://github.com/dktr0/cybernetic-samples/tree/master/sounds | |
https://github.com/dktr0/supercontinent | |
https://github.com/djmelan3/UPLOrc | |
https://github.com/tedthetrumpet/tidal/tree/master/nmsamples | |
------- | |
31 Oct jam | |
stack [ | |
s "kendhang:3*<4 8 16 8>" # n (loopFirst $ (2 ~>) $ scramble 16 $ run 16), | |
s "bass3!16" # note "[df, df6, df7]" # gain 0.8 # cutoff (slow 3 $ range 800 8000 tri) # resonance 0.97, | |
sometimes (hurry 2) $ n "1 2 5 6" # s "demung", | |
ply 2 $ n "1 2 5 6" # s "demung" | |
] | |
------------------- | |
Waves (early version) | |
90 % 240 | |
slow 16 $ n "[1 2 5 ~ ~ ~] ~@0.4 [6 5 ~ ~] ~@0.6 [5 7 ~ ~] ~@0.3 [6 5 ~ ~] ~@0.4 [1 2 5 ~ ~ ~ ] ~@0.4 [5 6 5 ~ ~ ~] ~@0.3 [5 5 5 7 ~ ~ ~ ~] ~@0.6 [6 5 ~ ~] ~@0.7 [1 2 5 ~ ~ ~] ~@0.8 [4 4 6 5 2 ]@1.5 [~ ~ ~ ~ ~]" # s "demung" | |
slow 16 $ (1/48 ~>) $ n "[1 2 5 ~ ~ ~] ~@0.4 [6 5 ~ ~] ~@0.6 [5 7 ~ ~] ~@0.3 [6 5 ~ ~] ~@0.4 [1 2 5 ~ ~ ~ ] ~@0.4 [5 6 5 ~ ~ ~] ~@0.3 [5 5 5 7 ~ ~ ~ ~] ~@0.6 [6 5 ~ ~] ~@0.7 [1 2 5 ~ ~ ~] ~@0.8 [4 4 6 5 2 ]@1.5 [~ ~ ~ ~ ~]" # s "saron" | |
s "gong:2!24" # gain 0.5 # speed (range 0.99 1.01 $ rand) | |
Chuir iad mise (Bairn's Kist) | |
https://www.youtube.com/watch?v=pk9MRH2ZMBI | |
------------------------ | |
25 oct buildup | |
-- rehearse this as a solo from scratch piece? | |
100 % 240 | |
!setbpm 100 | |
n "<6 3 2 3>" # s "slenthem" | |
slow 4 $ s "gong:6" # up (-12) | |
-- start empty, write one gotra at a time | |
n "<[6 2 3 5] [3 2 5 2] [3 5 2 3] [5 2 3 5] >" # s "saron" | |
-- variation -- rarely (fast 2) $ rarely (scramble 4) $ | |
-- variation not actually very good | |
-- better is just rarely (fast 4) kind of jazzy | |
-- copy paste above | |
ghost $ ply 2 $ n "<[6 2 3 5] [3 2 5 2] [3 5 2 3] [5 2 3 5] >" # s "peking" # pan (range (-0.4) 0.4 $ rand) | |
-- start with run 8 | |
repeatCycles 999 $ n (scramble 8 $ run "8 16" ) # s "kendhang" | |
------- punctual | |
a << fft fx; | |
y << step [-0.1,0.2,-0.3,0.4] $ lfsaw cps; | |
x << step [0.1,-0.2,0.3,-0.4] $ lfsaw cps/3; | |
t << tex "https://upload.wikimedia.org/wikipedia/commons/1/14/Wayang_kulit_%28Javanese_shadow_puppetry%29_characters.jpg" [fx/2+x+a/16, fy+y]; | |
p << prox 0 ** (32~~1 $ bipolar lo); | |
p* t >> video | |
------- | |
-- Hydra | |
-- bit too bright, but there is a setting for that | |
osc(20,0.1,[0.4,0.9,4]).rotate().modulateRotate(noise()).out() | |
!localview 2x3 [[label 1,code 2 0],[label 3,code 4 0],[label 5,code 6 0],[label 7,code 8 0],[label 9,code 10 0],[label 11,code 12 0]] | |
-- Oct prep for Dec livecode | |
* own revision | |
* recreate nagamas ensemble on estuary | |
* figure out new view editor | |
* find tutorials | |
* make sure using https://estuary.mcmaster.ca/ not intramuros | |
pla | |
every 4 (hurry 0.5) $ every 2 (fast 2) $ s "saron demung peking gong kendhang ~ kenong!2" # cut 1 # n "5 4 <3 2>" # up "-24 12" # vowel "a e i o u" | |
stack [s "bd!4", s "[~ sd]!2", s "[~ kendhang]!4"] # n (run 8) | |
ghost $ repeatCycles 1024 $ (2 <~) $ n (scramble 8 $ run 8) # s "demung" # cut 1 # gain 0.8 | |
every 4 (scramble 8) $ repeatCycles 1024 $ (1 <~) $ n "<1 2> 1 3! 5 [6 5] 7!"# s "saron" # gain 0.8 | |
s "gong" # n "<1! 2!>" # cut 2 | |
repeatCycles 1024 $ s "kendhang!8" # n (scramble 8 $ run 8) # up "[0,12]" | |
ghost $ brak $ repeatCycles 1024 $ s "kendhang!8" # n (scramble 8 $ run 8) # up "[0,12]" # vowel "a e i o u r" | |
-- 16 July final rehearsal | |
don't forget to tell them about putting their location in. also, try to figure out why some people come in as anonymous? flush browser cache or restart or something? or use a different username? | |
-- 8 July | |
checking new shorter samples | |
good | |
make new tutorial | |
degradeBy | |
shuffle (including shuffle 31 trick) | |
up (range 0 12 $ sine), up (irand (-48) + 24), (range 0 24 $ rand) | |
avoid crush | |
n "6 2 7 2 3 2 7 5 6 3 3 ~ ~ 6 5 3 2 5 6 5 3 2 7 5 6 2 7 2 3 2 7 5" # s "demung" # cut 1 | |
-------- | |
degradeBy 0.4 $ fast 2 $ shuffle 31 $ n "6 2 7 2 3 2 7 5 6 3 3 ~ ~ 6 5 3 2 5 6 5 3 2 7 5 6 2 7 2 3 2 7 5" # s "slenthem" # cut 1 # up (range (-24) 24 $ sine) | |
degradeBy 0.4 $ fast "2 4" $ shuffle 31 $ n "6 2 7 2 3 2 7 5 6 3 3 ~ ~ 6 5 3 2 5 6 5 3 2 7 5 6 2 7 2 3 2 7 5" # s "slenthem" # up (slow 4 $ range (-24) 24 $ sine) # vowel "a u i o e r" | |
found this sitting in estuary, nice, meditative | |
hurry 0.5 $ ply 12 $ n "4" # s "saron" | |
n "6!12" # s "slenthem" # gain 0.7 # vowel "i" | |
hurry 0.25 $ ply 12 $ n "2" # s "peking" | |
n "9" # s "gong" | |
-- 2 July | |
maybe? | |
fast 2 $ n "{7 ~ 7 ~ 1 ~ 7 ~ 7 ~ 1 ~ 7 ~ 7 ~ 6 7 8 9 6 7 8 9 6 7 8 9 6 7 8 9 8 9 10 ~ 7 ~ 1 ~ ~ ~ 7 6 8 9 1 ~ }%72" # s "kendhang" | |
close, not quite | |
-- (32/36 <~) $ fast 2 $ n "{7 ~ 7 ~ 1 ~ 7 ~ 7 ~ 1 ~ 7 ~ 7 ~ 6 7 8 9 6 7 8 9 6 7 8 9 6 7 8 9 8 9 10 ~ 7 ~ 1 ~ ~ ~ 7 6 8 9 1 ~ ~ ~ }%72" # s "kendhang" | |
-- 18 June | |
sometimes (hurry 2) $ slowstripe 8 $ n "1(5,8)" # s "slenthem gong:6" # cut 1 # up "{13 4 8 9 12}%8" | |
!localview 2x4 [border { [label:0,text:1 0]} ,border { [label:2,text:3 0]} ,border { [label:4,text:5 0]} ,border { [label:6,text:7 0]} ,border { [label:8,text:9 0]} ,border { [label:10,text:11 0]} ,border { [label:12,text:13 0]} ,border { [label:14,tempo]} ] | |
!publishview default | |
https://youtu.be/PK3-X3rOLxI | |
naga1 naga2 naga3 | |
-- 11 June | |
to do: tutorial/notes on sometimes (etc), every, ply, fast, slow, hurry, and patterning them. iter? oh, and up | |
moved the ensemble to https://estuary.mcmaster.ca/ | |
password still 6532gong | |
!setcps 0.1 | |
!setbpm 120 | |
terminal: ctrl-shift-x while cursor is on something editable | |
Entering !presetview nameOfView at the terminal will change your local view to the preset called nameOfView | |
!publishview default will make that view the default view for everyone in the ensemble. | |
----------- | |
s "1 demung kenong saron peking slenthem demung kendhang" | |
-- numebers in s just ignored? | |
s "saron ~ kenong:<6 5 3> ~ kenong ~peking [demung:1 [demung:6 demung:5]]" | |
s "saron kenong:<6 5 3>" -- throws no error but does not work | |
n "1 2 7 4!2 ~ ~ 6 7 [4 6] 7" # s "saron demung gong" # cut 1 | |
-- prep for 28 May | |
single code roulette | |
keep audio open in zoom while doing this | |
change to two windows | |
!presetview twocolumns | |
!publishview default | |
put people in order | |
put first bit of code | |
slow 2 $ n "6 [5 2] 3 7" # s "saron" # cut 1 | |
put your name, make a (small?) change, delete your name | |
next person goes | |
double code roulette | |
two lots of code in left and right windows | |
call them A and B | |
on your turn make a change to A, then B | |
(not sure how timing of changes will work, let's try) | |
places within the cycle | |
need a long cycle? | |
how to do that so that people can work with | |
s "{gong:1 ~ ~ ~ kenong ~ ~ ~ kenong ~ ~ ~ kenong ~ ~ ~}%4" -- no | |
s "[<gong:1 kenong kenong kenong>]" -- not much better | |
n "[<~ [ 6 5 ] ~ ~>]" # s "saron" # cut 1 | |
would be better to have a cycle of 16 beats and a slow tempo | |
working at different time scales | |
very gamelan, combine that with assigning instruments | |
incorporate solos into rehersals | |
'spacial strategies'? | |
------------------------- | |
notes on second session 21 May | |
Sen, Bill, Mags, Kath, Heather, Simon | |
chaotic and unplanned start, went on a long time | |
some good moments, both overplaying and not playing, left out | |
several people seemed to studied, one had not (admitted) | |
Bill had coded up the whole of Hudan Mas! | |
I don't think I played that often | |
discussion afterwards, going forward | |
don't do the algovoids gig | |
do a small 'sharing' gig for other naga mas members and friends | |
some sort of plan, structure | |
individuals, groups, or whole group: set pieces <--> improvised | |
agree structure and timing of concert | |
----------------- | |
Bill's Hudan Mas | |
stack [n "5 6 5 3 2 6 5 3 2 ~ 3 2 3 6 5 3 2 6 5 3 2 6 5 3 2 ~ 3 2 3 6 5 3 2 7 5 6 7 5 6 7 2 2 7 6 5 6 7 6" # s "demung", n "5 5 6 6 5 5 3 3 2 2 6 6 5 5 3 3 2 2 5 5 3 3 2 2 3 3 6 6 5 5 3 3 2 2 6 6 5 5 3 3 2 2 6 6 5 5 3 3 2 2 5 5 3 3 2 2 3 3 6 6 5 5 3 3 2 2 7 7 5 5 6 6 7 7 5 5 6 6 7 7 2 2 2 2 7 7 6 6 5 5 6 6 7 7 6 6" # s "peking" # cut 0] | |
stack [s "gong", n "5 8 ~ 8 2 8 ~ 8 2 8 ~ 8 3 8 ~ 8 2 8 ~ 8 2 8 ~ 8 2 8 ~ 8 3 8 ~ 8 2 8 ~ 8 " # s "kenong", n "~ ~ ~ 5 ~ 5 ~ 6 ~ ~ ~ 6 ~ 6 ~ 7" # s "gong" # cut 1] | |
n "~ 4 4 [4 1] ~ 4 4 [4 1] ~ 4 4 [4 1] [~ 4] [1 4] 1 [4 1]" # s "kendhang" # cut 1 | |
-- js refactor | |
-- tempo | |
100 % 4000 | |
(0.015625 ~>) $ n "[6 5 3 2 6 5 3 2 2 3 2 3 6 5 3 2]!2 [7 5 6 7 5 6 7 2 2 7 6 5 6 7 6 5]!2" # s "demung" # cut 1 | |
ply 2 $ (0.015625 ~>) $ n "[6 5 3 2 6 5 3 2 2 3 2 3 6 5 3 2]!2 [7 5 6 7 5 6 7 2 2 7 6 5 6 7 6 5]!2" # s "peking" # cut 2 -- solo style | |
s "gong!4" -- every line | |
s "[~ ~ kenong ~]!16" | |
(0.0625 ~>) $ n "[2 2 3 2]!2 [7 2 5 5]!" # s "kenong" | |
fast 4 $ n "[~ 4 4 [4 1]]!3 [~ 4 1 4 1 ~ 4 1]" # s "kendhang" | |
----------------- | |
mentioned <> and euclid in fourth document, also commas (sort of) | |
ply scramble shuffle fast slow rev | |
note, up? | |
------------------ | |
Thoughts for follow up | |
share video more widely with group | |
stack [s "~ kenong", s "demung ~"] | |
find out if # cps works | |
not yet, but get some loops to work with | |
encourage more regular work? | |
------------------ | |
https://github.com/dktr0/estuary/blob/1f331c1a864fb8daed17d3f252c26b14e63d421f/client/src/Estuary/Languages/MiniTidal.md | |
https://github.com/tidalcycles/Tidal/blob/master/tidal-parse/src/Sound/Tidal/Parse.hs | |
------------------ 14 May | |
plan for first session together | |
record in screenflick, no actually using filmora | |
use lower res screen 1280*800 | |
zoom audio only as conversation backchannel | |
think headphones will be essential for all | |
for screenflick need to set system output before launching chrome | |
which is why filmora is better! | |
get everyone into nagamas ensemble in estuary | |
remember to suggest turn off canvas for better performance | |
shift-ctrl-x | |
!presetview supercontinent | |
!publishview default | |
don't bother with chat window, just use comments to chat, or zoom | |
allow free impro first! | |
then restrict, eg assign each person an instrument | |
layer in, keep it simple | |
take questions at end | |
share recording afterwards | |
reminder to self of what we have covered | |
tempo | |
comment to silence | |
s and n | |
mini-notation | |
saron:6 | |
~ [] * \ ! | |
# gain | |
(0.25 <~) $ s "gong" | |
cut (need to explain using different numbers!) | |
tempted to introduce | |
<> and euclid | |
ply scramble shuffle fast slow rev | |
-- estuary notes | |
admin password is morelia | |
Global delay useful for when playing with acoustic musicians over the network. Entering !delay 0.25 at the terminal will put a delay of 0.25 seconds (for example) on all of Estuary's audio output | |
https://www.facebook.com/estuaryPlatform | |
Turn off canvas (checkbox) to improve performance | |
Not clear | |
!publishview default | |
!listviews | |
!presetview nameOfView | |
test ensemble password is test | |
Entering !presetview nameOfView at the terminal will change your local view to the preset called nameOfView | |
!publishview default will make that view the default view for everyone in the ensemble. | |
!listviews | |
The names of all the presets are here: https://github.com/dktr0/estuary/blob/master/client/src/Estuary/Types/View/Presets.hs | |
Looking at the discussion above and saying this in case it helps anyone: if you join an ensemble without entering any password, you will effectively be there an "observer" - you'll see changes others make, and can even make changes yourself, but no one will see changes you make. If you try to join an ensemble with the incorrect password, that should fail with a message. Finally, only if you join an ensemble with its correct password can you edit and other people will see your edits. | |
ensembles in Estuary now expire (14 days after the last action within them, by default) | |
ensemble name: nagamas | |
host password: careful, that gets shown in terminal! 6532wilujeng | |
participant password: 6532gong | |
community password: morelia | |
terminal: ctrl-shift-x while cursor is on something editable | |
---------- | |
We're going to move the tempo box into the hideable terminal/footer. A quick fix would be to use the supercontinent preset, so in the terminal: | |
!presetview supercontinent | |
!publishview default | |
(to make it the default view for everyone in the ensemble) | |
That gives you nine editors, a tempo box, and a display of everyone in the ensemble (duplicating what is now in the terminal...) | |
The not-so-quick fix is to construct your own view using the not-very-documented view language built in to Estuary. | |
!dumpview | |
(will show you how your current view is defined in the view language) | |
!localview [text like the result of dumpview describing a valid view] | |
(will make your own view the view you specify) | |
!publishview default | |
(will make that view the default) | |
!publishview someOtherPresetName | |
(you can also publish views with other names so that ensembles can have multiple views) | |
2x3 [[label:1,text:2 0],[label:3,text:4 0],[label:5,text:6 0],[label:7,text:8 0],[label:9,text:10 0],[label:11,tempo]] | |
that is an example of the default view - the numbers immediately after label: and text: are zone numbers that uniquely identify editable things in the ensemble (generally speaking, don't reuse zone numbers) | |
the 0 after the text used to be a setting for how many rows of text there were, but now the text editors do something more adaptive/intelligent, so that parameter will probably go away | |
You can get more examples of how the language works by doing !listviews | |
to see the available presets, !presetview [name] | |
to change to them, and then !dumpview to dump their code | |
---------- | |
estuary samples | |
---------- | |
-- 2020-05-06 | |
every 2 (fast 2) $ n " 7 6 <~ 4> [3 2]" # s "demung" # cut 1 # gain 0.9 | |
slow 4 $ n "2!4 3!4" # s "slenthem" # gain 0.9 | |
n "9!4 ~!12" # s "kendhang" # gain 1.2 # up "[-12, -24]" | |
n "7!2 [7!2] 7" # s "kendhang" # gain 1.2 | |
slow 2 $ s "<gong:6 gong:7>" | |
80 % 240 | |
------------------ | |
s "kendhang!16" # n (shuffle 19 $ run 19) # silence | |
s "kenong:0!4" # silence | |
slow 2 $ s "demung" <| n "6 ~ 6 ~ 5 6 ~ 5 6 ~ 5 6 ~ 5 6 ~ 5 6 5 ~ 6 5 ~ 6 5 ~ 6 5 ~ 6 5 ~" # gain 0.6 # silence | |
slow 2 $ s "demung" <| n "2 ~ 2 3 ~ 2 3 ~ 2 3 ~ 2 3 ~ 2 3 ~ 2 ~ 3 2 ~ 3 2 ~ 3 2 ~ 3 2 ~ 3" # gain 0.6 # silence | |
slow 2 $ s "gong:0" # gain 0.6 # silence |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment