do
let pat = "{1@3 1@3 1@3 1@4 1@4 1@4 1@20 1@17}%16"
d1
$ limit
$ sb "{0.2 0.3 0.4}%4" (|+ n "{10 11}%5")
$ shift
$ sb "<0.1 0.1 0.2 0.1 0.1>"
((# s "{herb2 alm1 herb2 alm1 cat2}%13") . (|* gain 0.75))
$ shift
$ whenmod 10 7 (degradeBy 0.4)
$ stack [
struct pat
$ s "sketch0013"
# n "{33 99 111}%4" # cut "{1 1 2 1 1 3}%5"
# speed "{0.5 1}%5"
, whenmod 12 6 (0.125 ~>)
$ sb 0.2
((stutWith
"{1 2 1}%5"
"{3e 3s}%11"
(|+ n "{8239 28590 0345}%7")) . (# pan (range 0 1 $ shrand 44)))
$ shiftBy 3007
$ s "sketch0013" # n 3 # speed 2 # end 0.1 # hpf 300
] # cps (130/120/2)
d2
$ limit
$ stack [
s "sketch0013" # n 25 # begin (range 0.2 0.5 $ shrand 100)
# hpf 100
, slow "<4 3>" $ struct "1(3,8)"
$ s "sketch0013" # n 10 # begin (range 0.2 0.5 $ shrand 200)
# hpf 100
]
hush
0012 : 2021-04-13
d1
$ limit
$ shift
$ while (slow 1.25 $ binary 11) (# accelerate "-0.25")
$ dg2
$ stack [
while (slow 2 $ binary 7) ((# orbit 1) . (# gain 0.8))
$ while
"t(<1 2 1 2 4>,12,<0 7 4>)"
((# s "<dim1 herb1>") . (|* speed "<1.5 2>"))
$ while (slow 1.33 $ binary 22) (|* speed 0.5)
$ while "t(<2 1 2 3>,8,<9 4 1>)" (|+ n 2)
$ while (slow 1.5 $ binary 15) (# pan rand)
$ struct "1(<3 5 4>,16,<0 11>)"
$ n "<0 0 4>"
# s ("<sketch0007>") # cps 0.6
# cut "{1 1 1 2 1 2}%16"
# speed 0.5
# orbit 0
, while (slow 2 $ binary 9) (|+ n 2)
$ every 5 (off 0.5 (|* speed 0.9))
$ foldEvery [2,3,5] (0.125 <~)
$ s "sketch0008" # n 10 # end 0.25 # shape 0.5
]
hush
0011 : 2021-04-13
d1
$ limit
$ foldEvery [4, 6, 7] (slow 1.5)
$ while (slow 1.75 $ binary 33) randdelay
$ foldEvery [3,5] (|+ n "<3 3 3 3 10>")
$ while
"t(<2 1 1 2 1>,8,<11 20 23>)"
((# s "<alm1 bas>") . (# gain 0.9))
$ while
(fast 1.25 $ binary 9)
((# orbit 1) . (# gain 0.8))
$ while (slow 1.5 $ binary 22) (|* speed 2)
$ while (slow 1.33 $ binary 11) (|+ cut 1)
$ while
"t(<4 2>,8,<11 81 15>)"
(off "<0.25 0.125 0.375>" (|+ n "<1 2>"))
$ struct "1(<3 2 1>,16,<0 1>)"
$ n "{[6 1]/2 2 [3 5]/2}%13" # cut "1"
# speed "0.5"
# orbit 0
# s "sketch0011" # cps 0.6
hush
0010 : 2021-04-13
do
d1
$ whenmod 10 5 (0.25 ~>)
$ every 9 (while "t(3,8)" (|* speed "-1"))
$ while "t(<3 1 2 2>,16,<11 21 10101 23222 4>)"
(# accelerate "-0.5")
$ every 7 (|+ n 16)
$ while
"t(<1 2 3>,16,<50 60 70 80 90>)"
(|* speed "<0.5 0.5 1 2 0.5>")
$ while
(slow 1.75 $ binary 11)
(off "<0.25 0.375>" (|+ n (slow 4 $ run 22)))
$ while
"t(<3 2 3>,8,<0 10 22 34>)"
(off 0.5 (|+ n (slow 3 $ run 10)))
$ limit
$ s "sketch0010"
# cut "{11 11 11 12}%13"
# speed 0.5
d2
$ slow (4/3)
$ (0.5 ~>)
$ limit
$ s "sketch0010"
# n 14 # begin (range 0.2 0.3 $ slow 3.333 saw) # cut 101
# hpf 100
# shape 0.2
# speed 1
hush
0009 : 2021-03-29
do
d1
$ limit
$ sb 0.1 (|* speed "-1")
$ shift
$ stack [
every 6 g
$ degradeBy 0.1
$ while (slow 1.33 $ binary 33) (|+ n "<2 3>")
$ while (slow 1.25 $ binary 11) (|+ n "<10 15 12>")
$ while (fast 1.44 $ binary 22)
((# s "<elem1 grain2>") . ( # gain 0.9) . (# lpf 5000))
$ struct "1(<3 3 5 2 7 1>,12,<0 0 1 0 5>)"
$ s "sketch0009"
# cut "{1 1 1 2}%11"
# legato (slow 3 $ run 7)
# n ("{3 3 3 4 8}%16" + "<0 1 0 2>")
# speed "{1 1 0.75 0.5 1 0.5 0.25}%22"
# gain 1
, while "1(<2 1 1 2>,<8 16 8>,<31 10 4 2 15>)" (off (1/12) id)
$ struct "1(<2 1 1>,12,<0 4>)"
$ s "squa" # n "{0 1 0 1 0}%13"
# cut 8 # speed "{1 0.8 0.9 0.7}%13"
] # cps (170/120/2)
d2 $ slow 2 $ fast "<2 3 1 2>" $ s "sketch0009"
# begin 0.3 # n 12 # cut 11 # speed 0.5 # shape 0.5
hush
0008 : 2021-03-29
do
let pat = "1(<2 1 2 5 3>,16,<0 1 0 1 0 4>)"
d1
$ limit
$ every 3 rev
$ while (slow 2 $ binary 17) (stutWith 2 "3s" (|* speed 2))
$ while (slow 1.33 $ rev $ pat) (|+ n 1)
$ while (slow 1.25 $ (100 ~>) $ pat) (|+ n "<2 4 2 4 10>")
$ while (fast 1.25 $ binary 33) (|* speed 2)
$ every 5 g
$ one 0.15
$ stack [
while (slow 4 $ binary 55) (|* speed 2)
$ struct pat $ n "<32 32 892>"
# cut "{1 2}%11" # speed 0.5 # s "sketch0008"
# shape 0.3
, struct pat $ s "fmbd2" # gain 0.9
] # cps (140/120/2)
d2 $ fast 2 $ s "sketch0008"
# n 42342 # speed 0.5 # cut 1 # begin 0.1 # crush 7 # gain 1.1
d3 $ limit $ whenmod 10 5 (0.125 ~>) $ s "sketch0008"
# n "24" # end 0.1 # speed 1.5 # hpf 1000
hush
0007 : 2021-03-27
do
d1
$ degradeBy 0.5
$ while (binary 65) (stutWith 4 "1s" id)
$ while (fast 1.333 $ binary 6) (# s "b")
$ stack [
while (fast 1.25 $ binary 33) (|* speed "<2 0.75>")
$ while (binary 55) (|* speed 2)
$ while "1(<3 5 6>,8,<66 77>)" (|+ n "<1 2>")
$ while "1(<3 5>,8,<2 10 20 30 40>)" (|+ n "<1 2>")
$ struct "1(<9 4 5>,16,<0 11 20 131>)" $ n "{1 4 3 2 1}%16"
# cut 2
# legato 3
# speed "0.5"
# shape 0.3
] # s "sketch0007" # cps (140/120/2)
d2
$ limit
$ every 5 (g)
$ while (slow 1.333 $ "1(3,8,<0 1>)") (|+ n 1)
$ every 3 (off "5e" (|* speed 0.75))
$ slow 2
$ while (slow 1.888 $ "1(3,8)") (|+ n 1)
$ s "sketch0007-long"
# n 2
# legato 1
# speed 0.25 # hpf 200
# cut 1
# gain 1.1
hush
0006 : 2021-03-23
do
d1
$ limit
$ every 3 rev
$ while (fast 1.5 $ "<t f f f>") g
$ stack [
while (binary 44) (|* speed 0.5)
$ while (binary 33) (# accelerate "[0.5 1]*3")
$ while (binary 75) (|* speed 0.5)
$ while (binary 65) g
$ while (binary 90) (# legato "{1 2 3}%16")
$ while (binary 117) (|+ n "[2 3]*3")
$ while "<t f t t f>" (struct "1(<3 5>,16,<100 200 300>)")
$ slow 2 $ n "[13 ~]/2 [11 12]"
# s "sketch0006" # cut "1"
# pan (range 0.3 0.7 $ fast 33 saw)
, while "{t f f f f f }%16" (off "1e" id)
$ struct "1(<1 2 2 1 1>,16,<100 2031 30045>)" $ s "bd1" # n 3
, slow 2 $ s "pow" # end 0.1 # speed 2 # shape 0.2
]
d2
$ limit
$ superimpose (slow 1.5 . (|* speed 0.5))
$ slow "<2 1 3>"
$ s "sketch0006"
# n "<3 0>"
# begin 0.5
# speed "[1 0.5]*3"
# cps 1
# shape 0.5
# crush 8
# lpf 2000
hush
0005 : 2021-03-23
do
d2
$ limit
$ while "<t f f t f t f>" (|* speed "1.5")
$ while "<t f f t f>" (|* speed "-1")
$ while "<t f f f t f f f f>" (superimpose ((|* speed 0.5) . (|+ cut 1)))
$ while "<t f f>" (superimpose ((|* speed 0.5) . (|+ cut 1)))
$ struct (slow 4 $ "1(3,8,<0 5 1212>)" )
$ loopAt 12
$ s "br2049"
# n "[7 8 9]*5"
# cut 1
# begin "[0.55 0.75 0.35]*4"
# crush 7
# shape 0
hush
0004 : 2021-03-23
do
let pat = "1(<3 2 3 5 2>,<8 16>,<0 401 500 600>)"
d1
$ limit
$ one 0.2
$ whenmod 10 5 (degradeBy (segment (1/4) $ shiftBy 3
$ range 0 0.25 $ shrand 33))
$ while "{t f f f f f}%16" (|+ n "{100 200 300}%26")
$ stack [
struct pat $ s "sketch0004" # n "4" # cut 1
# speed (slow 12 $ "<1 0.5>") # shape 0.5
, whenmod 24 16 g
$ foldEvery [4,8,12] (
(# s "{vix dim1 herb1}%12") . (|* speed 0.5))
$ ("2s" ~>) $ struct pat $ s "chub" # cut 2
, s "sketch0004" # n 17
# speed 1 # shape 0.1 # end 0.03
] # cps (170/120/2)
# orbit ("{0 0 0 0 0 0 0 1}%16" + "0")
d2
$ limit
$ foldEvery [3,5,7] (|+ n 893)
$ slow 2
$ s "sketch0004" # n "18" # end 0.2
hush
hush
0003 : 2021-03-20
do
let pat = "1(<3 2 5 2 7>,16,<0 5 10 17 20>)"
d1
$ cpsTri 1 2 3.1
$ cpsDisc 0.5 1.25
$ limit
$ while (foldEvery [2,3] rev $ "{t f f}%4") (|* speed 0.5)
$ stutWith "{1 1 2 1 1}%13" "1s" id
$ stack [
while (every 3 rev $ "{t f f f}%8") (|+ n "<3 5>")
$ while (every 2 rev $ "<t f f f f>") (superimpose ((|+ n 2) . (# cut 999)))
$ struct "1(<7 5>,16)"
$ s "{sketch0003 sketch0003 maze1}%17"
# n 3 # shape 0.1 # cut 10 # speed 0.5
] # cps (110/120/2)
d2
$ limit
$ s "<sketch0003 ~ ~ ~>"
# n 14 # speed "[0.5]"
hush
0002 : 2021-03-20
do
d1
$ limit
$ while "{t f f}%14" randdelay
$ while "{t f f f f f f }%11" (# crush "<4 5 6 7>")
$ while "{t f f f f}%13" (# accelerate "{-0.5 -1}%7")
$ stutWith "<1 1 2>" (1/16) id
$ struct (slow 2 $ "1(<3 7 3>,24,{0 10 20}%6)")
$ n (foldEvery [2,4] (slow "<1.5 1>") $ "<0 0 3 0 5>" + "{5 7 9 11 12 16}%24")
# speed ("{1 1 -1}%12" * "{1 0.5 0.75 0.25}%7")
# s "sketch0002"
# cut "{1 2 3}%16"
d2
$ cpsTri 0.5 2 3.1
$ cpsDisc 0.5 1.5
$ limit
$ plyWith "<1 1 2 1 2>" (|* speed "<1.5 2 0.75>")
$ plyWith "<2>" (# speed "<1.5 2 0.75>")
$ gain "<1*15 1*25 1*10 1*20>"
# s "sketch0002"
# n 14
# beginend (range 0.4 0.6 $ slow 4.1666 saw) (range 0.03 0.05 $ slow 2.333 saw)
# cps (100/100/2)
hush