-
Notifications
You must be signed in to change notification settings - Fork 1
/
NewBirds
executable file
·38 lines (30 loc) · 1.07 KB
/
NewBirds
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(fun three
(hold
(seq (steno "kjsdhfkdjhbbbcbcbbcbbvjvbememnembwjdfbudihbdfhvbsbhdbfahaaajshdbfjhudvbvibivjbirebefvbsifbsfbvisfvnsjnfvjsfnbbnsjgbsgsbgbsfgbsfgbsgb"))
(seq (steno "cabcacbdcbbacbabdbacdbcabdcbabacdbcdbcbabdcbabdcbabdcbadcbdbcbabcabdbcadbcbabdcbadcadcijacjijcadc"))))
(# table (steno "0.0 skjdfhksjdhfkajhdskjfahsdkfadsf"))
(fun holder
(seq (steno "axaxaxaxaxaaaagdacaabababbacbabcabcbacbabaxxxxabxabxaxabxaxbxbxzzzhgjsdhjfhafuyerygbshrgbjkhsbjhvhsbdfgjsaaaaaaaashdbfhdabdfugbadfhgab")))
(fun lsize
(t
(list-walk (steno "bbcbcbcbfhgbcbfbcbfcbfbzzbcbfbfbcbfbchbfbchbfhbchbfhbhcbfhbchfbcabhbrb") (hold (seq -1 1) holder))
(rv 0 4)))
(fun transpose
(t
(ch 1 2 3 4 10 20)
(ch 0.5 0.5 0.5 0.5 2)))
(fun freq
(*
(hold
(list-walk (steno "0..10 6000..6033 19000..19100") (hold (seq three three) (ch three three)))
(* (list-walk (grow 1 1.5 10) (hold (seq three three) (seq three three))) 1)) transpose) )
(sync 0.14)
(fun values
(hold
(rv -1 1)
(rv 1000 300)
))
(step-pan-gen
(seq values values)
(/ 44100 (loop freq lsize (st 8)))
(seq values values))