1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
90s_glassatm (5) 90s_matrix (7) 90s_megafx (338) 90s_synatm (35) 90s_weird (13)
celtic_guitar80 (50) celtic_guitar85 (18)
do
setcps (85/60/4)
let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.05 0.45 saw)))
d1
$ g
$ "k . k(3,8)" # "jazz"
# gain 0.8
d2 $ g
$ fast 2
$ "~ s"
# "snare:29"
# gain 0.85
d3
$ g
$ slice 4 ("0 <~ 1> <0 2> < ~3>")
$ "c/2" # "celtic_guitar85:12"
# cut 4
# gain 0.8
d10 -- fx
once
$ "90s_megafx:132"
# cut 10
-- # begin 0.2
# gain 0.75
-- 2: Il etait un paysan mineur
-- 3: Puis un paysan majeur
-- 5: Majeur et ses amis
-- 4: Aigu ritournelle
-- 7: Aigu
-- 6: Resolu bass
-- CELTIC TECHNO
do
setcps (120/60/4)
let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.45 0.15 saw))
d1
$ g
$ mask "<t(1,4)!4 t(2,4)!3 t t!12 f!3 t(1,4) f!3 t(3,4,1) t!3 f>"
$ "k*4"
# "jazz" # gain 0.65
d3 $ g
$ mask "<f!3 [f t] f!3 [f t f t] t!24>"
$ fast "<1!7 2 1!4 2!4>"
$ "hh*[8 <8 [8 <[4 <8 4>]!3 16>]>]"
# gain 0.75
d4 $ g
$ whenmod 64 32 (>| n "<20!3 21 20!2 21 21 20 21 20 20 21 21 20 21>")
$ someCyclesBy "<0!32 1!32>" (>| n "4/2")
$ "celtic_guitar80"
# cut 4
# gain 0.67
d10 -- fx
$ "~ <~!7 90s_megafx:335>"
# gain 0.5
# room 0.8
# cut 10
-- ScratchPad: Play with scratch mixes!
once
$ "scratch_short"
# gain 0.7
# n "<0 1 0 2>"
# cut 2
once $ "scratch_med:4"
# gain 0.9
# cut 9
resetCycles