Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
T
Tidal
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
PLN
Tidal
Commits
0350ff5a
Unverified
Commit
0350ff5a
authored
3 years ago
by
PLN
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
etapes
parent
34f1287c
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
80 additions
and
7 deletions
+80
-7
elephunk.tidal
live/midi/nova/fusion/elephunk.tidal
+6
-7
etapes.tidal
live/midi/nova/fusion/etapes.tidal
+74
-0
No files found.
live/midi/nova/fusion/elephunk.tidal
View file @
0350ff5a
import Sound.Tidal.ParVagues.Control
do
-- resetCycles
-- setcps (92/60/4)
let gain p = gain (1.5 * p)
let gFadeIntro = someCyclesBy "<t!8 f!56>" (|* gain (slow 8 $ range 0 1 saw))
resetCycles
setcps (92/60/4)
let patFunk = "ds gf f <bf4!3 bf>"
let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw))
let gPont = whenmod 64 32 (mask "<f!6 t!26>")
let g =
(gDJF)
d1 $ g $ g
FadeIntro $ g
Pont
let g =
gDJF
d1 $ g $ gPont
$ mask "<f!4 t!60>"
$ "[bd,jazz]*4" # room 0.1
# gain 0.45
d2 $ g $ gFadeIntro $ gPont $ mask "<t(1,2)!4 t!60>"
$ "~ c ~ c" # "[clap]" # gain 0.4
d3 $ g $ gPont
...
...
This diff is collapsed.
Click to expand it.
live/midi/nova/fusion/etapes.tidal
0 → 100644
View file @
0350ff5a
do
setcps (120/60/4)
let g = midiDJF "^49" 200 9800 0 6000
let modIndex = pF "modIndex"
d1 $ g
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k ~ k <~!3 [~ k]>")
$ "[cpu2,jazz]"
# midiG' "^78" 0 1.5
# room 0.1 # sz 0.2 # dry 1
# release (0.24 + (slow 4 perlin)/4)
d2 $ g
$ fast 4
"~ hh*<1 1 <2 [2 1] [1 2] 1> 1>"
# midiG "^79"
d3 $ g
$ note (
"<df4 a3>(<3!8 4!8>,8,<0!6 2 2>) <b3!3 e4>*<1 1 1 2 2 2 4 [4 8]>"
- 12
)
# "bassWarsaw"
# pan 0.3
# crush (range 10 1.5 "^53")
# midiG' "^81" 0 1.5
d4
$ g
$ midiOn "^44" (slow 2)
$ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
$ midiOn "^41" (<| "k*4")
$ loopAt 1
$ slice 8 ("0 1 2 3 4 5 6 7"
|+| "0 . 0 0*<1!6 2 4>" -- Surplus /8
- "0 . <0!3 4>" -- Lag /4
)
$ "breaks125"
# midiG "^80"
d5
$ g
$ midiOff "^41" (mask "t(<2 4 8 <8 16>>,16)")
$ midiOn "^58" ( -- Arps
superimpose (
struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" .
arp "up . <up up down speedupdown>"
. (|+ note "12 0")
))
$ note (
"<df4 a3> <b3!3 e4>" + "12*[4 8]"
+ "<c'maj!2 c'min c'maj'>" -- Accords!
+ "<0!3 12> <12!3 0>(3,8)"
+ "[0,12]"
- 24
)
# "FMRhodes1"
# modIndex 5
# midiG "^82"
# room 0.5 # sz 0.8
# hpq (range 0 0.5 "^34")
# crush (range 10 4.5 "^54")
d8 -- Hold on?
$ g
$ fix (# pan 0.62) (cut 81)
$ whenmod 16 12 (midiOn "^59" $ scramble 4)
$ whenmod 64 16 (chop 16)
$ mask "<t f!3 t f!3 t f!3 t!4>"
$ "daft"
# cut "[8|8|8|8|81]"
# room 0.7
# midiG "^83"
# pan 0.8
# crush (range 10 4.5 "^55")
# hpq 0.5
# sz 0.7
once $ "daft" # gain 0.5
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment