Created
January 27, 2019 18:42
-
-
Save err0r500/216e63b06071e7fd951c33b4d9d1fb10 to your computer and use it in GitHub Desktop.
tidal
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
| do | |
| let s1 = | |
| sometimes (degradeBy 0.9) $ | |
| sound "sn sn ~ ~ sn*3, ~ ~ sn*3/3 ~ ~" | |
| let s2 = | |
| rarely (jux (iter 4)) $ | |
| sometimes rev $ | |
| rarely (striate 3) $ | |
| rarely (striate 40) $ | |
| spread ($) [ | |
| rev, | |
| slow 10, | |
| striate 30, | |
| (# speed "0.8") | |
| ] $ | |
| randcat [ | |
| sound "~ bass:3 ~ ~", | |
| sound "~ bass:2*3 ~ ~" | |
| ] | |
| # speed rand / 10 | |
| let s3s = | |
| randcat [ | |
| sound "bd sn sn sn*3", | |
| sound "bd bd*20", | |
| sound "bd sn sn sn*4", | |
| sound "bd sn*30 sn sn*7" | |
| ] | |
| let s3 = | |
| sometimes (# lpq (randcat ["0.6", "0.3", "0.5", "0"])) $ | |
| sometimes (# cutoff (randcat ["400", "900", "1500"])) $ | |
| s3s |+| vowel "a i u" | |
| # pan rand | |
| # speed rand | |
| let s4 = | |
| randslice 3 $ | |
| s3s | |
| # pan (cosine * rand) | |
| # speed cosine | |
| let s5 = | |
| n "2 3*10" |+| n "4 5 6" | |
| # sound "drum" | |
| d1 $ stack [ | |
| s1, | |
| s2, | |
| s3, | |
| s4, | |
| s5, | |
| sound "" | |
| ] | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment