Created
March 3, 2021 11:47
-
-
Save crashingbooth/2395df9f16f04fd6cbce5b0dcfb6776b to your computer and use it in GitHub Desktop.
problem seqP code
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
setcps 0.53 | |
do | |
let p1 = lpfq (range 50 6000 (slow 4 sine)) 0.3 | |
let p2 = lpfq (range 50 6000 (slow 4 sine)) 0.6 | |
let p3 = lpfq (range 50 6000 (slow 3 saw)) (range 0.3 0.7 (slow 3.5 saw)) | |
let shift = (|+ up "<0!4 -3!4>") | |
let d10_0 = si (hurry "t") | |
$ inevery 8 7 (jux press) | |
$ s "wash*8" | |
# n (run 8) | |
# revb | |
# gain 0.9 | |
let d10_1 = onoff 7 1 | |
$ si (hurry "<t h>") | |
$ inevery 8 7 (jux press) | |
$ s "wash*8" | |
# n (run 8) | |
# revb | |
#gain 0.9 | |
let d11_0 = onoff 7 1 | |
$ si (hurry "<t h>") | |
$ inevery 8 7 (jux press) | |
$ s "wash*8" | |
# n (run 8) | |
# revb | |
#gain 0.9 | |
let d13_0 = onoff 7 1 | |
$ si (hurry "<t>") | |
$ ply "{1!4 4 1}%4" | |
$ degradeBy 0.7 | |
$ inevery 8 7 (jux press) | |
$ s "wash*8" | |
# n (run 8) | |
# revb | |
let d20_1 = si (hurry "<h>") | |
$ ply "{1!4 2}%4" | |
$ k "t(<7 5>,16)" | |
$ s "van" | |
# nCountTo "j" 8 | |
# leg 0.8 | |
let d21_0 = onoff 3 1 | |
$ si (hurry "<h>") | |
$ ply "{1!4 2}%4" | |
$ k "t(<7 5>,16)" | |
$ s "van" | |
# nCountTo "j" 8 | |
# leg 0.8 | |
let d21_2 = onoff 3 1 | |
$ si (hurry "<t>") | |
$ ply "{1!4 2}%4" | |
$ k "t(<7 11>,16)" | |
$ s "van" | |
# nCountTo "j" 8 | |
# leg 0.8 | |
let d23_0 = onoff 3 1 | |
$ si (hurry "<t>") | |
$ ply "{1!4 4}%4" | |
$ degradeBy 0.6 | |
$ k "t(<7 11>,16)" | |
$ s "van" | |
# nCountTo "j" 8 | |
# leg 0.8 | |
let d31_0 = shift | |
$ jux (hurry "2") | |
$ every 3 rev | |
$ k "1<0 [11]>01 110<0 [11]>" | |
$ striate' 16 (range (1/64) (1/8) (slow 3 saw)) | |
$ s "cbpad:2" # leg 1 | |
# revb | |
let d31_1 = shift | |
-- $ k (every 2 inv "1101 1101") | |
$ inevery 8 7 (juxBy 0.2 (hurry "h")) | |
$ jux (hurry "2") | |
$ while "1101 1101" (|+ up "[-12]") | |
$ every 3 rev | |
$ k "1<0 [11]>01 110<0 [11]>" | |
$ striate' 16 (range (1/64) (1/8) (slow 3 saw)) | |
$ s "cbpad:2" # leg 1 | |
# coarse (4 * (segment 16 (slow 4 saw))) | |
# revb | |
let d31_2 = shift | |
$ k (every 2 inv "1101 1011") | |
$ inevery 8 7 (juxBy 0.2 (hurry "h")) | |
$ jux (hurry "2") | |
$ while "1101 1101" (|+ up "[-12]") | |
$ every 3 rev | |
$ k "1<0 [11]>01 110<0 [11]>" | |
$ striate' 16 (range (1/64) (1/8) (slow 3 saw)) | |
$ s "cbpad:2" # leg 1 | |
# coarse (4 * (segment 16 (slow 4 saw))) | |
# revb | |
d1 $ qtrigger 1 $ seqP [ | |
(0,4, d10_0), | |
(4,8, d10_1), | |
(8,24, d11_0), | |
(24,32, d11_0), | |
(32,40, d11_0 # p1# gain 0.85), | |
(40,48, d11_0 # p2 # gain 0.85), | |
(48,64, d13_0 # p2 # gain 0.85) | |
] | |
d2 $ qtrigger 2 $ seqP [ | |
(4, 8, d20_1), | |
(8,16, d21_0), | |
(24,32, d21_0), | |
(32,40, d21_0 # p1# gain 0.83), | |
(40,48, d21_2 # p2# gain 0.83), | |
(48,64, d23_0 # p2 # gain 0.83) | |
] | |
d3 $ qtrigger 3 $ seqP [ | |
(8,16, d31_0), | |
(16,24, (|+ up "5") $ while "0<0 1> <1 0>1" (# silence) d31_0 ), | |
(24,32, d31_1), | |
(32,40,(|+ up "5") $ d31_1), | |
(40,48, d31_2), | |
(48,56, (|+ up "5") $ d31_2), | |
(56,64, d31_2), | |
(64,72, (|+ up "5") $ while "0000" (# silence) d31_2) | |
] |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment