kindohm

var vscode = require('vscode');

class PostWindowContentProvider {
    constructor() {
        this._onDidChange = new vscode.EventEmitter();
    }
    provideTextDocumentContent(uri) {
        return 'Hi I am some content.';
    }
    get onDidChange() {

kindohm

do
  d1 $ sound "bd sn"
    |=| speed (slow 3 sine1)
    |=| pan (slow 5 saw1)
  d2 $ sound "arpy*8?"
    |=| shape (density 3 saw1)
    

kindohm

bps (220/120)

-- drums
r1 $ stack [
rep 6 $ midinote "0/2",
(0.25 <~) $ rep 8 $ midinote "3/3",
slow 2 $ (0.25 ~>) $ rep 11 $ midinote "1/4",
foldEvery [2,3,4] (0.25 ~>) $ midinote "2([5 3 7]/3,8)" ]

-- synth

kindohm

bps (170/120)

let one p = stut' 1 (0.125/2) (|*| gain "1") $ p
    rep' n p = stut' (n-1) (0.125/2*3) (|*| gain "1") $ p
    shift p = (1024 <~)  p
    shift' x p = (x <~) p

r1 $
whenmod 20 18 (foldEvery [2,3] (slow (4/3))) $
whenmod 16 13 (iter 8) $

kindohm

bps (150/120)

let prog = (|+| note "{0 0 0 2 2}%1")
    rep' n p = stut' (n-1) (0.125/2*3) (|*| gain "1") $ p
    
-- Erebus, oscillators tuned to a 5th
erebus $ prog $ whenmod 32 22 (foldEvery [2,3,4] (0.25 <~)) $
(|+| note (choose [0,-12,12,24])) $ (|+| note "-7") $ note "{0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ ~}%16"
|=| modwheel (rand)

kindohm

Time  | Artist                | Title
=================================================================================
00:00 | Second Woman          | 100407jd7
04:06 | Two Human             | Two Human
07:12 | Joanne                | fa 1l
10:02 | Kindohm               | 002
14:07 | Mathtrap              | 25 34 38 28 36 30 44 22 40
16:39 | Bataille Solaire      | Hyper Drive
20:12 | Grant Muller          | Black Cat, White Pause 
22:30 | Calum Gunn            | Fixed

kindohm

let rip a b p = within (0.25, 0.75) (slow 2 . rev . stut 8 a b) p
    rip' a b c d e p = within (a, b) (slow 2 . rev . stut c d e) p
    spike p = ((|+| delaytime (scale 0.001 0.3 $ slow 7.1 sine1)) . (|+| delayfeedback (scale 0.7 0.99 $ slow 6.71 sine1))) $ p
    spike' p = (|+| delay "0.3") $ spike $ p
    ghost'' a f p = superimpose (((a/2 + a*2) ~>) . f) $ superimpose (((a + a/2) ~>) . f) $ p
    ghost' a p = ghost'' a ((|*| gain "0.7") . (|=| end "0.2") . (|*| speed "1.25")) p
    ghost p = ghost' 0.125 p
    jit start amount p = within (start, (start + 0.5)) (trunc (amount)) p
    gtfo p = (const $ sound "~") p
    shift p = (1024 <~)  p

kindohm

module Sound.Tidal.MidiRack3 where

import Sound.Tidal.Params
import Sound.Tidal.MIDI.Control

(perf1, perf1_p) = pF "perf1" (Just 0.5)
(perf2, perf2_p) = pF "perf2" (Just 0.5)
(tun, tun_p) = pF "tun" (Just 0.5)

rackController :: ControllerShape

kindohm

module Sound.Tidal.MidiRack3 where

import Sound.Tidal.Params
import Sound.Tidal.MIDI.Control

rackController :: ControllerShape
rackController = ControllerShape { params = [
                            mCC kvoice_p 40,
                            mCC kdetune_p 42
                          ],

kindohm

{
      "origin" : ["d1 $#prestack# stack #startbracket# \n  #stackitems# #endbracket# "],
      "prestack" : ["", " #transformblock# \n "],
      "stackitems" :["#stackitem#"],
      "stackitem" : ["#transformblock##sound#", "#transformblock##sound#, \n  #stackitem#"],
      "startbracket" : ["["],
      "endbracket" : ["]"],
      "sound" : ["#soundtype# |=| cut \"#cutint#\"", "#soundtype# #effects# |=| cut \"#cutint#\""],
      "soundtype" : ["(sound $ samples \"#soundpatterns#\" #samplespattern#)", "(sound $ samples \"#soundpatterns#\" #samplespattern#)", "(sound $ samples \"#soundpatterns#\" #samplespattern#)", "(sound $ samples \"#breakpatterns#\" #samplespattern#) |=| unit \"c\" |=| speed \"8\""],
      "soundpatterns" : ["#s#", "#s# #s#", "#s# #s# #s# #s#", "{#s# #s# #s#}%#factor2#", "{#s# #s# #s# #s# #s#}%#factor2#", "{#s# #s# #s# #s# #s# #s# #s#}%#factor2#"],