You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
181 lines
2.1 KiB
Plaintext
181 lines
2.1 KiB
Plaintext
-- Aleph, fm'latghor
|
|
-- tämä on hyvä.....
|
|
-- Shabbat shalom!!!
|
|
-- https://fmlatghor.xyz
|
|
|
|
d1
|
|
$chop "<2 4 8>"
|
|
-- $chop "<2 4 8>"
|
|
$n "[a6 a7]*4"
|
|
#s "newnotes" -- try "yeah"
|
|
-- #gain "1.3"
|
|
|
|
d3
|
|
$n "c1 d0 c4"
|
|
#s "tink"
|
|
#octave "2 3 4"
|
|
#gain "1.2"
|
|
|
|
d4
|
|
$n "c3 d3 a'min"
|
|
#s "tink"
|
|
#octave 2
|
|
#gain "1.2"
|
|
|
|
|
|
d3
|
|
$n "[a'min ~ ~ d'min]*2" -- change to 80 and hell breaks loose
|
|
#s "tink"
|
|
#octave "3 4 "
|
|
#gain 0.8
|
|
|
|
d3
|
|
$n "[e9'min e'min]*6"
|
|
#s "tink"
|
|
#octave 3
|
|
#gain (sine + 0.5)
|
|
-- #gain 1.2
|
|
|
|
xfade "tonix"
|
|
$n "[a'min d'min e'min]*18" -- 16 vai 18
|
|
#s "newnotes"
|
|
#octave "3 4"
|
|
#gain 0.6
|
|
|
|
|
|
xfade "tonix" $s "hush"
|
|
|
|
xfade "tonix"
|
|
$n "[f'min e'min a'min]" -- 16 vai 18
|
|
#s "newnotes"
|
|
#octave "3 4"
|
|
#gain 0.8
|
|
|
|
d3
|
|
$jux (rev)
|
|
$n "[c1 e'min c4 c0 d0 c8]/8"
|
|
#s "tink"
|
|
#octave 3
|
|
#speed "0.5"
|
|
#gain "1.5"
|
|
|
|
d4
|
|
$jux (rev)
|
|
$n "[c1 ~ a3 a4'min]/2"
|
|
#s "tink"
|
|
#octave "[2 1]*3"
|
|
#gain "1.2"
|
|
|
|
d2 $stack [
|
|
s "dr2:9*2",
|
|
s "dr2:3",
|
|
s "clak*2"
|
|
]
|
|
|
|
d2 $stack [
|
|
s "dr2:9*2",
|
|
s "dr2:3",
|
|
s "clak*8 clak*2 clak*4"
|
|
]
|
|
|
|
d2 $stack [
|
|
s "clak([5,8]/1,4) click"
|
|
--,s "dr2:9*4"
|
|
--,s "dr2:3"
|
|
]
|
|
|
|
d2 $stack [
|
|
s "bd dr2:9:9*4"
|
|
]
|
|
|
|
d6
|
|
$s "glitch*2 glitch*4 glitch*16"
|
|
#gain "0.8 0.5"
|
|
|
|
|
|
d7 $n "c8 c3 d4 ds4" #s "tink"
|
|
#octave "3"
|
|
#gain "1.2"
|
|
#lpf "8000"
|
|
|
|
|
|
d9 $stack [
|
|
s "sd"
|
|
,s "hh*8"
|
|
]
|
|
|
|
|
|
|
|
-- Dommune, fm'latghor
|
|
|
|
d1
|
|
$slow 2
|
|
$n "{cs8*80 25*32 3*74 4*16 2*8}%5"
|
|
|*| speed "[-1.0, 1.0]"
|
|
#s "poly"
|
|
#octave 3
|
|
#sus 0.2
|
|
#gain 1.2
|
|
|
|
d2 $chop 8 $s "butter" #lpf 4000 #speed 2
|
|
|
|
-- ei hyvä
|
|
-- d2 $s "foo:3" #speed 0.8 #gain 1.2
|
|
|
|
d3 $n "[6 8 2 8]*4"
|
|
#s "sin"
|
|
#octave "7 5 6 5"
|
|
#room 0.5
|
|
#gain 0.8
|
|
#lpf "8000 3000"
|
|
|
|
|
|
|
|
-- brx
|
|
|
|
d1 $swingBy "1/3" 2 $chop 32 $stack [
|
|
s "butter"
|
|
,s "~butter ~"
|
|
]
|
|
|
|
d3 $stack [
|
|
s "909 ~"
|
|
,s "hh*8"
|
|
,s "~ sd*2"
|
|
,s "bd ~ bd*3"
|
|
]
|
|
|
|
d2 $n "0 2 3 6 8 20"
|
|
#s "poly"
|
|
-- #legato "3 1"
|
|
#room 0.6
|
|
#octave "3*2 6 5*2"
|
|
|
|
d4 $n "a'min b'min*2"
|
|
#s "newnotes"
|
|
#room 1
|
|
#octave "3 4"
|
|
|
|
d5 $stack [
|
|
s "glitch2*16"
|
|
,s "~ click*3"
|
|
]
|
|
#gain "1.2"
|
|
|
|
d6 $stack [
|
|
n "3 5 2 8 20 1 20 18 10 3"
|
|
,n "8 9 2 3 a'min*2 c'min"
|
|
]
|
|
#s "tink"
|
|
#octave "4 3 2"
|
|
#room 2
|
|
#legato "1"
|
|
-- #gain "1.2"
|
|
|
|
d8 $stack [
|
|
s "909*12"
|
|
,s "sd*3"
|
|
,s "bd*6"
|
|
]
|
|
#gain 1.4
|