Improved readability

master
Leo Coogan 4 years ago
parent 91833914d6
commit f2f1bf6470

@ -1,31 +1,32 @@
-- Coogan, Leonard : Untitled -- Coogan, Leonard : Untitled
-- First "song" with Tidal/SuperCollider! -- First "song" with Tidal/SuperCollider!
-- First pattern, respectively -- 808 cowbell pattern
d1 $ n (slow 2 $ fmap (*7) $ run 8) d1 $ n (slow 2 $ fmap (*7) $ run 8)
# s "808" # s "808"
# decay "[1 0.2]/4" # decay "[1 0.2]/4"
# voice "[0.5 0]/8" # voice "[0.5 0]/8"
# speed (sine + 0.8) # speed (sine + 0.8)
d1 $ s "hush" -- Chopped high-hats
d2 d2
$ chop "<32 128 32 16>" $ chop "<32 128 32 16>"
$ s "[~ hh]*8" $ s "[~ hh]*8"
-- Kick
d3 d3
$ jux rev $ jux rev
$ chop "<32 64 16>" $ chop "<32 64 16>"
$ s "[bd:4 bd:3]*2" $ s "[bd:4 bd:3]*2"
# gain "0.95" # gain "0.95"
-- High tom
d4 d4
$ chop 16 $ chop 16
$ s "[ht]" $ s "[ht]"
-- # gain (sine + 1.0) -- # gain (sine + 1.0)
-- Bassline
d5 d5
$ jux (rev) $ jux (rev)
$ chunk 4 (fast 2 . (|- n 12)) $ chunk 4 (fast 2 . (|- n 12))
@ -40,29 +41,34 @@ d5
# sustain 0.5 # sustain 0.5
# legato 2 # legato 2
-- Handclaps
d6 d6
-- $ jux (rev . (|*| speed 2)) $ every 3 (rev . chop 8) -- $ jux (rev . (|*| speed 2)) $ every 3 (rev . chop 8)
$ s "cp:1 cp:2" $ s "cp:1 cp:2"
-- $ s "cp:1 cp:2(3,8, <0 2 3>)" -- $ s "cp:1 cp:2(3,8, <0 2 3>)"
-- # gain (sine + 0.8) -- # gain (sine + 0.8)
-- Jazz full
xfade "jz" $ s "jazz*8" # n (run 12) -- switch to 8 xfade "jz" $ s "jazz*8" # n (run 12) -- switch to 8
xfade "jz" $ s "hush" xfade "jz" $ s "hush" -- silencio!
-- Short awful synth
p "lead" p "lead"
$ s "psin" $ s "psin"
# n (sine + 10) # n (sine + 10)
# gain 0.7 # gain 0.7
# octave 2
p "lead" $ s "hush" p "lead" $ s "hush" -- okei, now shut it up
-- Ambient synth
d7 $ n (arp "<down up converge>" "<a'7sus4'8>") d7 $ n (arp "<down up converge>" "<a'7sus4'8>")
# s "pad invaders pad pad" # s "pad invaders pad pad"
# octave 2 # octave 2
-- # gain "0.8" -- # gain "0.8"
# bpf (sine + 150) # bpf (sine + 150)
# sustain "<0.3 0.5>" # sustain "<0.3 0.5>"
d7 $ s "hush"