setcps(130/120/4)

hush

let maxmax = 1.2
let minmin = 0.4

xfade 1 $ every 4 (slow 2) $ every 8 (fast 2) $ stack [
  striate 32 $ layer [slow 8, slow 4, ghost] $ slowcat [
    s "gra:2 ~ gra:2 gra:2" # pan 0.3 # gain 0.8,
    s "gra:2*2 ~ gra:2*2 gra:1 gra:2*2 gra:1" # pan 0.7 # gain 0.4
  ] # gain 0.8 # orbit 2 # rot 4 "[gra:4 ~ gra:4 gra:1] [gra:6 ~] gra:1" # freq 128,
  slow 4 $ s "gra:2*2 ~ gra:4 gra:4*3 gra:2" # gain 0.6 # freq 756 # pan 0.2
] # room 1.2 # lfo 2

d2 $ layer [id, slow 16, slow 32] $ stack [
  s "gra:2 [gra:2 gra:2] gra:2 [gra:2 ~ gra:2 gra:2] gra:2 [~] gra:2 ~ " # freq 64 # cutoff 1024 # pan 0.2 # legato 0.25,
  slow 2 $ s "[gra:2*4] gra:2 gra:2 [gra:2 ~ gra:2 ~] gra:2 [~] gra:2 [gra:2 [gra:2 gra:2] gra:2 [gra:2 ~ gra:2 ~]]" # freq 128 |+| 8 # cutoff 1024 # pan 0.8 # legato 2
] # lfo 2 # speed (fmap ([2,1,3]!!) $ markovPat 16 2 [[3,5,2], [4,4,2], [0,1,0]])

xfade 3 $ slow 2 $ every 8 (stut 2 0.5 0.5) $ layer [id, slow 16, slow 32] $ s "<gra:2(6, 12, 2), gra:2(2, 16, 2), gra:2(2, 32, 4)?> { gra:2(6, 12) gra:2(2, 12) }" # freq 512 |+| 12 # cutoff 2048 # speed (fmap ([2,1,3]!!) $ markovPat 16 2 [[3,5,2], [4,4,2], [0,1,0]])

d2 $ fast 2 $ s "gra:2*2 ~ gra:4 gra:4*3 gra:2" # gain 2 # cutoff 32 # freq 128   # pan 0.2
# room 2 # lfo 2

hush

d1 $ stack [
  slow 4 $ "chin:5 ~ [chin:5 [chin:6(2, 8)] ~] ~ ~ ~" # gain 0.7 # room 0.8,
  slow 2 $ "~ chin:6 [ [~ chin:5] ~ [chin:6(8, 8, 2)] ~]" # gain 0.6 # room 0.9,
  "chin:4 ~ [ [chin:6 ~] ~ [chin:6(4, 8)] chin:4]" # gain 0.8 # room 1,
  fast 4 $ striate 128 $ "bd:5 ~ [bd:5 [bd:6(2, 8)] ~] ~ ~ ~" # freq 1024 # gain 0.6
]

d2 $ layer[id, slow 4, slow 8] $ every 4 (stut 2 0.5 0.5) $ s "bd [~ bd:4 ~ bd]" # gain 1.07 # room 0.9

xfade 5 $ layer[slow 4, fast 2] $ stack [ slowstripe 8 $ sound "mt:5 mt:5 ~ [mt:5 ~]" # gain 0.7, sound "mt:2(6, 16, 2)" # room sine*2 # gain 1.2] # freq 2048  # cutoff 250

d5 $ layer[id, slow 4, fast 2] $ stack [
    stack [ slowstripe 8 $ sound "mt:5 mt:5 ~ [mt:5 ~]" # gain 0.6, sound "mt:2(6, 16, 2)" # room sine*2 # gain 1.1] # freq 2048  # cutoff 500,
    slow 2 $ slowcat [
       sound "909 909 ~ [909 [ ~ 909 [909 909?] 909]]" # pan 0.3,
       sound "[[909 909] [ ~ 909 [909 909?] 909]] [909 909] ~ [909 [ ~ 909 [909 909?] 909]]" # pan 0.6,
       sound "[909 909] [909 [ ~ 909 [909 909?] 909]]" # pan 0.5,
       sound "[[909 909] [ ~ 909 [909 909?] 909]] [909 909] [909 909 909 909] [909 [ ~ 909 [909 909?] 909]]" # pan 0.8
    ] # cutoff 2500 # gain 0.85 # freq 300 # lfo 5 # gain 1.29
]

hush

d6 $ every 8 (stut 8 0.15 0.01) $ layer[id, fast 2, slow 4, slow 8] $ sound "<{rs rs(22,4, 2)} rs(2, 16), rs(3, 16, 4), rs(4, 16, 8), rs(2, 16, 16)>" # cutoff 1500 # hcutoff 2000 # gain 0.75 # freq 128 # room 2.2

d6 $ every 8 (stut 8 0.15 0.01) $ layer[id, fast 2, slow 4, slow 8] $ sound "<{909 909(22,4, 2)} 909(2, 16), 909(3, 16, 4), 909(4, 16, 8), 909(2, 16, 16)>" # cutoff 1500 # hcutoff 2000 # gain 0.75 # freq 128 # striate 8 32 # room 2.2

ALBA

Bioma

HOLOMETABOLA EP - 20/April
Electronic and algorithmic compositions from Chile.

Bioma

Endo_