├── .gitignore ├── ChangeLog.md ├── LICENSE ├── README.md ├── Setup.hs ├── Tidal.ghci ├── app └── Main.hs ├── channel ├── 0.tidal ├── 1.tidal ├── 10.tidal ├── 2.tidal ├── 3.tidal ├── 4.tidal ├── 5.tidal ├── 6.tidal └── 9.tidal ├── extract ├── MIDIClockShape.hs ├── UnityOsc.hs └── WebGLOsc.hs ├── newmoon ├── 10.tidal ├── 4.tidal ├── 5.tidal └── s.tidal ├── package.yaml ├── sketch ├── 2017-01-09.tidal ├── 2017-01-24.tidal ├── 2017-01-26.tidal ├── 2017-02-08.tidal ├── 2017-02-11.tidal ├── 2017-02-13.tidal ├── 2017-03-19.tidal ├── 2017-03-21.tidal ├── 2017-03-22.tidal ├── 2017-03-28.tidal ├── 2017-04-06.tidal ├── 2017-04-07.tidal ├── 2017-04-15.tidal ├── 2017-05-09.tidal ├── 2017-06-10.tidal ├── 2017-06-11.tidal ├── 2017-06-15.tidal ├── 2017-06-19.tidal ├── 2017-06-22.tidal ├── 2017-06-29.tidal ├── 2017-07-07.tidal ├── 2017-07-11-1.tidal ├── 2017-07-11-2.tidal ├── 2017-07-11-3.tidal ├── 2017-07-11-4.tidal ├── 2017-07-11-5.tidal ├── 2017-07-11.tidal ├── 2017-07-14.tidal ├── 2017-07-20.tidal ├── 2017-07-23.tidal ├── 2017-07-30.tidal ├── 2017-08-23.tidal ├── 2017-08-24.tidal ├── 2017-08-25.tidal ├── 2017-08-26.tidal ├── 2017-08-30.tidal ├── 2017-08-31.tidal ├── 2017-09-04.tidal ├── 2017-09-05.tidal ├── 2017-09-06.tidal ├── 2017-09-16.tidal ├── 2017-09-21.tidal ├── 2017-10-07.tidal ├── 2017-10-16.tidal ├── 2017-10-22.tidal ├── 2017-10-24.tidal ├── 2017-11-01.tidal ├── 2017-11-29.tidal ├── 2017-12-06.tidal ├── 2017-12-07.tidal ├── 2017-12-08.tidal ├── 2017-12-21.tidal ├── 2017-12-26.tidal ├── 2018-01-12-1.tidal ├── 2018-01-12.tidal ├── 2018-01-24.tidal ├── 2018-01-25.tidal ├── 2018-01-29.tidal ├── 2018-02-06.tidal ├── 2018-02-09.tidal ├── 2018-02-15.tidal ├── 2018-02-22.tidal ├── 2018-02-25.tidal ├── 2018-03-04.tidal ├── 2018-03-06.tidal ├── 2018-03-08.tidal ├── 2018-03-10.tidal ├── 2018-03-11.tidal ├── 2018-03-13.tidal ├── 2018-03-27.tidal ├── 2018-04-04.tidal ├── 2018-04-11.tidal ├── 2018-04-19.tidal ├── 2018-04-20.tidal ├── 2018-04-21.tidal ├── 2018-05-08.tidal ├── 2018-05-16.tidal ├── 2018-05-20.tidal ├── 2018-05-25.tidal ├── 2018-05-26.tidal ├── 2018-06-03.tidal ├── 2018-06-15.tidal ├── 2018-06-29.tidal ├── 2018-06-30.tidal ├── 2018-08-08.tidal ├── 2018-10-18.tidal ├── 2018-11-14.tidal ├── 2018-11-17.tidal ├── 2018-11-18.tidal ├── 2019-01-16.tidal ├── 2019-01-20.tidal ├── 2019-01-23.tidal ├── 2019-01-24.tidal ├── 2019-01-27.tidal ├── 2019-01-28.tidal ├── 2019-01-29.tidal ├── 2019-01-30.tidal ├── 2019-02-01.tidal ├── 2019-02-03.tidal ├── 2019-02-04.tidal ├── 2019-02-05.tidal ├── 2019-02-07.tidal ├── 2019-02-08.tidal ├── 2019-02-09.tidal ├── 2019-02-11.tidal ├── 2019-02-13.tidal ├── 2019-02-19.tidal ├── 2019-02-28.tidal ├── 2019-03-14.tidal ├── 2019-03-18.tidal ├── 2019-04-07.tidal ├── 2019-04-15.tidal ├── 2019-05-13.tidal ├── 2019-05-28.tidal ├── 2019-05-29.tidal ├── 2019-06-03.tidal ├── 2019-06-05.tidal ├── 2019-06-06.tidal ├── 2019-06-07.tidal ├── 2019-06-14.tidal ├── 2019-06-24.tidal ├── 2019-07-30.tidal ├── 2019-08-09.tidal ├── 2019-08-15.tidal ├── 2019-11-17.tidal ├── 2019-11-21.tidal ├── 2019-11-23.tidal ├── 2020-01-12.tidal ├── 2020-01-17.tidal ├── 2020-01-18.tidal ├── 2020-04-21.tidal ├── 2020-04-22.tidal ├── 2020-04-26.tidal ├── 2020-04-27.tidal ├── 2020-05-03.tidal ├── 2020-05-10.tidal ├── 2020-07-16.tidal ├── 2020-07-24.tidal ├── 2020-09-18.tidal ├── 2020-12-07.tidal ├── 2020-12-22.tidal ├── 2021-02-17.tidal ├── 2021-03-05.tidal ├── 2021-03-16.tidal ├── 2021-03-17.tidal ├── 2021-03-21.tidal ├── 2021-03-28.tidal ├── 2021-04-17.tidal ├── 2021-10-17.tidal ├── 2021-11-15.tidal ├── 2021-11-20.tidal ├── 2021-11-21.tidal ├── 2021-11-22.tidal ├── algoravetokyo │ ├── 2017-03-22.tidal │ ├── 2017-10-16.tidal │ ├── 2017-10-22.tidal │ ├── 2017-11-01.tidal │ ├── 2017-11-29.tidal │ ├── 2017-12-08.tidal │ └── 2017-12-21.tidal ├── alogofive │ ├── 2017-02-09.tidal │ ├── 2017-02-15.tidal │ ├── 2017-02-28.tidal │ └── 2017-03-05.tidal ├── beyond_code │ ├── 2017-01-24-ex.tidal │ ├── 2017-02-13.tidal │ ├── 2017-02-14-fn.tidal │ └── 2017-02-16.tidal ├── channel │ ├── 000.tidal │ ├── 001.tidal │ ├── 002.tidal │ ├── 003.tidal │ ├── 004.tidal │ └── 005.tidal ├── earlier │ ├── 2016-04-02.tidal │ ├── 2016-04-04.tidal │ ├── 2016-04-05.tidal │ ├── 2016-04-07.tidal │ ├── 2016-04-14.tidal │ ├── 2016-04-15.tidal │ ├── 2016-04-16.tidal │ ├── 2016-04-21.tidal │ ├── 2016-04-23.tidal │ ├── 2016-05-01.tidal │ ├── 2016-05-02.tidal │ ├── 2016-05-03.tidal │ ├── 2016-05-19.tidal │ ├── 2016-05-20.tidal │ ├── 2016-05-21.tidal │ ├── 2016-07-07.tidal │ ├── 2016-07-09.tidal │ ├── 2016-08-12.tidal │ ├── 2016-08-16.tidal │ ├── 2016-08-18.tidal │ ├── 2016-08-20.tidal │ ├── 2016-08-21.tidal │ ├── 2016-08-24.tidal │ ├── 2016-11-20.tidal │ ├── 2016-11-21.tidal │ ├── 2016-11-22.tidal │ ├── 2016-11-30.tidal │ ├── 2016-12-04.tidal │ ├── 2016-12-07.tidal │ ├── 2016-12-15.tidal │ ├── 2016-12-26.tidal │ └── 2017-01-04.tidal ├── interim-report │ ├── 2018-08-01.tidal │ ├── 2018-08-03.tidal │ ├── 2018-08-19.tidal │ ├── 2018-08-28.tidal │ └── 2018-09-01.tidal ├── lead_0.sc ├── midi.sc ├── midi_test.tidal ├── polygonnight │ ├── 2017-02-13.tidal │ ├── 2017-03-21.tidal │ ├── 2017-03-22.tidal │ ├── 2017-03-28.tidal │ ├── 2017-06-11.tidal │ ├── 2017-07-07.tidal │ ├── 2017-07-11-1.tidal │ ├── 2017-07-11-2.tidal │ ├── 2017-07-11-3.tidal │ ├── 2017-07-11-4.tidal │ ├── 2017-07-11.tidal │ ├── 2017-07-14.tidal │ ├── 2017-07-20.tidal │ └── 2017-09-04.tidal ├── samples.tidal ├── scketch_1.sc ├── scketch_2.sc ├── stack.yaml.lock ├── swgbbo │ ├── 10.tidal │ ├── 11.tidal │ ├── 13.tidal │ ├── 3.tidal │ └── 5.tidal ├── synth_practices.sc ├── the_guide.tidal ├── toplap15 │ ├── 2019-01-29.tidal │ └── 2019-02-13.tidal └── unity_test.tidal ├── src ├── Ex.hs ├── ExEffects.hs ├── ExInstruments.hs ├── ExLazy.hs ├── ExModules.hs └── ExParams.hs ├── stack.yaml ├── start_superdirt.scd └── test └── Spec.hs /.gitignore: -------------------------------------------------------------------------------- 1 | !BootTidal.tidal 2 | 3 | .stack-work/ 4 | tidal-lazy.cabal 5 | *~ 6 | -------------------------------------------------------------------------------- /ChangeLog.md: -------------------------------------------------------------------------------- 1 | # Changelog for tidal-lazy 2 | 3 | ## Unreleased changes 4 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | Copyright Author name here (c) 2019 2 | 3 | All rights reserved. 4 | 5 | Redistribution and use in source and binary forms, with or without 6 | modification, are permitted provided that the following conditions are met: 7 | 8 | * Redistributions of source code must retain the above copyright 9 | notice, this list of conditions and the following disclaimer. 10 | 11 | * Redistributions in binary form must reproduce the above 12 | copyright notice, this list of conditions and the following 13 | disclaimer in the documentation and/or other materials provided 14 | with the distribution. 15 | 16 | * Neither the name of Author name here nor the names of other 17 | contributors may be used to endorse or promote products derived 18 | from this software without specific prior written permission. 19 | 20 | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 21 | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 22 | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 23 | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 24 | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 25 | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 26 | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 27 | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 28 | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 29 | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 30 | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 31 | -------------------------------------------------------------------------------- /Setup.hs: -------------------------------------------------------------------------------- 1 | import Distribution.Simple 2 | main = defaultMain 3 | -------------------------------------------------------------------------------- /app/Main.hs: -------------------------------------------------------------------------------- 1 | module Main where 2 | 3 | import Sound.Tidal.Context 4 | 5 | main :: IO () 6 | main = print "main..." 7 | -------------------------------------------------------------------------------- /channel/0.tidal: -------------------------------------------------------------------------------- 1 | setcps(128/120) 2 | 3 | do 4 | let pat ="{0 0 ~ ~ ~ 1 0 0 ~ 0 1 0 0 0}%8" 5 | let pat2 ="{1 0 ~ 0 1 1 ~ 0 ~ 1 0 0}%6" 6 | let x = gain pat 7 | let y = gain (inverse <$> pat) 8 | let z = gain pat2 9 | d1 10 | $ iter (wchoose [(1,9)]) 11 | $ sometimesBy 0.125 (|+ squiz "{1 0 2 0 2 0 0 2}%8") 12 | $ every 4 (within (0,0.25) (|+ binshf 0.5)) .(rev) 13 | $ whenmod 4 2 (within (0.5,0.9) (|+ mDefault)) 14 | $ within (0.5, 0.9) (msvoB 0.125) 15 | $ stack [ 16 | x # s "mhh:0" |+ slowSpeedR 4 17 | , y # s "mbd:7" 18 | -- , z # s "mst:7" |+ slowSpeedR 3 19 | -- , x # s "msn:0?" 20 | -- , fast 8 $ s "808:9?" |+ conv 0.4 21 | -- , degradeBy 0.9 y # s "mwb:4?" |+ slowSpeedR 3 22 | ] 23 | |+ slowPanS 3 24 | |+ mGain 25 | 26 | d2 $ slow 32 $ s "sync" 27 | 28 | hush 29 | 30 | -------------------------------------------------------------------------------- /channel/1.tidal: -------------------------------------------------------------------------------- 1 | setcps (102/120) 2 | 3 | do 4 | x <- lazy' 1 $ inst2 5 | d1 6 | $ degradeBy 0.85 7 | $ msvoC 0.125 8 | $ x 9 | |+ slowPanR 3 10 | |+ slowSpeedR 3 11 | |+ room 0.02 12 | |+ shape 0.2 13 | |+ n "1 ~ 37? 10" 14 | |+ wah "[0.03, 0.02, 0.01]" 15 | |+ room 0.0125 16 | 17 | 18 | d2 $ slow 32 $ s "sync" 19 | 20 | 21 | do 22 | let pat ="{0 1 0 ~ ~ 1 0 1 0 ~ 0}%8" 23 | let pat2 ="{1 0 ~ 1 1 1 ~ 0 ~ 1 0 0}%6" 24 | let x = gain pat 25 | let y = gain (inverse <$> pat) 26 | let z = gain pat2 27 | d1 28 | $ iter (wchoose [(1,9)]) 29 | $ sometimesBy 0.25 (|+ squiz "{1 2 4 0 2 0 0 2}%5") 30 | $ every 4 (within (0,0.25) (|+ binshf 0.5)) .(rev) 31 | $ whenmod 4 2 (within (0.5,0.9) (|+ mDefault)) 32 | $ within (0.35, 0.9) (msvoB 0) 33 | $ stack [ 34 | x # s "mhh:0" |+ slowSpeedR 4 35 | , y # s "mbd:9" 36 | , z # s "mst:4" |+ slowSpeedR 3 37 | , x # s "msn2:15?" 38 | , fast 2 $ s "mcp:1?" |+ convn 0.3 39 | , degradeBy 0.92 y # s "ml4:5?" |+ slowSpeedR 3 |+ gain 0.05 |+ hpf 2200 |+ coarse 8 40 | ] 41 | |+ slowPanS 3 42 | |+ mGain 43 | 44 | hush 45 | -------------------------------------------------------------------------------- /channel/10.tidal: -------------------------------------------------------------------------------- 1 | setcps (130/120/2) 2 | 3 | do 4 | let pat = "{1 1 [1 ~]/2 ~ 1 [1 [~ 1]]/2 1 0}%8" 5 | let pat2 = "{1 ~ [~ ~ 0 ~]/4 1 0 [~ 0, 1 ~]/2 0 [~ 0 1]/3}%16" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat2) 9 | d1 10 | -- $ msvoC 0 11 | -- $ msvoB 0 12 | $ every 2 (within (0.25, 0.5) (0.125~>) . (|+ coarse "2 8 4 2")) 13 | $ every 3 (within (0.25,0.8) (rev) . (iter 1) . (|+ mfDel) . (|+ crush "0 2 8 6 8")) 14 | $ stack [ 15 | x |+ s "mhh*4" |+ n "19 5 0 0 3" |+ nudge "[0, 0.01]*2" 16 | -- , y |+ s "mbd:7" |+ sus 0.75 |+ accelerate "1 -0.3 -3 0.5" 17 | , degradeBy 0.85 $ x |+ s "mcp" |+ slowSpeedR 2 18 | , z |+ s "mst:15" |+ shape 0.3 |* gain (slow 3 (range 0.3 0.8 sine)) 19 | -- , x |+ "~ ~ ~ dig2" 20 | -- , y |+ "~ ~ ~ dig3" 21 | -- , x |+ "dig4 ~ dig4 ~" 22 | , degradeBy 0.9 $ y |+ s "mwb2:3?" |+ slowSpeedR 3 |+ wah 0.03 |+ hpf 200 |+ sus 0.9 23 | ] 24 | |+ mGain 25 | |+ accelerate "{0 -0.05 [0 -1 -0.03] 2 -1 0 0.03 4 0.2 3}%6" 26 | |+ slowPanR 4 27 | 28 | 29 | hush 30 | 31 | 32 | -------------------------------------------------------------------------------- /channel/2.tidal: -------------------------------------------------------------------------------- 1 | setcps (110/120/2) 2 | 3 | do 4 | x <- lazy' 2 inst1 5 | d3 6 | $ degradeBy 0.8 7 | $ msvo 0.125 8 | $ msvoB 0 9 | $ msvoC 0 10 | $ x 11 | |+ slowPanR 3 12 | |+ slowSpeedR 3 13 | |+ hpf 280 14 | |+ wah 0.001 15 | |+ n "1 ~ 37 10" 16 | |+ room 0.25 17 | 18 | 19 | 20 | do 21 | let pat ="{0 1 0 0 1}%2" 22 | let pat2 ="{1 [0 1 1] 1 1 [1 1] 1 1 ~ ~ ~ 1 [1 0 1]}%16" 23 | let x = gain pat 24 | let y = gain (inverse <$> pat) 25 | let z = gain pat2 26 | d1 27 | $ iter (wchoose [(1,3)]) 28 | $ stack [ 29 | x # s "mhh:0" 30 | , y # s "mhh:0" 31 | , y # s "mbd2:0" 32 | , z # s "hh:8?" |* gain (range 0.1 0.8 $ sine) 33 | ] 34 | |+ slowPanS 3 35 | |+ gain 1.2 36 | 37 | 38 | d2 $ slow 64 $ s "sync" 39 | 40 | 41 | u1 42 | $ thing "apple*40" 43 | |+ duration 3 44 | |+ y (range 1.6 1.9 sine) 45 | |+ rigid "1" 46 | |+ x (slow 2.33 (range (-1.2) (-0.2) sine)) 47 | |+ z (slow 4 (range 0.3 (-1.8) sine)) 48 | |+ vscale (slow 1.5 (range 0.1 2.8 sine)) 49 | 50 | uhush 51 | 52 | -------------------------------------------------------------------------------- /channel/4.tidal: -------------------------------------------------------------------------------- 1 | setcps (138/120) 2 | 3 | d2 $ slow 64 $ s "sync" |+ mGain 4 | 5 | u1 6 | $ slow 2 7 | $ thing "ac*10 cactus1*8 banana*10" 8 | |+ y 1.5 9 | |+ rigid 1 10 | |+ duration 3 11 | |+ y 0.2 12 | |+ x (slow 3 (range (-0.8) (-0.7) sine)) 13 | |+ z (-0.9) 14 | |+ vscale 0.5 15 | 16 | do 17 | let pat ="{0 [0 0] 0 1 [0 0 1] 1 1 0 ~ ~ ~ ~}%8" 18 | let pat2 ="{1 [~ 0] 1 1 0 0 ~ 1 0}%6" 19 | let x = gain pat 20 | let y = gain (inverse <$> pat) 21 | let z = gain pat2 22 | d1 23 | $ every 2 (iter (wchoose [(3,7)])) 24 | $ whenmod 4 3 (rot (wchoose [(1,3)])) 25 | $ every 4 (within (0,0.25) (|+ binshf 0.3)) . (rev) 26 | -- $ whenmod 4 2 (within (0.25,0.9) (|+ mDefault)) 27 | $ within (0.5, 0.8) (msvoB 0) 28 | $ stack [ 29 | x # s "mhh2:2" |+ slowSpeedR 4 |+ shape (range 0.3 0.0 sine) 30 | , y # s "msn2:6?" |+ slowSpeedR 6 |+ shape (range 0.4 0.0 sine) 31 | , y # s "[mbd:7 mbd:8]/2" |* gain (slow 0.5 (range 0.04 1 saw)) |+ slowSpeedR 2 32 | , (0.075~>) $ degradeBy 0.3 $ s "<~ [~ dig2 ~ ~, ~ dig4]*2 ~>" 33 | , (0.125~>) $ degradeBy 0.4 $ y # s "<[dig0/2, dig5?]*2 ~>" 34 | , degradeBy 0.5 $ s "<[~ dig1/2, dig3 ~ dig0?]*3 ~>" 35 | , slow 2 $ s "mcp:1" |+ conv 0.3 |+ slowSpeedR 5 36 | , degradeBy 0.82 y # s "ml4:18?" |+ slowSpeedR 3 |+ gain 0.1 |+ hpf 200 |+ coarse 8 |+ wah 0.1 37 | ] 38 | |+ mGain 39 | |+ slowPanR 3 40 | 41 | 42 | 43 | uhush 44 | 45 | hush 46 | -------------------------------------------------------------------------------- /channel/5.tidal: -------------------------------------------------------------------------------- 1 | setcps (124/120) 2 | 3 | do 4 | let pat ="{1 0 1 1 1 0 [0 0] 0 ~ ~ ~ 1 0 0 0 0}%4" 5 | let pat2 ="{1 0 1 0 1 [0 1 1] ~ 1 0 0 ~ 0 }%6" 6 | let pat3 ="{1 0 1 1 0 ~ ~ ~ 0 1 1 0 0}%8" 7 | let x = gain pat 8 | let y = gain (inverse <$> pat) 9 | let z = gain pat2 10 | let u = gain pat3 11 | let v = gain (inverse <$> pat3) 12 | d1 13 | $ iter (wchoose [(1,8)]) 14 | $ every 6 (rot (wchoose [(1,3)])) 15 | $ every 4 (within (0,2.65) (|+ binshf 0.5)) .(rev) 16 | $ within (0.25, 0.85) (msvoB 0) 17 | $ stack [ 18 | x # s "mhh:0" |+ slowSpeedR 4 |+ shape (range 0.3 0.0 sine) 19 | , y # s "mst:8?" |+ slowSpeedR 3 |+ shape (range 0.4 0.0 sine) 20 | , y # s "mbd2:2?" |* gain (slow 3(range 0.24 1 saw)) 21 | , (0.25~>) $ degradeBy 0.5 $ z # s "<[dig1?, dig2?] ~ dig2?>" 22 | , (0.25~>) $ degradeBy 0.2 $ u # s "<[dig0? dig1?] dig0 ~>" 23 | , degradeBy 0.5 $ z # s "" 24 | , degradeBy 0.94 $ fast 1.5 $ s "ml4:12" |+ slowSpeedR 5 25 | , degradeBy 0.98 v # s "mwb:21?" |+ slowSpeedR 3 |+ gain 0.9 |+ hpf 1200 |+ coarse 12 |+ wah 0.05 26 | ] 27 | |+ mGain 28 | |+ slowPanR 3 29 | 30 | hush 31 | 32 | 33 | 34 | u1 35 | $ iter 3 36 | $ slow 8 37 | $ thing "salmon2*10 trash4*10 crab*10" 38 | |+ y 1.5 39 | |+ rigid 1 40 | |+ duration 3 41 | |+ y 0.2 42 | |+ x (slow 3 (range (-0.8) (-0.4) sine)) 43 | |+ z (-0.8) 44 | |+ vscale 0.5 45 | 46 | uhush 47 | 48 | -------------------------------------------------------------------------------- /channel/6.tidal: -------------------------------------------------------------------------------- 1 | setcps (110/120) 2 | 3 | do 4 | let pat ="{0 0 1 [0 ~ 0 1] 0 0 [1 ~ 0] 0 ~ ~ ~ [~ 1] 0 0 ~ 0}%6" 5 | let pat2 ="{1 0 1 1 1 1 0 1 1 1}%3" 6 | let pat3 ="{1 0 0 1 0 ~ 1 1 0 11 0 0}%8" 7 | let x = gain pat 8 | let y = gain (inverse <$> pat) 9 | let z = gain 1 10 | let u = gain pat3 11 | let v = gain (inverse <$> pat3) 12 | d1 13 | $ iter (wchoose [(1,4)]) 14 | $ within (0.25, 0.85) (msvoB 0) 15 | $ stack [ 16 | x # s "mhh2:3" |+ binscr (range 0.3 0.0 sine) |+ up 12 17 | , y # s "mst:4? ~" |+ slowSpeedR 3 |+ shape (range 0.4 0.0 sine) 18 | , y # s "~ msn:15" |+ sus 0.2 |+ slowSpeedR 8 |+ shape (range 0.2 0.0 sine) 19 | , sometimesBy 0.1 (off (0.8) (rev) . (|+ shape 0.2)) $ z # s "mbd:16" 20 | , slow 2 $ degradeBy 0.0 $ y # s "[dig0, dig1] ~ ~ ~ ~ ~" 21 | , (0.25~>) $ degradeBy 0.0 $ u # s "dig2? ~ ~ ~ dig2? ~" 22 | , slow 4 $ (0.5~>) $ degradeBy 0.3 $ z # s "{dig3 dig2 ~ dig3}" 23 | , slow 3 $ (0.5~>) $ degradeBy 0.3 $ z # s "{dig5 dig5 ~ dig4}%3" 24 | , degradeBy 0.9 $ fast 1.5 $ s "mwb:2" |+ slowSpeedR 5 25 | , degradeBy 0.95 v # s "ml5:13?" |+ slowSpeedR 3 |+ gain 0.1 |+ hpf 1200 |+ wah 0.1 26 | ] 27 | |+ mGain 28 | |+ slowPanR 3 29 | 30 | hush 31 | 32 | 33 | u1 $ thing "stone2*10 trash8*10 paper*9" 34 | |+ rigid 1 35 | |+ duration 4 36 | |+ y 1.8 37 | |+ z (-0.9) 38 | |+ x (slow 3 (range (-1.5) 0.0 sine)) 39 | |+ vscale "<0.3 0.5 0.2>" 40 | 41 | 42 | uhush 43 | 44 | 45 | -------------------------------------------------------------------------------- /channel/9.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | d1 4 | $ striate' "<8 12 20 14 16>/3" (slow 4.3 (range 0.05 0.25 sine)) 5 | $ s "[mcp:1 mhh2:24, mst:17, mbd:3, mnz:24]" 6 | |+ speed (range 1.29 (1.4) sine) 7 | |+ up "[0, 15]" 8 | |+ coarse 8 9 | |+ dist 0.2 10 | |+ room 0.29 11 | |+ mGain 12 | |+ hpf 1400 13 | |* gain (range 1 0.4 saw) 14 | |+ cps "<0.74 2.2 1.14 0.5>/4.3" 15 | 16 | 17 | d2 $ s "[mcp:0?, mhh2:3, ~ mb?, mst:6*3, mbd:3/2]" 18 | |+ mGain 19 | |+ slowPanR 3 20 | |+ up "<-5>" 21 | 22 | d2 silence 23 | 24 | uhush 25 | 26 | hush 27 | -------------------------------------------------------------------------------- /extract/MIDIClockShape.hs: -------------------------------------------------------------------------------- 1 | module MIDIClockShape where 2 | 3 | 4 | import Sound.Tidal.MIDI.Control 5 | import Sound.Tidal.Params 6 | 7 | clockController :: ControllerShape 8 | 9 | clockController = 10 | ControllerShape 11 | { controls = 12 | [ 13 | mCC test_p 99 14 | ] 15 | , latency = 0.3 16 | } 17 | 18 | (test, test_p) = pF "test" (Just 0) 19 | 20 | -------------------------------------------------------------------------------- /extract/WebGLOsc.hs: -------------------------------------------------------------------------------- 1 | module WebGLOsc where 2 | import Sound.Tidal.Stream 3 | import Sound.Tidal.Pattern 4 | import Sound.Tidal.Parse 5 | import Sound.Tidal.OscStream 6 | import Sound.Tidal.Context 7 | 8 | port = 8000 9 | 10 | webGLShape = Shape { 11 | 12 | params = [ 13 | F "vx" (Just 0.5), 14 | F "vy" (Just 0.5), 15 | F "voffset" (Just 0), 16 | F "vamp" (Just 0), 17 | F "vfreq" (Just 0), 18 | F "vphase" (Just 0), 19 | F "vufreq" (Just 1.0), 20 | F "vssize" (Just 0.4) 21 | ], 22 | cpsStamp = True, 23 | latency = 0.1 24 | } 25 | 26 | webGLSlang = OscSlang { 27 | path = "/webgl_osc", 28 | timestamp = NoStamp, 29 | namedParams = False, 30 | preamble = [] 31 | } 32 | 33 | webGLStream = do 34 | s <- makeConnection "127.0.0.1" port webGLSlang 35 | stream (Backend s $ (\_ _ _ -> return ())) webGLShape 36 | 37 | vy = makeF webGLShape "vx" 38 | vx = makeF webGLShape "vy" 39 | voffset = makeF webGLShape "voffset" 40 | vamp = makeF webGLShape "vamp" 41 | vfreq = makeF webGLShape "vfreq" 42 | vufreq = makeF webGLShape "vufreq" 43 | vphase = makeF webGLShape "vphase" 44 | vssize = makeF webGLShape "vssize" 45 | -------------------------------------------------------------------------------- /newmoon/10.tidal: -------------------------------------------------------------------------------- 1 | setcps (130/120/2) 2 | 3 | do 4 | let pat = "{1 1 [1 ~]/2 ~ 1 [1 [~ 1]]/2 1 0}%8" 5 | let pat2 = "{1 ~ [~ ~ 0 ~]/4 1 0 [~ 0, 1 ~]/2 0 [~ 0 1]/3}%16" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat2) 9 | d1 10 | -- $ msvoC 0 11 | -- $ msvoB 0 12 | $ every 2 (within (0.25, 0.5) (0.125~>) . (|+ coarse "2 8 4 2")) 13 | $ every 3 (within (0.25,0.8) (rev) . (iter 1) . (|+ mfDel) . (|+ crush "0 2 8 6 8")) 14 | $ stack [ 15 | x |+ s "mhh*4" |+ n "19 5 0 0 3" |+ nudge "[0, 0.01]*2" 16 | -- , y |+ s "mbd:7" |+ sus 0.75 |+ accelerate "1 -0.3 -3 0.5" 17 | , degradeBy 0.85 $ x |+ s "mcp" |+ slowSpeedR 2 18 | , z |+ s "mst:15" |+ shape 0.3 |* gain (slow 3 (range 0.3 0.8 sine)) 19 | -- , x |+ "~ ~ ~ dig2" 20 | -- , y |+ "~ ~ ~ dig3" 21 | -- , x |+ "dig4 ~ dig4 ~" 22 | , degradeBy 0.9 $ y |+ s "mwb2:3?" |+ slowSpeedR 3 |+ wah 0.03 |+ hpf 200 |+ sus 0.9 23 | ] 24 | |+ mGain 25 | |+ accelerate "{0 -0.05 [0 -1 -0.03] 2 -1 0 0.03 4 0.2 3}%6" 26 | |+ slowPanR 4 27 | 28 | 29 | hush 30 | 31 | 32 | -------------------------------------------------------------------------------- /newmoon/4.tidal: -------------------------------------------------------------------------------- 1 | setcps (138/120) 2 | 3 | d2 $ slow 64 $ s "sync" |+ mGain 4 | 5 | u1 6 | $ slow 2 7 | $ thing "trash7*10 cactus1*8 banana*10" 8 | |+ y 1.5 9 | |+ rigid 1 10 | |+ duration 3 11 | |+ y 0.2 12 | |+ x (slow 3 (range (-0.8) (-0.7) sine)) 13 | |+ z (-0.9) 14 | |+ vscale 0.5 15 | 16 | do 17 | let pat ="{0 [0 0] 0 1 [0 0 1] 1 1 0 ~ ~ ~ ~}%9" 18 | let pat2 ="{1 [~ 0] 1 1 0 0 ~ 1 0}%6" 19 | let x = gain pat 20 | let y = gain (inverse <$> pat) 21 | let z = gain pat2 22 | d1 23 | $ every 2 (iter (wchoose [(3,7)])) 24 | $ whenmod 4 3 (rot (wchoose [(1,3)])) 25 | $ every 4 (within (0,0.25) (|+ binshf 0.3)) . (rev) 26 | -- $ whenmod 4 2 (within (0.25,0.9) (|+ mDefault)) 27 | $ within (0.5, 0.8) (msvoB 0) 28 | $ stack [ 29 | x # s "mhh2:2" |+ slowSpeedR 4 |+ shape (range 0.3 0.0 sine) 30 | , y # s "msn2:6?" |+ slowSpeedR 6 |+ shape (range 0.4 0.0 sine) 31 | , y # s "[mbd:7 mbd:8]/2" |* gain (slow 0.5 (range 0.04 1 saw)) |+ slowSpeedR 2 32 | , (0.075~>) $ degradeBy 0.3 $ s "<~ [~ dig2 ~ ~, ~ dig4]*2 ~>" 33 | , (0.125~>) $ degradeBy 0.4 $ y # s "<[dig0/2, dig5?]*2 ~>" 34 | , degradeBy 0.5 $ s "<[~ dig1/2, dig3 ~ dig0?]*3 ~>" 35 | , slow 2 $ s "mcp:1" |+ conv 0.3 |+ slowSpeedR 5 36 | , degradeBy 0.82 y # s "ml4:18?" |+ slowSpeedR 3 |+ gain 0.1 |+ hpf 200 |+ coarse 8 |+ wah 0.1 37 | ] 38 | |+ mGain 39 | |+ slowPanR 3 40 | 41 | 42 | 43 | uhush 44 | 45 | hush 46 | -------------------------------------------------------------------------------- /newmoon/5.tidal: -------------------------------------------------------------------------------- 1 | setcps (124/120) 2 | 3 | do 4 | let pat ="{1 0 1 1 1 0 [0 0] 0 ~ ~ ~ 1 0 0 0 0}%4" 5 | let pat2 ="{1 0 1 0 1 [0 1 1] ~ 1 0 0 ~ 0 }%6" 6 | let pat3 ="{1 0 1 1 0 ~ ~ ~ 0 1 1 0 0}%8" 7 | let x = gain pat 8 | let y = gain (inverse <$> pat) 9 | let z = gain pat2 10 | let u = gain pat3 11 | let v = gain (inverse <$> pat3) 12 | d1 13 | $ iter (wchoose [(1,8)]) 14 | $ every 6 (rot (wchoose [(1,3)])) 15 | $ every 4 (within (0,2.65) (|+ binshf 0.5)) .(rev) 16 | $ within (0.25, 0.85) (msvoB 0) 17 | $ stack [ 18 | x # s "mhh:0" |+ slowSpeedR 4 |+ shape (range 0.3 0.0 sine) 19 | , y # s "mst:8?" |+ slowSpeedR 3 |+ shape (range 0.4 0.0 sine) 20 | , y # s "mbd2:2?" |* gain (slow 3(range 0.24 1 saw)) 21 | , (0.25~>) $ degradeBy 0.5 $ z # s "<[dig1?, dig2?] ~ dig2?>" 22 | , (0.25~>) $ degradeBy 0.2 $ u # s "<[dig0? dig1?] dig0 ~>" 23 | , degradeBy 0.5 $ z # s "" 24 | , degradeBy 0.94 $ fast 1.5 $ s "ml4:12" |+ slowSpeedR 5 25 | , degradeBy 0.98 v # s "mwb:21?" |+ slowSpeedR 3 |+ gain 0.9 |+ hpf 1200 |+ coarse 12 |+ wah 0.05 26 | ] 27 | |+ mGain 28 | |+ slowPanR 3 29 | 30 | hush 31 | 32 | 33 | 34 | u1 35 | -- $ iter 3 36 | $ slow 4 37 | $ thing "salmon2*10 stone2*10 crab*10" 38 | |+ y 1.5 39 | |+ rigid 1 40 | |+ duration 3 41 | |+ y 0.2 42 | |+ x (slow 3 (range (-0.8) (-0.4) sine)) 43 | |+ z (-0.8) 44 | |+ vscale 0.5 45 | 46 | uhush 47 | 48 | -------------------------------------------------------------------------------- /newmoon/s.tidal: -------------------------------------------------------------------------------- 1 | setcps (120/120/2) 2 | 3 | do 4 | x <- lazy' "<3 2 2 4>" inst2 5 | d1 6 | -- $ msvoB 0 7 | -- $ msvo 0 8 | $ sometimesBy 0.4 (within (0.3, 0.5) (rev).(|+shape 0.3)) 9 | $ unison "mbd" "[~ msz:10*2, mwb:3]/2" 10 | $ unison "mst" ("[mhh:8*2, ml3:9 ~ msn:4]/2" |+ mGain) 11 | $ x 12 | |+ mGain 13 | |+ slowPanR 3 14 | |+ slowSpeedR 3 15 | |+ n "8" 16 | 17 | d1 silence 18 | 19 | d2 20 | $ mask "[f t f]*2" 21 | $ off 0.35 (|+ up "7") 22 | $ off 0.75 (|+ up "14") 23 | $ s "" 24 | |+ up (scale "ionian" "[2, 6, 9 [5 8 <4 11> <0 2>]]" + "<1 8 3>") 25 | |+ n 3 26 | |+ room 0.05 27 | |+ gain 1.5 28 | 29 | d2 silence 30 | 31 | do 32 | x <- lazy' "<3 2 2 4>" inst0 33 | d1 34 | $ degradeBy 0.5 35 | $ sometimesBy 0.4 (within (0.3, 0.5) (rev).(|+shape 0.3)) 36 | $ unison "mbd2" "[~ zap:19*2, mwb:3]/2" 37 | $ unison "mst" ("[zap:8*4, ml3:9 ~ mcp:4]/2" |+ mGain) 38 | $ x 39 | |+ mGain 40 | |+ slowPanR 3 41 | |+ slowSpeedR 3 42 | |+ mfDel 43 | |+ room 0.05 44 | |+ n 16 45 | 46 | 47 | hush 48 | -------------------------------------------------------------------------------- /package.yaml: -------------------------------------------------------------------------------- 1 | name: tidal-lazy 2 | version: 0.1.0.1 3 | github: "githubuser/tidal-lazy" 4 | license: BSD3 5 | author: "Author name here" 6 | maintainer: "example@example.com" 7 | copyright: "2019 Author name here" 8 | 9 | extra-source-files: 10 | - README.md 11 | - ChangeLog.md 12 | 13 | # Metadata used when publishing your package 14 | # synopsis: Short description of your package 15 | # category: Web 16 | 17 | # To avoid duplicated efforts in documentation and dealing with the 18 | # complications of embedding Haddock markup inside cabal files, it is 19 | # common to point users to the README.md file. 20 | description: Please see the README on GitHub at 21 | 22 | dependencies: 23 | - base >= 4.7 && < 5 24 | - containers >= 0.6.0.1 25 | - base >=4.7 && <5 26 | - random 27 | - tidal >= 1.7.4 28 | 29 | library: 30 | source-dirs: src 31 | 32 | executables: 33 | tidal-lazy-exe: 34 | main: Main.hs 35 | source-dirs: app 36 | ghc-options: 37 | - -threaded 38 | - -rtsopts 39 | - -with-rtsopts=-N 40 | dependencies: 41 | - containers >= 0.6.0.1 42 | - base >=4.7 && <5 43 | - random 44 | - tidal >= 1.7.4 45 | - tidal-lazy 46 | 47 | tests: 48 | tidal-lazy-test: 49 | main: Spec.hs 50 | source-dirs: test 51 | ghc-options: 52 | - -threaded 53 | - -rtsopts 54 | - -with-rtsopts=-N 55 | dependencies: 56 | - tidal-lazy 57 | -------------------------------------------------------------------------------- /sketch/2017-01-09.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.28) 2 | 3 | 4 | d1 5 | $ every 2 (off 0.125 (|+| speed "1 2 3 0.5 2 3")) 6 | $ whenmod 8 7 (within (0.2, 0.5) (striateL' 3 0.08 11)) 7 | $ slow 3 8 | $ msvoS 0.125 9 | $ stack[ 10 | (sound "mhh:31(5,6) ~ [~ msn:29] mbd:7*2") 11 | ,(sound "msn([5 2]/2,6)/3 moe3([4 3]/2,7)" |+| n "26") 12 | ,((0.25 <~) $ sound "ml:34/2 ~ mhh:25*3 mcp*2/4") 13 | ] 14 | |+| mDefault 15 | |+| binshfR 16 | |+| n (scale (-1) 2 $ (run 4)) 17 | -- |+| disv "-1 -3 -1" "3 3 2" 18 | 19 | d2 20 | $ slow 3 21 | $ whenmod 8 5 (striateL' 3 0.01 5) 22 | $ every 2 (off 0.25 (|=| speed "1 1.125 0.5 1.33")) 23 | $ sound "mb:16*2 ml:23/3 [mb:12*2 ~] mb:12" 24 | |+| wah "0.1 0.5 0.2" 25 | |+| cut "5 3 5 3" 26 | |+| shape "0.3" 27 | |+| up (slow 2 $ "-2 4 4 -2 0") 28 | |+| n (scale 2 8 $ (run 4)) 29 | |+| slowPanS 2 30 | 31 | 32 | d3 33 | $ slow 3 34 | $ every 4 (iter 3) 35 | $ every 5 (palindrome) 36 | $ sometimes (striateL' 2 0.08 12) 37 | $ every 3 (off 0.125 (|=| up "1 0.75 1 0.3")) 38 | $ sound "mhh/3 mpd:26/6 [~ mbd/5] msn/3" 39 | |+| n "13 ~ 16 4" 40 | |+| wah "0.1 0.1 0.2" 41 | |+| binshf "1 0 1" 42 | -- |+| disv "-3 -2 -3" "3 7 5" 43 | |+| slowPanR 2 44 | |+| shape "0.5" 45 | 46 | 47 | d1 silence 48 | 49 | d2 silence 50 | 51 | d3 silence 52 | 53 | d4 silence 54 | 55 | hush 56 | -------------------------------------------------------------------------------- /sketch/2017-01-24.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.18) 2 | 3 | d1 4 | $ slow 3 5 | $ every 6 (off 0.125 (|+| speed "1 2 1 0.75")) 6 | $ s "feelfx*2 alex*2" 7 | |+| n "2 7 1" 8 | # speed "-0.25" 9 | |+| cut "6 5 6 7" 10 | |-| speed (slow 2 $ "0.1 0.2") 11 | |+| wah "0.05" 12 | 13 | do 14 | let 15 | pad1 = sound "{msoz:2*2, msoz:10*2}" 16 | pad2 = sound "{msoz:17*2}" -- 17 15 14 18 17 | d2 18 | $ slow 16 19 | $ stut 8 0.25 16 20 | $ slowcat [pad1, pad2, pad2] 21 | |+| speed "0.5 [0.3333 [0.66 0.5]]*3 -0.333" 22 | |+| wah "0.05" 23 | |+| gain "0.8" 24 | 25 | d3 26 | $ every 2 (off 0.125 (|+| speed "0.5 -2 4 2")) 27 | $ every 6 (within (0.3, 0.8) (striateL' 3 0.08 11)) 28 | $ every 3 (within (0.1, 0.6) (|+| speed (choose [0.5, -1, 4, 0.75, -0.35]))) 29 | -- $ every 4 (within (0.0, 0.6) (|+| disv "-3 -4" "3 3")) 30 | $ slow 3 31 | $ stack[ 32 | (sound "mbd:4 [mhh:12([3,4]/2,8) ~] ~"), 33 | (sound "{mhh:22([2 3]/2,5) ~ msn:7/2, [~ moe3([3 2]/2,5)] mbd:5 ~}" |+| n "2"), 34 | (sound "mnt:18/2 [~ msn:24] ~") 35 | -- (sound "mnt:18/2 [~ msn:24*2 ~] ~") 36 | ] 37 | |+| binshfS 2 38 | |+| gain "1.2" 39 | -- |+| shape "0.3" 40 | -- |+| n "2" 41 | |+| n (scale (-1) 6 $ (run 3)) 42 | |+| slowPanR 2 43 | 44 | 45 | d1 silence 46 | 47 | d2 silence 48 | 49 | d3 silence 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/2017-01-26.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ slow 32 3 | $ every 2 (off 0.333 (|+| n "0 -1 1")) 4 | $ chord [am, cM, em, dm] "0 1 2 3" 5 | |+| sound "ml:25*4" 6 | |+| gain "1.0" 7 | |*| speed "-0.4" 8 | 9 | d2 10 | $ slow 8 11 | $ striateL' 2 0.125 8 12 | $ sound "mpd:11*2" 13 | |+| wah "0.2 0.1" 14 | |+| speed "0.2" 15 | |+| cut "12" 16 | |+| binshfS 2 17 | |+| slowPanR 3 18 | 19 | 20 | d3 21 | $ degradeBy 0.8 22 | $ whenmod 5 4 (|+| disv "-2 -2" "3 2") 23 | $ every 3 (|+| n "4 7") 24 | $ every 2 (off 0.3333 (|+| speed "0.75 -1 4 -0.85")) 25 | $ every 2 (within (0.3, 0.9) (0.25 ~>)) 26 | $ stack [ 27 | sound "{~ mhh:13 [mbd:9*2/2 ~] ~ mcp/3, ~ mnt:18/12 ~}" 28 | ,(every 2 (within (0.2, 0.9) (0.125 ~>)) 29 | $ sound "{lt:2*2/3 [~ mnt:28/4] ~, ~ [~ msn:27*3/4 ~] ~ }") 30 | ] 31 | -- |+| disv "-2 -2" "3 2" 32 | |+| binfrz "0 0 1 0.4" 33 | |+| mGain 34 | |+| binshf "0.3 1 0 0.6" 35 | |+| slowPanS 6 36 | |+| shape "0.3" 37 | 38 | 39 | d3 silence 40 | 41 | d2 silence 42 | 43 | d1 silence 44 | 45 | hush 46 | -------------------------------------------------------------------------------- /sketch/2017-02-08.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.4) 2 | 3 | d2 4 | $ slow 2 5 | -- $ degradeBy 0.5 6 | $ whenmod 6 2 (|*| speed "~ 1 -0.75 ~ 1.5 0.66") 7 | $ whenmod 4 2 (off (1%4) (|+| speed "~ -1.25 ~ [0.75 0] 1")) 8 | $ sound "{~ [~ mb:16/2] ~ ,mnt:19 ~ ~, ~ mb:8*2 ~ ~}" 9 | |+| up "0" 10 | |+| binshfS 2 11 | |+| cut "1 2 2" 12 | |+| mGain 13 | |+| shape "0.3" 14 | 15 | 16 | d1 17 | -- $ every 12 (within (0.3, 0.6) (|+| disv "-1 -3 -1" "3 3 2")) 18 | $ every 2 (off 0.075 (|+| speed "1 [3 -0.5] -2 3")) 19 | -- $ whenmod 8 7 (striateL' 3 0.08 11) 20 | $ slow 2 21 | $ stack[ 22 | -- (sound "mhh:24*32"), 23 | (sound "mhh:4(2,7)/3 [mhh:9*2/3 ~] mbd:5*2 ~ ~"), 24 | (sound "mbd:9 mhh:5(3,5) [~ moe1([2 3]/2,7)] ~ mhh*2"), 25 | ((0.125 <~) $ sound "mpd:15/4 [mnt:8/4? ~] [mhh:11*2 mcp:3*2/3]") 26 | ] 27 | |+| binshfR 28 | |+| mGain 29 | |+| shape "0.3" 30 | |+| n (scale 1 2 $ (run 4)) 31 | |+| slowPanR 4 32 | -- |+| disv "-1 -3 -1" "3 3 2" 33 | 34 | 35 | 36 | d1 silence 37 | 38 | d2 silence 39 | 40 | hush 41 | -------------------------------------------------------------------------------- /sketch/2017-02-11.tidal: -------------------------------------------------------------------------------- 1 | (cps 0.9) 2 | 3 | d1 4 | $ slow 3 5 | $ msvoS 0.125 6 | $ stack[ 7 | (sound "mbd:5*2 mhh:2*3? [msn:7*3?] [~ mhh:5*2]") 8 | ,(sound "~ [mhh/4 ~] ~ [mhh/3 [~ mhh:4/2]]") 9 | ,(sound "mhh:8/2 mnt:24([1,2]/2,5)") 10 | ,(sound "~ mnt:28([3,2]/2,5')/3 mnz:9?") 11 | ] 12 | |+| mGain 13 | |+| nudge "[0.01 0]*3" 14 | |+| shape "0.3" 15 | |+| n (scale 1 9 (run 2)) 16 | |+| binshfS 4 17 | |+| conv "0 0 0 1" 18 | |+| slowPanR 3 19 | 20 | 21 | d2 22 | $ every 4 (off 0.25 (|+| speed "-1.25 [0.75 0.66] -2")) 23 | $ sound "mpd:22/3 mb:1/5*2 mpd:17/6 mb:19/3" 24 | |+| binscr "1 1 0" 25 | |+| binshfR 26 | |+| wah "0.15 0 0.3" 27 | |+| n (slow 8 $ "8 7 16 22") 28 | |+| slowPanS 5 29 | 30 | d3 31 | $ sometimes (0.075 ~>) 32 | $ slow 6 33 | $ every 2 (off 0.75 (|+| speed "-1.5 [0.75 0.66] -2")) 34 | $ sound "ml:0*4" 35 | |+| chord [em9, dM7, fm] "0 1 2 3 4" 36 | |+| mGain 37 | 38 | d4 39 | $ degradeBy 0.4 40 | $ slow 1.5 41 | $ whenmod 4 2 (slow 4) 42 | $ off 0.125 (|*| speed (choose [-1.125,-1.666,(-2),-0.5])) 43 | $ sound "ml2:27*9" 44 | |*| speed (slow 0.5 $ "2 1.33333 1.125 1 0.666 0.5") 45 | |*| speed "1.1" 46 | |+| room "0.2" 47 | -- |+| mGain 48 | |+| coarse (slow 2 $ "12 12 2 6") 49 | |+| binscr "1 0 0 1" 50 | 51 | 52 | d1 silence 53 | 54 | d2 silence 55 | 56 | d3 silence 57 | 58 | d4 silence 59 | 60 | hush 61 | -------------------------------------------------------------------------------- /sketch/2017-02-13.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.03) 2 | 3 | d1 4 | -- $ degradeBy 0.5 5 | -- $ slow 1.25 6 | $ whenmod 4 3 (within (0.3, 0.6) (striateL' 3 0.02 7)) 7 | $ every 8 (slow 6) 8 | $ every 3 (iter 2) 9 | $ every 2 (off 0.125 (|+| speed "-0.25 -0.4 6 -2")) 10 | $ sound "{[mbd:7, glitch2:1/2] mhh:8 [mhh:25 mbd:5, moe1/2, noise:10] ~, mnt:29 ~ ~ ~ [~ mhh/2] [~ mhh/2]}" 11 | |+| nudge "[0 0.09]*3" 12 | |+| mGain 13 | |+| shape "0.4" 14 | |+| slowPanS 3 15 | 16 | 17 | d2 18 | $ every 5 (|+| wah "0.25 0 0.07") 19 | $ every 3 (within (0.2, 0.8) (|+| modl "1")) 20 | $ whenmod 4 2 (within (0.3, 0.6) (striateL' 3 0.06 5)) 21 | $ every 4 (off 0.25 (|+| speed "-1.25 [-0.75 -0.46] -2")) 22 | $ sound "mpd:16/4 mb:0/2*2 mpd:24/6 mb:3/3" 23 | |+| binfrz "0.4 0 0 1" 24 | |+| binshfS 3 25 | |+| coarse (slow 3 $ "2 128 2 2 32") 26 | |+| mGain 27 | |+| slowPanS 5 28 | -- |+| n "2" 29 | 30 | d3 31 | $ slow 8 32 | $ every 6 (off 0.125 (|+| speed "-0.25")) 33 | $ sound "[tacscan:19 mpd:14] ~" 34 | |+| wah "0.15 0 0.3" 35 | 36 | 37 | hush 38 | -------------------------------------------------------------------------------- /sketch/2017-03-19.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | -- $ slow 4 3 | -- $ msvoS 0.25 4 | -- $ (0.28 <~) 5 | $ sound "{[mhh:32*8, mbd:17([2,3]/2,5)], mcp:0/4}" 6 | |+| mDefault 7 | |+| gain "0 -0.2 0 -0.5" 8 | -- |+| disv "-0.2 -0.2" "5 5" 9 | 10 | 11 | d2 12 | -- $ (0.05 <~) 13 | $ msvoS 0.125 14 | $ sound "{mnt:32*4,~ mpd:19/3?}" 15 | |+| mDefault 16 | |+| n (slow 2 $ "0 2 2 0") 17 | -- |+| slowSpeedR 2 18 | -- |+| cut "1" 19 | 20 | 21 | d3 22 | $ slow 6 23 | $ msvoS 0.125 24 | $ sound "{mhh:17(3,5), [moe3 msn:19(2,5)]/2, mnt:32(2,3)}" 25 | |+| slowSpeedR 2 26 | |+| binfrz "0 1 0" 27 | 28 | 29 | d4 30 | $ slow 0.75 31 | $ stut 2 0.125 3 32 | $ whenmod 8 4 (|*| speed "0.75") 33 | $ whenmod 6 3 (sometimes (off 0.125 (|*| speed (choose [1.5, 1.125])))) 34 | -- $ degradeBy 0.3 35 | $ sound "ml:26*3" 36 | -- |+| mGain 37 | |+| up "{0 5 10 12 15 17 20 22}%4" 38 | |+| slowPanS 3 39 | |*| speed "1.0 2.0 -1.5" 40 | 41 | 42 | 43 | d2 silence >> d1 silence 44 | 45 | hush 46 | -------------------------------------------------------------------------------- /sketch/2017-03-21.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.1) 2 | 3 | d1 4 | $ sometimes (msvo 0.125) 5 | $ whenmod 4 3 (slow 3) 6 | $ foldEvery [3,5] (within (0.4,0.6) (striate 5)) 7 | $ ur 1 "<0 1 0 1 2 0 2 1 2 0 0 2 1>" [ 8 | sound "[mbd:15(3,8), mhh*2 msn:22*2/2, mnt:25*8?]" 9 | ,sound "[mbd:2(3,9), mhh*3 msn:5]" 10 | ,sound "[~ mbd:2(2,5), mcp mhh*4]" 11 | ] 12 | |+| speed (slow 1.75 $ "1 -0.8 1.1 0.75") 13 | |+| n "3 5 8" 14 | |=| mDefault 15 | -- |+| flange "1.0" "0.9 0.1 0.7 0.09" 16 | -- |+| slowSpeedR 2 17 | -- |+| mGrav 18 | 19 | 20 | d2 21 | $ slow 2 22 | $ msvo 0.125 23 | -- $ mStut "<2 5>" "0.3" 24 | $ foldEvery [4,5] (within (0.5,0.9) (chop 4)) 25 | $ sound "{~ mnt:32(5,8)?, mnz:19(2,5)? ~}" 26 | |+| n (slow 3 $ "2 4 5") 27 | |+| modl "0 0 0 1 0 1" 28 | |+| conv "0 0 0 1" 29 | |+| slowSpeedR 2 30 | |=| mGrav 31 | -- |+| flange "1.0" "0.9" 32 | 33 | 34 | d3 35 | $ slow 4 36 | $ stut 2 0.125 4 37 | $ foldEvery [4,5] (within (0.4,0.8) (chop 3)) 38 | $ every 3 (iter 3) 39 | $ whenmod 8 4 (|*| speed "0.75") 40 | $ whenmod 6 3 (off 0.125 (|*| speed "1.5")) 41 | $ degradeBy 0.4 42 | $ sound "ml:21(2,3) ml:5*4" 43 | |+| up "{0 2 6 9 12 15 17}%7" 44 | |+| room "0.1" 45 | |+| wah (slow 2 $ "0.03 0 0 0.02 0.1") 46 | |+| coarse "4 2 12 4 2" 47 | |+| end "0.8 1" 48 | 49 | d1 silence >> d3 silence 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/2017-03-22.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.15) 2 | 3 | d1 4 | -- $ slow 2 5 | $ msvo 0.125 6 | $ sometimes (0.125 ~>) 7 | $ every 4 (within (0.5, 0.75) (chop 3)) 8 | $ every 2 (within (0.3, 0.8) (slow 4)) 9 | $ every 5 (within (0.7, 0.9) (striate 2)) 10 | $ ur 9 "{0 1 2 0 2 1 0 2}%7" [ 11 | sound "{msn:15 mhh:1*4, ~ flick:4 ~, moe4*4, mbd:12*4?}" 12 | ,sound "[mhh:15*8, mhh:28/4 msn:20/2, mbd:7(2,5)? mhh:29/3 mb2:18?]" 13 | ,sound "{ml2:4*3 flick:6*2/2 mcp:16/3, mbd:12, mhh:19*3}" 14 | ] 15 | |*| up (slow 2 $ "1 -0.8 1 0.8") 16 | |+| mfDel (slow 3.45 $ scale 1 0.01 sine1) 17 | |+| shape "0.4 0.15 0 0.1 0" 18 | -- |+| n "10" 19 | |=| mDefult 20 | |+| slowPanS 4 21 | |+| orbit "0" 22 | -kkk |=| mGain 23 | 24 | 25 | d2 26 | $ slow 1.5 27 | $ whenmod 12 8 (|*| speed "0.8") 28 | $ whenmod 6 3 (|*| speed "1.3333") 29 | $ sound "mpd2:30/2 mpd2:6/4" 30 | |+| cutoff (scale 3600 12000 (slow 3 $ sine1)) 31 | -- |+| cut (choose [0,1,2,3]) 32 | -- |+| disv "-0.3 -0.4 3" "2 3 3" 33 | |+| mGain 34 | |+| orbit "0" 35 | 36 | 37 | d3 38 | $ sound "{mpd2:3/5 mpd2:14/6, ~}" 39 | |+| end "0.5 0.8" 40 | -- |+| disv "-0.25 -0.4 3" "4 3 3" 41 | |+| speed "0.8 1 1 0.75" 42 | |+| cut (choose [0,1,2,3]) 43 | |+| mGain 44 | 45 | 46 | d1 silence 47 | 48 | d2 silence 49 | 50 | d3 silence 51 | 52 | hush 53 | -------------------------------------------------------------------------------- /sketch/2017-03-28.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.2) 2 | 3 | d1 4 | $ msvo 0.125 5 | $ whenmod 4 2 (slow 1.5) 6 | $ whenmod 2 1 (stut 4 0.25 2.25) 7 | -- $ slow 2 8 | $ sound "{mpd2:2*3 mcp:1(2,7), mpd2:11/3 mpd2:6, ~ [~ ml2:11], mhh*8?}" 9 | |+| cut "4 3 4 3" 10 | |+| n "1 3 2 13" 11 | |+| mDefault 12 | |+| slowSpeedR 2 13 | 14 | 15 | d2 16 | $ msvo 0.125 17 | $ every 5 (slow 1.75) 18 | $ every 3 (within (0.5,0.8) (slow 2)) 19 | $ every 4 (within (0.4,0.7) (striate 6)) 20 | $ sometimes (|+| convn "0.5 0 0 0 0.3") 21 | $ ur 1 "<2 0 1 0 2 0>" [ 22 | (sound "{[mbd:3(3,5), mhh:21*4], moe4/2 [mnt:12*2 mb2:3/2]}") 23 | ,(sound "{moe3*4 [~ mbd2:2*2/2], mnt:8/3 [~ mnz:7/2]}") 24 | ,(sound "[[~ mbd:2*2], noise:8(3,5)]" |+| cut "1 3") 25 | ] 26 | |*| up (slow 2 $ "1 5 7 1") 27 | |+| n "14 8" 28 | |+| wah "0 0.1 0 0 0 0.3" 29 | |+| mDefault 30 | 31 | 32 | d3 33 | $ slow 4 34 | $ off 0.5 (|+| speed "0.75 1.5 1.25") 35 | $ every 2 (const $ sound "~") 36 | $ s "mpd2*3" 37 | |+| n (slow 4 $ "16") 38 | 39 | 40 | d1 silence >> d2 silence 41 | 42 | d3 silence 43 | 44 | hush 45 | -------------------------------------------------------------------------------- /sketch/2017-04-06.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.2) 2 | 3 | d1 4 | $ msvoS 0.125 5 | $ slow 2 6 | $ whenmod 4 3 (density 2) 7 | $ every 3 (within (0.4, 0.6) (chop 3)) 8 | $ ur 1 "<1 2 1 0 3 2 0 2 1 1 3>" [ 9 | (sound "{mpd:4*2/2 ~ , [~ mbd:17*2] mhh}" |+|shape "0.3"|+| cut (choose[3, 2, 1]) |+| slowWahR 2) 10 | ,(sound "{mhh:7*3?, mbd:4(3,5), mpd2:18 mb2/2}" |+| cut "1 4 2") 11 | ,(sound "[mhh:28*2 msn:6*3/2, mbd:12(2,4)]" |+| slowSpeedR 2 |+| shape "0.2") 12 | ,(sound "mpd2:12 ~ ~ ~") 13 | ] 14 | |+| mDefault 15 | |=| cut (density 1.5 $ "{0 1 2 3 4}%3") 16 | |+| mfDel "<0.2 1 1 0.5 0.75>" 17 | |+| n "4 3" 18 | -- |+| n "3 12 5" 19 | |*| slowPanR 2 20 | 21 | 22 | d3 23 | -- $ msvoA 0.125 24 | $ sound "mhh:25*4" 25 | |+| gain "0.6 1.0 0.9 1.2" 26 | |+| shape "0.6" 27 | |+| slowWahR 2 28 | |+| slowPanR 2 29 | 30 | 31 | d2 32 | $ msvoA 0.125 33 | $ slow 2 34 | $ every 3 (iter 3) 35 | $ sound "mpd2:22([2,3]/2,5)" |+| cut "2" |+| speed "1.2, 0.8 0.75 1" 36 | |+| n (slow 3 $ "0 0 2 5") 37 | |+| mGain 38 | 39 | d2 silence 40 | 41 | 42 | -- d3 43 | -- $ slow 4 44 | -- -- $ degradeBy 0.2 45 | -- $ off 0.125 (|+| n "5 -5 0") 46 | -- $ whenmod 4 1 (off 0.125 (|+| n "3 -5 0")) 47 | -- $ whenmod 5 2 (off 0.075 (|+| n (slow 1.25 $ "0 12 7"))) 48 | -- $ every 4 (const $ sound "~ superpiano*2") 49 | -- $ sound "superpiano*4" 50 | -- |+| room "0.2" 51 | -- |+| orbit "0" 52 | -- |+| n "1 2 4 6" 53 | -- -- |+| slowWahR 2 54 | -- |+| mGain 55 | -- |-| gain "0.1" 56 | 57 | -- d3 silence 58 | 59 | 60 | hush 61 | -------------------------------------------------------------------------------- /sketch/2017-04-07.tidal: -------------------------------------------------------------------------------- 1 | cps 130/120 2 | 3 | v1 4 | $ whenmod 3 2 (rev) 5 | $ thing "trash5*20 apple*12 stone3*13" 6 | |+| duration (slow 3.3 (scale 0.4 2 $ sine1)) 7 | |+| y (slow 0.92 (scale 0.3 0.6 $ sine1)) 8 | |+| z (slow 2.25 (scale (-0.5) 0.5 $ sine1)) 9 | |+| x (slow 0.95 (scale (-0.5) 0.5 $ saw1)) 10 | |+| rigid "1" 11 | |+| vscale (slow 0.875 (scale 0.3 2.2 $ sine1)) 12 | |+| randCam "{0 0 0 0 0 0 0.03/20}" 13 | |+| vortex "0.3" "0.4" "123.0" 14 | 15 | v1 silence 16 | -------------------------------------------------------------------------------- /sketch/2017-04-15.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ sound "hh bd" 3 | 4 | 5 | hush 6 | 7 | 8 | d2 <- stream "192.168.10.2" 7771 dirt 9 | -------------------------------------------------------------------------------- /sketch/2017-05-09.tidal: -------------------------------------------------------------------------------- 1 | cps 0.95 2 | 3 | d1 4 | $ slow 3 5 | $ msvo "<0.125 0.25 0>" 6 | $ slow "<2 1 2 1 1.75>" 7 | $ stack [ 8 | sound "{mhh:18*2 [mpd2:25/3 mpd:19/2] mcp*2, ~ msn2:15(3,5)}" 9 | |+| end (slow 2.41421 $ "0.5 1 1 0.5"), 10 | sound (slow 2 $ "{ml:28/2 mhh:21 mbd:15*2/3 mhh:19}"), 11 | sound "mnt:9/4 mnz:28*2/2 mnz:22*2" |+| wah (slow 2.666 $ "0.75 0 0 0 0.3 0 0") 12 | ] 13 | |+| slowSpeedR 2 14 | -- |+| mfDel (slow 1.83 (scale 0.1 1 $ sine1)) 15 | |+| binshfS 2 16 | |+| slowPanR 4 17 | -- |+| mGain 18 | |+| mDefault 19 | |+| cut "3 4 1 2" 20 | 21 | d2 22 | $ slow 4 23 | $ every 4 (within (0.125, 0.75) (striateL' 3 0.125 4)) 24 | $ whenmod 4 2 (|*| speed "0.75") 25 | $ every 3 (within (0.5, 0.95) (chop 4)) 26 | $ sound "mpd:8(2,5) mnz:35*2/4" 27 | |+| mfDel (slow 2.25 (scale 0.1 1 $ sine1)) 28 | |+| mGain 29 | -- |+| mDefault 30 | |+| slowPanS 2 31 | |+| cut (slow 4 $ "1 4") 32 | 33 | do 34 | let pat = "[0 1/2 0 1/2 1 0/2 1/4 1*2]" 35 | d3 36 | $ slow 2 37 | $ every 4 (within (0.5, 0.95) (gap 2)) 38 | $ whenmod 4 2 (slow 2) 39 | $ whenmod 2 1 (within (0.1, 0.5) (|+| mfDel (slow 1.25 (scale 0.1 1 $ sine1)))) 40 | $ stack[ 41 | (whenmod 4 2 (0.25 <~) $ gain (inverse <$> pat) |+| sound "mhh:14") 42 | ,(gain pat |+| sound "mbd2:7") 43 | ,((0.125 ~>) $ gain pat |+| sound "mb2:13" |+| coarse "12" |+| wah "0.03"|+| speed "0.5 0.8 1 0.75") 44 | ,(whenmod 4 3 (|*| speed "0.75") $ (0.25 ~>) $ gain (inverse <$> pat) |+| sound "ml:3" |+| speed "0.5 0.8 1.5 0.75" |+| coarse "12") 45 | ] 46 | -- |+| mDefault 47 | |+| mGain 48 | -- |+| shape "0.3" 49 | |+| slowPanS 2 50 | |+| cut "1 2 3 4" 51 | |+| mfDel (slow 2.25 (scale 0.1 1 $ sine1)) 52 | 53 | 54 | d2 silence 55 | 56 | 57 | hush 58 | -------------------------------------------------------------------------------- /sketch/2017-06-11.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ slow 16 3 | $ whenmod 4 2 (|+| n "<-2 3 -1>") 4 | $ sound "mstring(3,9)" 5 | |+| n "0 3 -2" 6 | |+| room "0.4" 7 | |+| mGain 8 | |+| cutoff "800" 9 | |+| shape "0.2" 10 | -- |+| dist "0.4" 11 | |+| slowPanS 2 12 | |+| orbit "0" 13 | |+| sustain "12" 14 | 15 | 16 | do 17 | let pat0 = "[0 1/2 0*4 1/4 0/3 0/2 0/4 1*2]" 18 | pat1 = "[~ 0*4 1/2 0 1 0/4 0 1]" 19 | ppt0 = stack [ 20 | (sometimes (0.125 <~) $ gain pat1 |+| sound ""|+| mfDel (slow 1.25 (scale 0.1 1 $ sine1))) 21 | ,((0.125 ~>) $ gain (inverse <$> pat0) |+| sound "moe1" |+| wah "0.1") 22 | ,(gain (inverse <$> pat1) |+| sound "[msn:15 mbd:5]/2" |+| speed "0.5 -0.75 2") 23 | ] 24 | ppt1 = stack [ 25 | (gain pat1 |+| sound "") 26 | ,(gain (inverse <$> pat1) |+| sound "mb:26?" |+| end "0.25") 27 | ,((0.125 ~>) $ gain (inverse <$> pat0) |+| sound "" |+| end "0.75") 28 | ] 29 | d2 30 | $ msvoA 0.125 31 | $ whenmod 4 3 (within (0.25, 0.4) (rev) . (striate 4)) 32 | $ whenmod 6 4 (within (0.5, 0.75) (off 0.125 (|+| speed "-0.75 0.8 3 -2.666"))) 33 | $ slow 2 34 | $ ur 1 "<1 0 2 1 1 0 2>" [ 35 | ppt0 36 | ,ppt1 37 | ,(sound "mnt:26/2 mbd:5 [~ mhh:14*2]/2 mbd2:3") |+| mfDel (slow 2.5 (scale 0.1 1 $ sine1)) 38 | ] 39 | |+| room "0" 40 | |+| orbit "1" 41 | |=| slowPanS 3 42 | -- |=| slowPanS 3 43 | -- |+| mDefault 44 | |+| mGain 45 | 46 | d3 47 | $ (0.25 ~>) 48 | $ slow 4 49 | $ sound "mhh:5*8 ~" 50 | |+| gain (slow 8 (scale 0.5 1.1 $ sine1)) 51 | 52 | d3 silence 53 | 54 | d1 silence 55 | 56 | hush 57 | 58 | -------------------------------------------------------------------------------- /sketch/2017-06-15.tidal: -------------------------------------------------------------------------------- 1 | v1 2 | $ slow 2 3 | $ thing "ac*40" 4 | |+| duration "3" 5 | |+| rigid "1" 6 | |+| x (slow 3 (scale (-0.5) 0.5 $ sine1)) 7 | |+| z (density 2 (scale (-0.5) 0.5 sine1)) 8 | |+| y "0.5" 9 | |+| vscale "-0.7" 10 | -- |+| randCam (slow 3 $ "0 0 0 0 0.2/10") 11 | -- |+| vortex "3.5" "{0.9 0.2 0.18}" (slow 0.25 (scale (-80) 150 sine1)) 12 | 13 | 14 | v1 silence 15 | -------------------------------------------------------------------------------- /sketch/2017-06-19.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ slow 8 3 | $ sometimes (off 0.25 (|+| disv "0.0125" "2")) 4 | $ sometimes (striate 3) 5 | $ sound "mpd3:0*4" 6 | |+| n "3 4 1 0" 7 | |+| begin (scale 0.0 0.9 rand) 8 | |+| up (slow 3 $ "0 2 -2 -3") 9 | |+| cut "1 4 1 2" 10 | |+| convn "0.2" 11 | |+| mGain 12 | 13 | 14 | do 15 | let 16 | pat = "0*2 1/3 [1*4 0/3]/2 1 0/4 1*2 0/3 1" 17 | pat2 = "1 1/3 [1 0] 1 0/4 1*4 1 0/3" 18 | d2 19 | -- $ msvo 0.125 20 | $ slow "<8>" 21 | $ sometimes (within (0.1, 0.75) (|+| mfDel (scale 0.1 1 sine1))) 22 | $ sometimesBy 0.9 (off 0.125 (|+| speed "2.3 -0.5 0.75")) 23 | $ stack [ 24 | gain pat2 |+| sound "mhh:0" 25 | ,(0.125<~) $ gain pat2 |+| sound "mbd2:3" 26 | -- ,(0.25~>) $ gain pat |+| sound "moe1 ~" 27 | ,gain (inverse <$> pat2) |+| sound "~ msn2:0" 28 | ] 29 | |+| (slow 4 (n "0 13")) 30 | -- |+| mDefault 31 | |+| mGain 32 | |+| slowPanS 2 33 | |+| binshfS 3 34 | 35 | hush 36 | 37 | -------------------------------------------------------------------------------- /sketch/2017-06-22.tidal: -------------------------------------------------------------------------------- 1 | cps (125/120) 2 | 3 | v1 4 | $ thing "trash5*20 trash8*10 spinner*10" 5 | |+| rigid "1" 6 | |+| duration "3.5" 7 | |+| x (slow 0.75 (scale (-1) 1 saw1)) 8 | |+| z (slow 2.34 (scale (-1) 1 sine1)) 9 | |+| vscale (slow 0.8 (scale 0.3 1.8 sine1)) 10 | |+| randCam (slow 32 "{0 0.1/20 0.1/42 0 0 0.2/12}") 11 | |+| y (slow 1.45 (scale 0.2 0.6 sine1)) 12 | |+| vortex "0.3*20 2.4*20" "1.3 8.5 0.3" (slow 1.5 "120 0 40 -260 0 -20") 13 | 14 | v1 silence 15 | -------------------------------------------------------------------------------- /sketch/2017-06-29.tidal: -------------------------------------------------------------------------------- 1 | cps (118/120) 2 | 3 | do 4 | let pat0 = "1 0 0 0/2 0*1 1 1/3 [0*2 1/4 1*2] 1 [0 1 0] 0/4 1/3" 5 | pat1 = "0 1 0 1*2 0/2 1 0*4 0 0*2 0/2 1 1 0" 6 | ppt0 = stack [ 7 | (sometimes (0.125 <~) $ gain pat0 |+| sound "") 8 | ,(gain (inverse <$> pat0) |+| sound "[mnz:42 msn:1]/2" |+| coarse "<2 32 2 4>" |+| wah "0.1") 9 | ,(sometimes (off 0.75 (|+| speed "<2 -0.75 8 0.8>")) $ gain (inverse <$> pat1) |+| sound "[msn:15 mbd:6]/2") 10 | ] 11 | ppt1 = stack [ 12 | (gain pat0 |+| sound "[mbd:2 mb:2 mnz:14>") 13 | ,(gain (inverse <$> pat1) |+| sound "[mb2:21 ml2:16]/2" |+| end "0.25" |+| wah "0.05") 14 | ,(gain (inverse <$> pat1) |+| sound "" |+| end "0.5") 15 | ] 16 | d1 17 | $ slow 2 18 | $ msvo 0.125 19 | $ whenmod 4 3 (within (0.5, 0.8) (iter 3) . (striateL' 2 0.08 3)) 20 | $ whenmod 5 3 (within (0.25, 0.6) (slow 3)) 21 | $ whenmod 3 2 (within (0.5, 0.85) (off 0.25 (|+| speed "0.75 -2 -0.75 0.25 10 -2.666"))) 22 | $ slow "<2 1 1 1 3 1 2>" 23 | $ ur 1 "<1 0 2 2 1 0 2>" [ 24 | ppt1 25 | ,ppt0 26 | ,(sound "[mbd:26/2 [~ mhh:14]/2 sn:5 mbd2:3/3]") |+| mfDel (slow 2.5 (scale 0.1 1 $ sine1)) 27 | ] 28 | |+| orbit "1" 29 | |+| slowPanS 2 30 | |+| mDefault 31 | -- |+| shape "0.4" 32 | |+| n "4 0" 33 | |=| mGain 34 | 35 | d1 silence 36 | -------------------------------------------------------------------------------- /sketch/2017-07-07.tidal: -------------------------------------------------------------------------------- 1 | cps (115/120) 2 | 3 | do 4 | let 5 | -- pat1 = (slow 4 $ "0/2 1/4 1*2 0/3 0 1/8 1 0/6 1/2 0 0/2 0 1 1/3 0 1/2") 6 | pat1 = (slow 4 $ "1/6 1 1/8 0/4 0*4 0/6 1/2 0*2 1/2 1*4 0/4 1 1*2 1/4 0/4 1") 7 | d1 8 | $ foldEvery [4,6] (within (0.4, 0.75) (slow 2)) 9 | $ sometimes (msvoA 0.125) 10 | $ sometimes (msvoB 0) 11 | $ stack [ 12 | ((0.125 <~) $ gain pat1 |+| s "mhh:8") 13 | ,(gain (inverse <$> pat1) |+| s "msn:6") 14 | ,((0.125 <~) $ gain (inverse <$> pat1) |+| s "mbd:16") 15 | ] 16 | -- |+| n "~ 34 1 ~ 12 ~ 29" 17 | -- |+| n "5 5 10 8 7" 18 | |=| slowPanR 2.5 19 | |+| mDefault 20 | |=| mGain 21 | |+| mfDel (slow 2.85 $ "0.01 0.75 0.02 1 0.125 0.001 1 0.3 1") 22 | -- |+| cut "1 2 4 3 2 3 1 2" 23 | 24 | d1 silence 25 | 26 | d2 27 | $ slow 16 28 | $ chord [cm9, fm] "0 1" 29 | |+| sound "ml:20*4" 30 | |+| accelerate "0.02" 31 | |+| cutoff (slow 3.46 (scale 1800 12000 sine1)) 32 | |+| sustain "5" 33 | |+| shape "0.2" 34 | |*| speed "0.95" 35 | -- |+| mGain 36 | 37 | 38 | d2 silence 39 | 40 | hush 41 | -------------------------------------------------------------------------------- /sketch/2017-07-11-1.tidal: -------------------------------------------------------------------------------- 1 | do 2 | let 3 | pat1 = (slow 4 $ "0/2 1/2 1 0/3 0*2 1/2 1/4 0 0*4 0/4 0 1/3 1/2 1 0/2 1") 4 | d1 5 | $ slow 2 6 | $ msvoS 0.125 7 | $ foldEvery [4,5] (within (0.2, 0.5) (slow 1.5)) 8 | $ stack [ 9 | -- ((0.125 ~>) $ gain pat1 |+| s "ecco_kick:7") 10 | (whenmod 5 3 (off 0.075 (within (0.3, 0.7) (|+| speed "2.5 -0.6 2"))) $ gain (inverse <$> pat1) |+| s "ecco_noise:5" |+| cut "5 6 4 5") 11 | ,((0.125 <~) $ gain pat1 |+| s "ecco_bip:3" |+| cut "4 5 4 6 8 6 4 5") 12 | ,(slow 8 $ gain pat1 |+| s "ecco_bip:8") 13 | ] 14 | -- |+| n "1 0 3 4" 15 | -- |+| n "10 3" 16 | -- |+| mfDel (slow 7 (scale 1 0.01 rand)) 17 | |=| mGain 18 | |+| slowPanS 2 19 | -- |+| mNudge 20 | -- |=| mDefault 21 | 22 | hush 23 | 24 | -------------------------------------------------------------------------------- /sketch/2017-07-11-2.tidal: -------------------------------------------------------------------------------- 1 | cps (130/120) 2 | 3 | -- do 4 | -- let 5 | -- pat = "0/4 1*2 0 1/2 1*4 1/4 1 0/2" 6 | -- d1 7 | -- $ slow 3 8 | -- $ every 4 (msvo (-0.125)) 9 | -- $ every 2 (within (0.25, 0.75) (slow 2)) 10 | -- $ every 6 (within (0.4, 0.8) (|+| unit "s") . (|+| accelerate "<0.76 0 -0.16>") . (|+| loop "<0.125 0.75 0.5>")) 11 | -- $ every 4 (off (-0.125) (stut 3 0.05 6) . (zoom (0.25, 0.75))) 12 | -- $ stack [ 13 | -- (gain pat |+| sound "ecco_kick:5") 14 | -- ,((slow 4) $ gain pat |+| sound "ecco_bass:3" |+| sustain "0.125" |+| up "0 2 -3 0") 15 | -- ,((0.125 <~) $ gain pat |+| sound "ecco_hihat:0") 16 | -- ,(gain (inverse <$> pat) |+| sound "ecco_snr:0") 17 | -- ,(slow 8 $ (0.125 ~>) $ gain pat |+| sound "ecco_bip:6") 18 | -- ] 19 | -- |=| mGain 20 | -- |+| crush "8" 21 | -- |+| slowPanS 3 22 | -- |+| mfDel (slow 3 (scale 1 0.02 saw1)) 23 | -- |+| binsmr (slow 3 "0 1 0 0 1 0") 24 | -- |+| n "0 4" 25 | -- |+| orbit "0" 26 | 27 | d2 28 | $ sometimes (slow "<4 3>") 29 | $ msvo 0.125 30 | $ sometimes (off (-0.125) (|*| up "1.25")) 31 | $ whenmod 4 3 (|+| up "-3") 32 | $ up "-2/2 0 3/4 5/3" 33 | |+| s "[ml:19? ml:18]/2" 34 | |+| n (slow 1.75 "0 9? 0") 35 | |+| wah (slow 3 "0.06 0 0") 36 | |+| room "0.3" 37 | -- |+| end "0.25" 38 | |+| coarse "<2 12 4 4>" 39 | |+| slowPanR 2 40 | |+| gain "1.1" 41 | |+| orbit "1" 42 | 43 | 44 | 45 | 46 | 47 | hush 48 | 49 | -------------------------------------------------------------------------------- /sketch/2017-07-11-3.tidal: -------------------------------------------------------------------------------- 1 | -- pad 2 | 3 | do 4 | let 5 | pat = "0 1/4 1 0/2 0 1/3 0 1/4 1/3" 6 | d1 7 | $ slow 3 8 | -- $ mSlowDiv 8 9 | $ msvoA 0.125 10 | $ stack [ 11 | (gain pat |+| sound "ecco_noise:3") 12 | ,(gain (inverse <$> pat) |+| sound "ecco_bip:3") 13 | ,(slow 4 (gain (inverse <$> pat) |+| sound "ecco_pad:5") |*| gain "0.6") 14 | ] 15 | |+| mGain 16 | -- |+| mDefault 17 | |+| slowSpeedR 3 18 | |*| gain "0.7" 19 | 20 | hush 21 | 22 | -------------------------------------------------------------------------------- /sketch/2017-07-11-4.tidal: -------------------------------------------------------------------------------- 1 | -- pad 2 | 3 | do 4 | let 5 | pat = "0 1/4 1 0/2 0 1/3 0 1/4 1/3" 6 | d1 7 | $ slow 3 8 | $ msvoA 0.125 9 | $ stack [ 10 | ((rev) $ gain pat |+| sound "ecco_noise:5") 11 | ,((rev) $ gain (inverse <$> pat) |+| sound "ecco_bip:8") 12 | ,(slow 4 (gain (inverse <$> pat) |+| sound "ecco_pad:8") |*| gain "0.6") 13 | ] 14 | -- |+| mGain 15 | |+| mDefault 16 | |+| slowSpeedR 3 17 | |*| gain "0.7" 18 | |+| n "9" 19 | 20 | hush 21 | 22 | -------------------------------------------------------------------------------- /sketch/2017-07-11-5.tidal: -------------------------------------------------------------------------------- 1 | cps (130/120) 2 | 3 | d1 4 | $ slow 16 5 | $ off 0.025 (|*| speed (slow 0.85 $ "0.75 1.5 -1")) 6 | $ chord [em9, fm, am, gm] "0 1 2 3" 7 | |+| sound "ml:3*4" 8 | |+| mGain 9 | |+| shape "0.2" 10 | |+| wah "0.03" 11 | |+| room "0.4" 12 | |+| orbit "0" 13 | 14 | 15 | do 16 | let pat = slow 4 $ "0 1*2 1 1 0/4 1*2 0/5 0/4 0/6 1 1/3 1/4 1 0/3 0 1/2" 17 | d2 18 | $ every 5 (msvo 0.125) 19 | -- $ every 7 (off 0.125 ((striate' 4 0.1) . (|+| speed (slow 3 "-1 -0.9 2")))) 20 | $ every 4 (|+| mfDel (slow 1.75 (scale 0.01 1 sine1))) 21 | $ whenmod 4 2 (within (0.25, 0.75) (slow "<2 4>") . (0.125 <~)) 22 | $ stack [ 23 | (sometimes (0.125 ~>) $ gain pat |+| sound "[mhh:8 mhh:15]/2") 24 | ,(gain (inverse <$> pat) |+| sound "mbd:9") 25 | ,(sometimes (0.125 ~>) $ gain (inverse <$> pat) |+| sound "msn:16?" |+| cutoff (slow 4 $ scale 5900 12000 sine1)) 26 | ] 27 | -- |+| n "1 0 0 11 0" 28 | |+| slowPanR 2 29 | |+| mDefault 30 | |=| mGain 31 | -- |+| binshf (slow 2 "0 0 0 1 0 0 1 0") 32 | |+| orbit "1" 33 | 34 | 35 | d1 silence 36 | 37 | d2 silence 38 | 39 | 40 | hush 41 | 42 | 43 | -------------------------------------------------------------------------------- /sketch/2017-07-14.tidal: -------------------------------------------------------------------------------- 1 | cps (120/120) 2 | 3 | do 4 | let 5 | -- pat1 = (slow 4 $ "0/2 1 1*2 0/3 0*2 1/2 1/4 0 1 0/4 0*2 1/3 1/2 1 0/2 1") 6 | pat1 = (slow 6 $ "0 0/2 1*4 1 1/4 1*2 0/4 0 1 0/4 1*2 0/4 0/3 1/4 0 1/2") 7 | d1 8 | $ foldEvery [4,5] (within (0.2, 0.5) (slow 1.5)) 9 | $ stack [ 10 | ((0.125 <~) $ gain pat1 |+| s "ecco_kick:4") 11 | -- ,(whenmod 5 3 (off 0.125 (within (0.3, 0.7) (|+| speed "2.5 -0.6 2"))) $ gain (inverse <$> pat1) |+| s "ecco_noise:5" |+| cut "5 6 4 5") 12 | ,((0.125 <~) $ gain pat1 |+| s "ecco_hihat:8") 13 | ,(slow 8 $ gain (inverse <$> pat1) |+| s "mnt:31" |+| coarse "12") 14 | ] 15 | |+| n "1 0 3 4" 16 | -- |+| n "4" 17 | |+| mfDel (slow 0.75 (scale 1 0.01 sine1)) 18 | |+| mGain 19 | |+| slowPanS 2 20 | |+| mNudge 21 | |+| cut (run 12) 22 | |+| orbit "0 1 0 0 1 1 0 1 1 0" 23 | 24 | d2 25 | $ slow 2 26 | $ degradeBy 0.4 27 | $ every 3 (zoom (0.0, 0.6) . (slow "<2 4>")) 28 | $ whenmod 4 2 (off (0.125) (within (0.25, 0.5) (|+| up "<2 4>"))) 29 | $ whenmod 3 1 (|+| accelerate "0.05 -0.07") 30 | $ up "5 0 -2 [9 10]/2" 31 | -- |+| s "[msoz:2/2 msoz:6/4]/2" 32 | |+| s "[msoz:4 msoz:6/9]/2" 33 | -- |+| s "[ml:8 ml2:5]/2" 34 | |+| wah (slow 3 "0.06 0 0.1") 35 | |+| room "0.3" 36 | |+| end "<0.1 0.3 0.2>" 37 | |+| binscr "1" 38 | |+| shape "0.3" 39 | -- |+| binshf "1" 40 | |*| speed "-0.5" 41 | |+| coarse "<2 12 8 8>" 42 | |+| slowPanR 2 43 | |+| cut "3 5 3 5" 44 | |=| gain "1.2" 45 | 46 | 47 | 48 | d1 silence 49 | 50 | d2 silence 51 | 52 | 53 | hush 54 | 55 | -------------------------------------------------------------------------------- /sketch/2017-07-23.tidal: -------------------------------------------------------------------------------- 1 | v1 2 | $ thing "horse*30 ~" 3 | |+| duration (scale 0.08 1 sine1) 4 | |+| x (slow 2.33 (scale (-0.75) 0.75 sine1)) 5 | |+| z (scale (-1.0) (-2.3) sine1) 6 | |+| vscale (density 2 (scale 0.006 0.01 sine1)) 7 | |+| y (slow 1.4 (scale 0.5 1.0 sine1)) 8 | |+| randCam "{0 0 0.03/4 0 0 0.03/2 0}" 9 | 10 | v1 silence 11 | -------------------------------------------------------------------------------- /sketch/2017-07-30.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ degradeBy 0.3 3 | -- $ msvo 0.125 4 | $ whenmod 4 2 (off 0.125 (|+| speed "-1 0.3 1 0.9")) 5 | $ whenmod 5 2 (striate' 4 0.125) 6 | $ sound "mviznut*4" 7 | |+| slowPanS 2 8 | |+| mGain 9 | 10 | 11 | hush 12 | -------------------------------------------------------------------------------- /sketch/2017-08-23.tidal: -------------------------------------------------------------------------------- 1 | d1 $ (chooseUr (randpick seqlist) [(sound "hh")] 2 | 3 | :t (randpick seqlist) 4 | 5 | :t chooseUr 6 | 7 | 8 | import GHC.Base 9 | 10 | d1 $ chooseUr [(sound "hh"),(sound "hh")] 11 | 12 | ve = unIO $ chooseUr [(sound "hh"),(sound "hh")] 13 | 14 | d1 unva 15 | -- t: choose 16 | :t [(sound "hh"),(sound "hh")] 17 | 18 | hush 19 | 20 | :t ur 21 | 22 | 23 | :t seqlist 24 | 25 | 26 | :t "<>" 27 | -------------------------------------------------------------------------------- /sketch/2017-08-24.tidal: -------------------------------------------------------------------------------- 1 | cps (138/120) 2 | 3 | d1 4 | -- $ density 2 5 | $ msvoB 0.125 6 | $ msvo 0 7 | $ msvoA (-0.025) 8 | $ mxur0 9 | |+| mDefault 10 | |=| mGain 11 | |+| n "0 4 6" 12 | |+| orbit "0" 13 | 14 | d2 15 | -- $ slow 2 16 | $ (0.12<~) 17 | $ mxur1 18 | |+| speed "-0.5 -1" 19 | |+| conv "1 0 0 1" 20 | |+| n "12" 21 | |+| mGain 22 | |+| slowPanS 2 23 | |+| orbit "1" 24 | 25 | d2 silence 26 | 27 | 28 | mxur0 <- mxl 29 | 30 | mxur1 <- mxl 31 | 32 | hush 33 | 34 | -------------------------------------------------------------------------------- /sketch/2017-08-25.tidal: -------------------------------------------------------------------------------- 1 | cps (140/120) 2 | 3 | d1 4 | $ msvoB 0.125 5 | $ mxur0 6 | |+| mDefault 7 | |=| mGain 8 | |+| n "1 3" 9 | 10 | mxur0 <- mxl 11 | 12 | hush 13 | 14 | 15 | -------------------------------------------------------------------------------- /sketch/2017-08-26.tidal: -------------------------------------------------------------------------------- 1 | cps 1.0 2 | 3 | do 4 | -- mxur0 <- mxl 5 | d1 6 | -- $ degradeBy 0.4 7 | -- $ slow 2 8 | -- $ msvo 0 9 | -- $ msvoA 0.125 10 | -- $ msvoC 0.125 11 | $ mxur0 12 | -- |+| mDefault 13 | |=| slowPanS 3 14 | |=| mGain 15 | |+| n "10 15 23" 16 | |+| orbit "1" 17 | 18 | do 19 | -- mxur0 <- mxl 20 | d2 21 | -- $ jux (iter 3) 22 | $ (0.25 <~) 23 | $ degradeBy 0.4 24 | $ slow 2 25 | $ msvo 0 26 | $ msvoA 0 27 | $ msvoC 0 28 | $ mxur0 29 | |+| mDefault 30 | |=| slowPanS 3 31 | |=| mGain 32 | |+| n "8 13 3" 33 | |+| orbit "0" 34 | 35 | 36 | 37 | d2 38 | $ msvoC 0 39 | $ whenmod 4 2 (off 0.375 (|+| speed "1.5")) 40 | $ whenmod 3 2 (within (0.5, 0.8) (slow "2 1")) 41 | $ sound "[mb2/4, mbd mhh*2]/2 [[msn*2 mhh]/2 ~ [mhh*2 mbd]/3 msn]/4 ~ [msn mcp]" 42 | |+| n "10 2 3 0" 43 | |+| mDefault 44 | 45 | d2 46 | $ whenmod 3 2 (within (0.4, 0.8) (slow "2 1")) 47 | $ sound "{mbd(3,5), mhh*8, [mbd msn mnz]/3 [msn*2 mb]/2 , ~ ~ ~ mbd*2 msn}" 48 | |+| n "14 24 8 8" 49 | |+| mDefault 50 | 51 | 52 | d2 silence 53 | 54 | hush 55 | 56 | -------------------------------------------------------------------------------- /sketch/2017-08-30.tidal: -------------------------------------------------------------------------------- 1 | cps (120/120) 2 | 3 | do 4 | mxur <- mxl 5 | d1 6 | $ mxur 7 | |+| n "~ 5 12 ~ 8" 8 | |+| mGain 9 | 10 | d1 11 | $ sound "mhh*4" 12 | |+| mGain 13 | 14 | hush 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | :t paatternList1 42 | 43 | :t pat0 44 | 45 | 46 | 47 | 48 | :t binPats 49 | 50 | :t chooseBpt 51 | 52 | :t chooseUr2 53 | 54 | :t paatternList1 55 | 56 | :t randpick paatternList2 57 | 58 | 59 | 60 | :t mxl 61 | 62 | :t smm 63 | 64 | d1 65 | $ smm "hh" 66 | 67 | hush 68 | 69 | import System.Random (randomRIO) 70 | 71 | randpick xs = fmap (xs !!) $ randomRIO (0, length xs - 1) 72 | 73 | 74 | x <- (randpick paatternList2) 75 | 76 | 77 | 78 | d = (chooseBpt ["hh", "mm", "ww", "ee"]) 79 | 80 | :t d 81 | 82 | d <- (chooseUr2 d) 83 | 84 | :t d 85 | 86 | -------------------------------------------------------------------------------- /sketch/2017-08-31.tidal: -------------------------------------------------------------------------------- 1 | :t paatternList1 2 | 3 | :t chooseBpt 4 | 5 | :t chooseUr2 6 | 7 | :t chooseUr 8 | 9 | -------------------------------------------------------------------------------- /sketch/2017-09-04.tidal: -------------------------------------------------------------------------------- 1 | cps (122/120) 2 | 3 | do 4 | let pat = (iter 5 $ slow 2 "0/2 1/4 1 0/1 1 1/4 1 0/2 0*2 1/2 1 0/4 0*2 0/4 0 1/3") 5 | d1 6 | $ msvoC 0.125 7 | -- $ msvoA 0 8 | $ ur 1 "<1 0 2 3 0 1 2 1 2>" [ 9 | stack [ 10 | (gain pat |+| sound "mhh"), 11 | (gain (inverse <$> pat) |+| sound "mbd"), 12 | (sound "ecco_pad") 13 | ], 14 | stack[ 15 | (sound "ecco_kick(3,5)"), 16 | (sound "mhh(3,9)"), 17 | (gain pat |+| sound "msn/4" |+| cut "4") 18 | ], 19 | stack[ 20 | (sound "mbd(3,7)"), 21 | (sound "mnt:13(3,7)"), 22 | (sound "mhh(5,8)"), 23 | (gain (inverse <$> pat) |+| sound "mpd?" |+| end "0.1") 24 | ], 25 | (sound "[mbd(6,11), mhh msn ~, ~ ~ mb ~]") 26 | ] 27 | |+| n "15 14" 28 | |+| slowPanS 2 29 | -- |+| mDefault 30 | |=| mGain 31 | |+| orbit "1" 32 | 33 | 34 | 35 | d2 36 | $ slow 16 37 | $ off 0.025 (|*| speed (slow 0.85 $ "0.75 1.5 -1")) 38 | $ chord [em9, fm, am, gm] "0 1 2 3" 39 | |+| sound "ml:3*4" 40 | |+| mGain 41 | |+| shape "0.2" 42 | |+| wah "0.03" 43 | |+| room "0.4" 44 | |+| orbit "0" 45 | 46 | 47 | 48 | hush 49 | 50 | d3 silence 51 | 52 | -------------------------------------------------------------------------------- /sketch/2017-09-05.tidal: -------------------------------------------------------------------------------- 1 | cps (92/120) 2 | 3 | do 4 | x <- lazy' 2 5 | d1 6 | -- $ slow 2 7 | -- $ msvoC 0 8 | $ msvoA 0.125 9 | $ x 10 | |+| mDefault 11 | |+| slowPanS 2 12 | -- |+| speed "1 0.5 -0.125 0.1" 13 | |+| binfrz "1 0 1" 14 | |+| wah "1 0.06 0 0.2" 15 | |+| n "14 25 30" 16 | |+| orbit "0" 17 | 18 | do 19 | x <- lazy 20 | d2 21 | $ slow 2 22 | $ msvo 0 23 | $ msvoA 0.125 24 | $ x 25 | |+| mDefault 26 | |+| slowPanS 2 27 | |+| wah "0.04 0.06 0.02 0" 28 | |+| speed "0.8 -0.75 1" 29 | |+| n "~ 14 ~ 25 ~ 19" 30 | |+| orbit "0" 31 | 32 | 33 | d2 34 | $ sound "[mhh*4, ml2:27*2 mbd*2]" 35 | -- |+| mGain 36 | |+| speed "0.75 0.02" 37 | |+| slowPanR 2 38 | |+| binfrz "1 0 1 1" 39 | |+| mDefault 40 | |+| orbit "1" 41 | 42 | d2 silence 43 | 44 | hush 45 | -------------------------------------------------------------------------------- /sketch/2017-09-06.tidal: -------------------------------------------------------------------------------- 1 | v1 2 | $ thing "paper*40" 3 | |+| rigid "1" 4 | |+| y "0.5" 5 | |+| randCam "{0 0 0 0 0.04/12 0 0 0}" 6 | |+| vortex (slow 2 $ "0.3 1.4 3.2") "2.4" "120 -240 50" 7 | 8 | v1 silence 9 | 10 | :t vortex 11 | -------------------------------------------------------------------------------- /sketch/2017-09-16.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ msvoA 0.125 3 | $ msvoC 0 4 | $ sound "{mbd2(3,12), mhh2*4, ~ msn2*2 ~, mps/2 mps/3, ~ mpd2:4/4}" 5 | |=| mDefault 6 | |+| mfDel (slow 1.334 (scale 0.08 0.5 sine1)) 7 | |+| n "0 16 8 23" 8 | 9 | cps (1.05) 10 | 11 | do 12 | x <- lazy' 6 defaultI 13 | d2 14 | $ slow 2 15 | $ msvoC 0 16 | $ msvoA (-0.125) 17 | $ x 18 | -- |=| mDefault 19 | |=| mGain 20 | |=| slowPanS 2 21 | |=| n "~ 5 ~ ~ 45" 22 | 23 | hush 24 | -------------------------------------------------------------------------------- /sketch/2017-09-21.tidal: -------------------------------------------------------------------------------- 1 | cps (95/120) 2 | 3 | do 4 | x <-lazy' 2 5 | d1 6 | $ msvoC 0.125 7 | $ x 8 | |=| mGain 9 | |+| slowPanR 2 10 | |+| slowSpeedR 2 11 | |=| dist "0.125" 12 | |+| n "3 7" 13 | 14 | hush 15 | 16 | 17 | -------------------------------------------------------------------------------- /sketch/2017-10-07.tidal: -------------------------------------------------------------------------------- 1 | cps (96/120) 2 | 3 | d2 4 | $ slow 16 5 | $ whenmod 4 2 (|+| speed "[-1 -0.666]*3 [-0.75 -1.5]*4 -1.125*2") 6 | $ stut 16 0.25 32 7 | $ sound "mch" 8 | |+| n "1" 9 | |+| wah "0.03" 10 | |+| orbit "1" 11 | |+| mGain 12 | 13 | 14 | d1 15 | $ msvoB 0.125 16 | $ msvoC 0 17 | $ whenmod 4 2 (within (0.2, 0.75) (slow 5)) 18 | $ sound "[mbd2:7, mpd3/3] [mhh2*2 mps] mbd2*3 msn2*2" 19 | -- |+| mGain 20 | -- |+| slowSpeedR 1 21 | -- |+| 22 | # mDefault 23 | |+| n (iter 3 $ "2 17 19 4") 24 | |+| orbit "0" 25 | 26 | 27 | 28 | d2 silence 29 | 30 | hush 31 | -------------------------------------------------------------------------------- /sketch/2017-10-16.tidal: -------------------------------------------------------------------------------- 1 | cps (92/120) 2 | 3 | do 4 | x <- lazy' 2 default_i 5 | d1 6 | $ msvoC 0 7 | $ x 8 | |+| slowPanR 2 9 | |+| slowSpeedR 4 10 | |+| mfDel "{0 0 0 0.09 0.02 0.5 0.08 1 0.9}%7" 11 | |+| flange "{0.4 0.1 0.05 0.8}%7" "0.8 0.0 0.3" 12 | |+| mGain 13 | |+| n "1 [8 1]/2? 6 1?" 14 | |+| orbit "0" 15 | 16 | d2 silence 17 | 18 | d2 19 | $ slow 2 20 | $ every 3 (zoom (0.25, 0.6) . (slow "<2 4>")) 21 | $ whenmod 4 2 (off (0.125) (within (0.25, 0.5) (|+| up "<2 4>"))) 22 | $ up "5 0 -2 [7 10]/2" 23 | |+| s "[msoz:2/2 ~]/2" 24 | |+| wah (slow 3 "0.06 0 0.1") 25 | |+| room "0.03" 26 | |+| end "<0.4 0.3 0.5>" 27 | |+| binscr "1" 28 | -- |+| binshf "1" 29 | |+| slowPanR 2 30 | |+| cut "3 5 3 5" 31 | |=| gain "1.1" 32 | |+| orbit "1" 33 | 34 | 35 | hush 36 | -------------------------------------------------------------------------------- /sketch/2017-10-22.tidal: -------------------------------------------------------------------------------- 1 | cps (96/120) 2 | 3 | 4 | 5 | d2 6 | $ slow 2 7 | $ stut 2 0.125 4 8 | $ foldEvery [4, 5] (within (0.4,0.8) (chop 3)) 9 | $ every 3 (iter 2) 10 | $ whenmod 8 4 (|*| speed "0.75") 11 | $ whenmod 6 3 (off 0.125 (|*| speed "1.5")) 12 | $ degradeBy 0.4 13 | $ sound "ml:19(2,3) ml:4*4" 14 | |+| up "{0 4 7 10 15 16}%7" 15 | |+| room "0.04" 16 | |+| wah (slow 2 $ "0.03 0 0 0.02 0.1") 17 | |+| coarse "4 2 12 4 2" 18 | |+| end "0.8 1" 19 | |+| orbit "1" 20 | 21 | hush 22 | -------------------------------------------------------------------------------- /sketch/2017-10-24.tidal: -------------------------------------------------------------------------------- 1 | cps (92/120) 2 | 3 | 4 | 5 | d2 6 | $ slow 3 7 | $ whenmod 4 1 (|*| speed "<0.5 0.6666 0.75>") 8 | $ s "mpd" 9 | |+| mGain 10 | |+| orbit "1" 11 | |+| n "35" 12 | 13 | 14 | hush 15 | -------------------------------------------------------------------------------- /sketch/2017-11-01.tidal: -------------------------------------------------------------------------------- 1 | cps (92/120) 2 | 3 | d2 4 | $ msvoB 0.125 5 | $ off "<0.125 0.333 0.075>" (|+| up ((slow 1.333 $ "<0 3 8 17>") - "<24 12 5>")) 6 | $ s "ml:24*2" 7 | |+| henon "<1 1 0>" 8 | |+| wah "0.04" 9 | |+| mDefault 10 | |=| gain "0.8" 11 | |+| n "<0 1 0 0 5 8>" 12 | |+| orbit "1" 13 | -- |+| up (slow 2 $ "<0 -2>") 14 | 15 | do 16 | x <- lazy' 2 defaultI 17 | d1 18 | $ msvo 0.125 19 | $ x 20 | |=| mGain 21 | |+| henon "<1 0>" 22 | -- |+| flange "0 0.9 0 0.3" "{0.7 0.8 0.2}%7" 23 | |+| slowPanS 3 24 | |+| n "~ 5 ~ 13/2 ~ ~ 27/3" 25 | |+| orbit "0" 26 | 27 | d3 silence 28 | 29 | hush 30 | -------------------------------------------------------------------------------- /sketch/2017-11-29.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | do 4 | x <- lazy' "<3 2.6 2 4.145>" defaultI 5 | d1 6 | $ (0.125 ~>) 7 | $ msvoA 0.2333 8 | $ msvoB 0 9 | $ x 10 | |+| n "27 20?" 11 | |+| slowPanS 2 12 | |=| mGain 13 | |+| mNudge 14 | |+| mfDel "{0.1 1 0.08 1 0.03 0.5 0.125 1}%5" 15 | |+| flange "<0.1 0.4 0.6>" "<0.75 0.8>" 16 | |+| orbit "0" 17 | 18 | d2 19 | $ slow 24 20 | $ chord [em9, fm, am, gm] "0*4 1*4 2*4 3*4" 21 | |+| sound "pmosc*4" 22 | |*| speed (slow 4 "0.6 0.8") 23 | |+| accelerate "0.02" 24 | |+| sustain (scale 1.2 1.5 $ saw1) 25 | |+| shape "0.4" 26 | |+| henon "0.4 0.3" 27 | |+| wah "0.2" 28 | |+| flange "0.1 0.4 0.6" "0.75" 29 | |=| mGain 30 | |+| orbit "1" 31 | 32 | 33 | d3 34 | $ (0.125 ~>) 35 | $ foldEvery [4,3] (within (0.25, 0.8) (slow 3)) 36 | $ foldEvery [2,7] (within (0.5, 0.75) (density 2)) 37 | $ whenmod 3 2 (off 0.125 (|+| up "{0 -1 -2 2 5}%4")) 38 | $ msvoA 0 39 | $ sound "mb:27*2" 40 | |+| n "5" 41 | |+| cut "2" 42 | |+| up "0" 43 | |+| mGain 44 | |*| speed (slow 2 "1.2 0.8") 45 | |+| flange "0.1 0.9 0.6" "0.7" 46 | |+| orbit "1" 47 | 48 | d1 silence 49 | 50 | hush 51 | 52 | -------------------------------------------------------------------------------- /sketch/2017-12-06.tidal: -------------------------------------------------------------------------------- 1 | cps (94/120) 2 | 3 | do 4 | x <- lazy' "<2 3.125>" $ inst $ hh "mcp:15" . bd "bd:8" 5 | d1 6 | $ degradeBy 0.125 7 | -- $ msvoB 0.125 8 | $ x 9 | |+| flange "<1.0 0.2 0.9 0.1>" "{0.6 0.05 0.4 0.8}%7" 10 | -- |+| unit "{r r r r r c r r r r s}%5" 11 | |+| mfDel "{1 0.3 1 0.08 2 0.125}%3" 12 | |+| mGain 13 | |+| accelerate "{-0.03 0.125 0.03}" 14 | |+| slowPanS 2 15 | |+| n "~ 2/4 4 21" 16 | 17 | d2 18 | $ slow 9 19 | $ whenmod 4 1 (within (0.0,0.75) (|*| speed "<1.333 1.125 -1.25 -0.75>")) 20 | $ whenmod 4 0 (within (0.1,0.5) (slow "<0.8 2 0.75 1.25 0.5>")) 21 | $ sound "msoz(3,5)" 22 | -- $ sound "mch:1*2" 23 | |*| speed "1.125" 24 | |+| flange (slow 0.73 "<0.3 0.2 0.7>") "{0.1 0.4 0.1 0.3}%3" 25 | |+| mGain 26 | |+| orbit "1" 27 | |+| n "21" 28 | |+| cut "1 [2 3]/2 1" 29 | 30 | d2 silence 31 | 32 | hush 33 | -------------------------------------------------------------------------------- /sketch/2017-12-07.tidal: -------------------------------------------------------------------------------- 1 | cps (93/120) 2 | 3 | do 4 | x <- lazy' "<2 3.125>" defaultI 5 | d1 6 | $ degradeBy 0.25 7 | $ x 8 | -- |+| flange "<0.7 1 0.9 0.3>" "{0.6 0.4 0.8}%5" 9 | |+| mfDel "{1 0.1 0.08 0.25}%3" 10 | |+| unit "{r r r c r r r r}%5" 11 | |+| accelerate "{0.04 -0.03 0.0125 0.08}%6" 12 | |=| mGain 13 | |+| slowPanS 2 14 | |+| n "~ 26 19?" 15 | 16 | d2 17 | $ slow 3 18 | $ msvoB 0 19 | $ whenmod 4 1 (within (0.0,0.75) (|*| speed "<1.3333 0.5 -1.25 0.75>")) 20 | $ whenmod 4 0 (within (0.1,0.5) (slow "0.75 2 1.75 1.25 0.5")) 21 | $ sound "msoz:32(4,5)" 22 | |+| nudge "<0.025 0 -0.05>" 23 | |+| speed "0.95" 24 | |+| flange (slow 1.33 "0.2 0.3") "<0.8 0.4 0.5 0.9>" 25 | -- |+| orbit "1" 26 | |+| henon "0.4" 27 | |=| mGain 28 | |+| cut "2 3" 29 | 30 | 31 | d1 silence 32 | 33 | 34 | hush 35 | 36 | -------------------------------------------------------------------------------- /sketch/2017-12-08.tidal: -------------------------------------------------------------------------------- 1 | cps (82/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ hh "mhh:22" . sn "msn2:39" . pd "msoz:20/6". ps "ml3:3/1". bd "mbd:12" 5 | d1 6 | $ msvo 0.125 7 | -- $ msvoC 0 8 | $ x 9 | |=| mGain 10 | -- |+| mNudge 11 | |+| brick "{0 2.4 0 0 0 1.2 0}%9" 12 | |+| mfDel "{0.1 0.125 0 0.7 0.08 0 0.04}%9" 13 | |+| n "12 5 12" 14 | -- |+| flangeD 15 | |+| slowPanR 3 16 | 17 | hush 18 | 19 | 20 | 21 | 22 | do 23 | x <- lazy' 2 $ inst $ hh "[mbd2:2/4, mhh2:8/3, ml3:38/8]" 24 | d1 25 | $ msvoS 0.125 26 | $ x 27 | |=| mGain 28 | |+| (slow 2 $ mNudge) 29 | |+| mfDel "{0.3 0.125 1 0.7 0.08 1 0.08}%8" 30 | -- |+| room "0.3" 31 | -- |+| unit "{r r r r r s c}%10" 32 | |+| n "11 ~ 26 10" 33 | |+| flangeD 34 | |+| slowPanR 3 35 | 36 | hush 37 | -------------------------------------------------------------------------------- /sketch/2017-12-21.tidal: -------------------------------------------------------------------------------- 1 | 2 | d2 3 | $ (0.115 <~) 4 | $ slow 2 5 | $ sound "mpd3/2 mpd3" 6 | |+| cut "3/2 4/3" 7 | |+| slowSpeedR 3 8 | |+| n "1 5" 9 | |+| flangeL 10 | |+| mDefault 11 | |=| mGain 12 | |+| orbit "1" 13 | 14 | 15 | d2 silence 16 | 17 | -------------------------------------------------------------------------------- /sketch/2018-01-12-1.tidal: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /sketch/2018-01-12.tidal: -------------------------------------------------------------------------------- 1 | cps (98/120) 2 | 3 | do 4 | x <- lazy' 3 $ inst $ hh ((sometimes rev . slow 2) "[msn2:2/3 mst:23 mst, ml3:9/4]/3") 5 | d1 6 | $ msvoC 0.25 7 | -- $ msvo 0.125 8 | $ whenmod 4 2 (within (0.3, 0.5) (striate (choose [2,3,4,8]))) 9 | $ x 10 | |+| unit (slow 2 "{r c r r r r s r r}%8") 11 | |+| mfDel "{0.2 0 1 0 0.08}%6" 12 | |+| crush 12 13 | -- |+| mNudge 14 | |+| room "0.1" 15 | |+| n (slow 1.75 "23 32") 16 | 17 | hush 18 | -------------------------------------------------------------------------------- /sketch/2018-01-24.tidal: -------------------------------------------------------------------------------- 1 | do 2 | x <- lazy' 2 defaultI 3 | d1 4 | $ slow 2 5 | $ jux (iter 2) 6 | $ x 7 | |+| speed (rand + 0.125) 8 | 9 | 10 | hush 11 | 12 | 13 | -------------------------------------------------------------------------------- /sketch/2018-01-25.tidal: -------------------------------------------------------------------------------- 1 | cps (84/120) 2 | 3 | do 4 | x <- lazy' "<5>" $ inst $ sn "[mcp:1, msn2:4/40]" 5 | d1 6 | $ within (0.2, 0.5) (so0) 7 | $ msvo 0.125 8 | $ x 9 | |+| convp "{0.8}%3" 10 | |+| unit "{r c r r r r s r c}%7" 11 | |+| up "{1 4 -2 5 8 0 -3}%10" 12 | |+| slowPanR 3 13 | -- |+| slowSpeedR 2 14 | |+| room "0 0.050 0 0 0" 15 | |+| mGain 16 | -- |+| n (slow 0.75 $ "53 8 39") 17 | |+| n (slow 0.75 $ "23 28 3") 18 | 19 | -- v1 20 | -- $ jux (iter 3) 21 | -- $ thing "cactus1*20 teapod*15 stone1*5" 22 | -- |+| y "0.5" 23 | -- |+| rigid "1 0 0 0 1" 24 | -- |+| x (scale (-0.5) 0.5 sine1) 25 | -- |+| z (slow 2 (scale (-0.5) 0.5 sine1)) 26 | -- |+| duration "{0.1 0.02 0.2 1}%5" 27 | -- |+| randCam (slow 4 "{0.02/40 0 0 0 0.1/9 0 0}%3") 28 | 29 | 30 | v1 silence 31 | 32 | hush 33 | -------------------------------------------------------------------------------- /sketch/2018-01-29.tidal: -------------------------------------------------------------------------------- 1 | cps (93/120) 2 | 3 | 4 | do 5 | x <- lazy' 2 $ inst0 6 | d2 7 | $ whenmod 4 3 (within (0.6,0.9) (|+| chord [em9, dM7, fm, eM] (choose [0,1,2,3]))) 8 | $ msvoC 0.125 9 | -- $ so1 10 | $ x 11 | |+| mGain 12 | |+| slowPanS 2 13 | |+| slowSpeedR 3 14 | |+| n (slow 1.35 $ "6 2") 15 | 16 | hush 17 | 18 | -------------------------------------------------------------------------------- /sketch/2018-02-06.tidal: -------------------------------------------------------------------------------- 1 | v1 2 | $ thing "teapod*10 banana*10 trash3*10 cactus1*10" 3 | |+| y (slow 1.3 (scale (0.3) 0.8 sine1)) 4 | |+| x (slow 2.65 (scale (-0.5) 0.5 sine1)) 5 | |+| z (slow 1.75 (scale (-0.5) 0.5 sine1)) 6 | |+| vscale "0.5" 7 | |+| duration "2.5" 8 | |+| randCam (slow 5 "{0 0 0.01/20 0 0 0 0}%9") 9 | -- |+| vortex "0.9*20" "0.9" "120" 10 | |+| ripple (slow 4 (scale 0 0.3 sine1)) 11 | 12 | v1 silence 13 | -------------------------------------------------------------------------------- /sketch/2018-02-09.tidal: -------------------------------------------------------------------------------- 1 | cps (85/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ hh "[mhh2:3, mcp:9/3]/1.5" . sn "[msn2:4, mbd2:1]/2". bd "mbd2L4" 5 | d1 6 | $ degradeBy 0.4 7 | $ msvo 0.125 8 | $ sometimes (|+| brick (density 3 "{0 4 0 1 2 0 0 1 0}")) 9 | $ sometimes (|+| up "[0 -2 5 7 3]") 10 | $ x 11 | |+| mfDel ((slow 0.86 (scale 0.125 0.03 $ saw1)) + (slow 2 (scale 0.05 0.4 $ sine1))) 12 | |+| n "0 18 43 ~ 3" 13 | |+| mNudge 14 | |+| mDefault 15 | |+| slowPanS 3 16 | |+| slowPanR 1.75 17 | |=| mGain 18 | 19 | hush 20 | 21 | -------------------------------------------------------------------------------- /sketch/2018-02-15.tidal: -------------------------------------------------------------------------------- 1 | cps (85/120) 2 | 3 | 4 | do 5 | x <- lazy' 2 defaultI 6 | d1 7 | $ msvoA 0.125 8 | $ whenmod 4 2 (|+| flangeD) 9 | $ whenmod 6 5 (gap 2) 10 | -- $ sometimes (|+| mfDel "{0 0 0 0.18 1 0.1333 0 0 0.183}%10") 11 | $ x 12 | -- |+| mDefault 13 | |+| mGain 14 | |+| mNudge 15 | |+| slowPanR 3 16 | |+| slowSpeedR 0.75 17 | |+| unit (density 2 "{r r r r [s, r]/2 r r r}%9") 18 | |+| n "12? ~ 43 27/4" 19 | |+| up ("{3 0 5 7 0 3 5 -1}" + "<0 1 -2>") 20 | 21 | d2 22 | $ slow "<3 4>" 23 | $ up ("{7 [0, 5] [3, 10]}" + "<0 1 2>" + (slow 4 $ "<1 0>")) 24 | |+| sound "ml" 25 | |+| n "<28 19 29>" 26 | |+| room "0.2" 27 | |*| speed "{-1.125 1 1}" 28 | |+| nudge "0.08" 29 | |+| mNudge 30 | |+| accelerate "{-0.03 0 0 0.02}%5" 31 | |+| mGain 32 | 33 | 34 | d1 silence 35 | 36 | hush 37 | 38 | -------------------------------------------------------------------------------- /sketch/2018-02-22.tidal: -------------------------------------------------------------------------------- 1 | cps (83/120) 2 | 3 | do 4 | x <- lazy' 2 defaultI 5 | d1 6 | $ msvo 0.125 7 | $ sometimes (so1) 8 | $ x 9 | -- |+| mNudge 10 | -- |+| slowSpeedR 0.75 11 | |+| slowPanS 2 12 | |+| mGain 13 | -- |+| mfDel "{0.08 0 0 0 0 1 0.1 0.3 0.125}" 14 | -- |+| henon "{0.2 0.8 0 0 0.1 0}%9" 15 | |+| convp "0.2 0 0 0 0.1 0" 16 | |+| flangeL 17 | |+| n "41 ~ [25 17]/2" 18 | 19 | d2 20 | $ striateL' 16 0.1 16 21 | $ slow 6 22 | -- $ sometimes (so1) 23 | $ up ("[0, 3, 7]" + "<0 1>") 24 | |+| s "mvo:1" 25 | |+| convp "0.2" 26 | |+| flangeL 27 | |+| room "0.1" 28 | |-| zoom (0.125, 0.75) (up (choose [0, 5, 7])) 29 | |+| henon "0.5" 30 | -- |+| mGain 31 | 32 | d1 silence 33 | 34 | hush 35 | -------------------------------------------------------------------------------- /sketch/2018-02-25.tidal: -------------------------------------------------------------------------------- 1 | cps (84/120) 2 | 3 | do 4 | x <- lazy' 2 $ defaultI 5 | d1 6 | -- $ degradeBy 0.2 7 | $ whenmod 3 1 (|-| up "[5 0 -2 [0 3]/2]%6") 8 | $ x 9 | |=| mDefault 10 | -- |+| slowPanR 2 11 | |+| unit "{r r r s r r r c r r}" 12 | |+| zoom (0.5, 0.9) (up (choose [1, 2, 4, 10])) 13 | |+| mfDel (choose [0, 0.04, 0.3, 0.1, 0.125, 0.08, 1, 0]) 14 | |+| brick "{0.3 0 2 1 0 0 0 0 0.7}*2" 15 | |+| n "15 43" 16 | 17 | d2 18 | $ striateL' 4 0.5 16 19 | $ slow 2 20 | $ whenmod 3 2 (|+| up "<0 2>") 21 | $ sometimes (so0) 22 | $ s "ml:19" 23 | |+| room "0.1" 24 | |+| shape "0.3" 25 | |+| zoom (0.4, 0.9) (up (choose [0, 5, 10])) 26 | |+| henon "0.1" 27 | |*| speed "0.7" 28 | |+| cut "{1 2}" 29 | |+| mGain 30 | 31 | d2 silence 32 | 33 | hush 34 | -------------------------------------------------------------------------------- /sketch/2018-03-04.tidal: -------------------------------------------------------------------------------- 1 | cps (84/120) 2 | 3 | do 4 | x <- lazy' 2 defaultI 5 | d1 6 | $ msvo 0.125 7 | $ x 8 | |+| mNudge 9 | |+| n "~ 5 43 30" 10 | |+| mUp "[0 1 -5 -1]" 11 | |+| slowSpeedR 3 12 | -- |+| mfDel "{1 1 0.125 1 0 0 1 0.1}%3" 13 | |+| slowPanR 2 14 | -- |+| mGain 15 | |=| mDefault 16 | 17 | 18 | d2 19 | $ degradeBy 0.75 20 | $ mStut "<0 1 5>" 0.5 21 | $ s "ml3:3(4,9)" 22 | |+| mNudge 23 | |+| mGain 24 | |+| shape "0.3" 25 | |+| room "0.3" 26 | 27 | d2 silence 28 | 29 | hush 30 | 31 | -------------------------------------------------------------------------------- /sketch/2018-03-06.tidal: -------------------------------------------------------------------------------- 1 | -- d2 2 | -- $ slow 2 3 | -- $ degradeBy 0.8 4 | -- $ mStut' "<0 5>" "0.3" 5 | -- $ s "ld0:2(5,8)" 6 | -- |+| sustain "4" 7 | -- -- |+| coarse "32 4 8 4" 8 | -- |+| slowPanR 3 9 | -- |=| mGain 10 | -- |+| room "0.1" 11 | -- -- |+| henon "0.3" 12 | -- -- |+| convp "0.3" 13 | -- -- |+| wah "0.02" 14 | -- |+| orbit "0" 15 | 16 | 17 | d2 18 | $ slow 2 19 | $ degradeBy 0.95 20 | $ mStut "<0 5>" "0.125 0.1" 21 | $ s "[mpd:0(3,9) ml:10*2]" 22 | |+| slowPanR 3 23 | |+| flangeD 24 | |+| dist "0.3" 25 | -- |+| wah "0.2" 26 | |+| room "0.1" 27 | 28 | -- d2 29 | -- -- $ slow 2 30 | -- $ degradeBy 0.5 31 | -- $ mStut' (slow 0.5 "<0 5 7>") 0.7 32 | -- $ s "ld1*16" 33 | -- |+| coarse "{2 4 2 8 16}%3" 34 | -- |+| sustain "0.125" 35 | -- |+| nudge "[0 0.01]*4" 36 | -- |+| dist "0.2 0 0.4 0 0.2 0.2" 37 | -- |+| brick "0.3 0 2 0.3 2" 38 | -- |+| slowPanR 3 39 | -- |+| room "0.1" 40 | -- |=| mGain 41 | 42 | d1 silence 43 | 44 | 45 | hush 46 | 47 | -------------------------------------------------------------------------------- /sketch/2018-03-08.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | do 4 | x <- lazy' 2 defaultI 5 | d1 6 | $ msvoA 0.125 7 | $ x 8 | |+| mNudge 9 | |+| slowPanR 3 10 | |=| mGain 11 | |+| n "{43 6 34 ~ 0 2}" 12 | |+| slowSpeedR 3 13 | -- |+| brick "{2 0 0 0 0.5 0 2 0 0}%6" 14 | -- |+| slowWahR 3 15 | |+| mfDel "{0 0.1 0 0 0 0 0.12}%3" 16 | 17 | 18 | hush 19 | -------------------------------------------------------------------------------- /sketch/2018-03-10.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ hh "[mhh2:3, mcp:9/3]/1.5" . sn "[msn2:4, mbd2:8?]/2" . bd "mbd2:6" 5 | d1 6 | $ msvo 0.125 7 | $ sometimes (|+| brick (density 3 "{0 4 0 1 2 0 0 1 0}")) 8 | $ whenmod 4 3 (|+| up "[0 -2 5 1 7 3]") 9 | $ x 10 | |+| mfDel ((slow 0.6 (scale 0.25 0.03 $ saw1)) + (slow 2 (scale 0.05 1 $ sine1))) 11 | |+| n "10 42 ~ 34 4 ~" 12 | |+| mNudge 13 | -- |+| mDefault 14 | |=| mGain 15 | |+| slowPanR 1.75 16 | 17 | hush 18 | -------------------------------------------------------------------------------- /sketch/2018-03-11.tidal: -------------------------------------------------------------------------------- 1 | cps (120/120) 2 | 3 | v1 4 | $ thing "trash7*20 apple*20" 5 | |+| duration "0.15" 6 | |+| rigid "0" 7 | |+| y (scale 0.2 0.9 sine1) 8 | |+| x (slow 0.54 (scale (-0.75) 0.75 sine1)) 9 | |+| z (slow 1.75 (scale (-0.5) 0.5 sine1)) 10 | |+| vscale (slow 2 (scale 2 0.45 sine1)) 11 | |+| randCam (slow 2.9 "{0 0 0 0 0 0 0.1/12 0.06}%12") 12 | |+| vortex "0.5*20 1.3*20" "0.8" (slow 2 (scale (-120) 160 $ sine1)) 13 | -- |+| ripple (slow 3.333 (scale 0.03 0.4 $ sine1)) 14 | |+| nudge "0.16" 15 | 16 | v1 silence 17 | -------------------------------------------------------------------------------- /sketch/2018-03-13.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | d2 4 | $ slow 3 5 | $ mStut' "<0 2 5>" "<0.3 0.9>" 6 | $ sound "ld0(5,8)" 7 | |+| sustain "2.0" 8 | |=| mGain 9 | |+| coarse "12 4 8" 10 | |+| henon "0.3" 11 | |+| wah "0.02" 12 | |+| room "0.2" 13 | |+| flangeL 14 | 15 | 16 | hush 17 | -------------------------------------------------------------------------------- /sketch/2018-03-27.tidal: -------------------------------------------------------------------------------- 1 | cps (83/120) 2 | 3 | d2 4 | $ slow 16 5 | $ off (choose [0.75, 0.125]) (rev . (|+| up "3 -5")) 6 | $ s "pmosc(5, 8)/2" 7 | |+| sustain (choose [2.18, 2.7, 2, 3]) 8 | |+| n (foldl (+) "[0, 1, 5]" ["[0 2 5]/4", "0 7 5 -1", "<1 0>/1.75", "<0 0 -7 0 5>"]) 9 | |+| room "0.3" 10 | |+| coarse "4" 11 | |=| gain "1.2" 12 | 13 | do 14 | x <- lazy' 2 defaultI 15 | d1 16 | $ msvoB 0.125 17 | $ sometimes (within (0.4, 0.85) (|+| mfDel (choose [0.03, 0.04..1]))) 18 | -- $ sometimes (|=| mDefault) 19 | -- $ sometimes (zoom (0.4, 0.8) . gap 2 . rev) 20 | -- $ sometimes (within (0.25, 0.5) (slow 2)) 21 | $ sometimes (|+| crush 8) 22 | $ x 23 | |+| slowSpeedR 3 24 | |+| slowPanR 3 25 | -- |+| unit "{s s s r r r c r}%9" 26 | |=| mGain 27 | -- |+| mNudge 28 | |+| n "39 [~ 11]/2 43" 29 | 30 | d3 $ stack [ 31 | (s "mhh:1(<10 5 8>,<10 17>)") 32 | ,(s "mbd:8(3,<6 5>)" |=| gain 1.2 |+| sustain "0.25 1 0.45 1 0.7") 33 | ] 34 | |+| nudge "[0.01 0]*2" 35 | 36 | d1 silence 37 | 38 | hush 39 | 40 | 41 | 42 | do 43 | x <- lazy' 2 $ inst $ hh "[mbd2:3/4, mhh2:8/3, ml3:38/8]" 44 | d1 45 | -- $ degradeBy 0.7 46 | $ msvoB 0.125 47 | -- $ mStut "<0 3 5>" "0.3" 48 | -- $ sometimes (|+| crush 8) 49 | $ x 50 | |+| (slow 2 $ mNudge) 51 | -- |+| mfDel "{0.3 0.125 1 0.7 0.08 1 0.08}%8" 52 | |+| room "0.1" 53 | -- |+| unit "{r r r r r s c}%10" 54 | |+| n "11 ~ 26 10" 55 | |+| flangeD 56 | |+| slowPanR 3 57 | |=| mGain 58 | 59 | 60 | 61 | hush 62 | -------------------------------------------------------------------------------- /sketch/2018-04-04.tidal: -------------------------------------------------------------------------------- 1 | import Data.String 2 | 3 | cps (90/120) 4 | 5 | d1 $ density 0.75 $ stack [s "ml:10(3,10)" |+| up (fromString(show x)) |+| convn 0.4 |+| wah 0.1 | x <- [0,6..11]] |+| up "<0 2 1 0 1>/4" 6 | 7 | do 8 | x <- lazy' "<2 4>" defaultI 9 | d2 10 | $ msvoB 0.125 11 | $ msvoA 0.125 12 | $ x 13 | |=| mDefault 14 | |+| mfDel "{0.18 0.08 0.4 0.6 0.1 0.05 0.06 0 1 0 0}%12" 15 | -- |+| unit "{r r r r s c s r r r r}%10" 16 | -- |+| slowPanR 3 17 | |+| n "4 ~ ~ ~ 12 8 34" 18 | 19 | 20 | hush 21 | -------------------------------------------------------------------------------- /sketch/2018-04-11.tidal: -------------------------------------------------------------------------------- 1 | import Data.String 2 | 3 | 4 | x n = (striate <$> [fromString (show x)| x <- [0.01, 0.02..1]])!!n 5 | 6 | x 2 7 | 8 | 9 | d1 $ (x 3) $ sound "hh" 10 | 11 | hush 12 | -------------------------------------------------------------------------------- /sketch/2018-04-19.tidal: -------------------------------------------------------------------------------- 1 | cps (84/120) 2 | 3 | d2 4 | $ slow 3.75 5 | $ sound "ld0(4,9)" 6 | |+| sustain "4.2" 7 | |+| crush 8 8 | |+| wah 0.05 9 | |+| room "0.2" 10 | |+| n (foldl (+) "<[2, 8] [0, 5]>" ["0 1 2", "[0 [1, 6, 10]]", "<0 3 5 2>"]) 11 | |+| mGain 12 | 13 | -------------------------------------------------------------------------------- /sketch/2018-04-21.tidal: -------------------------------------------------------------------------------- 1 | cps (120/120) 2 | 3 | v1 4 | $ thing "stone3*17 plight*4 teapod*15" 5 | |+| duration "2.0" 6 | -- |+| rigid "1" 7 | |+| x (scale (-0.8) 0.8 sine1) 8 | |+| z (slow 1.85 (scale (-0.5) 0.5 sine1)) 9 | |+| y (density 1.6 (scale 0.1 0.75 sine1)) 10 | |+| vscale (slow 0.7 (scale 2 0.5 sine1)) 11 | -- |+| vortex "1.8*40" (slow 12 "{1.4 0.7 0.8 0.5}") (slow 10 "{30 20 0 -20 20 80}") 12 | |+| randCam (slow "<7>" "{ 0 0 0.1/10 0 0 0 0.04/13}%12") 13 | |+| dlight (slow 4 "") 14 | |+| move "0.0*40" (density 0.3 (scale (-0.02) 0.04 $ sine1)) (scale (-0.01) 0.01 $ sine1) 15 | -- |+| ripple (slow 8 "{-0.1 0 -0.1 0 0.06 -0.1}%7") 16 | 17 | v1 silence 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | -- |+| duration 2.8 47 | -- |+| rigid "0 1 1 1 0 0 0 0" 48 | -- |+| x (scale (-1) 1 sine1) 49 | -- |+| z (slow 0.75 (scale (-1) 1 sine1)) 50 | -- |+| randCam "{0.01 0 1.15 0 0? 0.01? 0 0 1? 0 0 0}%14" 51 | -- |+| vscale "{0.2 1 4 0.5 0.5 0.03 4 10}%3" 52 | -- |+| vortex "0.2*10 1.8*10 1.3*10" "0.4 1 0.8 0.83 2.06" "130 30 50 90" 53 | -- |+| ripple (slow 10 $ "{0.1 0 0 0 0 0.2 0.1 0 0 0 0.9 0.3}") 54 | -- |+| y "0.5 0.4 0.6 0.9" 55 | 56 | 57 | v1 silence 58 | -------------------------------------------------------------------------------- /sketch/2018-05-08.tidal: -------------------------------------------------------------------------------- 1 | v1 $ thing "trash3*40" 2 | |+| randCam (slow 2 "0.3/30 0 0 0 ") 3 | |+| duration "2" 4 | |+| y "0.5" 5 | |+| x (scale (-0.5) 0.5 sine1) 6 | |+| rigid "1" 7 | -- |+| skybox "studio" 8 | -- |+| dlight "" 9 | 10 | v1 silence 11 | -------------------------------------------------------------------------------- /sketch/2018-05-16.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ s "superpiano*2" 3 | |+| mGain 4 | |+| sustain "2" 5 | |+| speed "-1" 6 | |+| n (choose [0, 4, 9]) 7 | |+| accelerate "<1.5 1.8 -0.8>" 8 | |+| n "5" 9 | |+| out 60 10 | 11 | hush 12 | 13 | 14 | :t out 15 | -------------------------------------------------------------------------------- /sketch/2018-05-20.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ hh "[mhh:3, ml2:23/4]" . sn "[mcp:4, mnt:24/8]" 5 | d1 6 | -- $ msvoS 0.125 7 | $ x 8 | -- |+| accelerate "-0.2" 9 | |+| bus "40" 10 | -- |+| mfDel "{0.1 0 0.1 1 0.08 0 0 0.2}%7" 11 | |+| n "~ 5 ~ ~ 10 ~ 27" 12 | |+| slowPanR 2 13 | |+| mNudge 14 | |+| mGain 15 | 16 | 17 | d2 $ s "pmosc/3" 18 | |+| up "[0,5,7,10]" 19 | |+| wah 0.3 20 | |+| up "<0 5 2>" 21 | -- |+| accelerate "-0.01" 22 | |+| bus "40" 23 | |+| sustain 1.5 24 | |+| mGain 25 | 26 | hush 27 | -------------------------------------------------------------------------------- /sketch/2018-05-25.tidal: -------------------------------------------------------------------------------- 1 | cps (40/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ hh "[mhh:12, ml3?]" 5 | d1 6 | $ msvo 0.125 7 | $ x 8 | |=| mDefault 9 | |+| slowPanR 3 10 | |+| n "~ 20 10 ~" 11 | |+| wah "0.3 0 0.2 0" 12 | 13 | hush 14 | 15 | -------------------------------------------------------------------------------- /sketch/2018-05-26.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | d1 4 | $ sound "<[ml3:2, mb2?]>" 5 | |=| mGain 6 | |+| accelerate "<-0.2 -0.5 -0.04>" 7 | |+| pipe "<40 40>" 8 | |+| wah "0.1" 9 | |+| room "0.2" 10 | |+| n (slow 1.35 $ "3 6") 11 | 12 | 13 | do 14 | x <- lazy' 2 $ inst $ hh "[mhh2:23, ml2:7?]" . sn "[msn2, mcp?]" 15 | d2 16 | $ msvoB 0.125 17 | $ sometimes (|+| flangeD) 18 | $ x 19 | |=| mDefault 20 | |+| mNudge 21 | |+| accelerate "{-0.8 -0.04 -1.0}%4" 22 | |+| pipe "{40 0 40 0}%3" 23 | |+| shape "0.2" 24 | |+| slowPanR 3 25 | |+| room "0.12" 26 | |+| n "{~ 10 5 9 8}%7" 27 | 28 | 29 | 30 | hush 31 | 32 | 33 | 34 | 35 | -------------------------------------------------------------------------------- /sketch/2018-06-03.tidal: -------------------------------------------------------------------------------- 1 | d1 $ s "mhh(4,17)" |+| mGain 2 | 3 | 4 | cps (75/120) 5 | 6 | do 7 | x <- lazy' 2 $ inst $ hh "[mhh:12, ml3/3]" 8 | d2 9 | $ msvo 0.125 10 | $ x 11 | |=| mGain 12 | |+| mNudge 13 | |+| slowSpeedR 2 14 | |+| slowPanR 2 15 | |+| pipe "0" 16 | |+| accelerate "-0.4 -0.2" 17 | |+| n "23 12 ~ 8 4" 18 | 19 | 20 | |+| n (foldl (+) "<[2, 8] [0, 5]>" ["0 1 2", "[0 [1, 6, 10]]", "<0 3 5 2>"]) 21 | 22 | 23 | d2 24 | $ slow 7 25 | $ msvoS 0.125 26 | $ sound "ml3:24(5,9)" 27 | |+| n "[0,5,7]" 28 | |+| n "<1 0 -2>" 29 | |+| accelerate "{-0.3 -0.9 -0.13}%7" 30 | |+| mDefault 31 | |+| slowSpeedR 2 32 | -- |+| wah "0.5 0.7 0.3 0.04 0.4" 33 | |+| room 0.1 34 | -- |+| dist 0.2 35 | |+| n (foldl (+) "<[1 ,3 , 6] [0, 5]>" ["0 1 5", "[0 [1, 3, 7]]", "<9 3 5 2>"]) 36 | |+| speed "5 4 2" 37 | |+| end "0.06" 38 | -- |+| sustain "0.01 0.03 0.6 0.3" 39 | |+| pipe "<0>" 40 | 41 | d1 silence 42 | 43 | hush 44 | 45 | -------------------------------------------------------------------------------- /sketch/2018-06-15.tidal: -------------------------------------------------------------------------------- 1 | cps (85/120) 2 | 3 | d1 4 | $ slow 7 5 | $ sometimes (within (0.13, 0.5) (rev)) 6 | $ s "pmosc(3,5)" 7 | |+| n "[0,3,7]" 8 | |+| sustain "5" 9 | |+| n (foldl (+) "<4 3 0 1 2>" ["3 7", "0 5" , "<1 5 0>"]) 10 | -- |+| convn "0 0.5 0 0.1 1" 11 | |*| speed "0.5 0 0.5 0.7" 12 | |+| room 0.2 13 | -- |+| dist "0.1" 14 | |+| wah 0.0025 15 | |+| gain 1.2 16 | 17 | do 18 | x <- lazy' 3 defaultI 19 | d2 20 | $ sometimes (within(0.5,1.0) (gap 9)) 21 | $ sometimes (msvoB 0.125) 22 | $ sometimes (zoom (0.3, 0.5)) 23 | $ sometimes (within (0.4, 0.75) (rev)) 24 | $ x 25 | -- |+| unit "{r r r r s c r c r}%7" 26 | |+| mfDel "{0.08 0.1 0 0.1 0.2 0}%11" 27 | |+| n "40 ~ ~ 49? 5" 28 | |+| accelerate "{-0.09 -0.3 -0.14 0.1 0}%7" 29 | -- |+| cutoff (scale 6000 18000 $ (slow 2 $ sine1)) 30 | |=| mDefault 31 | -- |+| brick "{0 1 0 0 2 0.4}" 32 | -- |+| gain 1.2 33 | |=| gain 1.8 34 | |+| room 0.02 35 | 36 | d3 37 | $ sometimes (gap 6) 38 | $ sometimes (within (0.5, 0.75) (rev)) 39 | $ s "mhh:0(3,5)" 40 | |+| accelerate "-0.3 0.4 -0.1 0.9" 41 | |+| end (slow 0.9 (scale 0.7 1.1 $ sine)) 42 | |+| nudge "[0.02 0]*3" 43 | |+| room "0.01" 44 | |+| pan 0.6 45 | |+| mGain 46 | 47 | 48 | 49 | d2 silence 50 | 51 | hush 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | -------------------------------------------------------------------------------- /sketch/2018-06-29.tidal: -------------------------------------------------------------------------------- 1 | cps (90/120) 2 | 3 | do 4 | x <- lazy' 1 $ defaultI 5 | d1 6 | -- $ msvoC 0.125 7 | $ x 8 | |+| mGain 9 | |+| mNudge 10 | -- |+| mfDel "{0.1 0.08 1 0 0 0 0.125}%11" 11 | |+| n "4" 12 | 13 | hush 14 | -------------------------------------------------------------------------------- /sketch/2018-06-30.tidal: -------------------------------------------------------------------------------- 1 | cps (78/120) 2 | 3 | do 4 | x <- lazy' "<3 4>" $ defaultI 5 | d2 6 | $ msvoB 0.125 7 | $ whenmod 4 1 (0.125 ~>) 8 | $ whenmod 4 2 (within (0.4,0.75) (slow 2)) 9 | $ x 10 | |=| mDefault 11 | |+| mNudge 12 | |=| gain 1.75 13 | |+| mfDel "{0.1 0.08 1 0 0.2 0 0.125}%11" 14 | |*| accelerate "[-0.8 -0.3 -0.5]*2" 15 | |+| cut (slow 0.98 "{0 1 2 3 1}") 16 | |+| n "30 ~ 64" 17 | 18 | d2 silence 19 | 20 | hush 21 | -------------------------------------------------------------------------------- /sketch/2018-08-08.tidal: -------------------------------------------------------------------------------- 1 | cps 2 2 | 3 | v1 $ y (scale 0.8 0.9 $ sine1) 4 | |+| x (scale 0.3 0.9 $ sine1) 5 | 6 | hush 7 | 8 | v1 silence 9 | 10 | -------------------------------------------------------------------------------- /sketch/2018-10-18.tidal: -------------------------------------------------------------------------------- 1 | u1 2 | $ thing "iwashi*20 teapod*20" 3 | |+| x (scale (-0.5) 0.5 sine1) 4 | |+| (hurry 1.4 $ z (scale (-0.5) 0.5 sine1)) 5 | |+| y (scale 0.3 0.9 $ sine1) 6 | |+| rigid 1 7 | |+| (slow 3.333 $ randCam "{0.02 0.005 0.1 0 0 0 0 0.03}%12") 8 | |+| vscale "2 1 0.3 2.8" 9 | |+| (slow 4 $ vortex 0.8 1.4 "{100.3 40 0 -100 0.5 300 0 }%2") 10 | |+| duration 2 11 | 12 | 13 | u1 silence 14 | -------------------------------------------------------------------------------- /sketch/2018-11-14.tidal: -------------------------------------------------------------------------------- 1 | scp 1.2 2 | 3 | do 4 | x <- lazy' 2 $ inst $ sn "[msn2:9, ml3] [ml3:9, msn:5]" 5 | d1 6 | $degradeBy 0.7 7 | $ x 8 | |=| mDefault 9 | -- |+| pipe "{[0, 0 40] 0 0 40 [40,0]}" 10 | |+| n "10" 11 | 12 | hush 13 | 14 | -------------------------------------------------------------------------------- /sketch/2018-11-17.tidal: -------------------------------------------------------------------------------- 1 | u1 2 | $ thing "teapod*20 banana*20" 3 | |+| x (scale (-0.5) 0.5 sine1) 4 | |+| z (slow 2.5 (scale (-0.25) 0.5 sine1)) 5 | |+| rigid "0 0 1 0 1" 6 | |+| y 0.2 7 | |+| vscale "0.8 0.4" 8 | -- |+| randCam "{0.03 0.05 0 0 0 0.03 0}%6" 9 | |+| ripple 0.0 10 | 11 | u1 silence 12 | 13 | -------------------------------------------------------------------------------- /sketch/2018-11-18.tidal: -------------------------------------------------------------------------------- 1 | cps (140/120) 2 | 3 | u1 4 | $ jux (iter 5) 5 | $ thing "cactus3*10 spinner*5 banana*10" 6 | |+| duration 2.8 7 | |+| x (scale (-0.5) 0.5 $ sine1) 8 | |+| z (slow 3 (scale (-0.7) 0.7 $ saw1)) 9 | |+| y (slow 0.86 (scale (-0.2) 0.9 $ sine1)) 10 | |+| vscale "2" 11 | |+| randCam "{0.03 0 0.4 0 0.2 0 0.2 0}%9" 12 | -- |+| vscale "{0.4 0.2 2 1 0.3 4 }%4" 13 | |+| vortex 1.3 1.8 "{-120 0 230 -150 90 60 -340}%6" 14 | |+| rigid "1 0 0 1 0 0 0 1" 15 | 16 | u1 silence 17 | 18 | 19 | -------------------------------------------------------------------------------- /sketch/2019-01-16.tidal: -------------------------------------------------------------------------------- 1 | cps 0.78 2 | 3 | do 4 | -- let pat = (slow "<4 5>" "1 0 [1 [0 [1 0]]]/3 0 1/2 1 1 0 1 [1 0 1] 0*3 1 0 [0 1 0] 0 0") 5 | -- let pat = (slow "<4 5 4 1.75>" "[0 [1 0 [1 0]]]/4 1/2 [0 1/2]/2 0 [1 0? 1]*2 1/3 [[0 1]/3 0] 0 1 0/2 1 [1 0? 0]/2 0 1 1") 6 | -- let pat = (slow "<5 4 6 2>" "0 1*2 [1/2 [0? 1]] 1 1/2 [1 [0 [1 0]?]?]/2 1? [0 [1 0 1]?]/3 1 1 0/2 [1 1 0] 1 0 0 1") 7 | x <- lazy' 2 defaultI 8 | d1 9 | $ msvo 0.125 10 | $ x 11 | |=| mGain 12 | |+| slowPanR 3 13 | |+| room "0.05" 14 | |+| n 3 15 | |+| n "14 [[9 [33 33 6]]] 26" 16 | 17 | 18 | hush 19 | -------------------------------------------------------------------------------- /sketch/2019-01-20.tidal: -------------------------------------------------------------------------------- 1 | setcps "1" 2 | 3 | do 4 | let pat = "1 0 [1 [0 [1 0]]]/3 0 1/2 1 1 0 1 [1 0 1] 0*3 1 0 [0 1 0] 0 0" 5 | -- let pat = (slow "<4 5 4 1.75>" "[0 [1 0 [1 0]]]/4 1/2 [0 1/2]/2 0 [1 0? 1]*2 1/3 [[0 1]/3 0] 0 1 0/2 1 [1 0? 0]/2 0 1 1") 6 | -- let pat = (slow "<5 4 3>" "0 1*2 [1/2 [0? 1]] 1 1/2 [1 [0 [1 0]?]?]/2 1? [0 [1 0 1]?]/3 1 1 0/2 [1 1 0] 1 0 0 1") 7 | d1 8 | $ stack [ 9 | gain (slow 8 $ inverse <$> pat) |+| s "mst", 10 | gain (slow 8 $ inverse <$> pat) |+| s "mbd:8" 11 | ] 12 | 13 | 14 | 15 | 16 | do 17 | x <- lazy' 2 $ inst $ (hh "[mst mhh2]/2") . (sn "[msn3 [~ [mwb? msn2:22?]/4]]/2") . (bd "[mbd2 mb2?]/2") 18 | d1 19 | $ degradeBy 0.8 20 | $ msvoA 0.125 21 | $ sometimes (|+| brick "{2 0 0 2 0 0 1}") 22 | $ x 23 | # mGain 24 | |+| accelerate "{-0.05 0 2 0.04 [0 -0.05] -0.08 0.04}%6" 25 | |*| speed "{-1 0.5 1 1 1 -1 2}%3" 26 | |+| crush "[48 42 32 32 128 8 32]" 27 | |+| slowPanS 3 28 | |+| mNudge 29 | |+| up "<2 -1 0>" 30 | |-| up "0 4 5 6 5" 31 | |+| n "<30 5>" 32 | 33 | 34 | 35 | hush 36 | 37 | 38 | 39 | let ly_1 = "[0, 2, 4]" 40 | ly_2 = "[2, 4, 6]" 41 | ly_3 = "[4, 6, 7]" 42 | ly_4 = "[6, 7, 9]" 43 | ly_5 = "[7, 9, 11]" 44 | ly_6 = "[9, 11, 0]" 45 | 46 | d2 $ slow 2 $ up ly_3 |+| s "ml4" |+| n 19 |+| room 0.8 |-| up "1" |+| mGain |+| shape 0.2 |+| sustain 2 |+| mNudge |*| speed 1.85 47 | 48 | 49 | d2 silence 50 | 51 | hush 52 | 53 | :t ur 54 | 55 | 56 | 57 | 58 | 59 | -------------------------------------------------------------------------------- /sketch/2019-01-23.tidal: -------------------------------------------------------------------------------- 1 | cps 0.8 2 | 3 | -- let ly_1, ly_2, ly_3, ly_4, ly_5, ly_6 :: Pattern String 4 | let 5 | ly_1 = "[0, 2, 4]" 6 | ly_2 = "[2, 4, 6]" 7 | ly_3 = "[4, 6, 7]" 8 | ly_4 = "[6, 7, 9]" 9 | ly_5 = "[7, 9, 11]" 10 | ly_6 = "[9, 11, 0]" 11 | 12 | d2 13 | $ slow 8 14 | $ up (concat [ly_1, ly_2, ly_3, ly_4]) 15 | |+| s "ml2" 16 | |+| n 15 17 | |+| room 0.8 18 | |*| up "0.2" 19 | |+| mGain |+| shape 0.2 |+| sustain 2 |+| mNudge 20 | 21 | 22 | d1 silence 23 | 24 | :t choose 25 | 26 | 27 | 28 | (ly_1 ++ ly_2) 29 | 30 | (choose [ly_1, ly_2, ly_3, ly_4]) 31 | 32 | concat [ly_1, ly_2, ly_3, ly_4] 33 | 34 | :t step' 35 | 36 | (take 16 $ lindenmayer 5 "0:1---,1:0---2-----0---2-,2:2-1-,-:--1-" "0") 37 | 38 | 39 | d1 40 | $ msvo 0.125 41 | $ msvoC 0 42 | $ slow 8 43 | $ stack[ 44 | (sound "[ml3(3,8) mhh*32]" |+| n "18 10 12 27" |+| crush "8 24 32 12 32"), 45 | (sound 46 | $ step' ["mst:9", "mbd:9", "msn2:25", "mwb:11"] (take 128 $ lindenmayer 5 "0:-1,1-:-1-2--3,2:--0,-:2--0" "0")) 47 | ] 48 | |+| mDefault 49 | |+| mfDel "{0.08 0 0 0 1 0.0 0.2 0 0}%12" 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/2019-01-24.tidal: -------------------------------------------------------------------------------- 1 | cps "<0.8 0.3 0.9 1.4>" 2 | 3 | d1 4 | $ msvoA 0 5 | $ msvoC 0.125 6 | $ s "[[mst mwb ml]/3, bd:5(3,6)]" 7 | |+| up "{0 5 [4 -5]/2} 3" 8 | |+| n "<3 [3 ~ 45 45] 9>" 9 | # mDefault 10 | 11 | hush 12 | 13 | :t cps 14 | -------------------------------------------------------------------------------- /sketch/2019-01-27.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.53 2 | 3 | d1 4 | $ msvoC 0.125 5 | $ sometimesBy 0.3 (|> pipe "[0, 40]") 6 | $ every 4 (|+ wah 0.02) . (within (0.5, 0.75) (slow 1.5)) 7 | $ every 5 (|+ brick 2) . (within (0.0, 0.25) (slow 1.5)) 8 | $ every 2 (within (0.2, 0.5) (striate 3) . (0.125~>)) 9 | $ stack[ 10 | sound "[mbd:9(<5 3>,8), mhh2:9*8, mst:6/2, mnt:12/2]" |+ slowSpeedR 4, 11 | (0.75 ~>) $ sound "msn2:13" 12 | |+ slowSpeedR 2 13 | |> n "[46 25]/2" 14 | ] 15 | |+| mGain 16 | |* gain "[1 0.5]*8" 17 | |+ mfDel "{[0.03 0.07] 0.8 0 0.08 0.1 0 0}%6" 18 | |+ accelerate "{0.3 0.7 -0.05 -0.25 0 0 0 0 -0.2}%12" 19 | |+ mNudge 20 | |+ shape 0.5 21 | |+ sustain 3 22 | |> slowPanR 3 23 | |+ room 0.04 24 | |> cps "<0.5 0.75 0.53>" 25 | 26 | 27 | d2 28 | $ slow "<2 4>" 29 | $ whenmod 3 2 (rot "<1 2>") 30 | $ every 5 (|+ binsmr 0.4) . (within (0.7, 1.0) (slow 1.5)) 31 | $ every 4 (within (0.2, 0.75) (chop "<4 3>") . (0.125~>)) 32 | $ sometimesBy 0.3 (off 0.125 (+| up "-3")) 33 | $ sound "[mch:0, [~ mb:2]/1.125, ml4:43/2]" 34 | |+| up (arp (slow 3 $ "") (slow "<2 2 4>" $ "")) 35 | |+| up (slow 6 $ "<0 1>") 36 | |+ accelerate "{0.0 -0.05 0 0 0 0.0 0 -0.02}%12" 37 | |+ mGain 38 | |+ sustain 0.4 39 | |+ shape 0.25 40 | |+| pipe "{0 [0,40] [0,40] 0}%3" 41 | -- |+ mNudge 42 | |> room "0.7" 43 | |> cps "<0.5 0.75 0.53>" 44 | 45 | 46 | d1 silence 47 | 48 | hush 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | u1 69 | $ thing "apple*30" 70 | |+| duration "1" 71 | |+| x (range (-0.5) 0.5 sine) 72 | |+| y 0.6 73 | |+| rigid 1 74 | |+| vortex 0.3 0.3 "420" 75 | 76 | 77 | uhush 78 | -------------------------------------------------------------------------------- /sketch/2019-01-28.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.56 2 | 3 | do 4 | x <- lazy' 2 inst1 5 | d1 6 | $ slow 2 7 | $ every 2 (|+ wah 0.03) . (within (0.7, 1.0) (slow 1.5)) 8 | $ every 4 (within (0.2, 0.75) (chop "<4 3>") . (0.125~>)) 9 | $ x 10 | |+ mGain 11 | |> n "45 29 ~ 6 ~ ~ 34" 12 | |+| speed 1 13 | |+ slowSpeedR 3 14 | |+ binshf 0.3 15 | |+| shape "0.2" 16 | |+ mNudge 17 | |+| pipe "{0 [0,40] 0 0}%3" 18 | 19 | 20 | d2 21 | $ slow "<1 2>" 22 | $ whenmod 3 2 (rot "1") 23 | $ every 5 (|+ wah 0.03) . (within (0.7, 1.0) (slow 1.5)) 24 | $ every 4 (within (0.2, 0.75) (chop "<2 3>") . (0.125~>)) 25 | $ sometimesBy 0.3 (off 0.125 (|+| up "0")) 26 | $ sound "[~ ml4:18, [~ mb2:25]/1.125, ml4:27/2 ~]" 27 | |+| up (arp (slow 3 $ "") (slow "<2 4>" $ "")) 28 | |+| up (slow 1 $ "<0 1>") 29 | |+ accelerate "{0.0 -0.05 0 0 0 0.0 0 -0.02}%12" 30 | |+ mGain 31 | |+ sustain 1.5 32 | |+ shape 0.25 33 | |+| pipe "{0 [0,40] 0 0}%3" 34 | |> room "0.4" 35 | |> cps "<0.5 0.42 0.53>" 36 | 37 | d1 silence 38 | 39 | hush 40 | -------------------------------------------------------------------------------- /sketch/2019-01-29.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.45 2 | 3 | do 4 | -- x <- lazy' 2 inst1 5 | x <- lazy'' "fftff" inst3 6 | d1 7 | $ degradeBy 0.8 8 | $ sometimesBy 0.2 (0.125<~) 9 | $ msvo 0.125 10 | $ whenmod 4 3 (rot "<1 2>") 11 | $ sometimesBy 0.25 (|+| flangeL) 12 | $ x 13 | |+ mDefault 14 | |+ shape 0.2 15 | |> pan (range (-0.5) 0.5 rand) 16 | |< accelerate "{0.03 0.1 0.04 0.05 2 0 0.04}%13" 17 | |+ sustain "0.75 1.5 1 0.9" 18 | |+| nudge "[0 -0.02]*2" 19 | |+ n "[9 18]/2 ~ 49 39" 20 | |+ wah "0 0.02 0.01 0 0.3" 21 | 22 | d2 23 | $ slow 2 24 | $ whenmod 4 3 (slow 2) 25 | $ up "[5 5 0 0]/2" 26 | +| sound "[ml:5, [~ mwb:7 ~]/1.5]" 27 | |+ mGain 28 | |+ pipe "{6 [0,40] 0 0}%9" 29 | |+ room 0.2 30 | 31 | d3 32 | $ slow "<1 2 1 3>" 33 | $ degradeBy 0.2 34 | $ sometimesBy 0.3 ((off 0.075 (|+| up "5")) . (off 0.125 (|-| up 5))) 35 | $ whenmod 3 2 (within (0, 0.35) (slow 2)) 36 | $ rot "<1 0>" 37 | $ sound "" 38 | |+ up (scale "" ("0 .. <2 4 10 7>" + (slow 2 $ "{0 -5 0 2 7}%5"))) 39 | |> nudge "[0 -0.02]*4" 40 | |* speed "<0.5 1 0.8>" 41 | |+ rotPipe 3 42 | |+ room 0.2 43 | |+ n "18" 44 | |+ mGain 45 | 46 | d2 silence 47 | 48 | hush 49 | -------------------------------------------------------------------------------- /sketch/2019-01-30.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.45 2 | 3 | do 4 | let b = "t(3,18) tft" 5 | d1 6 | $ fast 2 7 | $ msvo 0 8 | $ sometimesBy 0.3 (within (0.2, 0.5) (|+ flangeD)) 9 | $ slow 1 $ stack[ 10 | sound (sew b "mbd(3,13) ~" "[mhh:12(5,13) ~, mnt*2, mbd?]") |+| n "5 18", 11 | sound (sew b "[mbd(5,9), tabla]" "~ [mst:3(2,3) ~]") |+ n "4 3", 12 | sound (sew b "mbd(3,8) ~ mwb*2" "[mbd:7, mst:5(3,6) ~]") |+| n "34 10" -4 13 | ] 14 | |+ mDefault 15 | |* gain "[1 0.7]*4" 16 | |+ shape 0.2 17 | |< unit "{r r r s r s r c s}%5" 18 | |< binshf "0.6 0 0.5" 19 | |+ slowSpeedR 4 20 | |< accelerate "{0.04 -0.25 1 -0.4 0.08 -0.3 0 -0.05}%6" 21 | -- |+| cps (smooth (fast 2 $ "<0.4 0.35 0.5 [0.35 0.2] 0.6>")) 22 | |+ n "[7 3] ~ 2 7 24" 23 | 24 | 25 | d2 $ sound "[ml2:17, mwb:8]" 26 | |+ up (scale "" ("[0, 3, 4]" + "<6 5 6 4 2 1 0 3> -6")) 27 | |+ ring 0.3 |+ ringf 30 |+ ringdf 1800 28 | |+ room 0.5 29 | |+ mGain 30 | 31 | d3 32 | $ sound "ml4:2(<8 12 5 5 3 3>, 17)" 33 | |+ up (scale "" ("0 .. <12 6 23 7>" + (slow 2 $ "{0 -5 3 2 12 -2}%13"))) 34 | |+ room 0.1 35 | |+ wah 0.02 36 | |+ shape 0.2 37 | |+ mGain 38 | |+ n "<0 7 26>" 39 | 40 | do 41 | setcps 0.45 42 | d1 silence 43 | 44 | hush 45 | 46 | -------------------------------------------------------------------------------- /sketch/2019-02-01.tidal: -------------------------------------------------------------------------------- 1 | setcps "<0.4 0.5>" 2 | 3 | do 4 | x <- lazy'' "fft t(3,14)" $ inst $ (hh "mst*2" . sn "808:8, mhh2?". bd "[mbd, mst:20]") 5 | d1 6 | $ sometimes (|+ rotAccelerate 2) 7 | $ every 4 (stutWith 2 0.125 (rev . iter 3. (|+ unit "c"))) 8 | $ msvoB 0.125 9 | $ x 10 | |+ slowSpeedR 3 11 | |+ brick "{0 2 0 0.3 0.8}" 12 | |> mGain 13 | |+ n "15 ~ <5 29> ~ 45" 14 | |+ shape 0.3 15 | 16 | d2 17 | $ slow 2 18 | $ every 3 (stutWith 2 0.125 (rot 1 . (|* sustain "0.4"))) 19 | $ sound "[ml:19, ml4:5]" 20 | |+ up (scale "" ("[0,3,4]" + "<0 1 3 2 3 5 0 2>")) 21 | |+ bpf (slow 2 (range 800 4200 sine)) 22 | |+ shape 0.4 23 | |+ room 0.4 24 | |+ mGain 25 | 26 | d3 27 | $ degradeBy "<0.9 0.2>" 28 | $ sound "ml5:6(<2 3 4 5 1 2>, 13, <2, 1, 0>)" 29 | |+ up (scale "" (rot "<0 2 1>" ("0 .. <6 8 14 7>" + "<0 2 -1>"))) 30 | |+ cutoff (slow 4 $ range 200 4200 rand) 31 | |+ room 0.1 32 | |+ mGain 33 | |+ mNudge 34 | |+ n "{18 40 11 11 25}" 35 | 36 | d1 silence 37 | 38 | hush 39 | 40 | 41 | scaleList 42 | -------------------------------------------------------------------------------- /sketch/2019-02-03.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.45 2 | 3 | 4 | do 5 | x <- lazy'' "tft fft" inst2 6 | d1 7 | $ msvoC 0.125 8 | $ degradeBy 0.4 9 | $ x 10 | |> mDefault 11 | |+ n "5 8 ~ 20 5" 12 | 13 | 14 | d2 $ slow 2 $ up ("[0, 2, 3, 10, 22]" + (slow 2 $ "<-1 3>")) |+ s "[txosc, mhh]" 15 | |+ room 0.8 16 | |+ cutoff ((slow 5 (range 1000 8700 sine))) 17 | |+ up "5" 18 | |+ mGain 19 | 20 | 21 | d3 22 | $ (0.25~>) $ slow 2 23 | $ up ("[0,2,3](3,8)" + "18" + "<4 0>") 24 | |+| s "ml4" 25 | |+| n 19 26 | |+ lpf (slow 3 $ range 400 1200 sine) 27 | |+| room 0.5 28 | |+ mGain 29 | |+ sustain 2 30 | |+ mNudge 31 | 32 | hush 33 | -------------------------------------------------------------------------------- /sketch/2019-02-04.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | do 4 | x <- lazy'' "ttf t(4,5)" $ inst2 5 | d1 6 | $ whenmod 4 3 (rot "<1 2>") 7 | $ sometimes (within (0.4, 0.6) (striate' 16 (1/16))) 8 | $ x 9 | |+ rotAccelerate 2 10 | |+ slowSpeedR 3 11 | |+ shape 0.2 12 | -- |+ slowSpeedR 3 13 | |+ rotPipe 2 14 | |+ slowPanS 4 15 | |+ room 0.1 16 | |< mGain 17 | |+ n "<24 7> ~ 27" 18 | 19 | 20 | 21 | hush 22 | 23 | -------------------------------------------------------------------------------- /sketch/2019-02-05.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.46 2 | 3 | do 4 | x <- lazy'' "t(2,8)" $ inst $ (hh "mst") . (sn "[~ mnt cp:3?]/3") . cp "mst:16" 5 | d1 6 | $ (0.1<~) 7 | $ degradeBy 0.4 8 | $ msvo 0.125 9 | $ x 10 | |+ rotAccelerate 3 11 | |+ slowPanS 4 12 | |< mGain 13 | |+ n "38 45" 14 | |+ room 0.1 15 | |+ rotPipe 3 16 | 17 | d2 silence 18 | 19 | -- d2 20 | -- $ sound "ml5(<3 5>,8)" 21 | -- |+ up (scale "minor" ("[0,2,4]" + "<0 3 4 6 6 3 2 5>" + "[0 1]/4")) 22 | -- |+ hpf (slow 3 (range 400 100 sine)) 23 | -- |+ n "[13]" 24 | -- |+ nudge "[0 0.25]*2" 25 | -- |+ room 0.1 26 | -- |+ rotPipe 2 27 | -- |+ cps (smooth (slow 2 $ range 0.3 0.6 saw)) 28 | 29 | d3 30 | $ degradeBy 0.5 31 | $ whenmod 4 3 (slow 2) . (rev) 32 | $ sometimesBy 0.4 (stutWith 2 0.75 (|* speed 0.5)) 33 | $ sound "ml2(<6 3 2 4>,8,<0 1>)" 34 | |+ up (scale "minor" ("<0> .. <-5 -6 14 0 -4 8 3 6>" + "<4 2 0>")) 35 | |+ wah 0.03 36 | |+ shape 0.3 37 | |+ n "[6, 15?]" 38 | |+ room 0.4 39 | 40 | d1 silence 41 | 42 | hush 43 | 44 | -------------------------------------------------------------------------------- /sketch/2019-02-07.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.4 2 | 3 | d1 4 | $ every 4 (|+ wah 0.3) 5 | $ msvo 0.125 6 | $ s "[mst:8(6,8), mbd:15(3,8), msn3:9(2,9), mpd2:2]" 7 | |+ mfDel 8 | |+ conv "0.8 0 0 0 0 0 0 0" 9 | |+ dist "0.15 0.0 0.2 0" 10 | |+ mDefault 11 | |+ mNudge 12 | |+ up (scale "kumai" ("[0, 2, 4] 0 0 0 0" + "<0 2 3 1>/4")) 13 | |+ attack "0.32 0 0 0 0 0" 14 | |+ hold "0.4" 15 | -- |+ sus "0.3 1 1 1 1" 16 | 17 | d2 18 | $ degradeBy 0.8 19 | $ whenmod 4 3 (slow 2) . (rev) 20 | $ sometimesBy 0.4 (stutWith 2 0.75 (|* speed 0.5)) 21 | $ sound "ml2(<6 3 2 4>,8,<0 1>)" 22 | -- $ sound "ml5(<6 3 2 4>,8,<0 1>)" 23 | |+ up (scale "kumai" ("<0> .. <-5 -6 4 7 14 0 3 6>" + "<4 2 0>")) 24 | |+ wah 0.03 25 | |+ shape 0.3 26 | |+ n "[6, 15?]" 27 | -- |+ n "[3, 2?]" 28 | |+ room 0.2 29 | 30 | d2 silence 31 | 32 | hush 33 | 34 | -------------------------------------------------------------------------------- /sketch/2019-02-08.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | 4 | do 5 | x <- lazy'' "ftf t(2,10)" $ inst2 6 | d1 7 | $ sometimes (within (0.1,0.6) (rot 1)) 8 | $ within (0.3, 0.75) (|+ ring "{4 0.6 0.5 1}%18") 9 | $ within (0.2, 0.8) ((|+ conv 0.45) . (|+ up (scale "dorian" "[0,2,4]" + "<0 0 1 1>" + 3))) 10 | $ x 11 | |+ mGain 12 | |+ slowPanR 4 13 | |+ rotAccelerate 2 14 | |+ rotPipe 2 15 | |+ n "10 43 10 45" 16 | |+ room 0.1 17 | 18 | 19 | hush 20 | -------------------------------------------------------------------------------- /sketch/2019-02-09.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.55 2 | 3 | do 4 | x <- lazy'' "tft" $ inst1 5 | d1 6 | $ x 7 | |+ mGain 8 | |+ unit "{r r r r c s r}" 9 | |+ rotPipe 3 10 | |+ shape 0.3 11 | |+ room 0.1 12 | |+ n "~ 7 ~" 13 | 14 | 15 | hush 16 | -------------------------------------------------------------------------------- /sketch/2019-02-11.tidal: -------------------------------------------------------------------------------- 1 | setcps (125/120/2) 2 | 3 | 4 | do 5 | x <- lazy'' "tf" $ inst1 6 | d1 7 | $ x 8 | |+ mGain 9 | |+ rotPipe 4 10 | |+ room 0.1 11 | |+ slowSpeedR 3 12 | |+ n "22 ~ 24 12" 13 | 14 | 15 | hush 16 | -------------------------------------------------------------------------------- /sketch/2019-02-13.tidal: -------------------------------------------------------------------------------- 1 | setcps (125/120/2) 2 | 3 | d1 $ s "hh*4" |+ gain 0.0 4 | 5 | do 6 | x <- lazy'' "ft" $ inst2 7 | d1 8 | $ x 9 | -- |+ mfDel 10 | -- |+ squiz "{1 2 1 4 2}%3" 11 | |+ rotPipe 3 12 | |+ n "51" 13 | -- |+ mGain 14 | |+ mDefault 15 | |+ room 0.2 16 | 17 | hush 18 | 19 | -------------------------------------------------------------------------------- /sketch/2019-02-19.tidal: -------------------------------------------------------------------------------- 1 | do 2 | let 3 | layer = s "[ml3:9, mnt2:28]" 4 | |+ squiz "<1 2 4 3>" 5 | |+ dist "0.1" 6 | |+ mDefault 7 | |+ sus 1.2 8 | x <- lazy'' "f(3,11) ttff" $ inst2 9 | d1 10 | $ msvo 0.125 11 | $ unison (s "mbd") layer 12 | $ unison (s "mst") layer2 13 | $ x 14 | |+ shape 0.2 15 | -- |+ mfDel 16 | |+ rotAccelerate 3 17 | |+ mDefault 18 | |+ mNudge 19 | |+ n "59" 20 | 21 | layer2 = sound "[ml5:7, ml4:15]" 22 | |+ up (scale "" ("[0, 3, 4]" + "<6 2 0 6 0>" + 6)) 23 | |+ room 0.25 24 | |+ mGain 25 | 26 | 27 | d2 28 | $ slow 2 29 | $ s "ld2" 30 | |+ mGain 31 | |+ sus 8.3 32 | |+ room 0.1 33 | |+ wah 0.03 34 | |+ up (scale "" ("[0, 3, 4, 12, 32, 17]" + "<6 2 0 8 3>" + "-3")) 35 | 36 | d2 silence 37 | 38 | hush 39 | 40 | -------------------------------------------------------------------------------- /sketch/2019-02-28.tidal: -------------------------------------------------------------------------------- 1 | do 2 | let 3 | layer = slow 0.75 $ s "[[msn:30?, msn2:3], [~ mhh2*3 ~ mhh*5?]]" 4 | |+ mDefaultN 5 | |+ dist 0.1 6 | |+ rotAccelerate 2 7 | |+ mNudge 8 | |+ n 12 9 | x <- lazy'' "f(3,12)" $ inst1 10 | d1 11 | $ degradeBy 0.1 12 | $ msvoB 0.125 13 | $ unison (s "mbd") layer 14 | $ x 15 | |+ mGain 16 | |+ unit "{r r r s c r}%8" 17 | |+ sus "0.2 1 0.5 1" 18 | |+ speed "0.8 1 -0.75 1" 19 | |+ n "24" 20 | 21 | hush 22 | -------------------------------------------------------------------------------- /sketch/2019-03-14.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | d1 4 | $ s "{ml5*3 mb:1*2 ml5*2}" 5 | |+ mGain 6 | |+ coarse 8 7 | |+ up "{8 20 7 5 0 0 3}%4" 8 | |+ pipe "{40 60 40 40 40 0 60}%13" 9 | |+ room 0.3 10 | |+ n "{8 26 18 21}" 11 | 12 | do 13 | x <- lazy'' "t(2,10) tftt" $ inst3 14 | d2 15 | $ msvo 0.125 16 | $ x 17 | |+ mDefault 18 | |+ n "{~ 6 30 7 ~ 46}%4" 19 | |+ room 0.1 20 | 21 | hush 22 | 23 | 24 | d2 silence 25 | 26 | d1 $ s "hh*4" |+ gain 0 |+ room 0.4 27 | -------------------------------------------------------------------------------- /sketch/2019-03-18.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | f = s "ld0(3,8)" 4 | |+ up (scale "lydian" "[0,2,4]" + "<0 5 0 3 0 2 5 3 2 0>" -24) 5 | |+ sus 1.9 6 | |+ cutoff (slow 3 (range 300 1200 sine)) 7 | |+ conv 0.6 8 | |+ room 0.05 9 | |+ mGain 10 | 11 | 12 | do 13 | x <- lazy'' "f(2,11) ft" $ inst3 14 | d1 15 | -- $ sometimesBy 0.3 (within (0.8,1.0) (|+ mfDel)) 16 | $ degradeBy 0.6 17 | $ msvo 0 18 | $ unison (s "mbd2") f 19 | $ x 20 | |+ mDefault 21 | |+ mNudge 22 | |+ cutoff 5800 23 | |+ rotAccelerate 3 24 | |+ n "57 34" 25 | |+ chorus 0.007 26 | 27 | 28 | d3 29 | $ slow 4 30 | $ s "[mpd:57(2,8), mb:41(2,8)]" |+ up (cF 0 "a5") 31 | |+ end 0.6 32 | |+ chorus 0.01 33 | |+ slowPanR 3 34 | |+ nudge "[0 0.05]*4" 35 | |+ room 0.08 36 | |+ n 9 37 | 38 | 39 | d2 40 | $ slow 2 41 | $ degradeBy 0.35 42 | $ stack [ 43 | (s "ml4(2,7)" |+ up (cF 0 "a1")), 44 | (s "ml5(3,8)" |+ up (cF 0 "a2")), 45 | (s "ml4(2,9)" |+ up (cF 0 "a3")), 46 | (s "ml5(2,6)" |+ up (cF 0 "a4")) 47 | ] 48 | |+ n 27 49 | |+ coarse (choose [8, 12, 16]) 50 | |+ conv 0.4 51 | |+ room 0.08 52 | |+ chorus 0.01 53 | 54 | 55 | d1 silence 56 | 57 | 58 | 59 | hush 60 | -------------------------------------------------------------------------------- /sketch/2019-04-07.tidal: -------------------------------------------------------------------------------- 1 | setcps (136/240) 2 | 3 | do 4 | x <- lazy' "2" $ inst2 5 | d1 6 | $ degradeBy 0.6 7 | $ (0.125<~) 8 | $ slow "<2 3>" 9 | $ unison "mst" ("[ml5:12?, zap:16]" |+ dist 0.1 |+ room 0.04) 10 | $ x 11 | -- |+ mDefault 12 | |+ speed (choose[0.65, 2, 0.5, (-0.75)]) 13 | |+ sus "<0.80 0.5 0.3>" 14 | |+ bpf (slow 0.65 (range 1800 6000 sine)) 15 | -- |+ cutoff 5000 16 | |+ rotAccelerate 3 17 | -- |+ up "[0,5,7]" 18 | |+ room 0.04 19 | -- |+ squiz "<1.25 2>" 20 | |+ xsdelay 800 21 | |+ tsdelay 1 22 | |+ n "36 48 68? ~" 23 | |+ cut 2 24 | 25 | d2 26 | $ (0.125~>) 27 | $ sometimesBy 0.5 (0.075<~) 28 | $ slow 4 29 | $ s "zap:2" 30 | |+ up (scale "ionian" ("[0,3,4,9]")) 31 | |+ room 0.02 32 | |+ rotPipe 3 33 | |+ speed (-0.3) 34 | |+ sus 1.0 35 | |+ conv 0.3 36 | |+ bpf (slow 5 (range 800 3000 sine)) 37 | |+ dist 0.4 38 | |+ mGain 39 | 40 | d3 41 | $ (0.125~>) 42 | $ sometimesBy 0.25 (0.125~>) 43 | $ sometimesBy 0.5 (0.075~>) 44 | $ slow 4 45 | $ s "ml:14(4,6)" 46 | |+ up (scale "" ("[0,3,4,9]" + "<-12 -7 -12>" + "<7 7 3 3 5 5>")) 47 | |+ room 0.06 48 | |+ rotPipe 3 49 | |+ hpf 220 50 | |+ shape 0.3 51 | |+ sus 4.5 52 | |+ mGain 53 | 54 | d4 55 | $ slow 6 56 | $ degradeBy 0.35 57 | $ sometimesBy 0.3 (0.125~>) 58 | $ every 4 (0.125<~) 59 | $ s "ml2:18(3,12)" 60 | |+ up (scale "" ("{0 1 5 8 3 0 10 5}" + "<0 0 5 2>" + 12)) 61 | |+ shape 0.2 62 | |+ room 0.05 63 | |+ conv "0.3" 64 | |+ mGain 65 | 66 | d4 silence 67 | 68 | d5 69 | $ slow 6 70 | $ degradeBy 0.3 71 | $ s "mb2:12(2,10)" 72 | |+ up (scale "" ("{0 3 0 5 -2}" + "<0 7>" + "<0 5 2 2>")) 73 | |+ shape 0.2 74 | |+ sus 0.6 75 | |+ flangeL 76 | |+ mGain 77 | 78 | hush 79 | -------------------------------------------------------------------------------- /sketch/2019-04-15.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ degradeBy 0.2 3 | $ stack 4 | [ 5 | (s "mst*4") |+ n (choose[2, 15, 5]) |+ dist 0.1 |+ convn 0.2 6 | , (s "mbd:17(2,5)") 7 | ] 8 | |+ shape 0.6 9 | |+ crush 8 10 | |+ cps (slow 12 (range 0.35 4.4 $ sine)) 11 | |+ room 0.05 12 | 13 | d2 $ slow 2 14 | $ degradeBy 0.4 15 | $ s "ml2(8,11)" 16 | |+ up (scale "lydian" "[0,1,4,8]" + (slow 4 "<0 2 4 5 3 7 1>")) 17 | |+ conv 0.7 18 | |+ mGain 19 | |+ n 4 20 | 21 | d2 silence 22 | 23 | hush 24 | 25 | do 26 | x <- lazy'' "tftt" $ inst3 27 | d1 28 | $ x 29 | |+ mGain 30 | -------------------------------------------------------------------------------- /sketch/2019-05-13.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ unison 3 | "wnoise" (sometimes (chop 2) $ "[mbd2:8/2, mst:18]*2" 4 | |+ mGain 5 | |+ dist 0.2 6 | |+ crush 8 7 | |+ n (slow 4 $ "8 23")) 8 | $ sometimes (|+ rotAccelerate 3) 9 | $ sometimesBy 0.2 (within (0.2, 0.4) (striate 4)) 10 | $ s "[wnoise, [msn:4 msn2:4]/2, mhh/4, ml2:8/4]*4" 11 | |+ sustain (slow 5 (range 0.36 1 $ rand)) 12 | |+ hpf 100 13 | |+ mGain 14 | |+ shape 0.3 15 | |+ slowPanR 3 16 | |+ conv (slow 12 (range 0.125 0.89 sine)) 17 | |+ up (scale "chromatic" (slow 8 $ "[0, 3, 5, 10, 34, 45]" + "<-6>")) 18 | |* speed (choose [2, 4, 1, -2 ,-4, 0.5, 3.34, 1]) 19 | |+ cps (slow 5 (range 0.2 2.1 $ sine)) 20 | |* cps (slow 3 "0.5 1.25 0.4 [0.4 0.6 0.73 1.0] 0.4") 21 | |+ n (slow 2 "5 29 27") 22 | |+ room 0.2 23 | 24 | do 25 | x <- lazy'' "tf f(3,8)" $ inst $ sn "mb:17" . bd "mbd:5" 26 | d2 27 | $ slow 4 28 | $ x 29 | |+ sustain 0.7 30 | |+ shape 0.3 31 | |+ mGain 32 | |+ mfDel 33 | |+ n "12 40" 34 | |+ room 0.2 35 | 36 | d2 silence 37 | 38 | hush 39 | 40 | -------------------------------------------------------------------------------- /sketch/2019-05-28.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | d2 4 | $ slow 4 5 | $ sound "[melo2*2]" 6 | |+ sus 6 7 | |+ up (scale "lydian" "[0,5,7]" + "<2 0>") 8 | |+ room 0.1 9 | |+ cutoff (slow 9 (range 800 4200 sine)) 10 | 11 | 12 | do 13 | x <- lazy'' "tftt f(3,8)" $ inst $ (sn "[mhh, mst/3]") . (hh "[mhh2, zap/4]") . (cp "mst:2/3") 14 | d1 15 | $ msvoB 0.125 16 | $ slow 2 17 | $ x 18 | |+ sus 0.4 19 | |+ mDefault 20 | |+ chorus (slow 8 (range 0.1 0.01 sine)) 21 | |+ n 26 22 | 23 | d1 silence 24 | 25 | 26 | hush 27 | 28 | -------------------------------------------------------------------------------- /sketch/2019-05-29.tidal: -------------------------------------------------------------------------------- 1 | do 2 | d1 $ s "hh*4" 3 | d2 $ s "mposc" |+ n 8 4 | 5 | 6 | hush 7 | -------------------------------------------------------------------------------- /sketch/2019-06-03.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.45 2 | 3 | do 4 | x <- lazy'' "ft f(3,9)" $ inst3 5 | d1 6 | $ msvoC 0 7 | $ often (slow 2) 8 | $ sometimes (rot 1) 9 | $ x 10 | |+ mDefault 11 | |+ sus (slow 2 (range 0.28 0.6 sine)) 12 | |+ dist 0.05 13 | |+ chorus 0.01 14 | |+ slowSpeedR 3 15 | |+ brick "{0.04 3 1}" 16 | -- |+ mNudge 17 | |+ room 0.1 18 | |+ n "46" 19 | 20 | d2 $ s "mposc*2" |+ n "[1, 5]" 21 | 22 | hush 23 | -------------------------------------------------------------------------------- /sketch/2019-06-05.tidal: -------------------------------------------------------------------------------- 1 | setcps (123/120/2) 2 | 3 | do 4 | x <- lazy' "<3 2>" $ inst1 5 | d1 6 | $ degradeBy 0.45 7 | $ sometimesBy 0.125 (msvoB 0) 8 | $ sometimes (within (0.0, 0.25) (density "<1.125 0.75>")) 9 | $ every 9 (within (0.75, 1) (striate 3)) 10 | $ every 7 (within (0.25, 0.75) (0.125 ~>) . (rot 2) . (rev)) 11 | $ every 12 (within (0.25, 0.5) (chop 3)) 12 | $ x 13 | |> sus "[0.125 0.2 0.125 1]*2" 14 | |+ chorus 0.01 15 | |+ speed 1.25 16 | -- |+ slowSpeedR 3 17 | |+ slowPanS 3 18 | -- |+ speed 1.2 19 | -- |+ coarse "{2 12 2 4 8 12 2 2 8}%3" 20 | -- |+ crush "{2 1 2 3 8}%3" 21 | -- |+ brick "{0 2 0 0 1 0 2 1 0}%8" 22 | |+ cutoff (slow 9 (range 4800 12000 sine)) 23 | |+ mGain 24 | |+ slowPanR 3 25 | |+ room 0.01 26 | |+ n 0 27 | 28 | 29 | hush 30 | 31 | 32 | d2 33 | $ slow 2 34 | $ whenmod 4 3 (slow 2) 35 | $ up "[5 5 0 0]/2" 36 | +| sound "[ml:5, [~ mwb:7 ~]/1.5, mb2/6]" 37 | |+ mGain 38 | |+ pipe "{6 [0,40] 0 0}%9" 39 | -- |+ room 0.2 40 | 41 | d3 42 | $ slow "<1 2 1 3>" 43 | $ degradeBy 0.2 44 | $ sometimesBy 0.3 ((off 0.075 (|+| up "5")) . (off 0.125 (|-| up 5))) 45 | $ whenmod 3 2 (within (0, 0.35) (slow 2)) 46 | $ rot "<1 0>" 47 | $ sound "" 48 | |+ up (scale "" ("0 .. <2 4 10 7>" + (slow 2 $ "{0 -5 0 2 7}%5"))) 49 | |> nudge "[0 0.02]*4" 50 | |* speed "<0.5 1 0.75>" 51 | |+ rotPipe 3 52 | |+ room 0.01 53 | |+ n "18" 54 | |+ mGain 55 | 56 | 57 | -------------------------------------------------------------------------------- /sketch/2019-06-06.tidal: -------------------------------------------------------------------------------- 1 | setcps (109/120/2) 2 | 3 | do 4 | x <- lazy' "2" $ inst2 5 | d1 6 | $ degradeBy "<0.3 0.75>" 7 | $ msvo 0 8 | $ x 9 | |+ sus "{0.1 0.1 0.1 0.275}" 10 | |+ cutoff (slow 8 (range 3000 18000 sine)) 11 | -- |+ coarse "{2 2 4 12 2 8 4 2 8}%2" 12 | |* speed 1.25 13 | |+ wah "0 0.2" 14 | -- |+ slowSpeedR 3 15 | |+ slowPanR 2 16 | -- |+ chorus 0.01 17 | |+ mGain 18 | |+ n "4? 44? ~ 0?" 19 | |+ room 0.02 20 | 21 | hush 22 | 23 | 24 | d2 $ slow 2 $ s "flau" 25 | |+ up (scale "lydian" "[0, 5, 7]" + "6") 26 | -- |+ conv 0.1 27 | -- |+ wah 0.00125 28 | |+ sus 4 29 | |> gain 1.25 30 | |+ room 0.02 31 | 32 | -------------------------------------------------------------------------------- /sketch/2019-06-07.tidal: -------------------------------------------------------------------------------- 1 | do 2 | x <- lazy' 3 $ inst2 3 | d1 4 | $ rot "<3 1>" 5 | $ msvoB 0 6 | $ x 7 | |+ mGain 8 | |+ slowPanR 3 9 | |+ sus 0.5 10 | |+ chorus 0.002 11 | |+ wah "[0.2 0 0.0]*2" 12 | |+ nudge "[0 0.02]*2" 13 | |+ n "~ ~ ?4 ~ 8" 14 | 15 | -- do not use 16 | d2 17 | $ (0.125 ~>) 18 | $ slow "2" $ sound "[flau/2, ml2:12(4,9), mwb:18(4,13)]" 19 | |+ up (scale "" ("[-21, -12, -5, -7 ,0, 3, 29 ,35]" + "0 3 4 23 7" + "<0 6 0 4>" + "-6")) 20 | |+ chorus 0.004 21 | |+ coarse "2 2 12 8 2 4 12" 22 | |+ sus "0.5 0.7" 23 | |+ n "0 5 ~ 0" 24 | |+ mGain 25 | 26 | d2 silence 27 | 28 | 29 | d3 30 | $ s "[flau/2, ml3/2]" 31 | |+ sus 4 32 | |+ up ("[0, 8]" + "<0 5 7>" + "<-12 0 5 -6>" + "<0 2 -2>") 33 | |+ n 2 34 | |+ chorus 0.01 35 | |+ mGain 36 | |+ room 0.1 37 | 38 | 39 | hush 40 | -------------------------------------------------------------------------------- /sketch/2019-06-14.tidal: -------------------------------------------------------------------------------- 1 | do 2 | let layer = (s "ml6:5?") |+ up ("[0,2,9,24,48]" - 12) |+ cutoff (slow 7 $ range 800 15000 sine) |+ speed (-1) 3 | x <- lazy'' "tff t(4,9)" $ inst $ bd "mbd2:23" . sn "[zap/2, ml4:8?]" 4 | -- x <- lazy' 2 $ inst $ bd "mbd2:23" . sn "[zap/2, ml4:8?]" 5 | d1 6 | $ degradeBy 0.5 7 | $ unison "mbd2" layer 8 | $ msvoB 0 9 | $ sometimesBy 0.2 (within (0, 0.75) (striate 3)) 10 | $ x 11 | |+ coarse "{2 2 4 8 12 2}%8" 12 | |+ mGain 13 | |+ slowPanS 3 14 | |+ slowSpeedR 3 15 | |+ room 0.05 16 | |+ n "12 26" 17 | 18 | hush 19 | 20 | -------------------------------------------------------------------------------- /sketch/2019-06-24.tidal: -------------------------------------------------------------------------------- 1 | setcps (123/120/2) 2 | 3 | d1 4 | -- $ degradeBy 0.125 5 | $ sometimesBy 0.75 (|+ nudge "[0 0.0125]*2") 6 | $ every 7 (within (0.5, 0.8) (rot 1)) 7 | $ every 4 (within (0.75, 1) (slow 2) . (0.125~>) . (within (0, 0.2) (slow 4))) 8 | $ every 3 (within (0, 0.125) (striate 3)) 9 | $ every 12 (degradeBy 0.6) 10 | $ every 8 (within (0, 0.25) (gap 3)) 11 | $ sometimesBy 0.1 (|+ slowSpeedR 3) 12 | $ sometimesBy 0.25 (within (0, 0.2) (stut 3 0.125 4)) 13 | $ unison "mbd" (s "[mst2(3, 7), zap*3]/2" |+ n "<3 40 26>" |+ coarse "2 8" |+ mDefault) 14 | $ s "[mhh*16, [mbd(1,4) mbd:2(3,8)]/2, [~ ~ msn2 ~]]" 15 | |+ mGain 16 | |+ gain "[0.1 0.9]*2" 17 | |+ shape 0.2 18 | |+ cutoff (range 900 19000 (slow 7 $sine)) 19 | |+ coarse "{2 12 2 4 2 2 2 2}%13" 20 | |+ room 0.025 21 | |+ slowPanS 3 22 | |+ room 0.07 23 | |+ n "15 [7 38]/2" 24 | 25 | d4 $ slow 32 $ s "sync" 26 | 27 | do 28 | x <- lazy'' "ft t(2,11)" $ inst0 29 | d2 30 | $ degradeBy 0.85 31 | $ x 32 | |+ shape 0.3 33 | |+ mDefault 34 | |+ n 32 35 | 36 | d3 silence 37 | 38 | hush 39 | -------------------------------------------------------------------------------- /sketch/2019-07-30.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.55 2 | 3 | do 4 | x <- lazy' 2 $ inst2 { hh'="mst:28" } 5 | d1 6 | $ degradeBy 0.9 7 | $ x 8 | |+ mGain 9 | |+ slowSpeedR 2 10 | |+ slowPanR 2 11 | |+ sus "1 0.7 0.2" 12 | -- |+ shape 0.2 13 | |+ n "18 ~ ~ 7 25" 14 | 15 | 16 | d1 silence 17 | 18 | d2 19 | -- $ sometimesBy 0.24 (stutWith 2 0.75 (|* speed 1.5)) 20 | $ s "ml5(4,16)" |+ mGain 21 | |+ up (scale "minor" "<0 -2 -4 2>.. <7 9 12 8>" + "[-12 0 5]" + (rot "<0 0 1 2>" $ "0 12 0 -12 0")) 22 | |+ gain "[1 0.4 0.7 0.3]" 23 | |+ room 0.1 24 | |+ n "11 [7? 0?]/2 16? 39" 25 | 26 | 27 | hush 28 | -------------------------------------------------------------------------------- /sketch/2019-08-09.tidal: -------------------------------------------------------------------------------- 1 | setcps (115/120/2) 2 | 3 | 4 | d1 5 | $ within (0.6,1) (rot "<1 0 0 2>") 6 | $ within (0,0.5) (rot "<1 0 5>") 7 | $ every 4 (within (0,0.25) (slow 2) . (hurry 1.05) . (|+ wah 0.3)) 8 | $ every 7 (within (0.125, 0.5) (striate' 5 (1/8) . (rev) . (|+ flangeL))) 9 | $ every 6 (within (0.5, 0.8) (gap 3) . (|+ speed 0.5)) 10 | $ every 5 (within (0.2, 0.5) (chop 2) . (|+ mfDel)) 11 | $ slice 8 "[[0 2]/2 <1 4> <0 2 0> <3 1 5 7>]*2" 12 | $ s "foo" 13 | |+ n 38 14 | |+ mGain 15 | 16 | do 17 | x <- lazy' "<2 4>" $ inst0 {sn'="mhh mnt:5?"} 18 | d2 19 | $ msvoB 0 20 | $ whenmod 3 2 (within (0, 0.5) $ (rot 3) . (stut 3 0.125 4) . (|+ wah 0.04)) 21 | $ degradeBy 0.5 22 | $ x 23 | |+ n "0 35" 24 | |+ cutoff 1200 25 | |+ slowPanR 2 26 | |+ mGain 27 | 28 | 29 | d3 30 | $ slow 6 31 | $ whenmod 4 2 (within (0.0, 0.5) $ (stut 3 0.25 6) . (rev)) 32 | $ s "ade(7,10)" 33 | |+ shape 0.2 34 | |+ wah 0.03 35 | |+ n "2" 36 | |+ sus 3 37 | |+ mGain 38 | |+ up (scale "lydian" "{0 5 8 2 4 0} * 2" - 12 + "<0 2 1 3>") 39 | 40 | 41 | d4 42 | $ slow 6 43 | $ whenmod 4 2 (within (0.0, 0.5) $ (stut 3 0.25 6) . (rev)) 44 | $ s "ml(10,16)" 45 | |+ shape 0.2 46 | |+ wah 0.3 47 | |+ n 38 48 | |+ sus 2 49 | |+ mGain 50 | |+ room 0.1 51 | |+ up (scale "lydian" "{0 5 -3 -2 [0, 3, 4] 0} * 2" + "<0 2 1 3>") 52 | 53 | 54 | d4 silence 55 | 56 | hush 57 | 58 | 59 | -------------------------------------------------------------------------------- /sketch/2019-08-15.tidal: -------------------------------------------------------------------------------- 1 | setcps (144/120/2) 2 | 3 | d2 4 | $ whenmod 3 2 (rot "<0 2 1>") 5 | $ whenmod 4 3 (rot "-3") . (0.125~>) 6 | $ slice 8 "<~ 0 3 6> <5 ~ 1 ~ ~ 0 6> 0 <4 1 ~ 5> 2 <7 0> <[0 5] 2 1*2> <~ 7 [1 2]>" 7 | $ every 11 (within (0, 0.6) (mStut 0.125 4) . (|+ crush 8) . (|+ sus 2)) 8 | $ every 7 (within (0, 0.35) (slow 2) . (|+ flangeD)) 9 | $ every 5 (within (0.5, 0.75) $ (slow 1.5) . (|+ sus 1.2)) 10 | $ every 10 (within (0.0, 0.5) (striate 4)) 11 | $ every 4 (within (0.5, 0.8) (chop 2) . (|+ coarse 8)) 12 | $ every 6 (within (0, 0.25) (gap 3) . (|+ dist 0.1)) 13 | $ sometimesBy 0.2 (within (0, 0.35) (|+ sus 1.125) . (|+ mfDel)) 14 | $ sometimesBy 0.45 (within (0.2, 0.7) (|+ wah 0.02)) 15 | $ s "foo" 16 | |+ cutoff (range 7200 11900 $ (slow 7 $ sine)) 17 | |+ n 25 18 | |+ speed "{1.2 -1.2 1.2 1.2 1.2 1.2}" 19 | |+ slowPanS 4 20 | |+ coarse "{12 2 4 8 2 8}" 21 | |* sus 0.75 22 | |+ shape 0.2 23 | |+ mGain 24 | 25 | do 26 | x <- lazy' "<2>" $ inst3 {bd'="mbd:4", sn'="mst:95?", hh'="[~ mhh:9]/2", cp'="[~ mcp:1]/2"} 27 | d1 28 | $ within (0.25, 1) (0.125~>) 29 | $ every 2 (|+ mDefault) 30 | $ every 5 (within (0.25, 0.48) (|+ convn 0.1)) 31 | $ every 9 (within (0.5, 1) (chop 2)) 32 | $ every 7 (within (0, 0.4) (gap 3) . (|+ brick 1.3)) 33 | $ msvoB 0 34 | $ x 35 | |+ crush 8 36 | |+ sus 0.8 37 | |+ n "18 <34 45>" 38 | 39 | 40 | d2 silence 41 | 42 | d3 43 | $ degradeBy 0.4 44 | $ s "jungbass(3,8)" 45 | |+ mGain 46 | |+ up "<0 3 8 0 1 13 4 0>" 47 | |+ room 0.2 48 | |+ n 1 49 | 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/2019-11-17.tidal: -------------------------------------------------------------------------------- 1 | setcps (120/240) 2 | 3 | d1 4 | $ slow 3 5 | -- $ degradeBy 0.125 6 | $ s "[mwb, mcp:8] mfl*9 [mps*3 ml4]" 7 | |+ up (scale "minor" "3 [4 1 2 -2 2 0 6 3 -1] 7" - 18) 8 | |+ n "6 8 [8 5 8]" 9 | |+ gain 1.2 10 | |+ room 0.05 11 | |+ wah 0.03 12 | 13 | hush 14 | -------------------------------------------------------------------------------- /sketch/2019-11-21.tidal: -------------------------------------------------------------------------------- 1 | u1 $ thing "crab*40" 2 | |+ x sine 3 | |+ moveY (-0.002) 4 | |+ y 0.6 5 | |+ vscale 1.7 6 | |+ z (sine) 7 | |+ duration 5 8 | -- |+ rigid 1 9 | |+ dlight "d" 10 | -- |+ ripple 0.2 11 | |+ randCam (slow 4 $ "0 0.1 0 0.03") 12 | 13 | 14 | u1 silence 15 | 16 | -------------------------------------------------------------------------------- /sketch/2019-11-23.tidal: -------------------------------------------------------------------------------- 1 | setcps (129/240) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ bd "mst" 5 | d1 6 | $ degradeBy "0.8" 7 | $ msvoB 0 8 | $ msvo 0 9 | $ x 10 | |+ wah "0 0.14 0 0 0.03" 11 | |+ mGain 12 | |+ shape 0.2 13 | |+ slowPanR 3 14 | |+ squiz "2 2 0 3" 15 | |+ sus "<0.25 0.6 0.75 0.5>" 16 | |+ n "~ 30 27" 17 | 18 | d3 $ s " ~ ~" |+ mGain |+ nudge (0.125) 19 | 20 | d2 $ slow 64 $ s "sync" 21 | 22 | d1 silence 23 | 24 | hush 25 | 26 | -------------------------------------------------------------------------------- /sketch/2020-01-12.tidal: -------------------------------------------------------------------------------- 1 | setcps (130/240) 2 | 3 | d4 $ slow 16 $ s "sync" 4 | 5 | do 6 | let f = degradeBy 0.25 $ s "[~ mhh:15*<3 4 2 5> msn2:4/3] [mnz/3 [mbd:2*3 ~]/3 ~]/3" |+ mGain |+ n 8 7 | d1 8 | -- $ degradeBy 0.75 9 | $ within (0.6, 0.75) (msvoB "<0 0.25>") 10 | $ sometimes (within (0.5,0.75) (rev) . (iter 3) . (|+ mfDel)) 11 | $ off "0.25" ((|+ up "<0 -2>") . (|+ nudge "[0 0.01]")) 12 | $ unison "mst" f 13 | $ s "[~ mst*2 ~, mbd:5] [[mst*2 ~]/2 mbd:7 ~]" 14 | |+ n "5 1 5 <2 1>" 15 | |+ accelerate "<0.01 -0.3 2 1 -0.03>" 16 | |+ mGain 17 | |+ slowPanR 3 18 | |+ shape 0.4 19 | 20 | d2 21 | $ degradeBy 0.5 22 | $ sometimes (within (0.5,0.8) (|+ dist 0.2). (rev)) 23 | $ s "ml4(<8 4 5>,12)" 24 | |+ up (scale "melodicMinor" "0 2..<12 28 7 21 12>" + "<0 0 2 2>" + "<-1 -8>") 25 | |+ n "<20 29 25 28>" 26 | |+ coarse "<12 2> 2 8" 27 | |+ mGain 28 | |+ room 0.2 29 | 30 | d3 31 | $ off 0.025 (|+ up 4) 32 | $ off 0.128 (|+ up 7) 33 | $ s ",<12 16 8>)>" 34 | |+ up (scale "melodicMinor" "0 1..<7 12 12 10>" + "<0 0 2 2>" + "<-13>") 35 | |+ n "9" 36 | |+ room 0.3 37 | |+ mGain 38 | |+ shape 0.2 39 | 40 | d2 silence >> d3 silence 41 | 42 | hush 43 | -------------------------------------------------------------------------------- /sketch/2020-01-17.tidal: -------------------------------------------------------------------------------- 1 | do 2 | setcps (125/240) 3 | d4 $ slow 16 $ s "sync" 4 | 5 | d2 $ s "[[mst,mbd/2] msn2:19]" |+ shape 0.2 |+ mGain |+ n "2" 6 | 7 | 8 | do 9 | x <- lazy' "2" $ inst $ hh "[mhh2:33, ~ zap:4/8]" . sn "[mst:5 ~]/3" . ps "[zap:25/4]" . bd "[mbd2:3/3 , mst:9/4]" 10 | d1 11 | $ within (0.5, 0.95) (degradeBy 0.95) 12 | $ whenmod 4 3 (within (0.3,0.85) (|+ nudge 0.125) .(iter 3)) 13 | $ whenmod 5 4 (within (0.25,1) (hurry 1.75) . (|+ up (range 0 2 $ saw))) 14 | $ sometimes (within (0.25,0.45) (|+ wah 0.07)) 15 | $ x 16 | |+ mDefault 17 | |* sus (rot "<1 0 2>" $ "0.125 0.5 1 0.75") 18 | |+ accelerate (rot "<0 1 2>" $ "-0.0025 0.125 0 0.5 0") 19 | |+ slowSpeedR 2.5 20 | |* gain (rot "<0 1>" $ "0.85 0.75 1 0.5") 21 | |+ n (rot "<0 3 1>" $ "0 0 0 8") 22 | |+ pipe (rot "<0 2 1>" $ "0 0 0 40 0") 23 | |+ room 0.01 24 | |+ cutoff (range 4000 6000 $ (slow 4 sine)) 25 | 26 | d1 silence 27 | 28 | hush 29 | -------------------------------------------------------------------------------- /sketch/2020-01-18.tidal: -------------------------------------------------------------------------------- 1 | setcps (124/240) 2 | 3 | do 4 | x <- lazy' "<4 2 2>" $ inst0 5 | d1 6 | $ x 7 | |+ mDefault 8 | |* sus (rot "<1 0 2>" $ "0.125 0.5 0.1 1") 9 | |+ accelerate (rot "<0 1 2>" $ "-0.25 0.125 0 -0.8 0 0") 10 | |+ room 0.025 11 | |* gain (rot "<1 0>" $ "0.85 0.75 1 0.5") 12 | |+ n (rot "<0 3 1>" $ "0 0 0 8") 13 | |+ pipe (rot "<0 2 1>" $ "0 0 0 40 0") 14 | 15 | 16 | 17 | hush 18 | -------------------------------------------------------------------------------- /sketch/2020-04-21.tidal: -------------------------------------------------------------------------------- 1 | setcps (86/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst2 5 | d1 6 | $ unison "mhh2" ("[ml5:18?, mhhi*2]" |+ speed (-1) |+ up "<0 0 1 1>" -12 |+ coarse 8) 7 | $ (0.075~>) 8 | $ msvoB "<0 0.125 0.125>" 9 | $ sometimesBy 0.16 (|+ mDefault) 10 | $ sometimesBy 0.2 (|+ chorus "0.03") . (|+ binshf "{0.3 0.0 2 0.07 0.0 3}%3") 11 | $ sometimesBy 0.1 (rot "<1 0>") . (|+ slowSpeedR 3) 12 | $ degradeBy "<0.85 0.35>" 13 | $ x 14 | |+ accelerate (rot "<0 1 3>" $ "{0.03 0.0 -0,1 0.0 -0.05}%3") 15 | |+ n "~ 23? 57 59" 16 | |+ slowPanR 3 17 | |+ hpf 408 18 | 19 | d2 $ slow 32 $ s "sync" 20 | 21 | 22 | -------------------------------------------------------------------------------- /sketch/2020-04-22.tidal: -------------------------------------------------------------------------------- 1 | setcps (113/240) 2 | 3 | do 4 | x <- lazy' 2 $ inst2 5 | d1 6 | $ degradeBy 0.5 7 | $ msvoB 0 8 | $ x 9 | |+ slowPanR 3 10 | |+ mGain 11 | |+ room 0.02 12 | |+ slowSpeedR 3 13 | |+ shape 0.2 14 | |+ hpf 830 15 | |+ n "15? ~ 27? 57" 16 | 17 | 18 | d2 $ slow 32 $ s "sync" 19 | 20 | 21 | -------------------------------------------------------------------------------- /sketch/2020-04-26.tidal: -------------------------------------------------------------------------------- 1 | setcps (113/240/2) 2 | 3 | do 4 | x <- lazy' 2 $ inst1 5 | d1 6 | $ msvoB 0.125 7 | $ (0.125<~) 8 | $ every 8 (within (0.6, 0.8) (rev)) 9 | $ unison "mbd" ("[mwb:5?]/2" |+ accelerate (-0.02) |+ up "<0 0 1 1> -12"|+ coarse 8) 10 | $ degradeBy 0.4 11 | $ x 12 | |+ squiz "{0 1 2 4}" 13 | -- |+ n "~ 12? 28 42" 14 | |+ n "0? ~ 0 0" 15 | |+ room 0.03 16 | |+ mGain 17 | -- |+ slowSpeedR 2 18 | 19 | 20 | d2 $ slow 32 $ s "sync" 21 | 22 | -------------------------------------------------------------------------------- /sketch/2020-04-27.tidal: -------------------------------------------------------------------------------- 1 | setcps (125/120) 2 | 3 | d1 4 | $ (0.075~>) 5 | $ every 2 (within (0.6, 0.8) (slow 2) . (rev)) 6 | $ sometimesBy 0.125 (within (0.4, 0.75) (|+ coarse 8) . (density 2) . (msvoB 0)) 7 | $ every 4 (within (0.25, 0.5) (degradeBy 0.25) . (0.125~>) . (|+ mfDel)) 8 | $ unison "mbd2" ("[mwb:6?]/2" |+ accelerate (-0.02) |+ up "<0 0 1 1>"|+ coarse 8) 9 | $ sometimesBy 0.16 (|+ mDefault) 10 | $ degradeBy 0.1 11 | $ s "[mbd2 ~, [mbd2 ,mhh*2, mst:5*3]/0.75, mhh2*8]" 12 | |+ n "9 9? 10 42" 13 | |+ room 0.01 14 | |+ mGain 15 | |+ slowPanR 3 16 | 17 | 18 | d2 $ slow 32 $ s "sync" 19 | 20 | -------------------------------------------------------------------------------- /sketch/2020-05-03.tidal: -------------------------------------------------------------------------------- 1 | setcps (113/120/2) 2 | 3 | do 4 | x <- lazy' 2 $ inst2 5 | d1 6 | $ degradeBy 0.5 7 | $ msvoB 0 8 | $ x 9 | |+ slowPanR 3 10 | |+ mGain 11 | |+ room 0.02 12 | |+ slowSpeedR 3 13 | |+ shape 0.2 14 | |+ n "18 ~ 27? 47" 15 | 16 | 17 | d2 $ slow 32 $ s "sync" 18 | 19 | -------------------------------------------------------------------------------- /sketch/2020-05-10.tidal: -------------------------------------------------------------------------------- 1 | u1 $ thing "crab*10 salmon1*10 ac*8" 2 | |+ duration 4 3 | |+ y 1.8 4 | |+ x (slow 1.5 (range (-0.8) 0.9 sine)) 5 | |+ z (slow 0.5 (range (-0.8) 0.8 sine)) 6 | |+ rigid 1 7 | 8 | 9 | uhush 10 | -------------------------------------------------------------------------------- /sketch/2020-07-16.tidal: -------------------------------------------------------------------------------- 1 | setcps (148/120) 2 | 3 | d1 4 | $ degradeBy 0.9 5 | -- $ sometimesBy "<0.3 0.75>" (msvoB 0.125) 6 | -- $ sometimesBy "<0 0.5 0.1>" (msvo 0) . (within (0.5, 0.75) (|+ squiz 2)) 7 | $ sometimesBy "<0.75 0.1 0 1>" (msvoC 0) 8 | $ s "[mhh:0*8, [[~ mbd:6*2]/3 ~ mbd:1 ~]/2, [808:5 ~ 808:5*2 ~]/2, [~ ~ mbd:6(3,8) ~]/4]" 9 | |+ mGain 10 | |+ slowPanR 3 11 | -- |+ accelerate "{0 -0.02 0.04 2 -0.9 1}%5" 12 | |+ slowSpeedR 5 13 | |+ shape 0.3 14 | |+ mfDel 15 | |+ gain "[[0 1 0.3 0.8 0 0]/6 [0.4 1 0 0]/4 0.9 [0.7 0.2]/2]*2" 16 | 17 | 18 | d2 19 | $ s "[mcp/4, [zap:20 808:5 zap:28/2 ~]/4 mb:5*2]/3" 20 | |+ sus "<0.35 [0.4 0.2 0.4 0.7]/4>" 21 | |+ up "[<0 5> <4 1> [0 1 2 2]/3]/2" 22 | |* gain "1 [~ 1 ~ ~]/4 [1 0 1 1]/4" 23 | |+ chorus 0.008 24 | |+ gain 0.3 25 | -- |+ mGain 26 | 27 | d4 28 | $ degradeBy 0.5 29 | $ s "ml5(3,16)" 30 | |+ up (scale "lydian" "[5 [2 0]/2 [5, 7]]" + "<18 25>") 31 | |+ mGain 32 | |+ n 15 33 | |+ coarse 8 34 | |+ dist 0.2 35 | |+ room 0.2 36 | 37 | 38 | d3 39 | $ slow 4 40 | -- $ degradeBy 0.4 41 | $ up (scale "micsoridian" "~ [0 ~ 2] 5 [4 [~ 5]/2]/2 ~ [0 3 1]" + "<0 2 4>") 42 | |+ s "ml" 43 | |+ gain 1.1 44 | |+ chorus 0.01 45 | |+ bpf 5200 46 | |+ coarse 2 47 | |+ n 24 48 | 49 | do 50 | x <- lazy' 2 $ inst0 51 | d1 52 | $ slow 2 53 | $ degradeBy 0.7 54 | $ x 55 | |+ slowSpeedR 3 56 | |+ mDefault 57 | |+ lpf 5500 58 | |+ room 0.1 59 | |+ n 2 60 | 61 | d3 silence 62 | 63 | hush 64 | 65 | -------------------------------------------------------------------------------- /sketch/2020-07-24.tidal: -------------------------------------------------------------------------------- 1 | setcps (125/240) 2 | 3 | do 4 | x <- lazy' "<2 5 2 4>" inst0 5 | let uni = "~ mwb:20? mb:5?, ~ ml3:18?" |+ sus 0.5 |+ mGain 6 | d1 7 | $ sometimesBy 0.3 (within (0.5, 0.75) (|+ loop 1)) 8 | $ msvoB 0 9 | $ unison "mbd2" uni 10 | $ x 11 | -- |+ mDefault 12 | |+ mGain 13 | |+ lpf "7000 1980" 14 | |+ n "<7 3> <17 32 23>" 15 | |+ sus "<0.5 1.25 1>" 16 | |+ accelerate "{0.07 0 -0.3 1 3 0.03 -2}%3" 17 | |+ up "8 3 1 2" 18 | 19 | hush 20 | -------------------------------------------------------------------------------- /sketch/2020-09-18.tidal: -------------------------------------------------------------------------------- 1 | setcps (118/120) 2 | 3 | do 4 | x <- lazy' 2 inst2 5 | d1 6 | $ unison "mbd" (slow 2 $ "[mwb2:14? msn2:3]" |+ up "<0 2>" |+ accelerate "-0.6" |+ mGain) 7 | $ every 2 (within (0.25,0.5) (rev . (|+ squiz 2))) 8 | $ msvoB 0 9 | $ mask "f [f [f f t] f] t [f t f]" 10 | $ x 11 | |+ mGain 12 | |+ slowSpeedR 3 13 | |+ slowPanR 2 14 | |+ accelerate "0 0.2 -1 0 -0.04 -1" 15 | |+ n "8 28 8" 16 | -------------------------------------------------------------------------------- /sketch/2020-12-07.tidal: -------------------------------------------------------------------------------- 1 | setcps (146/120/2) 2 | 3 | do 4 | let pat = "{<0 1 ~> 0 [0 1] 1 [~ 1] ~ <0 ~ 1> 0}%8" 5 | let pat2 = "{~ 1 0 0 <1 ~> [~ 1] <[1 0] 0> <0 1>}%8" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat2) 9 | d1 10 | $ sometimesBy 0.2 (within (0.25,0.75) (|+ squiz 2 ) .( |+ accelerate "{0 0.0.4 0.04 -1 2 0 1}%4")) 11 | $ sometimesBy 0.4 (within (0.5,0.75) (rev . msvoB 0)) 12 | $ sometimesBy 0.1 (ply "2") 13 | $ stack [ 14 | x # s "mhh:0" |+ up "0 5 9 3 -3" 15 | , y # s "mbd:9" |+ up "3 5 7 1" 16 | , x # s "mb2:1?" |+ sus 0.2 |+ accelerate "<0.03 -0.93 -0.5> 0 -1" 17 | , z # s "msn2:10" |+ up "14 10 -5 4 0 12" 18 | , x # s "zap:12?" |+ slowSpeedR 3 19 | , z # s "[mst:9? zap:12]/3" |+ wah 0.08 |+ gain "{1 0.2 1 0.1 1 0.3}" |+ sus "{0.3 0.4 0.1 1 0.7 0.1}" |+ slowSpeedR 2 20 | ] 21 | |+ mDefault 22 | |+ shape "{0 0.3 0.4 0 0 0.4}" 23 | |+ room "{0 0.02 0.04 0.05 0 0.1}" 24 | 25 | d4 $ slow 32 $ s "sync" 26 | -------------------------------------------------------------------------------- /sketch/2021-03-05.tidal: -------------------------------------------------------------------------------- 1 | setcps (132/120/2) 2 | 3 | do 4 | d1 5 | $ (0.135~>) 6 | $ sometimesBy 0.35 (within (0.5, 0.8) (|+ cutoff 3200)) 7 | $ sometimesBy 0.125 (within (0.3, 0.5) (|+ modl 0.3) . (rev)) 8 | $ stack [ 9 | ((0.005<~) $ s "[mhh(5,10)]*2 [mhh(5,10,2)]*2" |+ sus 0.5 |+ accelerate "[-1.2 -0.8]*4" |* speed "[<4 2> 1.5]*8" |+ up "[8 6 ~ -9]*2 <~ 8> [~ -1 3]*2 <~ 16 ~ ~>") 10 | , ((0.01<~) $ s "~ ~ ~ ~ ~ mst:9/2 mst:6/2 ~" |+ shape 0.1 |* speed "<0.6 0.45>") 11 | , ((0.025<~) $ s "mbd2:9*2") 12 | -- , ((0.0125~>) $ s "" |+ cutoff 1800 |+ up "3 -5 7 -2" |+ speed "<0.4 0.8 1.96> <-0.6 -0.5>" |+ sus "<0.7 0.5> 1" |+ accelerate "<-0.7 -1.2> <-0.4 1.35>") 13 | ] 14 | |+ shape 0.3 15 | |+ mGain 16 | |+ slowPanS 3 17 | 18 | d2 19 | $ s "msn:3(<7 12 21>,21,3)" 20 | |+ up (scale "minor" ("[[-2 -24 0] [1 -4] [-7 5 2] [-1 4 0]]/<2 3>" + "[2, 13]" + "<4 2 -1 3>" + 3)) 21 | |+ chorus (slow 6 (range 0.02 0.002 sine)) 22 | |+ hpf 180 23 | |+ conv 0.3 24 | |+ cutoff (slow 5 (range 800 8000 sine)) 25 | |+ sus (slow 4 (range 0.5 0.05 sine)) 26 | |+ gain 1.025 27 | |+ slowPanS 3 28 | |+ n "[0 1 4 17]*4" 29 | 30 | 31 | d2 32 | $ (0.25~>) . (iter 3) 33 | $ stack [ 34 | (s "ade:0(2,<12 16>,3)") 35 | ] 36 | |+ up (scale "aeolian" ("[[-1, -4, 6] [2, -4] [-7, 5, 2] [-1, 4]]" +"<8 14>" + "<-6 -3>/2")) 37 | |+ room 0.2 38 | |+ cutoff 7000 39 | |+ coarse "<2 4>" 40 | |+ sus 1.35 41 | |+ gain 1.1 42 | 43 | d1 silence 44 | 45 | d2 silence 46 | 47 | d4 $ slow 16 $ s "sync" 48 | 49 | -------------------------------------------------------------------------------- /sketch/2021-03-16.tidal: -------------------------------------------------------------------------------- 1 | setcps (138/120/2) 2 | 3 | do 4 | let pat = "{~ ~ <0 ~ ~ 1*2>/2 ~ [<~ 0> 1] [1 <~ 0 ~ 1> 1 0]/4 ~ ~ ~ [~ 1 0 1]/4}%8" 5 | let pat2 = "{<~ 1*3> [0 1] 0 [1 <0 ~>] <1 [0 1]> [<~ 0> 1] 0 [~ 1]}" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat) 9 | let w = gain (inverse <$> pat2) 10 | d1 11 | $ sometimesBy 0.3 (msvoB 0) 12 | $ mask (slow 4 $ "t f t") 13 | $ sometimesBy 0.3 (within (0.3, 0.75) ((rev) . (slow 2))) 14 | $ unison "mbd2" (s "" |+ mGain) 15 | $ stack [ 16 | w # s "mhh:12" |+ up "{[10 9] [7 -3] [-5 2] [-2 7] [0 1]}%8" 17 | , x # s "msn2:18" |+ up "{[10 29] [0 -3] [15 2] [2 -7] [10 1]}%9" |+ modl 0.2 18 | , z # s "mst:0" |+ up "{[10 9]/2 [0 -3] [5 2] [2 -7] [0 1]}%9" |+ shape 0.3 19 | , y # s "mbd2:2" |* speed "[1.97 0.6 4 2] [1 0.85] [1.25 0.75] 4.5 1.8" |+ cutoff (slow 2 (range 350 5200 $ sine)) 20 | ] 21 | |+ mGain 22 | |+ slowPanS 3 23 | |* slowSpeedR 3 24 | |+ sus "<0.9 0.25> <0.4 0.75> 1.4 0.5 1.3 1" 25 | |+ loop "{0 0 0 2 0 0 0 1 0 0 0}" 26 | 27 | 28 | d4 $ slow 16 $ s "sync" 29 | 30 | -------------------------------------------------------------------------------- /sketch/2021-11-15.tidal: -------------------------------------------------------------------------------- 1 | setcps (130/120/2) 2 | 3 | do 4 | x <- lazy' 2 $ inst2 5 | d1 6 | -- $ slow 2 7 | $ msvoB 0 8 | $ x 9 | |+ mDefault 10 | |+ up "5 -12 3 -4 4 -2 4 0" 11 | |+ sus 0.5 12 | |+ end "0.25 0.45 0.125 1 0.5" 13 | |+ n 4 14 | 15 | d2 16 | -- $ slow 2 17 | $ every 4 (rot 1) 18 | $ s "[mfl*16 mfl(9,12) mfl*12]/4" 19 | |+ wah 0.01 20 | |+ up (scale "hijaz" "{0 [1 2 9]*2 <8 6> [1 0 -1]*2 [4 0]*3 4}" - "12 24") 21 | |+ mGain 22 | |+ sus "[1.0 1.5]*2" 23 | |+ n "[0 4 11]*8" 24 | 25 | 26 | -------------------------------------------------------------------------------- /sketch/2021-11-20.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ s "mhh:9*2" 3 | |+ mGain 4 | -- |+ accelerate (range "-0.3" 0.4 sine) 5 | -- |+ speed (range 1.3 0.7 sine) 6 | |+ mfDel 7 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-03-22.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.125) 2 | 3 | d1 4 | -- $ msvoB 0.125 5 | -- $ msvoA 0 6 | $ msvoA 0.125 7 | $ sometimes (0.25 ~>) 8 | $ every 4 (within (0.5, 0.75) (chop 3)) 9 | $ every 2 (within (0.3, 0.8) (slow 4)) 10 | $ every 5 (within (0.7, 0.9) (striate 2)) 11 | $ ur 4 "{0 1 2 0 2 1 0 2}%4" [ 12 | sound "{mhh:1*8 ~ flick:4 ~, moe4*3, mbd:12*4?}" 13 | ,sound "[mhh:15*3, mhh:28/4 msn:20/4, mbd:7(2,5)? mhh:29/3 mb2:18?]" 14 | ,sound "{~ flick:6*2/2 mcp:16/3, mhh:19*3}" 15 | ] 16 | |*| up (slow 2 $ "1 -0.8 1 0.8") 17 | |+| mfDel (slow 3.45 $ scale 1 0.01 sine1) 18 | |+| flangeL 19 | -- |+| mNudge 20 | |+| cut "0 1 2 4" 21 | |+| mNudge 22 | |+| shape "0.4 0.15 0 0.1 0" 23 | |+| n "10 4 5" 24 | |+| unit "{r r r r c r s}%7" 25 | -- |+| mDefault 26 | |+| slowPanS 4 27 | |+| orbit "1" 28 | |=| mGain 29 | 30 | d1 silence 31 | 32 | d2 33 | $ slow 1.5 34 | $ whenmod 12 8 (|*| speed "0.8") 35 | $ whenmod 6 3 (|*| speed "1.3333") 36 | $ sound "mpd2:30/2 mpd2:6/4" 37 | |+| cutoff (scale 3600 12000 (slow 3 $ sine1)) 38 | |+| cut (choose [0,1,2,3]) 39 | -- |+| disv "-0.3 -0.4 3" "2 3 3" 40 | |+| mNudge 41 | |+| mGain 42 | |+| orbit "0" 43 | 44 | 45 | d3 46 | $ sound "{mpd2:3/5 mpd2:14/6, ~}" 47 | |+| end "0.5 0.8" 48 | -- |+| disv "-0.25 -0.4 3" "4 3 3" 49 | |+| speed "0.8 1 1 0.75" 50 | |+| cut (choose [0,1,2,3]) 51 | |+| mGain 52 | 53 | 54 | d1 silence 55 | 56 | d2 silence 57 | 58 | d3 silence 59 | 60 | hush 61 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-10-16.tidal: -------------------------------------------------------------------------------- 1 | cps (92/120) 2 | 3 | 4 | d2 silence 5 | 6 | d2 7 | $ slow 2 8 | $ every 3 (zoom (0.25, 0.6) . (slow "<2 4>")) 9 | $ whenmod 4 2 (off (0.125) (within (0.25, 0.5) (|+| up "<2 4>"))) 10 | $ up "5 0 -2 [7 10]/2" 11 | |+| s "[msoz:2/2 ~]/2" 12 | |+| wah (slow 3 "0.06 0 0.1") 13 | |+| room "0.03" 14 | |+| end "<0.4 0.3 0.5>" 15 | |+| binscr "1" 16 | -- |+| binshf "1" 17 | |+| slowPanR 2 18 | |+| cut "3 5 3 5" 19 | |=| gain "1.1" 20 | |+| orbit "1" 21 | 22 | 23 | hush 24 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-10-22.tidal: -------------------------------------------------------------------------------- 1 | cps (96/120) 2 | 3 | 4 | d2 5 | $ slow 2 6 | $ stut 2 0.125 4 7 | $ foldEvery [4, 5] (within (0.4,0.8) (chop 3)) 8 | $ every 3 (iter 2) 9 | $ whenmod 8 4 (|*| speed "0.75") 10 | $ whenmod 6 3 (off 0.125 (|*| speed "1.5")) 11 | $ degradeBy 0.4 12 | $ sound "ml:19(2,3) ml:4*4" 13 | |+| up "{0 4 7 10 15 16}%7" 14 | |+| room "0.04" 15 | |+| wah (slow 2 $ "0.03 0 0 0.02 0.1") 16 | |+| coarse "4 2 12 4 2" 17 | |+| end "0.8 1" 18 | |+| orbit "1" 19 | 20 | hush 21 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-11-01.tidal: -------------------------------------------------------------------------------- 1 | cps (92/120) 2 | 3 | d2 4 | $ msvoB 0.125 5 | $ off "<0.125 0.333 0.075>" (|+| up ((slow 1.333 $ "<0 3 8 17>") - "<24 12 5>")) 6 | $ s "ml:24*2" 7 | |+| henon "<1 1 0>" 8 | |+| wah "0.04" 9 | -- |=| mDefault 10 | |=| gain "0.8" 11 | |+| n "<0 1 0 0 5 8>" 12 | |+| orbit "1" 13 | |+| up (slow 2 $ "<0 -2>") 14 | 15 | do 16 | x <- lazy' 2 defaultI 17 | d1 18 | $ degradeBy 0.7 19 | $ msvo 0.125 20 | -- $ msvoA 0.125 21 | $ x 22 | |+| mGain 23 | |+| henon "<1 0>" 24 | -- |+| flangeL 25 | |+| slowPanS 3 26 | |+| n "5 13 27/3" 27 | |+| orbit "0" 28 | 29 | d2 silence 30 | 31 | hush 32 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-11-29.tidal: -------------------------------------------------------------------------------- 1 | cps (80/120) 2 | 3 | 4 | 5 | d2 6 | $ slow 24 7 | $ chord' [em9, fm, am, gm] "0*4 1*4 2*4 3*4" 8 | |+| sound "pmosc*4" 9 | |*| speed (slow 4 "0.6 0.8") 10 | |+| accelerate "0.02" 11 | |+| sustain (scale 1.2 1.5 $ saw1) 12 | |+| shape "0.4" 13 | |+| henon "0.4 0.3" 14 | |+| wah "0.2" 15 | |+| flange "0.1 0.4 0.6" "0.75" 16 | |+| mGain 17 | -- |+| orbit "1" 18 | 19 | 20 | d3 21 | $ degradeBy 0.6 22 | $ (0.125 ~>) 23 | $ foldEvery [4,3] (within (0.25, 0.8) (slow 3)) 24 | $ foldEvery [2,7] (within (0.5, 0.75) (density 2)) 25 | $ whenmod 3 2 (off 0.125 (|+| up "{0 -1 -2 2 5}%4")) 26 | $ msvoA 0 27 | $ sound "mb:27*2" 28 | |+| n "5" 29 | |+| cut "2" 30 | |+| up "0" 31 | |+| mGain 32 | |*| speed (slow 2 "1.2 0.8") 33 | |+| flange "0.1 0.9 0.6" "0.7" 34 | |+| orbit "1" 35 | 36 | d2 silence 37 | 38 | d3 silence 39 | 40 | hush 41 | 42 | -- :i chord 43 | 44 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-12-08.tidal: -------------------------------------------------------------------------------- 1 | cps (82/120) 2 | 3 | do 4 | x <- lazy' 2 $ inst $ hh "mhh:22" . sn "msn2:39" . pd "msoz:20/6". ps "ml3:3/1". bd "mbd:12" 5 | d1 6 | $ msvoA 0.125 7 | -- $ msvoC 0 8 | $ x 9 | |+| mGain 10 | -- |+| mNudge 11 | |+| brick "{0 2.4 0 0 0 1.2 0}%9" 12 | |+| mfDel "{0.1 0.125 0 0.7 0.08 0 0.04}%9" 13 | |+| n "12 5 12" 14 | -- |+| flangeD 15 | |+| slowPanR 3 16 | 17 | hush 18 | 19 | 20 | 21 | 22 | do 23 | x <- lazy' 4 $ inst $ hh "[mbd2:2/4, mhh2:8/3, ml3:38/4]" 24 | d1 25 | $ msvo 0.125 26 | $ x 27 | |+| mGain 28 | |+| (slow 2 $ mNudge) 29 | |+| brick "{1.8 2.4 0 0.3 0 1.2 0}%3" 30 | |+| mfDel "{0.3 0.125 1 0.7 0.08 1 0.08}%8" 31 | |+| n "11 ~ 26 10" 32 | |+| flangeL 33 | |+| slowPanR 3 34 | 35 | hush 36 | 37 | -------------------------------------------------------------------------------- /sketch/algoravetokyo/2017-12-21.tidal: -------------------------------------------------------------------------------- 1 | cps (82/120) 2 | 3 | d2 4 | $ (0.115 <~) 5 | $ slow 2 6 | $ sound "mpd3/2 [mpd3 ml3:4/4]" 7 | |+| slowSpeedR 3 8 | |+| n "{5 2 1}" 9 | |+| flangeL 10 | |+| mDefault 11 | |+| orbit "1" 12 | 13 | 14 | d2 silence 15 | 16 | 17 | hush 18 | 19 | -------------------------------------------------------------------------------- /sketch/alogofive/2017-02-09.tidal: -------------------------------------------------------------------------------- 1 | (cps 1) 2 | 3 | d1 4 | $ degradeBy 0.8 5 | $ slow 2 6 | $ within (0.4, 0.8) (every 3 (0.125 ~>)) 7 | $ within (0.5, 0.8) (every 2 (0.125 ~>)) 8 | $ within (0.0, 0.5) (every 2 (slow 2)) 9 | $ within (0.2, 0.8) (every 7 (striateL' 3 0.08 8)) 10 | $ every 4 (off 0.125 (|+| speed "0.5 -1 0.75 -2 4")) 11 | $ whenmod 4 2 (off 0.075 (|+| speed "~ ~ 2 -0.6")) 12 | $ stack [ 13 | (sound "{~ [mbd*2/2 [~ msn]] ~ , mhh:21*8}"), 14 | (sound "[mpd:7/4 mcp:2(3,5)?, ~ mcp:16/4 ~ ml:17*2/4 [msn*2 ~]]"), 15 | (sound "mbd ~ [mnt:3*2 mnz:6*2 ~]/3 ~") 16 | ,(sound "mb:34*2 [~ mb:25/2] ~" |+| up "-2 5" |+| wah "0.1") 17 | ] 18 | |+| slowPanR 2 19 | |+| binshfR 20 | |+| nudge "[0.01 0]*4" 21 | |+| n "6 16 6" 22 | |+| mGain 23 | -- |+| conv " 1 0 0 1" 24 | -- |+| disv "-4 -3 -3" "3 4 3" 25 | 26 | d2 27 | $ slow 32 28 | $ sound "ml:14*7" 29 | |+| chord [fM, em9, fm, cm9, dm] "0 1 2 3 4 5 6" 30 | 31 | 32 | -- d3 33 | -- $ slow 12 34 | -- $ msvoA 0.125 35 | -- $ every 5 (superimpose (|*| speed "1.25 0.75")) 36 | -- $ every 3 (superimpose (|*| speed "0.5 2 1.5")) 37 | -- $ degradeBy 0.5 38 | -- $ off 0.25 (|+| speed (slow 0.125 $ "[2 0.75] 0.666 [2 [0.5 0.125]*3]*2 0.6666")) 39 | -- $ stut 8 0.75 0.75 40 | -- $ sound "msoz:17*6" 41 | -- |+| gain "1.1" 42 | -- |+| room "0.03" 43 | -- -- |+| slowPanR 2 44 | -- |+| cut "1 4 4 2" 45 | -- |+| binshf "0.4" 46 | -- -- |+| coarse "12 2 2 8 32" 47 | -- -- |+| end "0.3" 48 | 49 | 50 | d2 silence 51 | 52 | hush 53 | -------------------------------------------------------------------------------- /sketch/alogofive/2017-02-15.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ slow 2 3 | $ degradeBy 0.6 4 | $ msvoA 0.125 5 | $ stack[ 6 | (sound "{mhh*4 mnt*2 mhh:2 ~ msn:3/2 mcp*2 ~, mcp:0/2 [mcp mnz:18] ~}") 7 | ,(sound "[mbd msn:3/2] ~ [flick/2 mbd] mpd:3/2") 8 | ,(sound "[~ flick:7*2][~ mnt:18] mnz:3/2") 9 | ] 10 | |+| n "12" 11 | -- |+| n "15" 12 | -- |+| n "12 15" 13 | |+| shape "0.15" 14 | |+| mDefault 15 | -- |+| mGrav 16 | -- |+| wah "0 0 0.6 0 0.3" 17 | -- |+| conv "0 1 1 0 0" 18 | 19 | 20 | 21 | d2 22 | $ slow 3 23 | -- $ msvo 0.125 24 | $ sound "pebbles:1 ~ flick:7*2 seawolf:5" 25 | |+| cut "1 4 4 3" 26 | |+| gain "1.15" 27 | |+| cutoff (slow 3 $ (scale 1200 8000 $ rand)) 28 | -- |+| delay "0.3" 29 | |+| slowPanR 3 30 | -- |+| delaytime "0.25" 31 | 32 | 33 | d1 silence 34 | 35 | hush 36 | -------------------------------------------------------------------------------- /sketch/alogofive/2017-02-28.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.0) 2 | 3 | d1 4 | $ slow 2 5 | $ degradeBy 0.8 6 | $ msvoS 0.125 7 | $ stack [ 8 | (sound "[msn:13/2 [ml2:12/2 ~ mhh:12] ~, [~ msn:28/4] moe3/2 ~ mcp]") 9 | ,(sound "mnt:32*2 ~ msn:15*3? ~") 10 | ,(sound "mb2:4/4 [~ mnt:24/2] ~ mbd/3 mhh:15*3") 11 | ] 12 | |*| speed "0.9" 13 | |+| mDefault 14 | |+| n "23 21" 15 | |-| gain "0 0.2 0.1 0 0.3" 16 | -- |+| disv "-3 -3 -2" "3 4 4" 17 | -- |+| mGrav 18 | 19 | 20 | d2 21 | $ slow 6 22 | $ degradeBy 0.2 23 | $ sound "mb2:0*3 ml2:26*3" 24 | |+| chord [dm ,em9, fm, em] "0 1 2 3 2 1" 25 | |+| mGain 26 | -- |+| coarse "2 2 12 4" 27 | |+| end "0.4 1.0" 28 | 29 | 30 | -- d3 31 | -- $ slow 6 32 | -- $ degradeBy 0.5 33 | -- $ sometimes (|*| speed "-1 0.5 -0.5") 34 | -- $ off 0.75 (|+| up "0 3 -2 7 5") 35 | -- $ off 0.075 (|+| up "0 12 15 7") 36 | -- $ sound "ml2:20*12" 37 | -- |=| gain "0.9" 38 | -- |+| delay "0.7" 39 | -- |+| delaytime "0.35" 40 | -- |+| room "0.4" 41 | 42 | 43 | 44 | d3 silence 45 | 46 | d1 silence 47 | 48 | 49 | hush 50 | -------------------------------------------------------------------------------- /sketch/alogofive/2017-03-05.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ slow 2 3 | -- $ whenmod 4 2 (|*| speed (slow 2 $ "1.25 0.8")) 4 | $ whenmod 6 4 (|*| speed (slow 2 $ "-0.66666 1 -2")) 5 | $ degradeBy 0.7 6 | $ sometimes (stut 4 0.125 8) 7 | $ off 0.125 (|+| up "0 2 6 11") 8 | $ sound "ml2*6?" 9 | |+| loop "1 2 2" 10 | -- |+| delay "0.9" 11 | -- |+| delaytime "0.48" 12 | |+| n "27" 13 | |+| room "0.2" 14 | |+| mGain 15 | 16 | 17 | d2 18 | $ slow 6 19 | $ degradeBy 0.8 20 | $ msvoS 0.125 21 | $ sound "{mhh:23/2 [mnt*2 mbd:3] mcp:8*2, ~ mhh:2(3,7) [~ mcp*2]/2 mnt:2/2, ~ mnz:28/2 mpd:19/3}" 22 | |+| mDefault 23 | |+| binscr "0 0 0 1 1 0" 24 | |+| conv "0.4 0.1 0 0 0 0.3" 25 | |+| wah "0 0 0 0.2 0.1 0 0.2" 26 | |+| slowSpeedR 2 27 | |+| n "28 32" 28 | -- |+| disv "-3 -3 -5" "2 4 4" 29 | 30 | 31 | d3 32 | $ slow 3 33 | $ msvoS 0.25 34 | $ degradeBy 0.4 35 | $ sound "mb:0(5,8)" 36 | |+| n "0 2 6" 37 | |+| up (slow 3 "0 1 -2") 38 | |+| cut "3" 39 | 40 | 41 | d2 silence 42 | 43 | d3 silence 44 | 45 | hush 46 | -------------------------------------------------------------------------------- /sketch/beyond_code/2017-01-24-ex.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.28) 2 | 3 | d1 4 | $ slow 3 5 | $ every 6 (off 0.125 (|+| speed "1 2 1 0.75")) 6 | $ s "feelfx*2 alex*2" 7 | |+| n "2 7 1" 8 | # speed "-0.25" 9 | |+| cut "6 5 6 7" 10 | |-| speed (slow 2 $ "0.1 0.2") 11 | |+| wah "0.3 0.8 0.2" 12 | 13 | do 14 | let 15 | pad1 = sound "{msoz:2*2, msoz:10*2}" 16 | pad2 = sound "{msoz:15*2}" -- 15 14 18 17 | d2 18 | $ slow 16 19 | $ stut 8 0.25 16 20 | $ slowcat [pad1, pad2, pad2] 21 | |+| speed "0.5 [0.3333 [0.66 0.5]]*3 -0.333" 22 | |+| wah "0.02" 23 | |+| gain "0.7" 24 | 25 | d3 26 | $ every 2 (off 0.125 (|+| speed "4 [-0.5 1] ~ 1 2")) 27 | -- $ every 4 (within (0.0, 0.3) (striateL' 2 0.04 8)) 28 | -- $ every 3 (within (0.125, 0.6) (|+| speed (choose [0.5, -2, 4, 0.75, -0.35]))) 29 | -- $ every 8 (within (0.5, 0.9) (|+| disv "-3 -2" "2 3")) 30 | $ slow 3 31 | $ stack[ 32 | (sound "mbd:4 [mhh:12([3,4]/2,8) ~] ~"), 33 | (sound "{mhh:22([2 3]/2,5) ~ msn:7/2, [~ moe3([3 2]/2,5)] mbd:5 ~}" |+| n "2"), 34 | (sound "mnt:18/2 [~ msn:24] ~") 35 | ] 36 | |+| binshfS 3 37 | |+| mGain 38 | -- |+| coarse "12 2 2 8" 39 | |+| shape "0.2" 40 | -- |+| n (scale (-1) 6 $ (run 3)) 41 | |+| slowPanS 2 42 | -- |+| cut "1 1 3 2" 43 | 44 | 45 | d1 silence 46 | 47 | d2 silence 48 | 49 | d3 silence 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/beyond_code/2017-02-13.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.03) 2 | 3 | d1 4 | -- $ degradeBy 0.4 5 | -- $ slow 1.5 6 | $ whenmod 4 3 (within (0.3, 0.6) (striateL' 3 0.02 7)) 7 | $ every 8 (slow 6) 8 | $ every 3 (iter 2) 9 | $ every 2 (off 0.125 (|+| speed "-0.25 -0.4 6 -2")) 10 | $ sound "{[mbd:7, glitch2:1/2] mhh:8 [mhh:25 mbd:5, moe1/2, noise:10] ~, mnt:29 ~ ~ ~ [~ mhh/2] [~ mhh/2]}" 11 | |+| nudge "[0 0.09]*3" 12 | |+| mGain 13 | |+| shape "0.4" 14 | |+| slowPanS 3 15 | 16 | 17 | d2 18 | $ every 4 (|+| wah "0.25 0 0.07") 19 | -- $ every 3 (within (0.2, 0.8) (|+| modl "1")) 20 | $ whenmod 4 2 (within (0.3, 0.6) (striateL' 3 0.06 5)) 21 | $ every 4 (off 0.25 (|+| speed "-1.25 [-0.75 -0.46] -2")) 22 | $ sound "mpd:16/4 mb:0/2*2 mpd:24/6 mb:3/3" 23 | |+| binfrz "0.4 0 0 1" 24 | |+| binshfS 3 25 | -- |+| coarse (slow 3 $ "2 16 2 2 4") 26 | |+| mGain 27 | |+| slowPanS 5 28 | -- |+| n "2" 29 | 30 | d3 31 | $ slow 4 32 | $ every 6 (off 0.125 (|+| speed "-0.25")) 33 | $ sound "[tacscan:19 mpd:14] ~" 34 | |+| wah "0.15 0 0.3" 35 | 36 | 37 | d1 silence 38 | 39 | hush 40 | -------------------------------------------------------------------------------- /sketch/beyond_code/2017-02-14-fn.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.02) 2 | 3 | d1 4 | $ slow 1.5 5 | $ degradeBy 0.4 6 | $ every 3 (off 0.25 (|+| binshf "1 0 0 1 0.5")) 7 | $ every 4 (off 0.75 (within (0.3, 0.5) (striateL' 1 0.08 4))) 8 | $ every 7 (within (0.1, 0.5) (|+| disv "-3 -4 -2" "2 3 3 2")) 9 | $ msvoS 0.125 10 | $ stack[ 11 | sound "{mbd:5 ~ [mb:4 msn*3]/4 mpd:14/4, mnt:26*4 mnz:16/2 mhh:5(3,4)}" |+| cut (slow 2 $ "2 8 4 5 2 1") 12 | -- ,sound "{bass:9 ~ noise:28*2/2 [~ mhh*2], ~ ade:5/7 co:1/3}" |*| speed "0.9 0.5 -0.3 -1" |+| shape "0.2" |+| cut "2 6 1 3 8" 13 | ] 14 | |+| mDefault 15 | -- |+| mGrav 16 | |+| n "12" 17 | |+| shape "0.2" 18 | -- |+| n "12 4" 19 | -- |+| n "12 6" 20 | -- |+| modl "0 1 0 0 1" 21 | -- |+| convn "0 1 0 0 1 1" 22 | |+| end " 0.3 1 0.3 0.2 0.1" 23 | -- |+| wah "0 0.3 1 0 0.1 0 0 0 0" 24 | 25 | 26 | d2 27 | $ slow 1.5 28 | $ msvo 0.125 29 | $ sound "[mbd:9(2,5), ~ mb:2*2?]" 30 | |+| mGain 31 | |+| mNudge 32 | 33 | 34 | d2 silence 35 | 36 | d1 silence 37 | 38 | hush 39 | -------------------------------------------------------------------------------- /sketch/beyond_code/2017-02-16.tidal: -------------------------------------------------------------------------------- 1 | (cps 0.9) 2 | 3 | d1 4 | $ slow 1.5 5 | $ degradeBy 0.7 6 | -- $ whenmod 6 5 (within (0.4, 0.9) (striateL' 3 0.08 9)) 7 | -- $ every 6 (within (0.4, 0.8) (|+| disv "-3 -2 -4" "3 2 3")) 8 | $ msvoS 0.125 9 | $ stack[ 10 | sound "mbd*2 [mb:4/8, mhh*2] [msn(2,3)? mbd:3/4] [mhh:3*2 mnt/2]" |+| speed "1 0.95" 11 | ,sound "[mhh:18(5,8), mnt:16/4 mcp*2?]" 12 | ,sound "~ msn:14 mpd:14/3" 13 | -- ,off 0.33333 (|+| up "-4 8 -1") (sound "~ ml:1/2 ~ ml:1/3 ~" |+| speed "0.93") 14 | ] 15 | |+| n "12" 16 | -- |+| n "12 6" 17 | -- |+| mGrav 18 | |+| mDefault 19 | 20 | 21 | d2 22 | $ slow 12 23 | $ every 5 (superimpose (|*| speed "1.25 0.75")) 24 | $ every 3 (superimpose (|*| speed "0.5 2 1.5")) 25 | $ degradeBy 0.7 26 | $ off 0.25 (|+| speed (slow 0.125 $ "[2 0.75] 0.666 [2 [0.5 0.125]*3]*2 0.6666")) 27 | $ stut 8 0.75 0.75 28 | $ sound "msoz:2*12" 29 | |+| gain "1.1" 30 | |+| room "0.03" 31 | |+| slowPanR 2 32 | |+| cut "1 4 4 2" 33 | -- |+| binshf "0.4" 34 | -- |+| coarse "12 2 2 8 32" 35 | 36 | 37 | d2 silence 38 | 39 | 40 | hush 41 | -------------------------------------------------------------------------------- /sketch/channel/000.tidal: -------------------------------------------------------------------------------- 1 | setcps (109/120/2) 2 | 3 | layer2 = sound "[ml5:7, ml4:15]" 4 | |+ up (scale "" ("[0, 3, 5]" + "<6 2 0 6 0>" + 6)) 5 | |+ room 0.125 6 | |+ mGain 7 | 8 | do 9 | let 10 | layer = s "[ml3:9, mnt2:28]" 11 | |+ squiz "<1 2 4 3>" 12 | |+ dist "0.1" 13 | |+ mDefault 14 | |+ sus 1.2 15 | x <- lazy'' "tfftt" inst2 {bd'="mbd:2"} 16 | d1 17 | $ degradeBy 0.48 18 | $ msvoB 0 19 | $ sometimes (within (0, 0.5) (|+ tsdelay 0.07)) 20 | $ unison (s "mbd") layer 21 | $ unison (s "mst" |+ mGain) layer2 22 | $ x 23 | |+ shape 0.2 24 | -- |+ mfDel 25 | |+ rotAccelerate 3 26 | |+ slowPanR 6 27 | -- |+ mDefault 28 | |+ mNudge 29 | |+ mGain 30 | |+ n "<59>" 31 | 32 | 33 | d1 $ "hh*4" |+ gain 0 34 | 35 | d1 silence 36 | 37 | hush 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | ------------------------- 66 | 67 | 68 | d4 $ slow 16 $ s "sync" 69 | 70 | do 71 | x <- lazy'' "ttf t(4,5)" $ inst2 72 | d1 73 | $ whenmod 4 3 (rot "<1 2>") 74 | $ sometimes (within (0.4, 0.6) (striate' 16 (1/16))) 75 | $ x 76 | |+ rotAccelerate 2 77 | |+ slowSpeedR 3 78 | |+ shape 0.2 79 | |+ slowSpeedR 3 80 | |+ rotPipe 2 81 | |+ slowPanS 4 82 | |+ room 0.1 83 | |> mGain 84 | |+ n "<24 7> ~ 27" 85 | |+ cps (range 0.3 1.2 (slow 7 $ sine)) 86 | 87 | -- second pattern 88 | 89 | 90 | do 91 | x <- lazy'' "tf" $ inst1 92 | d1 93 | $ x 94 | |+ mGain 95 | |+ rotPipe 4 96 | |+ room 0.1 97 | |+ slowSpeedR 3 98 | |+ n "22 ~ 24 12" 99 | 100 | 101 | hush 102 | -------------------------------------------------------------------------------- /sketch/channel/001.tidal: -------------------------------------------------------------------------------- 1 | setcps (158/120/2) 2 | 3 | d4 $ slow 32 $ s "sync" 4 | 5 | 6 | d2 7 | $ degradeBy 0.2 8 | $ sometimes (within (0.25,0.9) (density 2)) 9 | $ sometimes (within (0.15,0.5) (density 1.2)) 10 | $ s "[psr(9,12), zap(5,8)]" 11 | |+ up (choose [1, 6, 7, 10, 13, 23]) 12 | |+ n (choose [3, 4]) 13 | |+ coarse "{0 8 27 0 0 12 4}" 14 | |+ squiz "{1 1 2 1 2 1 1 2}" 15 | -- |+ dist 0.2 16 | |+ mNudge 17 | |+ mGain 18 | -- |+ pipe "0 40 [0,40]" 19 | |+ wah 0.03 20 | 21 | d1 silence 22 | 23 | do 24 | x <- lazy' 2 $ inst $ hh "mhh2:8" .sn "msn:10" . bd "mbd:6" 25 | d1 26 | -- $ degradeBy 0.68 27 | $ msvoB 0 28 | $ whenmod 6 4 (within (0.1, 0.5) (slow 4)) 29 | $ unison "msn" (degradeBy 0.3 $ s "mwb" |+ mGain |+ n (choose [9, 6, 12])) 30 | $ x 31 | |+ up "{0 3 -1 5 7 -2 -5}" 32 | |+ up "<0 1 1.75>" 33 | |+ sustain "0.9" 34 | |+ coarse "{2 12 2 12 8 2 4}%14" 35 | |+ cutoff (range 800 22000 (slow 6 $ sine)) 36 | |+ n "0 0 0 1" 37 | |+ speed "-1 1.5 0.85 -1 0.48 2" 38 | -- |+ rotPipe 3 39 | |+ mGain 40 | |+ slowPanR 3 41 | |+ cps (slow 2.3 "{0.3 0.8 1.8 0.8 0.75}") 42 | |+ room "0.01" 43 | |+ n "8 36" 44 | 45 | 46 | d2 47 | $ whenmod 4 3 (slow 2) . (rev) 48 | $ sometimesBy 0.8 (stutWith 2 0.75 (|* speed 1.5)) 49 | $ sound "ml5(<6 3 2 4>,8,<0 1>)" 50 | |+ up (scale "lydian" ("<0> .. <-5 4 8 -3 2 12>" + "<1 2 0>")) 51 | |+ wah 0.03 52 | |+ mGain 53 | |+ shape 0.2 54 | -- |+ rotPipe 3 55 | |+ n "6" 56 | |+ room 0.07 57 | 58 | 59 | d1 silence 60 | 61 | 62 | 63 | 64 | hush 65 | -------------------------------------------------------------------------------- /sketch/channel/002.tidal: -------------------------------------------------------------------------------- 1 | setcps (109/120/2) 2 | 3 | d4 $ slow 16 $ s "sync" 4 | 5 | do 6 | x <- lazy'' "ttf t(4,5)" $ inst2 7 | d1 8 | $ whenmod 4 3 (rot "<1 2>") 9 | $ sometimes (within (0.4, 0.6) (striate' 8 (1/8))) 10 | $ x 11 | |+ rotAccelerate 2 12 | |+ slowSpeedR 3 13 | |+ shape 0.2 14 | |+ slowSpeedR 3 15 | |+ rotPipe 2 16 | |+ slowPanS 4 17 | |+ room 0.1 18 | |> mGain 19 | |+ n "<24 7> ~ 27" 20 | |+ cps (range 0.3 1.2 (slow 7 $ sine)) 21 | 22 | -- second pattern 23 | 24 | 25 | do 26 | x <- lazy'' "tf" $ inst1 27 | d1 28 | $ x 29 | |+ mGain 30 | |+ rotPipe 4 31 | |+ room 0.1 32 | |+ slowSpeedR 3 33 | |+ n "22 ~ 24 12" 34 | 35 | 36 | hush 37 | 38 | -------------------------------------------------------------------------------- /sketch/channel/003.tidal: -------------------------------------------------------------------------------- 1 | setcps 0.5 2 | 3 | f = s "ld0(3,8)" 4 | |+ up (scale "lydian" "[0,2,4]" + "<0 5 0 3 0 2 5 3 2 0>" -24) 5 | |+ sus 1.9 6 | |+ cutoff (slow 3 (range 300 1200 sine)) 7 | |+ conv 0.6 8 | |+ room 0.05 9 | |+ mGain 10 | 11 | 12 | do 13 | x <- lazy'' "f(2,11) ft" $ inst3 14 | d1 15 | -- $ sometimesBy 0.3 (within (0.8,1.0) (|+ mfDel)) 16 | $ degradeBy 0.6 17 | $ msvo 0 18 | $ unison (s "mbd2") f 19 | $ x 20 | |+ mDefault 21 | |+ mNudge 22 | |+ cutoff 5800 23 | |+ rotAccelerate 3 24 | |+ n "57 34" 25 | |+ chorus 0.007 26 | 27 | 28 | d2 29 | $ slow 2 30 | $ degradeBy 0.35 31 | $ stack [ 32 | (s "ml4(2,7)" |+ up (cF 0 "a1")), 33 | (s "ml5(3,8)" |+ up (cF 0 "a2")), 34 | (s "ml4(2,9)" |+ up (cF 0 "a3")), 35 | (s "ml5(2,6)" |+ up (cF 0 "a4")) 36 | ] 37 | |+ n 27 38 | |+ coarse (choose [8, 12, 16]) 39 | |+ conv 0.4 40 | |+ room 0.08 41 | |+ chorus 0.01 42 | 43 | d3 44 | $ slow 4 45 | $ s "[mpd:57(2,8), mb:41(2,8)]" |+ up (cF 0 "a5") 46 | |+ end 0.6 47 | |+ chorus 0.01 48 | |+ slowPanR 3 49 | |+ nudge "[0 0.05]*4" 50 | |+ room 0.08 51 | |+ n 9 52 | 53 | 54 | d1 silence 55 | 56 | 57 | 58 | hush 59 | -------------------------------------------------------------------------------- /sketch/channel/004.tidal: -------------------------------------------------------------------------------- 1 | setcps (123/120/2) 2 | 3 | 4 | d4 $ slow 32 $ s "sync" 5 | 6 | 7 | do 8 | let layer = (s "") |+ up ("[0,2,9,24,48]" - 6) |+ cutoff (slow 7 $ range 800 15000 sine) |+ speed (-1) 9 | x <- lazy'' "tff t(4,9)" $ inst $ bd "mbd2:23" . sn "[zap/2, ml4:8?]" 10 | -- x <- lazy' 2 $ inst $ bd "mbd2:23" . sn "[zap:31/2, ml4:8?]" . cp "mcp:1" 11 | d1 12 | $ degradeBy 0.5 13 | $ unison "mbd2" layer 14 | $ msvoB 0 15 | $ sometimesBy 0.2 (within (0, 0.75) (striate 3)) 16 | $ x 17 | |+ coarse "{2 2 4 8 12 2}%8" 18 | |+ mGain 19 | |+ speed 1.5 20 | |+ slowPanS 3 21 | |+ slowSpeedR 3 22 | |+ room 0.015 23 | |+ n "12 26" 24 | 25 | -- ml3, toka, 48 26 | 27 | hush 28 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-02.tidal: -------------------------------------------------------------------------------- 1 | bps (240/120) 2 | 3 | d1 $ slowspread ($) [rev, (|+| accelerate "-1 1"), chop 8, every 3 (density 2.75), stut 2 0.5 0.45] 4 | $ foldEvery [3,4] (25.3 <~) 5 | $ slowcat [ 6 | every 2 (slow 0.3) $ sound (samples "birds3*3" (irand 16)), 7 | every 5 (chop 3) $ sound (samples "sequential*3 tabla*2" (irand 8)) |+| pan "-1 1", 8 | sound (samples "bottle*6" (irand 5)) |+| pan "0.3 -0.3"] 9 | -- |+| shape "0.5 [0.45 0.34]" 10 | # outbus "20 20 30 40 60 60" 11 | 12 | d2 $ sound (samples "tabla*4 glitch2*4" (irand 5)) 13 | # outbus "30 20 50" 14 | 15 | d1 silence 16 | 17 | d2 silence 18 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-04.tidal: -------------------------------------------------------------------------------- 1 | cps (2.0) 2 | 3 | d1 4 | $ jux (slow 3) 5 | -- $ straiate 3 6 | $ degradeBy 0.15 7 | $ jux (density 4) 8 | $ every 2 (gap 8) 9 | $ sound (samples "amencutup*3, {jazz*4 hh*2 v}" (irand 14)) 10 | # outbus "40 50 30 20 10" 11 | 12 | d1 silence 13 | 14 | d1 $ every 3 (density 0.5) 15 | $ degradeBy 0.28 16 | $ every 3 (striateL' 3 0.15 8) 17 | $ every 4 (iter 3) 18 | $ every 4 (slow 3) 19 | $ every 5 (gap 3) 20 | $ sound (samples' "{moe4 moe1 mbd moe1 ~, [mbd*2 lt*3] ~ mhh*2}" (irand 7)) 21 | |+| pan sinewave1 22 | # coarse "2 8 1 12" 23 | # binscr "0 0 1 1" 24 | # binshf "0 1 0 0" 25 | 26 | d2 silence 27 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-05.tidal: -------------------------------------------------------------------------------- 1 | d1 $ jux (slow 1.5) $ sound (samples "imp*3" "6 7 8 3") # pan "0" 2 | 3 | d1 silence 4 | 5 | d1 6 | $ every 3 (iter 4) $ every 4 (striate 6) $ every 2 (chop 3) 7 | $ every 7 (slow 0.2) 8 | $ degradeBy 0.124 9 | $ sound (samples "{sn bd hh*4 bd:4 cp, jazz:8*2 bass2 drum*3 notes:1 can:3}" (irand 3)) 10 | |+| pan sinewave1 11 | # room "0.02" 12 | # speed "[0.83 -1.25 0.75 -1.5]/3" 13 | -- # shape "0.3" 14 | # up "{-1 -2 -3}/4" 15 | -- # outbus "20 20 30 40 10" 16 | 17 | d1 silence 18 | 19 | d1 $ sound "hh" # pan "0.3" # outbus "1" 20 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-07.tidal: -------------------------------------------------------------------------------- 1 | d1 $ every 3 (striate 4) $ every 2 (slow 0.5) $ sound (samples "mhh*3 mbd msn*4" (irand 5)) 2 | # room "0.8 0 0.25 1" 3 | -- # outbus "40 10 20 30 30 10" 4 | # speed "0.5 -5 0.8 0.9" 5 | # pan sinewave1 6 | # cut "1" 7 | # binshf "1 1 0 1" 8 | 9 | 10 | d1 silence 11 | 12 | 13 | d1 $sound "hh bd" 14 | 15 | d2 silence 16 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-14.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ every 3 (palindrome) 3 | $ every 6 (density 2) 4 | $ every 5 (iter 4) 5 | $ every 2 (slow 2) 6 | $ every 8 (gap 2) 7 | $ foldEvery [4, 6] (striateL' 2 0.025 8) 8 | $ every 5 (chop 3) 9 | $ slowcat ([ 10 | sound (samples "~ mbd*2 mbd ~" (irand 12)), 11 | sound (samples "mnz*2 ~ ~ mbd*2' cp" "2 7 4 2 2"), 12 | sound (samples "~ moe2*3 mbd*3" (irand 5)), 13 | sound "bang*2" 14 | ]) 15 | # pan sinewave1 16 | # cut "4 3 2 3" 17 | # accelerate "2 1000 0.5 0" 18 | # speed "1 0.9 0.5 6" 19 | -- # coarse "1 2 1 1 " 20 | # hresonance "0.1 0.2 0.1 0.1" 21 | # binshf "1 1 0 1" 22 | -- # binfrz "0 1 0 1" 23 | # shape "0.4" 24 | # dist "0.4 0.2 0.2 1" 25 | -- # binscr "1 0 0 1" 26 | # room "0.01" 27 | 28 | d2 $ every 5 (density 0.5) $ every 3 (gap 5) 29 | $ sound (samples "mbd*3 jazz mnz*2 mhh*2" (irand 12)) 30 | # cut "2 1 2 1" 31 | # dist "1 0 0.5 0 " 32 | # accelerate "1 2 0 1 1" 33 | # coarse "1 1 2 32 1" 34 | # binscr "1 0 1 1" 35 | -- # shape "0.6"ZZ 36 | # binshf "1 1 1 0" 37 | 38 | d1 silence 39 | 40 | d2 silence 41 | 42 | hush 43 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-16.tidal: -------------------------------------------------------------------------------- 1 | d1 $ every 3 (slow 2) 2 | $ every 3 (iter 6) 3 | $ every 3 (gap 8) 4 | $ every 4 (chop 4) 5 | $ every 3 (rev) 6 | $ stack[ 7 | sound (samples "mbd*3 mnz*2 mhh*2 tabla*3" "4 5 7 3") 8 | |+| shape (slow 4 $ scale 0 0.8 sine1), 9 | sound "bang*2" 10 | ] 11 | # accelerate "1 10 1 1" 12 | # binscr "1 1 0 0" 13 | # binshf "0 1 0 1" 14 | -- # binfrz "0 1 0 0" 15 | # cut " 1 2 1 2" 16 | # speed "1 4 0.5 1" 17 | -- # dist "1 0.3 0 1" 18 | # shape "0.3 0.4 0.6" 19 | # pan sinewave1 20 | # room "0.02" 21 | -- # xsdelay "0.35 0.3 0.9" 22 | 23 | 24 | d1 $ sound "hh bd" 25 | # decay "20 30" 26 | 27 | d1 silence 28 | 29 | hush 30 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-21.tidal: -------------------------------------------------------------------------------- 1 | d1 $ sound $ samples "sqr" (tom "c2 e5 [c4]") 2 | 3 | 4 | d1 $ sound "sqr:60" 5 | 6 | d2 $ slow 3 $ every 3 (|*| up "5 0*2 3 0") 7 | $ sound "mpd:2*2" 8 | # up "0 3 0 3 4" 9 | # cut "3" 10 | 11 | d2 $ slowspread (stut' 3 (0.75/2)) 12 | ([|+| up "5 4 5 6 7")] $ sound "arpy*3" # up "2") 13 | 14 | hush 15 | -------------------------------------------------------------------------------- /sketch/earlier/2016-04-23.tidal: -------------------------------------------------------------------------------- 1 | d2 2 | $ every 4 rev 3 | $ slowspread ($) [slow 2, density 2, (# up "0 4 -5 7 0"), slow 3, (# up "-4 5")] 4 | $ every 2 (|+| up "-1 0 -1 3") 5 | $ sound (samples "moe2*4 [mpd ~] mbd bass3" "5 5 4 5") # accelerate "-2 2 10 1" 6 | # begin "0.7 0.4 0.5 0.0" 7 | # cut "15 13 10 11" 8 | # binscr "1 0 1 0" 9 | # shape "0.5" 10 | # coarse "18 1 1 1" 11 | 12 | d2 $ slow 2 $ every 5 rev 13 | $ slowspread ($) [(# up "1 4 -2 5 0"), (# up "0 2")] 14 | $ stack [ 15 | rev (sound (samples "mpd mpd mpd" "2") # accelerate "2" # delaytime "2.0" |+| up "-7"), 16 | sound (samples "bass3 [~ bass3 mpd] ~" "3 2 4 4") 17 | ] 18 | # begin "0.1 0.1 0.8 0.0" 19 | # cut "10 11 12 11 12 12 12 12 12" 20 | # binscr "1 1 0 1" 21 | # coarse "2 1 8 18 1" 22 | 23 | d2 $ every 3 rev 24 | $ slowspread ($) [ (# up "0 3 -2 5 0"), (# up "3"), (# up "5 2")] 25 | $ stack[ 26 | sound (samples "mpd" "7") # begin "0.1 0.5 0.6 0.8" # accelerate "2", 27 | sound (samples "~ [bass3 ~] bass3 ~" "1 1 2 1") |+| up "-7 -4 -6 -3 -6 2" |+| coarse "2 8 4 8 2" 28 | ] 29 | # cut "10 11 12 11 12 12 12 12" 30 | 31 | 32 | 33 | d2 silence 34 | 35 | 36 | 37 | hush 38 | -------------------------------------------------------------------------------- /sketch/earlier/2016-05-03.tidal: -------------------------------------------------------------------------------- 1 | -- lead synths 2 --- 2 | bps(120/120) 3 | 4 | bps(280/120) 5 | 6 | d2 7 | $ degradeBy 0.25 8 | $ every 3 (iter 4) 9 | -- $ every 3 (striate 3) 10 | $ every 3 (palindrome) 11 | $ every 4 (slow 2) 12 | $ whenmod 10 5 (|-| n "5") 13 | $ foldEvery [4, 6] (striateL' 3 0.2 5) 14 | $ slowspread ($) [density 2, (|+| n "-1 0"), (|+| n "8"), (|+| up "5") , (|+| up "0")] 15 | $ sound (samples "ldb*3 ld0" "4 4 5") 16 | # cut "12 13 14 15 16" 17 | |+| up "-5 -25 4 -5" 18 | # accelerate "0 -0.25 0 0.125 1" 19 | # room "0.3" 20 | # delay "0.3" 21 | # delayfeedback "0.3 0.1 0.3 0.25" 22 | # delaytime "0.8 0.4 0.6" 23 | # binscr "1 1 0 1" 24 | # coarse "12 2 2 48" 25 | # gain "0.9" 26 | 27 | d2 28 | $ every 2 (degradeBy 0.55) 29 | $ whenmod 8 4 (|-| n "2") 30 | -- $ every 2 (slow 2) 31 | $ every 3 (slow 2) 32 | $ every 3 (striate 3) 33 | $ every 3 (palindrome) 34 | $ every 3 (iter 4) 35 | -- $ every 5 (density 2) 36 | $ slowspread ($) [(|+| n "5"), (|+| n "0") ] 37 | $ stack [ 38 | degradeBy 0.28 (sound (samples "[ld2*3 ~]" "1") # n "0 3 4" # gain "1.1"), 39 | degradeBy 0.126 (sound (samples "[~ ld2] ~ ld2*2" "1") # n "1 -4 0 -4" |+| n "0 1 4" # gain "1.1"), 40 | sound (samples "[~] bass3*3" "4") # n "-1 5 -6 0 2" # accelerate "2 1 1" 41 | ] 42 | # cut "10 10 10 10" 43 | # coarse "1 2 1 4" 44 | # room "0.01" 45 | # accelerate "0.03 0.01 0 0.05 1" 46 | -- # gain "1.0" 47 | 48 | d2 silence 49 | 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/earlier/2016-05-19.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ degradeBy 0 3 | $ every 4 (striateL' 2 0.5 3) 4 | $ slow 2 5 | $ every 3 (density 2) 6 | $ foldEvery [3, 6] (iter 4) 7 | $ every 3 (palindrome) 8 | $ slowspread ($) [(# up "0"), (# up "2"), (# up "7") , (# up "0 5 6")] 9 | $ stack[ 10 | sound (samples "~ [moe1 mbd] sn ~" "2 4 3 5"), 11 | sound (samples "bass3 ~ mbd moe2" "2 5 3 3"), 12 | sound (samples "~ moe1*2 moe1" "3 2"), 13 | sound "bang" 14 | ] 15 | # cut "3 2 3 1" 16 | # pan sinewave1 17 | # accelerate "2 0 0.5 1 3" 18 | # shape "0.5" 19 | # coarse "1 4" 20 | # binshf "0 1 1 0" 21 | # speed "0.75 -2 -0.9 1" 22 | 23 | d1 silence 24 | 25 | d1 26 | $ every 4 (striateL' 3 0.05 5) 27 | $ slow 2 28 | $ every 5 (chop 3) 29 | $ every 4 (iter 6) 30 | $ foldEvery [4, 6] (iter 2) 31 | $ stack[ 32 | sound (samples "~ moe3 mbd*3 sn" "7 4 3 3"), 33 | sound (samples " moe3 ~ moe2 ~" "2 7 6 2"), 34 | sound (samples "mbd*2 ~ moe3 moe1*2" "3 2 5" ), 35 | sound "bang" 36 | ] 37 | # cut "4 1 1 2" 38 | # speed "0.75 -1 0.9 1" 39 | # coarse "1 8 1 1" 40 | # binshf "1 0 1 0" 41 | # accelerate "1 2 60 100" 42 | # pan sinewave1 43 | # shape "0.8" 44 | 45 | d1 46 | $ slow 2 47 | $ every 4 (iter 4) 48 | $ foldEvery[4, 6] (density 2) 49 | $ every 5 (striateL' 3 0.08 8) 50 | $ every 3 (gap 5) 51 | $ stack[ 52 | sound (samples "mbd*3 ~ moe1*2 ~" "3 6 5"), 53 | sound (samples "moe1 moe1 moe4 sn" "5 3 1"), 54 | sound "bang" 55 | ] 56 | # cut "3 1 1 2" 57 | # coarse "2 1 1" 58 | # binshf "0 1 1 0" 59 | # accelerate "1 1 3 0" 60 | # pan sinewave1 61 | # shape "0.8" 62 | 63 | 64 | hush 65 | -------------------------------------------------------------------------------- /sketch/earlier/2016-05-21.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ every 3 (iter 4) 3 | $ every 4 (striateL' 3 0.7 4) 4 | $ every 2 (palindrome) 5 | $ every 4 (slow 2) 6 | $ every 8 (chop 4) 7 | $ stack [ 8 | (slow 2 (sound (samples "co mbd*3 moe2*2 lt" "3 2 2"))), 9 | sound (samples "~ jungbass*3" "5 3 4") |+| cut "4 1" 10 | # binfrz "1 0", 11 | (slow 4 (sound (samples "seawolf mbd mash2" "4 3 5"))) # speed "0.5 -0.4 0.8" # n "3 5 3" 12 | ] 13 | # pan "0.3 0 -0.6 0.8" 14 | # binshf "1 0.4 0 0.3 0.4" 15 | # accelerate "1 4 10 0" 16 | # shape "0.6" 17 | # binscr "1 0.1 0 0.5" 18 | # coarse "1 8 2 4" 19 | 20 | d1 21 | $ slow 1.5 22 | $ every 4 (iter 4) 23 | $ every 5 (striateL' 3 0.21 5) 24 | $ every 4 (palindrome) 25 | $ every 4 (density 0.5) 26 | $ every 3 (gap 6) 27 | $ stack [ 28 | (slow 8 (sound (samples "kurt*3 mash*3 lt*4 pluck*4" "6 5 3 0"))) # begin " 0 0 0.5" # speed "1 0.6 1.8" # n "3 5 3", 29 | sound (samples "mbd*2 ~ lt*2 ~ lt" "2 5 4 2"), 30 | sound (samples "~ [east*2] lt*2 bass3*4" "3 1 8 6") |+| cut "1" # speed "0.7 -0.6 0.5", 31 | (slow 4 (sound (samples "~ [mbd mash2] lt*4" "1 4 1"))) # speed "1 -0.8 0.8" # n "3 5 3" 32 | ] 33 | # speed "0.4 1 0.67" 34 | # shape "0.6" 35 | # accelerate "10 30 10 0" 36 | # binscr "0 0.4 0.6" 37 | # binshf "0.1 0 0.4 1" 38 | # pan "-0.3 0.6 -0.6 0.8" 39 | 40 | d2 silence 41 | 42 | hush 43 | -------------------------------------------------------------------------------- /sketch/earlier/2016-07-07.tidal: -------------------------------------------------------------------------------- 1 | (cps 1) 2 | 3 | 4 | d1 5 | $ slow 2 6 | $ every 3 (slow 3) 7 | $ every 5 (gap 6) 8 | $ every 4 (palindrome) 9 | -- $ degradeBy 0.4 10 | $ sound (samples "moe1 mbd sax*4 bass3*4" (irand 12)) 11 | |+| n "14 5 2 -1 7 5" 12 | # cut "1 1 1 2" 13 | # shape " 0.5 0.6 0.3" 14 | # binshf "1 1 0 1" 15 | -- # convn "0 1 1 0.5" 16 | # accelerate "-1 1000 2 -0.4 2" 17 | # pan sinewave1 18 | # room "0.2" 19 | # gain "1.1" 20 | # speed "0.4 0.5 0.5 -1" 21 | # binshf "1.0 0.4" 22 | 23 | d1 silence 24 | 25 | d2 26 | $ degradeBy 0.6 27 | -- $ slow 2 28 | $ every 2 (palindrome) 29 | $ every 6 (chop 5) 30 | $ every 3 (iter 4) 31 | $ slowspread ($) [ 32 | (# n "-1 -1 -8 -6"), 33 | (# n "2 -2 4 -2"), 34 | (# n "-2 2 -4 -8"), 35 | (# n "2 2 -2 ~") 36 | ] 37 | $ every 4 (striate 5) 38 | $ stack [ 39 | sound (samples " ~ ~ moe3*3 cc mbd*3 jungbass" "4 6 4 4" ), 40 | sound (samples "moe4 printshort msn*2" "2 4 5 2") 41 | ] 42 | # cut "2 1 2 1" 43 | -- # coarse "128 1 18 2" 44 | # speed "0.41 0.5 0.75 1" 45 | -- # convn "0.5 1 0.5" 46 | # shape "0.r84" 47 | -- # dist "0.9" 48 | -- # accelerate "1000 0 0.4" 49 | # binscr "1 0.3 0 1 1" 50 | -- # binshf "1 1 1 0" 51 | -- # room "0.1" 52 | 53 | d2 silence 54 | 55 | hush 56 | -------------------------------------------------------------------------------- /sketch/earlier/2016-07-09.tidal: -------------------------------------------------------------------------------- 1 | cps(220/240) 2 | 3 | d1 4 | $ foldEvery [3, 5] (iter 4) 5 | $ every 5 (chop 3) 6 | $ every 4 (striateL' 2 0.25 3) 7 | $ sound (samples "bd*4 ~ moe2 mbd*3" "5 1 3 4") 8 | # binshf "0.4 0.5 1" 9 | # pan sinewave1 10 | # cut "4 1 3 1" 11 | # speed "0.85 0.6 0.8 -2" 12 | # room "0.1" 13 | # gain "1.2" 14 | # binshf "1 0 0 1" 15 | 16 | d1 silence 17 | 18 | d2 19 | $ foldEvery [2, 5] (iter 3) 20 | $ every 4 (palindrome) 21 | $ every 3 (gap 3) 22 | $ every 6 (striateL' 2 0.5 13) 23 | $ stack [ 24 | sound (samples "sn*2 ~ bass3 moe4*2" "3 8 6 2"), 25 | sound (samples "cp ~ ~ co" "2") 26 | ] 27 | # cut "3 2 2 1" 28 | # convn "1 0 0 1" 29 | # shape "0.25" 30 | # begin "0.4 0.1 0.2" 31 | 32 | 33 | d2 silence 34 | -------------------------------------------------------------------------------- /sketch/earlier/2016-08-12.tidal: -------------------------------------------------------------------------------- 1 | cps (1.23) 2 | 3 | d1 4 | $ slow 2 5 | $ every 6 (gap 4) 6 | $ ifp ((== 0).(flip mod 2)) 7 | (every 5 (striateL' 2 0.05 8)) 8 | (every 5 (iter 3)) 9 | $ every 4 (density 2) 10 | $ slowspread ($) [(0.01 ~>), (0.25 <~)] 11 | -- $ (0.5 ~>) 12 | $ slowcat[ 13 | sound (samples "~ moe3 mbd*2" "4 2 4"), 14 | sound (samples "mhh ~ mbd*3" "4 8 4"), 15 | sound (samples "moe4 mhh mbd*2" "4 5 2"), 16 | sound (samples "moe4 moe2*3 mbd*2" "4 2 4 6") 17 | ] 18 | -- # accelerate "100 3 30 -2" 19 | # n "2 4 5 5" 20 | # cut "3 1 3 1" 21 | # speed "-0.5 0.9 -0.8 1" 22 | # pan (scale 0.1 0.9 $ tri1) 23 | # binfrz "0 1 0 0" 24 | # binshf "1 0 1 1" 25 | # shape "0.4" 26 | 27 | d1 silence 28 | 29 | d2 30 | $ slow 2 31 | $ ifp ((== 0).(flip mod 2)) 32 | (every 4 (striateL' 3 0.2 3)) 33 | (jux (slow 2)) 34 | $ every 4 (palindrome) 35 | $ every 4 (slow 2) 36 | $ stack [ 37 | 0.25 <~ (slow 0.5 (sound (samples "volca0 volca1" "5 6 6"))) 38 | |+| n "-10 -24", 39 | 0.25 <~ sound (samples "mbd mhh " "2 4") 40 | ] 41 | # pan sinewave1 42 | # accelerate "-2 1 0 1" 43 | |+| n "-4 -2" 44 | # gain "1" 45 | # shape "0.5" 46 | # cut "2 3 1" 47 | -- # convn "0 1 0 1" 48 | 49 | d2 silence 50 | 51 | d2 52 | $ slow 2 53 | $ every 5 (iter 4) 54 | $ ifp ((== 0).(flip mod 2)) 55 | (every 4 (striateL' 3 0.25 3)) 56 | (every 3 (gap 4)) 57 | $ sound (samples "volca0*3 volca1*4" "0") 58 | |+| n "-31 5 -23 -33 1" 59 | 60 | 61 | hush 62 | 63 | -------------------------------------------------------------------------------- /sketch/earlier/2016-08-16.tidal: -------------------------------------------------------------------------------- 1 | (cps 0.8) 2 | 3 | d1 4 | $ stack [ 5 | -- sound (samples "mhh ~ mbd*2 mnz" "1 2 6"), 6 | 0.5 ~> slow 2 (sound (samples "msoz" "1")) # speed "0.35" # cut "1 2" # begin ((scale 0 0.8) rand) 7 | ] 8 | # accelerate "-1.5" 9 | # coarse "4" 10 | -- # convn "1 0 0 0.4" 11 | # room "0.5" 12 | # pan "0.5" 13 | 14 | d2 15 | $ slow 2 16 | $ every 4 (palindrome) 17 | $ every 3 (chop 3) 18 | $ every 3 (striateL' 3 0.011 6) 19 | $ stack [ 20 | sound (samples "co*2 mhh mbd*2" "4 6 3"), 21 | sound (samples "mbd [moe1*3 ~ ~ [~ mbd ~ cp]] ~ ~" "2" ) |+| speed "0.9 0.5" 22 | ] 23 | # accelerate "200 3 1 2" 24 | # binshf "0.5 0.9" 25 | # pan (scale 0 1 rand) 26 | # speed "" 27 | -- # convn "1 1 0 0" 28 | # shape "0.3" 29 | # gain "1.1" 30 | 31 | hush 32 | 33 | -------------------------------------------------------------------------------- /sketch/earlier/2016-08-18.tidal: -------------------------------------------------------------------------------- 1 | (cps 0.6) 2 | 3 | d1 4 | $ slow 2 5 | $ stack [ 6 | sound (samples "msoz ~ ~ cp" "2") |+| speed "0.6", 7 | sound (samples "~ msoz" "8") # speed "0.6" 8 | ] 9 | # gain "1.25" 10 | # cut "10" 11 | # room "0.2" 12 | 13 | 14 | d2 15 | $ every 3 (striateL' 4 0.51 6) 16 | $ every 4 (gap 4) 17 | $ every 4 (iter 5) 18 | $ slowcat [ 19 | stack[ 20 | sound (samples "bass3 ~ mbd*2" "1"), 21 | gap 3 (sound (samples "[mbd*3 moe3*2 ~] [mhh ~] ~" "2 6 6")) |+| speed (scale 0.5 2 rand) 22 | ], 23 | stack [ 24 | sound (samples "bass3 ~ [mhh*2 ~ mbd] mbd" "2"), 25 | chop 6 (sound (samples "mbd ~ mnz" "3 2") |+| speed (scale 0.4 2 rand)) 26 | ] 27 | ] 28 | # cut "1 2 2 5" 29 | # binshf "1 0 0" 30 | -- # conv "0.6" 31 | # pan sinewave1 32 | # shape "0.8" 33 | 34 | d1 silence 35 | 36 | d2 silence 37 | 38 | hush 39 | -------------------------------------------------------------------------------- /sketch/earlier/2016-08-20.tidal: -------------------------------------------------------------------------------- 1 | (cps (67 / 120)) 2 | 3 | d1 4 | $ slow 1 5 | $ every 4 (gap 3) 6 | $ every 4 (iter 4) 7 | $ stack [ 8 | sound (samples "msoz*2 ~" "3") #speed "-0.3" # begin (scale 0.0 0.4 rand) # cut "1" # room "0.4", 9 | sound (samples "~ msoz" "7") #speed "0.2" # begin (scale 0.01 0.8 rand) # cut "2" 10 | # room "0.6", 11 | slow 2 (jux (striate 3) 12 | $ every 4 (gap 3) 13 | $ every 4 (iter 4) 14 | $ sound (samples "[mbd co*2] [msn*2 ~] moe3 [mbd*2 ~] moe3" "3 4 5 2")) 15 | # accelerate "0 3 -10 4 -4" 16 | # binscr "1 0 1" 17 | # gain "1.1" 18 | # binshf "1 0 0 1" 19 | # coarse "2 1 16 1" 20 | # pan sinewave1 21 | # speed "0.75 1 -0.6 -2", 22 | 0.25 ~> (slow 5 (sound (samples "bass3 ~" "5 12 -3 8 "))) |+| n "12 3 5" 23 | |+| cut "6 4 4 4" 24 | |+| gain "1.1" 25 | ] 26 | 27 | d1 silence 28 | 29 | 30 | d1 31 | $ slow 2 32 | -- $ jux (iter 3) 33 | $ every 4 (gap 3) 34 | $ stack [ 35 | sound (samples "~ msoz ~" "3") #speed "0,5" # begin (scale 0.0 0.4 rand) # cut "1" # room "0.4", 36 | 0.25 ~> sound (samples "~ msoz" "7") #speed "0.6" # begin (scale 0.01 0.8 rand) # cut "2" 37 | # room "0.6", 38 | slow 3 (jux (striate 8) 39 | $ every 4 (gap 3) 40 | $ every 4 (iter 4) 41 | $ sound (samples "[mbd mnz*2] [moe4*2 ~] mbd*3 [~ msn]*2 moe3" "6 4 5 7")) 42 | # accelerate "0 3 -1 2 -4" 43 | # binscr "1 0 1" 44 | # gain "1.1" 45 | # binshf "1 1 1 0" 46 | # coarse "2 1 1 1" 47 | # pan sinewave1 48 | # speed "0.75 2 -0.6 -2", 49 | 0.25 ~> (slow 5 (sound (samples "bass3 ~" "5 12 -3 8 "))) |+| n "12 3 5" 50 | |+| cut "6" 51 | |+| gain "1" 52 | ] 53 | 54 | 55 | hush 56 | -------------------------------------------------------------------------------- /sketch/earlier/2016-08-24.tidal: -------------------------------------------------------------------------------- 1 | cps (120/240) 2 | 3 | d1 4 | -- $ slow 0.75 5 | $ every 3 (density 5) 6 | $ every 4 (striateL' 2 0.25 8) 7 | $ every 5 (gap 4) 8 | $ every 6 (iter 4) 9 | $ slowspread ($) [ 10 | (|+| n "0"), (|+| n "4"), (|-| n "5") , (|+| n "6") 11 | ] 12 | $ stack[ 13 | 0.5 <~ sound (samples "~ msoz*2 ~ ~ msoz" "2 2 4 8 3") |+| cut "2 4 2 4" 14 | |+| cutoff (scale 500 800 rand), 15 | sound (samples "moe4*2 ~ [mbd*2 ~] msn*2 ~ mnz" "4 6 3 3 6"), 16 | sound (samples "bass3*2 [~ mhh*3] moe3 ~ [moe3*2 cp]" "3 5 3 3 5") 17 | ] 18 | -- # convn "0 0 1 0 0 1" 19 | -- # conv "0 1 0 0 1 0" 20 | -- # coarse "12 1 1 8 8 1" 21 | -- # accelerate "1 4 -1 0 1000 1" 22 | -- # speed "-1 1 0.85 -2 1" 23 | # pan (scale 0 1 rand) 24 | # shape "0.8 0.4 0.6 0.9" 25 | # room " 0 0.06 0 0.17 0.1" 26 | # binshf "1 0 1 0 0 1" 27 | 28 | 29 | 30 | hush 31 | -------------------------------------------------------------------------------- /sketch/earlier/2016-11-20.tidal: -------------------------------------------------------------------------------- 1 | cps (180/120) 2 | 3 | d1 4 | $ stack[ 5 | slowspread ($) [(|+| n "-3 0"), (|+| n "4"), (|+| n "4") ,(|+| n "5")] 6 | $ slow 2.5 7 | $ every 3 (palindrome) 8 | $ every 4 (iter 6) 9 | $ sound "~ ldb [moe3 ~] ld2 ldb" 10 | |+| n "0 -24 0 15" 11 | |+| n "0 -3 0 -3 -5" 12 | |+| end "1.2 1.8" 13 | -- |+| coarse "4 32 1 128" 14 | , 15 | slowspread ($) [(|+| n "-3 0"), (|+| n "4"), (|+| n "4") ,(|+| n "2")] 16 | $ slow 1.75 17 | $ degradeBy 0.4 18 | $ every 3 (iter 4) 19 | $ sound "ldb, ~ ld2 ld2 ~" 20 | |+| n "4 6 7 5" 21 | |+| n "0 -3 0 -3 5" 22 | -- |+| end "1.2 1.5" 23 | |+| n "24 36" 24 | |+| coarse "4" 25 | ] 26 | |+| room "0.1" 27 | 28 | d2 silence 29 | 30 | d3 silence 31 | 32 | d2 33 | $ slow 2 34 | $ every 4 (gap 2) 35 | $ every 4 (palindrome) 36 | $ every 2 (iter 5) 37 | $ sound "bd:1*2 moe3*2 [hh ~] bd*2, [~ mbd:1] bd" 38 | |+| speed "2.8 1.8 1.9 1" 39 | |+| end "1 0.4 1 0.6" 40 | |+| loop "1 2 1 3" 41 | |+| binshf "1 0.4 1 0.8" 42 | |+| accelerate "0.1 0.9 0.5 -0.2" 43 | |+| binfrz "0 1 0.4 1" 44 | |+| pan sinewave1 45 | |+| shape "0.5" 46 | |+| gain "1.1" 47 | 48 | d3 49 | $ every 4 (gap 3) 50 | $ slow 6 51 | $ degradeBy 0.6 52 | $ every 3 (iter 5) 53 | $ sound "mbd ~ mnz:4*2 msoz:5" 54 | |+| speed "1 -0.5 3.3 2 -0.9" 55 | |+| end "0.6 0.9 0.3 0.1" 56 | -- |+| begin "0.4 0.1 0.1" 57 | |+| loop "2 1 1 2" 58 | -- |+| accelerate "1 0 10 2" 59 | -- |+| binshf "1 1 0.8 0" 60 | |+| pan sinewave1 61 | |+| room "0.4 0.1 0.5 0" 62 | |+| gain "1.1" 63 | 64 | 65 | hush 66 | -------------------------------------------------------------------------------- /sketch/earlier/2016-11-21.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | $ stack[ 3 | slowspread ($) [(|+| n "8"), (|-| n "0")] 4 | $ slow 2 5 | $ every 2 (rev) 6 | $ every 4 (iter 4) 7 | $ sound (samples "ldb bass1:3 ~ [arpy:3 ~]" (iter 2 $ run 2)) 8 | |+| n "[2 0 0, 1 ~ 3, 0 1 [4 6]]" 9 | |+| n "0 2 5 8" 10 | |+| end "0.3 1.5 1.1" 11 | |+| loop "2 0 1 1" 12 | |+| binshf "1 0 0 1" 13 | |+| accelerate "1 0 -1 0.3 -2" 14 | ] 15 | # shape "0.4" 16 | 17 | d2 18 | $ slow 0.75 19 | $ every 6 (palindrome) 20 | $ every 5 (slow 2) 21 | $ every 4 (striate 4) 22 | $ sound (samples "[mnt:4/6 [mpd:21/4 ~] ~, moe4*2 ~ [mbd*2 mhh] ~ mhh:3 moe3]" (iter 4 $ run 3)) 23 | |+| binshf "1 0 1 1" 24 | # binscr "1 0 1 1" 25 | # speed (scale 0.3 4 $ rand) 26 | |+| end "0.3 0.5 0.9 1.3" 27 | # shape "0.5 0.3 0.9 0.2" 28 | # accelerate "0.3 0.1 0.3 0.32" 29 | # pan (scale 0.2 0.9 rand) 30 | 31 | 32 | d1 silence 33 | 34 | d2 silence 35 | 36 | 37 | hush 38 | -------------------------------------------------------------------------------- /sketch/earlier/2016-11-22.tidal: -------------------------------------------------------------------------------- 1 | cps (1.06) 2 | 3 | d1 4 | $ slow 3 5 | $ stack [ 6 | every 6 (iter 4) 7 | $ degradeBy 0.3 8 | $ every 4 (gap 2) 9 | $ every 5 (chop 3) 10 | $ sound "[mbd:1*2 [mhh:3 ~ co:6] ~ msn mbd:2*2 moe4 moe1 ~ moe3*2, mhh:2 ~ cp ~]" 11 | |+| binshf "0 0.8 1 1 0.3" 12 | -- |+| binscr "1 0 0 1" 13 | |+| pan (scale 0.1 0.9 rand) 14 | # wah "0.5 0.3 0.1" 15 | -- |+| speed "0.8 1.2 0.9 -1.4" 16 | |+| shape " 0.3 0.2 0.2 0.4" 17 | , 18 | slow 4 19 | $ every 3 (|+| n "4") 20 | $ degradeBy 0.2 21 | $ every 4 (|+| n "-3") 22 | $ whenmod 8 4 (|-| up "5") 23 | (sound "ml:7*2 ~ mb:1*2 ml:3*2 ~ ml:6 ~" |+| n "[0 3 ,3 5 ,7 8]" |+| n "-12 5 7 3 4 5") 24 | # room "0.0 0.1 0.3" 25 | # end "2.1" 26 | |+| speed "-1.333 0.5 1.5 1.25 -0.5" 27 | |+| speed "0.97" 28 | # coarse "8 2 2 2" 29 | # wah "0.3 0.2 0 0.5" 30 | |+| binscr "1 0 1 1" 31 | |+| accelerate "1 0 -4 2" 32 | # cut "1 2 1 2" 33 | |+| gain "1.0" 34 | ] 35 | |+| shape "0.0" 36 | |+| gain "1.1" 37 | 38 | 39 | d2 40 | $ slow 3 41 | $ every 6 (stut 8 0.125 (-0.5)) 42 | $ every 4 (chop 3) 43 | $ every 5 (striate 3) 44 | $ sound "[mnz:13 ~ [mhh:0 ~], mb:2 ~, mbd:5 ~]" 45 | |+| pan (scale 0.3 0.9 rand) 46 | |+| shape "0.1" 47 | |+| mGain 48 | # cut "1 2 1 2" 49 | -- |+| binshf "1 0 1 1" 50 | 51 | 52 | d3 53 | $ every 3 (iter 4) 54 | $ degradeBy 0.2 55 | $ sometimes (jux (iter 5)) 56 | $ sometimes (jux (palindrome)) 57 | $ whenmod 8 4 (density 2) 58 | $ every 4 (stut 4 0.125 (-0.5)) 59 | $ sound "{mbd:8 ~, mhh:12*2 ~ [mhh:12 hh:8?*2], ~ msn:12/2, ~ ~ moe3}" 60 | |+| speed (choose [1, 1, 4, 0.6, 8 -2]) 61 | |+| nudge "[0.02 0]*4" 62 | |+| shape "0.2" 63 | |+| mGain 64 | 65 | 66 | d1 silence 67 | 68 | d2 silence 69 | 70 | hush 71 | -------------------------------------------------------------------------------- /sketch/earlier/2016-11-30.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.15) 2 | 3 | d1 4 | $ every 8 (slow 3) 5 | $ every 4 (slow 1.5) 6 | $ every 5 (striateL' 2 0.04 5) 7 | $ every 4 (striate 8) 8 | $ every 5 (iter 5) 9 | -- $ jux (iter 4) 10 | $ sound (samples "[mbd*2 ~ mhh mbd*2 moe2, mhh*2 [~ mbd*2]]" "2 3 5 4") 11 | -- |+| wah "0 0.4 0 0" 12 | |+| shape "0.3 0.6 0 0.6" 13 | |+| binscr "1" 14 | |+| binshf "0.4 0.5 1 0.9" 15 | |+| speed (scale 0.3 2 rand) 16 | |+| pan (scale 0.2 0.9 rand) 17 | |+| gain "1.2" 18 | |+| cut "1 2 2 1" 19 | |+| disv "-3 4 -5" "4 5 6" 20 | 21 | d2 22 | $ slow 4 23 | $ every 5 (striateL' 2 0.1 2) 24 | $ slowspread ($) [(|+| n "3"), (|+| n "-3")] 25 | $ sound (samples "ml ~ ml*2 mb*3 ~ cp mb:3" "5 5 2 4 12") 26 | |+| n "2 0 3" 27 | -- |+| conv "0.3 0 0.7 0" 28 | |+| wah "1 0.4 1" 29 | |+| shape "0.5 0.2 0.3" 30 | |+| cut "1 2 2 1" 31 | |+| speed "0.7 0.8 0.8 -1 0.9" 32 | |+| gain "1.2" 33 | |+| room "0" 34 | 35 | d2 silence 36 | 37 | d3 silence 38 | 39 | hush 40 | -------------------------------------------------------------------------------- /sketch/earlier/2016-12-04.tidal: -------------------------------------------------------------------------------- 1 | d1 2 | -- $ slow 2 3 | $ every 4 (iter 4) 4 | $ every 3 (striate 4) 5 | $ every 5 (chop 6) 6 | $ sound "msn [mbd:3 ~] [mhh*2 ml:3] ~ cp" 7 | |+| wah "0 0.4 0.3" 8 | |+| binshf "0 0 1 1" 9 | |+| loop "-3 4 5 5" 10 | |+| end "3 2 2 1" 11 | |+| accelerate "2 10 1 1" 12 | |+| shape "0.5" 13 | |+| cut "1 2 2 1" 14 | |+| binfrz "1 0 0 1" 15 | |+| pan (scale 0.3 0.8 rand ) 16 | 17 | 18 | d1 19 | $ s (mask ("1 ~ ~ ~" :: Pattern Bool) 20 | (slowcat ["sn*8", "[cp*4 bd*4, hc*5]"])) 21 | 22 | 23 | d1 $ whenmod 8 4 (density 2) (sound "bd sn kurt") 24 | 25 | 26 | d1 27 | $ seqP 28 | [ 29 | (0, 128, sound "bd bd*2"), 30 | (8, 128, sound "hh*2 [sn cp] cp future*4"), 31 | (16, 128, sound (samples "arpy*8" (run 16))) 32 | ] 33 | 34 | 35 | d1 $ slowcat [sound "bd*2 sn", sound "arpy jvbass*2", sound "drum*2"] 36 | 37 | d1 $ slowcat [sound "bd*2 sn", sound "jvbass*3", sound "drum*2", sound "ht mt"] 38 | 39 | 40 | t1 (wash (stut 3 0.02 0.4) 8) $ wedge (2/3) (sound "bd sn sax") (sound "feel future") 41 | 42 | 43 | hush 44 | -------------------------------------------------------------------------------- /sketch/earlier/2016-12-26.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.25) 2 | 3 | d1 4 | $ degradeBy 0.2 5 | $ slow 3 6 | $ off (1/32) (|*| up (choose [0, 5, 3, 7])) 7 | -- $ jux (iter 3) 8 | $ sometimes (stut 12 0.02 0.1) 9 | $ whenmod 2 1 (|+| n "2 4 7 26") 10 | $ s "[msn(3,7), mbd/2 mfl/2 moe3*3? [~ msn]*2? mbd*2 ,mhh*2(3,5) mhh*3/2 moe4/2, ml(3,5)]" 11 | -- |+| speed (slow 2 "1 1.75 2 -0.5 1.666") 12 | -- |+| up (choose[0.666, 1.5, 1, 1, 1, 1]) 13 | |+| binshf "0 0 1 0" 14 | |+| shape "0.4" 15 | |+| coarse "12 2 2 2" 16 | |+| mGain 17 | |+| binfrz "1 0 0 1" 18 | |+| wah "0.4 0.1 0" 19 | |+| pan (scale 0.1 0.8 $ rand) 20 | -- |+| conv "0 1 0 0" 21 | |+| room "0.04" 22 | |+| end "0.5 0.5" 23 | -- |+| disv "-1 -1 2" "3 3 3" 24 | 25 | t1 (xfadeIn 8) 26 | $ s "~" 27 | 28 | d1 silence 29 | 30 | d4 silence 31 | 32 | hush 33 | -------------------------------------------------------------------------------- /sketch/earlier/2017-01-04.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.13) 2 | 3 | d1 4 | -- $ every 5 (iter 3) 5 | -- $ every 6 (off (1/16) (# up "0 1 2 3 4")) 6 | -- $ every 8 (stut 8 0.0125 4) 7 | $ slow 3 8 | $ stack [ 9 | sound "{mhh:1*7 ~ mnt:1*2 [~ mbd*2] ~, mbd*3/3 msn:16}"|+| cut "4 5 5 1", 10 | sound "mhh:37(4,12)" |+| cut "2", 11 | sound "ml:31/4 [~ mbd/2]" 12 | ] 13 | |+| n "2 4" 14 | # mGain 15 | -- # binfrz "1/32 0 1/24 0 0" 16 | # binshfR 17 | -- # wah "0.3/12 0 0 0.3/2 0" 18 | -- # modl (density 4 $ choose [0,0,0,0,0,0.3,0.6]) 19 | |+| accelerate "12 0.5 -2 0 0 1" 20 | -- |+| end "0.3 0.13 1 0.5 1" 21 | |+| shape "0.4 0.5 0.2 0.4" 22 | |+| slowPanR 2 23 | -- |+| disv "-2 -2 -4" "3 4 5" 24 | 25 | d2 26 | $ every 4 (off (1/4) (# up "0 1 2 3 5")) 27 | $ slow 6 28 | $ sound "{mb:27 ~ [mb:26 ~] ~ , [mpd:16? mpd:28]/2 mb/2 ml ~}" 29 | |+| up (slow 8 "5 0 3 5 -3 5") 30 | |+| sustain "0.3 0.6 0.2" 31 | # wah "0.1 0" 32 | # sustain "0.4" 33 | # cut "1 4 1 2" 34 | # modl (density 0.4 $ choose [0,0,0,0.3,0.6]) 35 | # mGain 36 | |+| gain "0.2" 37 | |+| shape "0.3" 38 | |+| slowPanS 2 39 | 40 | d3 41 | $ every 4 (palindrome) 42 | $ slow 12 43 | $ sound "ml:14*2 ml:18*2" 44 | |+| chord [em, cm ,cm9 ,gM] "0 1 2 3 1 3 2 3" 45 | |+| wah "0.1 0.3/3 0.01" 46 | |+| accelerate (slow 8 $ "0.1 0.5 -2 0 0 1") 47 | # mGain 48 | |=| slowPanR 12 49 | 50 | 51 | d1 silence 52 | 53 | d2 silence 54 | 55 | d3 silence 56 | 57 | d4 silence 58 | 59 | hush 60 | -------------------------------------------------------------------------------- /sketch/interim-report/2018-08-01.tidal: -------------------------------------------------------------------------------- 1 | cps 1.2 2 | 3 | d2 4 | $ slow "<10 8>" 5 | $ s "ld0(3,7)" 6 | |+ flangeL 7 | |+ sustain "7" 8 | |+ coarse 2 9 | |+ n (foldl (+) "<0 1>" ["[0, 2]", "0 5 3", "[1, [2, 6]]", "<0 2 3>"]) 10 | |+ wah "0.03" 11 | |+ speed "1 1 -0.5" 12 | -- |+| accelerate "-0.2 0.3" 13 | -- |+| gain 0.2 14 | |+ pipe "[0, 40]" 15 | |+ mGain 16 | 17 | 18 | 19 | d3 20 | $ degradeBy 0.2 21 | $ sometimes (within (0.25,0.9) (density 2)) 22 | $ sometimes (within (0.15,0.5) (density 1.2)) 23 | $ s "psr(9,12)" 24 | |+ up (choose [1, 6, 7, 10, 13, 23]) 25 | |+ n (choose [3, 4]) 26 | |+ coarse "{0 8 27 0 0 12 4}" 27 | |+ squiz "{1 1 2 1 2 1 1 2}" 28 | |+ mNudge 29 | |+ mGain 30 | -- |+| pipe "0 40 [0,s0]" 31 | |+ wah 0.3 32 | 33 | d2 silence 34 | 35 | do 36 | x <- lazy' 2 $ inst $ hh "mhh2:8" .sn "[msn:10, mb:5?]" . bd "mbd2:6" 37 | d1 38 | $ degradeBy 0.8 39 | $ msvoB 0.125 40 | $ x 41 | |+ mNudge 42 | |+ up "{0 3 -1 5 7 -2 -5}" 43 | |+ up "<0 1 0.5>" 44 | |+ sustain "0.9" 45 | |> mGain 46 | |+ n "0 0 1 0" 47 | |+ mGain 48 | |+ slowPanR 3 49 | |+ pipe "{[40,0] 40 0 [40, 0]}%3" 50 | -- |+| room "0.05" 51 | |+ n "5" 52 | |+ cps (range 0.4 1.0 (slow 7 $ sine)) 53 | 54 | hush 55 | -------------------------------------------------------------------------------- /sketch/interim-report/2018-08-03.tidal: -------------------------------------------------------------------------------- 1 | cps 1.3 2 | 3 | d1 4 | -- $ degradeBy 0.6 5 | $ whenmod 4 3 (within (0.5, 0.75) (0.125<~)) 6 | $ whenmod 4 2 (within (0.25, 0.8) (slow 1.5)) 7 | $ foldEvery [3, 5] (within (0.75, 1.0) (striate 4)) 8 | $ sometimes (|+| flangeD) 9 | $ msvo 0.125 10 | $ ur 2 "" 11 | [ 12 | ("a", (s "[mhh*4, mbd:13*2]")), 13 | ("b", (s "[mhh*8, mbd:13*4]")), 14 | ("c", (s "mhh(8,11), mcp*3")), 15 | ("d", (s "[mhh(6,9), mbd(5,9)]"))] 16 | [] 17 | -- |+| mNudge 18 | -- |+| pipe "{[0,40] 0 0 0 [40,0]}" 19 | |+| slowSpeedR 3 20 | |+| accelerate "-0.02" 21 | |+| slowPanR 3 22 | |+| mDefault 23 | |+| n "6" 24 | 25 | d2 silence 26 | 27 | do 28 | x <- lazy' 2 $ inst $ sn "[msn2, ml3?]" 29 | d2 30 | $ degradeBy 0.6 31 | $ msvoB 0.125 32 | $ msvoA 0.125 33 | $ x 34 | |+| slowSpeedR 3 35 | |+| sustain "0.2" 36 | |=| mDefault 37 | -- |+| accelerate "-1 -0.03 0.7 0.2" 38 | -- |+| dist "0.2" 39 | |+| pipe "{[0,40] 40 0 0 [40,0]}" 40 | |+| n "12 48" 41 | 42 | 43 | d3 44 | $ slow 16 45 | $ s "mgut(3,9)" 46 | |+| up (foldl (+) "<0 1>" ["[0, 2]", "0 5 3", "[1, [2, 6]]", "<0 2 3>"]) 47 | |+| dist 0.1 48 | |+| sustain 3 49 | |+| mGain 50 | |+| convp 0.2 51 | -- |+| pipe "{0 0 [40,0]}" 52 | |+| room "0.2" 53 | 54 | hush 55 | -------------------------------------------------------------------------------- /sketch/interim-report/2018-08-28.tidal: -------------------------------------------------------------------------------- 1 | cps 1.2 2 | 3 | d1 4 | $ slow 4 5 | -- $ msvoA 0.125 6 | $ stack [ 7 | (s "psr(2,4) uxay:4(3,8)"), 8 | (s "procshort*2 ul*4") 9 | ] 10 | -- |+| mNudge 11 | -- |+| mfDel "{0.09 0 0 0.1 0.3 0.08}%5" 12 | -- |+| flangeL 13 | |+| n "{0 1 2 4 [3 0] 8 5}" 14 | -- |+| n "{0 1 2 4 7 [3 0] 8 5}" 15 | |+| pipe "[0, 40]" 16 | |+| mGain 17 | 18 | d3 19 | $ slow 24 20 | $ s "ld3(4,12)" 21 | |+| n (foldl (+) "<0 1>" ["[0, 5]", "0 1 7", "[0, [5, 3]]", "<0 2 3>"]) 22 | |+| crush (choose [4,8,12]) 23 | |+| sustain 5 24 | |+| cutoff (scale 1200 4000 sine1) 25 | |+| pipe "[0, 40]" 26 | |+| room 0.3 27 | 28 | 29 | 30 | d2 silence 31 | 32 | hush 33 | -------------------------------------------------------------------------------- /sketch/interim-report/2018-09-01.tidal: -------------------------------------------------------------------------------- 1 | cps 0.75 2 | 3 | d3 silence 4 | 5 | do 6 | let 7 | -- pat1 = (slow "<2 3 4>" $ "0 1 0/2 1 1*2 0 1? 0/2 1 1/2 0*2 1 1/4 1/3 0 1") 8 | pat1 = (slow 2 $ "0 0 0 0*2 0 0*3 0 1 1*2 1 1 0 1 0 1/2 0") 9 | d1 10 | $ msvoB 0.125 11 | -- $ degradeBy "0.9" 12 | $ every 5 (within (0.75,1.0) (|+| brick "<2 0.4 0.05 3>") . (|+| speed "1.25 0.75 -0.75")) 13 | $ sometimesBy 0.2 (|+| convp 0.3) 14 | $ every 4 (within (0.5,0.8) (rev) . (|+| coarse "<12 8 2>")) 15 | $ foldEvery [4,6] (|+| up "0 5 7 -1") 16 | $ sometimesBy 0.2 (within (0.5,1.0) (gap "<5 3 4>") . (|+| flangeL). (|+| shape 0.1)) 17 | $ every 7 (within (0,0.3) (hurry "<0.75 1.125 1>") . (rev)) 18 | $ every 5 (within (0.5,1.0) (slow "<1.75 1.5>")) 19 | $ stack[ 20 | (sometimes (0.125~>) $ gain (inverse <$> pat1) |+| s "mhh:3"), 21 | (gain pat1 |+| s "mbd:8"), 22 | (s "mhh2:2(4,11)"), 23 | ((every 2 (0.125<~)) $ degradeBy 0.4 $ gain pat1 |+| s "mcp" |+| cut 1) 24 | -- ((every 3 (0.125<~)) $ degradeBy 0.2 $ gain (inverse <$> pat1) |+| s "mpd2:4" |+| cut 3) 25 | ] 26 | |+| mGain 27 | |+| room 0 28 | -- |+| mNudge 29 | |+| slowPanR 2 30 | -- |+| slowSpeedR 3 31 | |=| pipe "[40, 0]" 32 | |+| n (slow 1.75 $ "<8 0 28>") 33 | 34 | -- asse rush 35 | d2 36 | $ slow 32 37 | $ stut 8 0.2 8 38 | $ s "ade*16" 39 | -- |+| mNudge 40 | |+| up "[[0 [3 7] 2] [0 3]*3 [2 [5 12]*3]]" 41 | |+| wah 0.3 42 | -- |+| room 0.2 43 | |+| crush 8 44 | |+| shape 0.3 45 | |+| n 5 46 | 47 | d2 silence 48 | 49 | hush 50 | -------------------------------------------------------------------------------- /sketch/midi.sc: -------------------------------------------------------------------------------- 1 | MIDIClient.init; 2 | MIDIClient.sources; 3 | MIDIClient.disposeClient; 4 | MIDIIn.connect; // init for one port midi interface 5 | MIDIIn.addFuncTo(\noteOn, ~noteOn); 6 | // register functions: 7 | ~noteOff = { arg src, chan, num, vel; [chan,num,vel / 127].postln; }; 8 | ~noteOn = { arg src, chan, num, vel; [chan,num,vel / 127].postln; }; 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | MIDIOut 23 | 24 | m = MIDIOut(0); 25 | 26 | m.noteOn(16, 60, 60); 27 | m.noteOff(16, 61, 60); 28 | m.allNotesOff(16); -------------------------------------------------------------------------------- /sketch/midi_test.tidal: -------------------------------------------------------------------------------- 1 | (cps 1) 2 | 3 | 4 | do 5 | 6 | d1 $ slow 4 $ sound "mhh:3*4" 7 | 8 | m1 $ slow 4 $ midinote "60" -- clock sync 9 | 10 | -- samples 11 | -- 12 | 13 | m2 $ slow 4 $ midinote "60" 14 | 15 | m3 $ slow 4 $ midinote "60" 16 | 17 | m4 $ slow 4 $ midinote "60" 18 | 19 | m5 $ slow 4 $ midinote "60" 20 | 21 | m2 22 | $ slow 0.125 23 | -- $ stut 2 0.125 3 24 | -- $ whenmod 8 4 (|+| midinote "0.75") 25 | -- $ whenmod 6 3 (sometimes (off 0.125 (|*| speed (choose [1.5, 1.125])))) 26 | $ degradeBy 0.3 27 | -- $ midinote "60" 28 | -- |+| mGain 29 | $ midinote "{0 5 7 12 15 20 22}%4" 30 | -- |*| speed "1.0 2.0 -1.5" 31 | 32 | m2 silence 33 | 34 | hush 35 | 36 | 37 | 38 | d1 39 | -- $ slow 2 40 | $ sound "{mbd mhh*4, arpy*4}" 41 | |+| coarse "32 16" 42 | |+| n (run 9) 43 | |+| end "0.4" 44 | 45 | d1 silence 46 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-02-13.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.03) 2 | 3 | d1 4 | -- $ degradeBy 0.5 5 | -- $ slow 1.25 6 | $ whenmod 4 3 (within (0.3, 0.6) (striateL' 3 0.02 7)) 7 | $ every 8 (slow 6) 8 | $ every 3 (iter 2) 9 | $ every 2 (off 0.125 (|+| speed "-0.25 -0.4 6 -2")) 10 | $ sound "{[mbd:7, glitch2:1/2] mhh:8 [mhh:25 mbd:5, moe1/2, noise:10] ~, mnt:29 ~ ~ ~ [~ mhh/2] [~ mhh/2]}" 11 | |+| nudge "[0 0.09]*3" 12 | |+| mGain 13 | |+| shape "0.4" 14 | |+| slowPanS 3 15 | 16 | 17 | d2 18 | $ every 5 (|+| wah "0.25 0 0.07") 19 | $ every 3 (within (0.2, 0.8) (|+| modl "1")) 20 | $ whenmod 4 2 (within (0.3, 0.6) (striateL' 3 0.06 5)) 21 | $ every 4 (off 0.25 (|+| speed "-1.25 [-0.75 -0.46] -2")) 22 | $ sound "mpd:16/4 mb:0/2*2 mpd:24/6 mb:3/3" 23 | |+| binfrz "0.4 0 0 1" 24 | |+| binshfS 3 25 | |+| coarse (slow 3 $ "2 128 2 2 32") 26 | |+| mGain 27 | |+| slowPanS 5 28 | -- |+| n "2" 29 | 30 | d3 31 | $ slow 8 32 | $ every 6 (off 0.125 (|+| speed "-0.25")) 33 | $ sound "[tacscan:19 mpd:14] ~" 34 | |+| wah "0.15 0 0.3" 35 | 36 | 37 | hush 38 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-03-21.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.1) 2 | 3 | d1 4 | $ sometimes (msvo 0.125) 5 | $ whenmod 4 3 (slow 3) 6 | $ foldEvery [3,5] (within (0.4,0.6) (striate 5)) 7 | $ ur 1 "<0 1 0 1 2 0 2 1 2 0 0 2 1>" [ 8 | sound "[mbd:15(3,8), mhh*2 msn:22*2/2, mnt:25*8?]" 9 | ,sound "[mbd:2(3,9), mhh*3 msn:5]" 10 | ,sound "[~ mbd:2(2,5), mcp mhh*4]" 11 | ] 12 | -- |+| speed (slow 1.75 $ "1 -0.8 1.1 0.75") 13 | |+| n "3 5 8" 14 | |+| mDefault 15 | -- |+| slowSpeedR 2 16 | -- |+| mGrav 17 | 18 | 19 | d2 20 | $ slow 2 21 | $ msvoA 0.125 22 | $ foldEvery [4,5] (within (0.5,0.9) (chop 4)) 23 | $ sound "{~ mnt:32(5,8)?, mnz:19(2,5)? ~}" 24 | |+| n (slow 3 $ "2 4 5") 25 | |+| modl "0 0 0 1 0 1" 26 | |+| conv "0 0 0 1" 27 | |+| slowSpeedR 2 28 | |+| mGrav 29 | 30 | 31 | d3 32 | $ slow 4 33 | $ stut 2 0.125 4 34 | $ foldEvery [4,5] (within (0.4,0.8) (chop 3)) 35 | $ every 3 (iter 3) 36 | $ whenmod 8 4 (|*| speed "0.75") 37 | $ whenmod 6 3 (off 0.125 (|*| speed "1.5")) 38 | $ degradeBy 0.4 39 | $ sound "ml:21(2,3) ml:5*4" 40 | |+| up "{0 2 6 9 12 15 17}%7" 41 | |+| room "0.1" 42 | |+| wah (slow 2 $ "0.03 0 0 0.02 0.1") 43 | |+| coarse "4 2 12 4 2" 44 | |+| end "0.8 1" 45 | 46 | d1 silence >> d3 silence 47 | 48 | hush 49 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-03-22.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.15) 2 | 3 | d1 4 | -- $ slow 2 5 | $ msvo 0.125 6 | $ sometimes (0.125 ~>) 7 | $ every 4 (within (0.5, 0.75) (chop 3)) 8 | $ every 5 (within (0.7, 0.9) (striate 2)) 9 | $ ur 9 "{0 1 2 0 2 1 0 2}%7" [ 10 | sound "{msn:15 mhh:1*4, ~ flick:4 ~, moe4*4, mbd:12*4?}" 11 | ,sound "[mhh:15*8, mhh:28/4 msn:20/2, mbd:7(2,5)? mhh:29/3 mb2:18?]" 12 | ,sound "{ml2:4*3 flick:6*2/2 mcp:16/3, mbd:12, mhh:19*3}" 13 | ] 14 | |*| up (slow 2 $ "1 -0.8 1 0.8") 15 | |+| mfDel (slow 3.45 $ scale 1 0.01 sine1) 16 | |+| shape "0.4 0.15 0 0.1 0" 17 | -- |+| n "10" 18 | -- |+| mDefult 19 | |+| slowPanS 4 20 | |+| orbit "1" 21 | |=| mGain 22 | 23 | 24 | d2 25 | $ slow 1.5 26 | $ whenmod 12 8 (|*| speed "0.8") 27 | $ whenmod 6 3 (|*| speed "1.3333") 28 | $ sound "mpd2:30/2 mpd2:6/4" 29 | |+| cutoff (scale 3600 12000 (slow 3 $ sine1)) 30 | -- |+| cut (choose [0,1,2,3]) 31 | -- |+| disv "-0.3 -0.4 3" "2 3 3" 32 | |+| mGain 33 | |+| orbit "0" 34 | 35 | 36 | d3 37 | $ sound "{mpd2:11/5 mpd2:14/6, ~}" 38 | |+| end "0.5 0.8" 39 | -- |+| disv "-0.25 -0.4 3" "4 3 3" 40 | |+| speed "0.8 1 1 0.75" 41 | |+| cut (choose [0,1,2,3]) 42 | |+| mGain 43 | 44 | 45 | d1 silence 46 | 47 | d2 silence 48 | 49 | d3 silence 50 | 51 | hush 52 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-03-28.tidal: -------------------------------------------------------------------------------- 1 | (cps 1.2) 2 | 3 | d1 4 | $ msvoC 0.125 5 | $ whenmod 4 2 (slow 1.5) 6 | $ whenmod 2 1 (stut 4 0.25 2.25) 7 | -- $ slow 2 8 | $ sound "{mpd2:2*3 mcp:1(2,7), mpd2:11/3 mpd2:6, ~ [~ ml2:11], mhh*8?}" 9 | |+| cut "4 3 4 3" 10 | |+| n "1 3 2 13" 11 | |+| mDefault 12 | |+| slowSpeedR 2 13 | 14 | 15 | d2 16 | $ msvo 0.125 17 | $ every 5 (slow 1.75) 18 | $ every 3 (within (0.5,0.8) (slow 2)) 19 | $ every 4 (within (0.4,0.7) (striate 6)) 20 | $ sometimes (|+| convn "0.5 0 0 0 0.3") 21 | $ ur 1 "<2 0 1 0 2 0>" [ 22 | (sound "{[mbd:3(3,5), mhh:21*4], moe4/2 [mnt:12*2 mb2:3/2]}") 23 | ,(sound "{moe3*4 [~ mbd2:2*2/2], mnt:8/3 [~ mnz:7/2]}") 24 | ,(sound "[[~ mbd:2*2], noise:8(3,5)]" |+| cut "1 3") 25 | ] 26 | |*| up (slow 2 $ "1 5 7 1") 27 | |+| n "14 8" 28 | |+| wah "0 0.1 0 0 0 0.3" 29 | |+| mDefault 30 | 31 | 32 | d3 33 | $ slow 4 34 | $ off 0.5 (|+| speed "0.75 1.5 1.25") 35 | $ every 2 (const $ sound "~") 36 | $ s "mpd2*3" 37 | |+| n (slow 4 $ "16") 38 | 39 | 40 | d1 silence >> d2 silence 41 | 42 | d3 silence 43 | 44 | hush 45 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-07.tidal: -------------------------------------------------------------------------------- 1 | cps (115/120) 2 | 3 | do 4 | let 5 | pat1 = (slow 4 $ "0/2 1/4 1*2 0/3 0 1/8 1 0/6 1/2 0 0/2 0 1 1/3 0 1/2") 6 | -- pat1 = (slow 4 $ "1/6 1 1/8 0/4 0*4 0/6 1/2 0*2 1/2 1*4 0/4 1 1*2 1/4 0/4 1") 7 | d1 8 | $ foldEvery [4,6] (within (0.4, 0.75) (slow 2)) 9 | $ sometimes (msvoA 0.125) 10 | $ sometimes (msvoB 0) 11 | $ stack [ 12 | ((0.125 <~) $ gain pat1 |+| s "mhh:8") 13 | ,(gain (inverse <$> pat1) |+| s "msn:6") 14 | ,((0.125 <~) $ gain (inverse <$> pat1) |+| s "mbd:16") 15 | ] 16 | -- |+| n "~ 34 1 ~ 12 ~ 29" 17 | -- |+| n "5 5 10 8 7" 18 | |=| slowPanR 2.5 19 | |+| mDefault 20 | |=| mGain 21 | |+| mfDel (slow 2.85 $ "0.01 0.75 0.02 1 0.125 0.001 1 0.3 1") 22 | -- |+| cut "1 2 4 3 2 3 1 2" 23 | 24 | d1 silence 25 | 26 | d2 27 | $ slow 16 28 | $ chord [cm9, fm] "0 1" 29 | |+| sound "ml:20*4" 30 | |+| accelerate "0.02" 31 | |+| cutoff (slow 3.46 (scale 1800 12000 sine1)) 32 | |+| sustain "5" 33 | |+| shape "0.2" 34 | |*| speed "0.95" 35 | -- |+| mGain 36 | 37 | 38 | d2 silence 39 | 40 | hush 41 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-11-1.tidal: -------------------------------------------------------------------------------- 1 | do 2 | let 3 | pat1 = (slow 4 $ "0/2 1/2 1 0/3 0*2 1/2 1/4 0 0*4 0/4 0 1/3 1/2 1 0/2 1") 4 | d1 5 | $ msvoS 0.125 6 | $ foldEvery [4,5] (within (0.2, 0.5) (slow 1.5)) 7 | $ stack [ 8 | -- ((0.125 ~>) $ gain pat1 |+| s "ecco_kick:7") 9 | (whenmod 5 3 (off 0.075 (within (0.3, 0.7) (|+| speed "2.5 -0.6 2"))) $ gain (inverse <$> pat1) |+| s "ecco_noise:5" |+| cut "5 6 4 5") 10 | ,((0.125 <~) $ gain pat1 |+| s "ecco_bip:3" |+| cut "4 5 4 6 8 6 4 5") 11 | ,(slow 8 $ gain pat1 |+| s "ecco_bip:8") 12 | ] 13 | -- |+| n "1 0 3 4" 14 | |+| n "10 3" 15 | |+| mfDel (slow 7 (scale 1 0.01 rand)) 16 | -- |+| mGain 17 | |+| slowPanS 2 18 | |+| mNudge 19 | |+| mDefault 20 | 21 | hush 22 | 23 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-11-2.tidal: -------------------------------------------------------------------------------- 1 | cps (130/120) 2 | 3 | do 4 | let 5 | pat = "0/4 1*2 0 1/2 1*4 1/4 1 0/2" 6 | d1 7 | $ slow 2 8 | -- $ every 4 (msvo (-0.125)) 9 | $ every 2 (within (0.25, 0.75) (slow 2)) 10 | $ every 6 (within (0.4, 0.8) (|+| unit "s") . (|+| accelerate "<0.76 0 -0.16>") . (|+| loop "<0.125 0.75 0.5>")) 11 | $ every 4 (off (-0.125) (stut 3 0.05 6) . (zoom (0.25, 0.75))) 12 | $ stack [ 13 | (gain pat |+| sound "ecco_kick:5") 14 | ,((slow 4) $ gain pat |+| sound "ecco_bass:3" |+| sustain "0.125" |+| up "0 2 -3 0") 15 | ,((0.125 <~) $ gain pat |+| sound "ecco_hihat:0") 16 | ,(gain (inverse <$> pat) |+| sound "ecco_snr:0") 17 | ,(slow 8 $ (0.125 ~>) $ gain pat |+| sound "ecco_bip:6") 18 | ] 19 | |+| mGain 20 | |+| slowPanS 3 21 | |+| mfDel (slow 3 (scale 1 0.02 saw1)) 22 | |+| binsmr (slow 3 "0 1 0 0 1 0") 23 | |+| n "0 4" 24 | |+| orbit "0" 25 | 26 | d2 27 | $ sometimes (slow "<4 3>") 28 | $ msvo 0.125 29 | $ sometimes (off (-0.125) (|*| up "1.25")) 30 | $ whenmod 4 3 (|+| up "-3") 31 | $ up "-2/2 0 3/4 5/3" 32 | |+| s "[ml:19? ml:18]/2" 33 | |+| n (slow 1.75 "0 9? 0") 34 | |+| wah (slow 3 "0.06 0 0") 35 | |+| room "0.3" 36 | -- |+| end "0.25" 37 | |+| coarse "<2 12 4 4>" 38 | |+| slowPanR 2 39 | |+| gain "1.1" 40 | |+| orbit "1" 41 | 42 | 43 | 44 | 45 | 46 | hush 47 | 48 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-11-3.tidal: -------------------------------------------------------------------------------- 1 | -- pad 2 | 3 | do 4 | let 5 | pat = "0 1/4 1 0/2 0 1/3 0 1/4 1/3" 6 | d1 7 | $ slow 3 8 | -- $ mSlowDiv 8 9 | $ msvoA 0.125 10 | $ stack [ 11 | (gain pat |+| sound "ecco_noise:3") 12 | ,(gain (inverse <$> pat) |+| sound "ecco_bip:3") 13 | ,(slow 4 (gain (inverse <$> pat) |+| sound "ecco_pad:5") |*| gain "0.6") 14 | ] 15 | |+| mGain 16 | -- |+| mDefault 17 | |+| slowSpeedR 3 18 | |*| gain "0.7" 19 | 20 | hush 21 | 22 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-11-4.tidal: -------------------------------------------------------------------------------- 1 | -- pad 2 | 3 | do 4 | let 5 | pat = "0 1/4 1 0/2 0 1/3 0 1/4 1/3" 6 | d1 7 | $ slow 3 8 | $ msvoA 0.125 9 | $ stack [ 10 | ((rev) $ gain pat |+| sound "ecco_noise:5") 11 | ,((rev) $ gain (inverse <$> pat) |+| sound "ecco_bip:8") 12 | ,(slow 4 (gain (inverse <$> pat) |+| sound "ecco_pad:8") |*| gain "0.6") 13 | ] 14 | -- |+| mGain 15 | |+| mDefault 16 | |+| slowSpeedR 3 17 | |*| gain "0.7" 18 | |+| n "9" 19 | 20 | hush 21 | 22 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-11.tidal: -------------------------------------------------------------------------------- 1 | 2 | -- let (freq, _) = pF "freq" (Just 100) 3 | -- d1 <- stream "192.168.10.4" (supercollider freq 0.3) 4 | -- d2 <- stream "192.168.10.4" 7771 supercollider{Sound.Tidal.Context.latency= 0.06} 5 | 6 | 7 | cps (120/120) 8 | 9 | do 10 | let 11 | pat1 = (slow 4 $ "0/2 1 1*2 0/3 0*2 1/2 1/4 0 1 0/4 0*2 1/3 1/2 1 0/2 1") 12 | d1 13 | $ foldEvery [4,5] (within (0.2, 0.5) (slow 1.5)) 14 | $ stack [ 15 | ((0.125 <~) $ gain pat1 |+| s "ecco_kick:4") 16 | ,(whenmod 5 3 (off 0.125 (within (0.3, 0.7) (|+| speed "2.5 -0.6 2"))) $ gain (inverse <$> pat1) |+| s "ecco_noise:5" |+| cut "5 6 4 5") 17 | ,((0.125 <~) $ gain pat1 |+| s "ecco_hihat:3" |+| cut "4 5 4 6 8 6 4 5") 18 | ,(slow 8 $ gain pat1 |+| s "ecco_bip:8") 19 | ,(slow 7 $ gain (inverse <$> pat1) |+| s "mnt:29" |+| coarse "12") 20 | ] 21 | |+| n "1 0 3 4" 22 | -- |+| n "3" 23 | |+| mfDel (slow 7 (scale 1 0.01 rand)) 24 | |=| mGain 25 | -- |+| mDefault 26 | |+| slowPanS 2 27 | |+| mNudge 28 | -- |+| binsmr (slow 3 "0 0 0.7 0 1") 29 | |+| orbit "1" 30 | 31 | d2 32 | -- $ sometimes (slow "<4 3>") 33 | $ msvo 0.125 34 | $ sometimes (off (-0.125) (|*| up "1.25")) 35 | $ whenmod 4 3 (|+| up "-3") 36 | $ up "-2/2 0 3/4 5/3" 37 | |+| s "[ml:19? ml:18]/2" 38 | |+| n (slow 1.75 "0 9? 0") 39 | |+| wah (slow 3 "0.06 0 0") 40 | |+| room "0.3" 41 | -- |+| end "0.25" 42 | |+| coarse "<2 12 4 4>" 43 | |+| slowPanR 2 44 | |+| orbit "1" 45 | |+| gain "1.1" 46 | 47 | 48 | do 49 | d1 50 | -- $ msvo 0.125 51 | $ stack [ 52 | sound "mhh:2*4" 53 | ,sound "~ msn:4" 54 | ,sound "mbd:7*2" 55 | ] 56 | |+| gain "1.2" 57 | |+| mNudge 58 | |+| mfDel (slow 4 (scale 1 0.01 sine1)) 59 | |+| orbit "0" 60 | |+| mDefault 61 | |+| n "1 1 6 1" 62 | 63 | 64 | 65 | hush 66 | 67 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-07-14.tidal: -------------------------------------------------------------------------------- 1 | cps (120/120) 2 | 3 | do 4 | let 5 | -- pat1 = (slow 4 $ "0/2 1 1*2 0/3 0*2 1/2 1/4 0 1 0/4 0*2 1/3 1/2 1 0/2 1") 6 | pat1 = (slow 6 $ "0 0/2 1*4 1 1/4 1*2 0/4 0 1 0/4 1*2 0/4 0/3 1/4 0 1/2") 7 | d1 8 | $ foldEvery [4,5] (within (0.2, 0.5) (slow 1.5)) 9 | $ stack [ 10 | ((0.125 <~) $ gain pat1 |+| s "ecco_kick:4") 11 | -- ,(whenmod 5 3 (off 0.125 (within (0.3, 0.7) (|+| speed "2.5 -0.6 2"))) $ gain (inverse <$> pat1) |+| s "ecco_noise:5" |+| cut "5 6 4 5") 12 | ,((0.125 <~) $ gain pat1 |+| s "ecco_hihat:8") 13 | ,(slow 8 $ gain (inverse <$> pat1) |+| s "mnt:31" |+| coarse "12") 14 | ] 15 | |+| n "1 0 3 4" 16 | -- |+| n "4" 17 | |+| mfDel (slow 0.75 (scale 1 0.01 sine1)) 18 | |+| mGain 19 | |+| slowPanS 2 20 | |+| mNudge 21 | |+| cut (run 12) 22 | |+| orbit "0 1 0 0 1 1 0 1 1 0" 23 | 24 | -- d2 25 | -- $ slow 2 26 | -- $ degradeBy 0.4 27 | -- $ every 3 (zoom (0.0, 0.6) . (slow "<2 4>")) 28 | -- $ whenmod 4 2 (off (0.125) (within (0.25, 0.5) (|+| up "<2 4>"))) 29 | -- $ whenmod 3 1 (|+| accelerate "0.05 -0.07") 30 | -- $ up "5 0 -2 [9 10]/2" 31 | -- -- |+| s "[msoz:2/2 msoz:6/4]/2" 32 | -- |+| s "[msoz:4 msoz:6/9]/2" 33 | -- -- |+| s "[ml:8 ml2:5]/2" 34 | -- |+| wah (slow 3 "0.06 0 0.1") 35 | -- |+| room "0.3" 36 | -- |+| end "<0.1 0.3 0.2>" 37 | -- |+| binscr "1" 38 | -- |+| shape "0.3" 39 | -- -- |+| binshf "1" 40 | -- |*| speed "-0.5" 41 | -- |+| coarse "<2 12 8 8>" 42 | -- |+| slowPanR 2 43 | -- |+| cut "3 5 3 5" 44 | -- |=| gain "1.2" 45 | 46 | 47 | 48 | d1 silence 49 | 50 | -- d2 silence 51 | 52 | 53 | hush 54 | 55 | -------------------------------------------------------------------------------- /sketch/polygonnight/2017-09-04.tidal: -------------------------------------------------------------------------------- 1 | cps (122/120) 2 | 3 | do 4 | let pat = (iter 5 $ slow 2 "0/2 1/4 1 0/1 1 1/4 1 0/2 0*2 1/2 1 0/4 0*2 0/4 0 1/3") 5 | d1 6 | $ msvoC 0.125 7 | -- $ msvoA 0 8 | $ ur 1 "<1 0 2 3 0 1 2 1 2>" [ 9 | stack [ 10 | (gain pat |+| sound "mhh"), 11 | (gain (inverse <$> pat) |+| sound "mbd"), 12 | (sound "ecco_pad") 13 | ], 14 | stack[ 15 | (sound "ecco_kick(3,5)"), 16 | (sound "mhh(3,9)"), 17 | (gain pat |+| sound "msn/4" |+| cut "4") 18 | ], 19 | stack[ 20 | (sound "mbd(3,7)"), 21 | (sound "mnt:13(3,7)"), 22 | (sound "mhh(5,8)"), 23 | (gain (inverse <$> pat) |+| sound "mpd?" |+| end "0.1") 24 | ], 25 | (sound "[mbd(6,11), mhh msn ~, ~ ~ mb ~]") 26 | ] 27 | |+| n "15 14" 28 | |+| slowPanS 2 29 | -- |+| mDefault 30 | |=| mGain 31 | |+| orbit "1" 32 | 33 | 34 | 35 | d2 36 | $ slow 16 37 | $ off 0.025 (|*| speed (slow 0.85 $ "0.75 1.5 -1")) 38 | $ chord [em9, fm, am, gm] "0 1 2 3" 39 | |+| sound "ml:3*4" 40 | |+| mGain 41 | |+| shape "0.2" 42 | |+| wah "0.03" 43 | |+| room "0.4" 44 | |+| orbit "0" 45 | 46 | 47 | 48 | hush 49 | 50 | d2 silence 51 | 52 | -------------------------------------------------------------------------------- /sketch/samples.tidal: -------------------------------------------------------------------------------- 1 | d1 $ weave 3 (shape $ sine1) [sound "bd [sn drum:2*2] bd*2 [sn drum:1]", sound "arpy*8 ~"] 2 | 3 | 4 | d1 $ wedge (3/4) (sound "bd*3 arpy*3 sn*2") (sound "odx [future]*2 hh hh") 5 | 6 | 7 | d1 $ slow 2 $ spin 2 $ sound "drum*3 tabla:4 [arpy:2 ~ arpy] [can:2 can:3]" 8 | 9 | 10 | d1 $ seqP [ 11 | (0, 128, sound "bd bd*2"), 12 | (8, 128, sound "hh*2 [sn cp] cp future*4"), 13 | (16, 128, sound (samples "arpy*8" (run 16))) 14 | ] 15 | 16 | $ randcat [sound "bd*2 sn", sound "jvbass*3", sound "drum*2", sound "ht mt"] 17 | 18 | 19 | d1 $ whenmod 8 4 (density 2) (sound "bd sn kurt") 20 | 21 | 22 | d1 $ stut 5 0.5 (-0.2) $ sound "bd sn" 23 | 24 | d1 $ striateL' 12 0.015 12 $ sound "feel sn:2" 25 | 26 | d1 $ stut 4 0.5 0.2 $ sound "bd sn" 27 | 28 | 29 | d1 $ sound "jvbass(3,8)" 30 | 31 | t1 (anticipateIn 4) $ sound "jvbass(5,8)" 32 | 33 | 34 | d1 $ spread' up (|+|) [4,2,2,3] $ sound "ho bd" |+| up (spread (|+|) [2, 3]) 35 | 36 | 37 | d1 $ spread slow [2,4%3] $ sound "ho ho:2 ho:3 hc" 38 | 39 | hush 40 | 41 | -------------------------------------------------------------------------------- /sketch/scketch_2.sc: -------------------------------------------------------------------------------- 1 | s.boot; 2 | 3 | ( 4 | SynthDef("boomer",{arg out = 0; 5 | var osc; 6 | osc = SinOsc.ar(440,0,0.2); 7 | Out.ar(0,osc); 8 | }).store(); 9 | ) 10 | 11 | 12 | s.sendMsg("/s_new", "boomer", 1001, 1, 0); 13 | 14 | s.sendMsg(11, 1001); 15 | -------------------------------------------------------------------------------- /sketch/stack.yaml.lock: -------------------------------------------------------------------------------- 1 | # This file was autogenerated by Stack. 2 | # You should not edit this file by hand. 3 | # For more information, please see the documentation at: 4 | # https://docs.haskellstack.org/en/stable/lock_files 5 | 6 | packages: 7 | - completed: 8 | hackage: tidal-1.7.4@sha256:c41eac19aa4948e4dbc54a9bd4a5fe6b3a01da651e29b871b5c9a989c9a32b1a,4065 9 | pantry-tree: 10 | size: 3154 11 | sha256: 4d8fc0b97080e768f49890106a06c0bb5ea444ebcbe661496929cf7a3266346a 12 | original: 13 | hackage: tidal-1.7.4 14 | snapshots: 15 | - completed: 16 | size: 494984 17 | url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/4.yaml 18 | sha256: ba80f9f1f517b9c79a3f32944558fa29837a152eae8dcd0891317338920c2ed8 19 | original: lts-13.4 20 | -------------------------------------------------------------------------------- /sketch/swgbbo/10.tidal: -------------------------------------------------------------------------------- 1 | setcps (130/120/2) 2 | 3 | do 4 | let pat = "{1 1 [1 ~]/2 ~ 1 [1 [~ 1]]/2 1 0}%8" 5 | let pat2 = "{1 ~ [~ ~ 0 ~]/4 1 0 [~ 0, 1 ~]/2 0 [~ 0 1]/3}%16" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat2) 9 | d1 10 | -- $ msvoC 0 11 | -- $ msvoB 0 12 | $ every 2 (within (0.25, 0.5) (0.125~>) . (|+ coarse "2 8 4 2")) 13 | $ every 3 (within (0.25,0.8) (rev) . (iter 1) . (|+ mfDel) . (|+ crush "0 2 8 6 8")) 14 | $ stack [ 15 | x |+ s "mhh*4" |+ n "19 5 0 0 3" |+ nudge "[0, 0.01]*2" 16 | -- , y |+ s "mbd:7" |+ sus 0.75 |+ accelerate "1 -0.3 -3 0.5" 17 | , degradeBy 0.85 $ x |+ s "mcp" |+ slowSpeedR 2 18 | , z |+ s "mst:15" |+ shape 0.3 |* gain (slow 3 (range 0.3 0.8 sine)) 19 | -- , x |+ "~ ~ ~ dig2" 20 | -- , y |+ "~ ~ ~ dig3" 21 | -- , x |+ "dig4 ~ dig4 ~" 22 | , degradeBy 0.9 $ y |+ s "mwb2:3?" |+ slowSpeedR 3 |+ wah 0.03 |+ hpf 200 |+ sus 0.9 23 | ] 24 | |+ mGain 25 | |+ accelerate "{0 -0.05 [0 -1 -0.03] 2 -1 0 0.03 4 0.2 3}%6" 26 | |+ slowPanR 4 27 | 28 | 29 | d4 $ slow 32 $s "sync" 30 | 31 | hush 32 | 33 | 34 | -------------------------------------------------------------------------------- /sketch/swgbbo/11.tidal: -------------------------------------------------------------------------------- 1 | setcps (152/120/2) 2 | 3 | do 4 | let pat ="{0 [1 0] ~ 0 1 0 ~ ~ 1 0}%8" 5 | let pat2 ="{~ 0 1 1 ~ [~ 1] [1 0] ~ 1 ~ }%8" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat2) 9 | d1 10 | -- $ msvo 0 11 | $ sometimesBy 0.2 (within (0.25,0.5) (|+ squiz 2 ) .( |+ accelerate "{0 0.0.4 0.04 -1 2 0 1}%5")) 12 | $ sometimesBy 0.4 (within (0.5,0.75) (rev . msvoC 0)) 13 | $ stack [ 14 | x # s "mhh2:1" |+ slowSpeedR 3 15 | , y # s "mbd:9" 16 | , z # s "msn2:10?" 17 | , z # s "[mst:5 zap:4]/4" |+ gain "{1 0.2 1 0.1 1 0.3}" |+ sus "{0.3 0.4 0.1 1 0.7 0.1}" |+ slowSpeedR 2 18 | ] 19 | |+ mDefault 20 | -- |+ sus 1 21 | |+ room "{0 0.02 0.04 0.05 0 0.1}" 22 | 23 | 24 | d4 $ slow 32 $ s "sync" 25 | -------------------------------------------------------------------------------- /sketch/swgbbo/13.tidal: -------------------------------------------------------------------------------- 1 | setcps (152/120/2) 2 | 3 | do 4 | let pat = "<0 1 ~> [1 0] [~ 0 ~ 1] 1 [1 0] ~ <~ 1> 0" 5 | let pat2 = "~ 1 0 0 <1 ~> [~ 1] <[1 0] 0> <0 1>" 6 | let x = gain pat 7 | let y = gain pat2 8 | let z = gain (inverse <$> pat2) 9 | d1 10 | $ msvoC 0 11 | $ sometimesBy 0.4 (within (0.25,0.75) (|+ squiz 2 ) .( |+ accelerate "{0 0.0.4 0.04 -1 2 0 1}%4")) 12 | $ sometimesBy 0.4 (within (0.5,0.75) (rev . msvoB 0)) 13 | $ sometimesBy 0.2 (within (0,0.6) ((iter 2) . (|+ mfDel))) 14 | $ stack [ 15 | x # s "mhh2:1" |+ slowSpeedR 3 16 | , y # s "mbd:9" 17 | , x # s "mb2:1?" |+ sus 0.2 |+ accelerate "<0.03 -0.93 -0.5> 0 -1" 18 | , z # s "msn2:10?" 19 | -- , x # s "zap:30?" 20 | , z # s "[mst:9? zap:12]/3" |+ wah 0.08 |+ gain "{1 0.2 1 0.1 1 0.3}" |+ sus "{0.3 0.4 0.1 1 0.7 0.1}" |+ slowSpeedR 2 21 | ] 22 | |+ mDefault 23 | |+ room "{0 0.02 0.04 0.05 0 0.1}" 24 | -- |+ dist 0.2 25 | -- |+ n 21 26 | 27 | uhush 28 | -------------------------------------------------------------------------------- /sketch/synth_practices.sc: -------------------------------------------------------------------------------- 1 | {Crackle.ar(1.92, 0.5).dup()}.play; 2 | 3 | {Crackle.ar(1.52, 0.5).dup()}.play; 4 | 5 | {BrownNoise.ar(0.2).dup()}.play() 6 | 7 | 8 | {Klank.ar(`[[120, 1031, 7353, 1723], nil, [1, 1, 1, 1]], Dust.ar(4, 0.1).dup()) }.play; 9 | 10 | 11 | {Crackle.ar(TExpRand.ar(0.1,1.94,Impulse.ar(8)),mul:0.5).dup}.play() 12 | 13 | {Klank.ar(`[[831, 17353, 8723], nil, [1, 1, 1]],PinkNoise.ar(0.03).dup()) }.play; 14 | 15 | {Klank.ar(`[[181, 353, 2723], nil, [1, 1, 1]], Crackle.ar(1.94, 0.03).dup()) }.play; 16 | 17 | {Klank.ar(`[[81, 11353, 6013], nil, [1, 1, 1]], BrownNoise.ar(0.01).dup()) }.play; 18 | 19 | 20 | ( 21 | {arg lpf=107; 22 | AllpassC.ar(Mix.fill(9,{SinOsc.ar({[0,5,7,10,12,-12].choose+60}.midicps*{[1,0.5,2,0.666,0.75].choose},SinOsc.ar({[0,5,7,10,12,-12].choose+56}.midicps*122) ,HenonC.ar(SampleRate.ir/2, LFNoise2.ar(0.6,8.2), TExpRand.ar(0.13, 1.14, Dust.ar(2))) * 0.25 )}) 23 | ,0.1,{[0.04.rand,0.05.rand]},{[0.4.rand,0.3.rand]}) 24 | }.play(); 25 | ) -------------------------------------------------------------------------------- /sketch/toplap15/2019-01-29.tidal: -------------------------------------------------------------------------------- 1 | setcps "<0.45>" 2 | 3 | do 4 | -- x <- lazy' 2 inst1 5 | x <- lazy'' "tft" inst1 6 | d1 7 | $ degradeBy 0.8 8 | $ sometimesBy 0.2 (0.125<~) 9 | $ msvoC 0.125 10 | $ whenmod 4 3 (rot "<1 2>") 11 | $ sometimesBy 0.25 (|+| flangeL) 12 | $ x 13 | |+ mDefault 14 | |+ shape 0.2 15 | |> pan (range (-0.5) 0.5 rand) 16 | |< accelerate "{0.03 0.1 0.04 0.05 2 0 0.04}%13" 17 | |+ sustain "0.75 1.5 1 0.9" 18 | |+| nudge "[0 -0.02]*2" 19 | |+ n "[9 18]/2 ~ 49 39" 20 | |+ wah "0 0.02 0.01 0 0.3" 21 | 22 | 23 | d2 24 | $ slow 2 25 | $ whenmod 4 3 (slow 2) 26 | $ up "[5 5 0 0]/2" 27 | +| sound "[ml:5, [~ mwb:7 ~]/1.5]" 28 | |+ mGain 29 | |+ pipe "{6 [0,40] 0 0}%9" 30 | |+ room 0.2 31 | 32 | 33 | d3 34 | $ slow "<1 2>" 35 | $ degradeBy 0.6 36 | $ whenmod 4 3 (hurry 1.5) 37 | $ sometimesBy 0.3 ((off 0.075 (|+| up "5")) . (off 0.125 (|-| up 5))) 38 | $ often (stutWith 2 0.085 (|+| up 5)) 39 | $ whenmod 3 2 (within (0, 0.35) (slow 2)) 40 | $ rot "<1 0>" 41 | $ sound "" 42 | |+ up (scale "" ("0 .. <3 6 12 7 18>" + (slow 1.75 $ "{0 -5 3 2 7 -2}%13"))) 43 | |> nudge "[0 -0.02]*4" 44 | |+ mNudge 45 | |* speed "<0.5 1 0.8>" 46 | |+ rotPipe 3 47 | |+ room 0.2 48 | |+ n "18" 49 | |+ mGain 50 | 51 | d1 silence 52 | 53 | hush 54 | -------------------------------------------------------------------------------- /sketch/toplap15/2019-02-13.tidal: -------------------------------------------------------------------------------- 1 | setcps (125/120/2) 2 | 3 | d1 $ s "hh*4" |+ gain 0.0 4 | 5 | do 6 | x <- lazy'' "ft" $ inst2 7 | d1 8 | $ x 9 | -- |+ mfDel 10 | -- |+ squiz "{1 2 1 4 2}%3" 11 | |+ rotPipe 3 12 | |+ n "51" 13 | -- |+ mGain 14 | |+ mDefault 15 | |+ room 0.2 16 | 17 | hush 18 | 19 | -------------------------------------------------------------------------------- /sketch/unity_test.tidal: -------------------------------------------------------------------------------- 1 | v1 2 | $ thing "bottle*32 apple*32 banana*12" 3 | |+| x (scale (-0.85) 0.5 sine1) 4 | |+| y "0.8" 5 | |+| z (scale (-0.5) 0.5 saw) 6 | |+| duration "0.08" 7 | -- |+| twist "0.5" 8 | 9 | d1 10 | $ sound "hh*4" 11 | 12 | hush 13 | -------------------------------------------------------------------------------- /src/ExEffects.hs: -------------------------------------------------------------------------------- 1 | {-# LANGUAGE TypeSynonymInstances, FlexibleInstances, OverloadedStrings #-} 2 | -- ExEffects.hs 3 | 4 | module ExEffects where 5 | 6 | import ExParams 7 | 8 | import Sound.Tidal.Context 9 | 10 | 11 | slowPanS n = pan (slow n $ range 0.2 0.8 sine) 12 | slowPanR n = pan (slow n $ range 0.2 0.8 rand) 13 | panR = pan (range 0.2 0.8 $ rand) 14 | 15 | mGain = gain 1.25 16 | 17 | binshfR = binshf (choose [0.5, 0.75, 0.3, 0.8]) 18 | binshfNR = binshfN (choose [0.5, 0.75, 0.3, 0.8]) 19 | binshfS n = binshf (slow n $ range 0.0 0.7 sine) 20 | binfrzR = binfrz (choose [0,0,0,0,0, 0.75, 0.3, 1, 1]) 21 | slowSpeedR n = speed (slow n $ choose [1,1,1,1, 0.6666, 0.5, 2, -0.75, 4]) 22 | slowWahR n = wah (slow n $ choose [0,0,0,0,0, 0.1, 0.2, 0.5]) 23 | rotAccelerate n = accelerate (rot n "{0.03 0.1 0.04 0.05 2 0 0.04}%13") 24 | rotPipe n = pipe (rot n "{[0 ,40] 0 0 [0, 40] 0}") 25 | mNudge = nudge "[0 0.083 0.025]*3" 26 | disv n l = unit "s" |+ loop l |+ accelerate n 27 | 28 | mfDel = delayt (density "<0.3 1.75 0.5 2>" (range 1.0e-4 0.05 $ saw)) |+ delay (slow 2 (range 0.04 0.8 $ sine)) |+ delayfb "{0 0 0.04 0.1 0 0 0.8 0 01}%12" 29 | mfDel' pt = delayt (density "<0.3 1.75 0.5 2>" (range 1.0e-4 0.05 $ saw)) |+ delay (slow 2 (range 0.04 0.8 $ sine)) |+ delayfb pt 30 | 31 | flange f b = flangefq f |+ flangefb b 32 | flangeD = flange (density 0.75 $ "{0.5 0.0 1.2 1.4 0.8}%7") "{0.8 0.6 0.7}%4" 33 | flangeL = flange (density 0.5 $ "{0.1 0.2 0.0 0.4 0.3}%7") "{0.0 0.4 0.0 0.3 0.1}%7" 34 | 35 | 36 | mUp pt = up (foldl (+) "<0 1 2>" [pt, "[0 1]"]) 37 | 38 | -------------------------------------------------------------------------------- /src/ExModules.hs: -------------------------------------------------------------------------------- 1 | -- ExModules.hs 2 | 3 | module ExModules where 4 | 5 | import ExParams 6 | import ExEffects 7 | import Ex 8 | import ExInstruments 9 | import ExLazy 10 | 11 | -- import UnityOsc 12 | -- import WebGLOsc 13 | 14 | -- import MIDIClockShape 15 | 16 | -------------------------------------------------------------------------------- /src/ExParams.hs: -------------------------------------------------------------------------------- 1 | -- Extra Params.hs 2 | 3 | module ExParams where 4 | 5 | import Sound.Tidal.Pattern 6 | import Sound.Tidal.Params 7 | import Sound.Tidal.Context 8 | 9 | portaTime :: Pattern Double -> ControlPattern 10 | portaTime = pF "portaTime" 11 | 12 | -- Custom effects by moxus 13 | 14 | binscr :: Pattern Double -> ControlPattern 15 | binscr = pF "binscr" 16 | 17 | binfrz :: Pattern Double -> ControlPattern 18 | binfrz = pF "binfrz" 19 | 20 | binshf :: Pattern Double -> ControlPattern 21 | binshf = pF "binshf" 22 | 23 | binshfN :: Pattern Double -> ControlPattern 24 | binshfN = pF "binshfN" 25 | 26 | binsmr :: Pattern Double -> ControlPattern 27 | binsmr = pF "binsmr" 28 | 29 | brick :: Pattern Double -> ControlPattern 30 | brick = pF "brick" 31 | 32 | dist :: Pattern Double -> ControlPattern 33 | dist = pF "dist" 34 | 35 | wah :: Pattern Double -> ControlPattern 36 | wah = pF "wah" 37 | 38 | conv :: Pattern Double -> ControlPattern 39 | conv = pF "conv" 40 | 41 | convn :: Pattern Double -> ControlPattern 42 | convn = pF "convn" 43 | 44 | convp :: Pattern Double -> ControlPattern 45 | convp = pF "convp" 46 | 47 | modl :: Pattern Double -> ControlPattern 48 | modl = pF "mod" 49 | 50 | henon :: Pattern Double -> ControlPattern 51 | henon = pF "henon" 52 | 53 | flangefq :: Pattern Double -> ControlPattern 54 | flangefq = pF "flangefq" 55 | 56 | flangefb :: Pattern Double -> ControlPattern 57 | flangefb = pF "flangefb" 58 | 59 | chorus :: Pattern Double -> ControlPattern 60 | chorus = pF "chorus" 61 | 62 | pipe :: Pattern Int -> ControlPattern 63 | pipe = pI "pipe" 64 | 65 | 66 | 67 | -- this is exprimental 68 | -- out :: Pattern Int -> ParamPattern 69 | -- out = make' VI out_p 70 | -- out_p = I "out" (Just 0) 71 | -------------------------------------------------------------------------------- /test/Spec.hs: -------------------------------------------------------------------------------- 1 | main :: IO () 2 | main = putStrLn "Test suite not yet implemented" 3 | --------------------------------------------------------------------------------