feat: 101 few days

parent 8c88a14b
d3 $ sound "808:2 808:3 ~ ~"
d4 $ sound "808:4 ~ 808:4 ~ 808:4 808:4 808:4 ~"
d1 $ sound "808:4*5 808:60 808:60"
d1 $ silence
hush
hush
setcps 0.5
-- Alphaline
d1 $ (fast 2)
$ s "alphabet(3,8)" # n (irand 26)
# gain 0.75
-- Birdline
d4 $ every 4 (slow 4)
$ s "~ birds(13, 24, 5)" # n (irand 10)
# gain 0.5
-- Synth melody
d2 $ s "~ [arpy(4,5,6)]"
# note "<1 <1,3> <1,3,5> <1,3,5,8>>"
# gain 0.8
-- Kick line
d3 $ s "808bd*4 <sn [cp ~ cp ~] sn cp*3>"
# n (irand 2)
hush
setcps 0.5
-- Bruit -> clap : tt tt tt tt tt cp
d1 $ degradeBy "0 0.25" $ "noise(5,8,2) cp" # note "[0 .. 7 0]" # gain "1 0.8"
-- Glitchs chaloupés
d2 $ s "glitch(5,8)" # n (irand 8) # gain 0.8
-- Arpèges électriques
d3 $ fast 2 $ note "6 <<2 9> 4>"
# s "flick"
# gain 0.25
-- Arpèges mandoline
d4 $ jux rev $ fast 2
$ n (off 0.125 (+|12) $ off (choose [0.125,0.25]) (|+7) "6*2 <<2 9> 4>")
# s "supermandolin"
# legato 4
# gain 0.6
-- Voix binaire
d6 $ degradeBy (rand / 4) $ s "numbers" # n (irand 2) # rev 0.85 # shape 0.7
# gain 0.5
-- Hardcore noisekick
d7 $ fast 4 $ s "<bd if if if*2>" # gain (choose [0.3,0.6])
hush
-- 8-bit blues
hush
setcps 1.1
hush
-- Baseline grid
d1 $ sound "<<arpy:1 arpy:2 arpy:3 arpy:1> arpy:2 arpy:1 <arpy:1 arpy:1 arpy:3 arpy:3>>"
-- Base rythm
d2 $ sound "[bd <sn:2 sn:2 sn:3*3>]/3 [bd sn*1 bd*1]/3"
d2 $ sound "[bd sn(3,2)]" # gain "1 0.5 1.5"
-- Gammes?
-- d3 $ sound "808:6"
-- # gain "1 0.8 0.8 0.8 1" to add emphasis?
-- Kanye's Say You Will
setcps 0.3
hush
-- Drums
d1 $ s "~ sn:1 ~ sn:1"
d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
d1 $ s "808bd:12"
d1 $ s "[808lc 808lc/2 ~]"
d1 $ s "808mc*2"
d2 $ s "<808bd 808cy 808hc 808ht 808lc 808lt 808mc 808mt 808oh 808sd 909 ~ ~>"
--samples:
-- 808 (6) 808bd (25) 808cy (25) 808hc (5) 808ht (5) 808lc (5) 808lt (5) 808mc (5) 808mt (5) 808oh (5) 808sd (25) 909 (1) ab (12) ade (10) ades2 (9) ades3 (7) ades4 (6) alex (2) alphabet (26) amencutup (32) armora (7) arp (2) arpy (11) auto (11) baa (7) baa2 (7) bass (4) bass0 (3) bass1 (30) bass2 (5) bass3 (11) bassdm (24) bassfoo (3) battles (2) bd (24) bend (4) bev (2) bin (2) birds (10) birds3 (19) bleep (13) blip (2) blue (2) bottle (13) breaks125 (2) breaks152 (1) breaks157 (1) breaks165 (1) breath (1) bubble (8) can (14) casio (3) cb (1) cc (6) chin (4) circus (3) clak (2) click (4) clubkick (5) co (4) coins (1) control (2) cosmicg (15) cp (2) cr (6) crow (4) d (4) db (13) diphone (38) diphone2 (12) dist (16) dork2 (4) dorkbot (2) dr (42) dr2 (6) dr55 (4) dr_few (8) drum (6) drumtraks (13) e (8) east (9) electro1 (13) em2 (6) erk (1) f (1) feel (7) feelfx (8) fest (1) fire (1) flick (17) fm (17) foo (27) future (17) gab (10) gabba (4) gabbaloud (4) gabbalouder (4) glasstap (3) glitch (8) glitch2 (8) gretsch (24) gtr (3) h (7) hand (17) hardcore (12) hardkick (6) haw (6) hc (6) hh (13) hh27 (13) hit (6) hmm (1) ho (6) hoover (6) house (8) ht (16) if (5) ifdrums (3) incoming (8) industrial (32) insect (3) invaders (18) jazz (8) jungbass (20) jungle (13) juno (12) jvbass (13) kicklinn (1) koy (2) kurt (7) latibro (8) led (1) less (4) lighter (33) linnhats (6) lt (16) made (7) made2 (1) mash (2) mash2 (4) metal (10) miniyeah (4) moan (1) monsterb (6) moog (7) mouth (15) mp3 (4) msg (9) mt (16) mute (28) newnotes (15) noise (1) noise2 (8) notes (15) numbers (9) oc (4) odx (15) off (1) outdoor (6) pad (3) padlong (1) pebbles (1) perc (6) peri (15) pluck (17) popkick (10) print (11) proc (2) procshort (8) psr (30) rave (8) rave2 (4) ravemono (2) realclaps (4) reverbkick (1) rm (2) rs (1) sax (22) sd (2) seawolf (3) sequential (8) sf (18) sheffield (1) short (5) sid (12) sine (6) sitar (8) sn (52) space (18) speakspell (12) speech (7) speechless (10) speedupdown (9) stab (23) stomp (10) subroc3d (11) sugar (2) sundance (6) tabla (26) tabla2 (46) tablex (3) tacscan (22) tech (13) techno (7) tink (5) tok (4) toys (13) trump (11) ul (10) ulgab (5) uxay (3) v (6) voodoo (5) wind (10) wobble (1) world (3) xmas (1) yeah (31)
// Install requirements
// Quarks.checkForUpdates({Quarks.install("SuperDirt", "v1.1.1"); thisProcess.recompile()})
// https://github.com/supercollider/supercollider/wiki/Installing-SuperCollider-on-Ubuntu-systems
// Enter the following into the blank text window and run it. You should hear a buzzing sound.
// {VOSIM.ar(Impulse.ar(100), 500, 3, 0.99)}.play
// When in doubt
Server.killAll
// Before you can begin, you have to run the SuperCollider server by entering
s.boot
// The simplest sound you can generate with SuperCollider is an unfiltered and unmodulated wave, and the shortest way to do that is with an unnamed function
{SinOsc.ar(261.26, 0, 1.7)}.play;
\ No newline at end of file
setcps 0.1
solo 2
hush
d1 $ s "<bd:14([3,5],8) <cp bd*2>>"
d2 $ s "<amencutup*8>" # n (run 16)
d1 $ s "dr_few bd(3,5) sn"
d2 $ s "superpiano"
d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"
d2 $ s "alphabet*2" # n "24 20"
# shape 0.2 # gain 0.5
d3 $ n "[0 5 <9,16> <5,12>]*2"
# s "superpiano" # sustain 0.3
d1 $ s "~ sn:1 ~ sn:1"
d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
# s "supermandolin"
# gain 0.85
d1 $ s "[<cp>](5,8)"
d2 $ s "[808cy*24]/3 ~" # n "0 .. 23" # gain "1.5"
d2 $ slow 4 $ chop "1" $ s "bev cp*4"
d1 $ jux rev $ n
(
off 0.125 (|+ 12)
$ off 0.125 (|+ 7)
"<c*2 a(3,8) f(3,8,2) e*2>")
# s "notes"
# gain 0.5
-- # legato (0.5 + (rand / 2))
-- Pattern add
-- Structure 5:
-- *1*
-- 4
-- 3
-- 2
-- 0
-- "808bd" Bass drum
-- 0 dry drum
-- 1 loud, bouncy bass
-- 2 semi-dry drum
-- 3 semi-dry bouncy drum
-- 4 loud, longer bounce bass
-- 4 loud bass
-- "808cy" Cymbal
-- 0-8: More and more echo
-- 9-16: Single, then several with echo
-- 9-16: Several until one with long echo
-- Structure 5:
--- 808lc Lourd Carillon (rond)
--- 808mc Milieu Carillon (rond)
--- 808hc Haut Carillon (rond)
--- 808lt Lourd Tuyau (tac)
--- 808ht Milieu Tuyau (tac)
--- 808ht Haut Tuyau (tac)
--- 808oh Cymbale bruitée
---- 0: sec
---- 1: 1sec
---- 1: 0.5sec, sourdiné
---- 2-4: aigu-grave
-- 808sd Cymbale + drum
--- 0:3 bas
--- 4:7 haut
-- bass Basse métallique
--- 0:4 notes harmoniques
-- bassdm Drum bas et roulant
-- ade Vibration genre post-gong
-- co Cymbale couverte
--- 0 tic-tshii
--- 1 tintshi
--- 2 tshii-tic
--- 3 tshii-
-- dr Drums variés
-- Playground
hush
setcps 0.5
d1 $ "bd"
d1 $ s "[<bd <bd,cp>> [sn*4] ~ sn]"
d2 $ up (run 10) # s "arpy" # gain 0.7
d3 $ degradeBy 0.25 $ s "kurt*2" # shape 0.9 # gain 0.5 # n (irand 6) # vowel "a i e o u"
d4 $ s "east*4"
solo 4
solo 2
solo 1
hush
-- iter: split and rotate N sections
d1 $ s "<808bd:5 808bd:6 808bd:7 808bd:6>*2" -- loud bass
d2 $ iter 8 $ s "hh*8 ~ hh*4 [cp*2 cp]"
d2 $ s "cp(3, 8)" # n "0 .. 9"
d1 $ s "[808oh(5,8)]*2" # n "0 .. 5"
d5 $ degradeBy 0.2 $ s "arpy(11,16)" # n "[1 3 5]"
d3 $ rev
d6 "<sn, bd:2*4>"
d2 $ sometimes (superimpose (0.125~>)) $ "industrial(13,16)" # n (irand 3)
d1 $ iter 4 $ s "[bd ~ bd <bd [bd bd*2?]>]" # n 2 # shape 0.9
d3 $ s "cp(2,4,1)"
d4 $ s "hh*16?"
d5 $ superimpose (choose [0.125, 0.25] <~) $
degradeBy 0.15 $
s "arpy(<11 13 9 7 15>, 16, <0 .. 9>)" # note "[0,2,5]"
unsolo 5
d1 $ sound "<bd*4>" # gain 4
d1 $ superimpose (# speed 0.5) $ striate' 128 0.125 $ s "kurt*4" # n (irand 6) # vowel "a e i o u" # gain 0.9
d2 $ s "drum*4" # gain 1.3
d1 $ sound "[nd ~ bd ~ bd] [~ bd] bd [~ bd] bd bd ~"
d1 $ sound "bd bd bd ~ bd*2 ~ bd*2 ~ bd ~# "
d2 (sound "arpy:1")
solo 1
d1 $ sound "<[bd*4 sn] bd>"
hush
d2 $
d1 $ up "<[1, 5, 8], [3, 6, 8]>" # sound "arpy" -- todo accord parfait
d1 $ sound "arpy(8,8)" # note "2 .. 10"
d1 $ every 2 (|- note "2") $ sound "arpy*4" |> note "10"
-- $ every 2 (|+ up "5") $ sound "arpy*4" |> note "0 2 4 5"
d1 $ sound "arpy(3,2)"
d2 $ sound "bd*4 <sn:3*2 sn:2>/2"
d1 $ every 4 (fast 2) $ every 4 (rev) $ sound "arpy:1 arpy:2 arpy:3 arpy:4"
d2 $ sound "[808bd:1 <808oh [808oh 808oh]>]"
d2 $ sound "[hh hh <bd:2 bd>]"
d3 $ sound "[bd:2 arpy:4 <arpy:2, arpy:10>]"
hush
d2 $ "[bd bd:2*4]"
solo 2
hush
setcps 0.65
d1 $ n
(
-- off 0.1 (|+ 10)
"<c d e f g a b c6>"
) # s "superpiano"
d1 $ n "0 2 4 5 7 9 11 12" -- gamme pentatonique
d1 $ n "0 2 3 4 5 6 7 9 10 11 12" -- gamme du blues
d1 $ n "[0 3 5 7 12]*2" # s "superpiano"
d1
$ every (irand 2) (off 0.125 (|> 0)) -- double 50% des notes
$ every 2 (rev) -- inverse une séquence sur deux
$ n "<<0(3,8) [0 3 5 7]> [12 ~ 5 3]>" |+ (choose [0,2])
|- 7 -- octave
# s "superpiano"
-- percus https://www.freedrumlessons.com/drum-lessons/jazz-drum-beats.php 1)
-- légende https://i2.wp.com/www.drummingbasics.com/wp-content/uploads/2018/03/drum-notation.jpg
d2 $ s "<[[cr,bd] sn bd [hh*2 ~ hh]] [sn cr,mt cr,bd sn] [bd cr,mt,hh*2 sn mt,cr]>"
# gain 0.8
-- ligne de basse au feeling
d3 $ note "<0 3(3,8) [5 ~ 3*2 5?]>"
# s "bass3"
-- impro synthé
d6 $ degrade $ s "juno*8" # n (irand 2)
# note (choose [0,2,3,5])
# gain 0.6
-- kurt!
d5 $ degrade $ s "kurt*8" # n (choose [4,5])
# note (choose [0,3,5])
unsolo 5
hush
setcps 0.5
d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"
d2 $ s "<birds glitch*2>" # n (irand 4)
d3 $ n "<[a5,cs5,e5,g5]*3 [d5,fs5,g5,a5]>"
# s "supersaw"
# gain 0.5
d4 $ jux rev $ every 4 rev $ n (off 0.125 (+5) "<a5,cs5 a5>")
# s "superpiano"
# gain 0.75
d5 $ n (off 0.125 (+7) "<a5,cs5 a5>")
# s "supersiren"
# gain "<0*3 0.5>"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment