kindohm

RTYM Patch Overview

As per IG post: https://www.instagram.com/p/B6i3XdthaZs/

RYTM Pad Patches

This is a rough overview of what is going on:

Pad	Machine	Notes

kindohm

:set -XOverloadedStrings
:set prompt ""
:set prompt-cont ""

import Sound.Tidal.Context

anotherTarget :: OSCTarget

:{
anotherTarget = OSCTarget {oName = "Another one",

kindohm

do 
  let pat = "<2 4 2 4 4 6 2 1 1>"
      times = "<10 15 20>"
      plyFunc = (# gain 0.7)
      period = 0.4
      superKick = "<0 0 1 1 1 1>"
      superHat = "<0 1 0 1 1>"
      muteKick = id
      muteHat = id
      synthFilter = (range 20 80 $ slow 30 sine)

kindohm

let 
    shift p = (1024 ~>) $ p
    shift' num p = (num ~>) $ p
    shiftBy = shift'
    shrand num = shiftBy num $ rand
    gtfo p = (const $ s "~") $ p 
    g = gtfo
    one p = off (0.0625) id $ p
    rip howOften p = every howOften (within (0.25, 0.75) (rev . stut 12 0.004 (0.0625/6))) $ p

kindohm

let _plyWith numPat f p = arpeggiate $ compound numPat
      where compound n | n <= 1 = p
                       | otherwise = overlay p (f $ compound $ n-1)
                       
let plyWith np f p = innerJoin $ (\n -> _plyWith n f p) <$> np

kindohm

SynthDef.new(\DFM1ping, { |out, freq = 440, attack = 1, release = 1, gain = 1, pan = 0, 
	resonance = 0, sustain = 2, transitionTime = 0.875,
	disProb = 0, disMult =0, ringzAmp = 1, pulseAmp = 0 |

	var sig, env, resonanceEnv ;
	freq = freq.clip(20, 20000);
	env = EnvGen.kr(Env.new([0, 1, 1, 0], [attack, sustain, release], \sine)) ; // An envelope for some stuff. Mostly amplitude. It goes up, then holds there, then goes down again.
	resonanceEnv = EnvGen.ar(Env.new([resonance, resonance, resonance, 0.9], [attack, sustain, release], curve: \sine)) ; // An envelope for the resonance.
	sig = DFM1.ar(BrownNoise.ar(1)*Decay.ar(Impulse.ar(0.01),0.1),freq,resonanceEnv) ; // This filter is a special treat. It has character. Get the SC3 plugins now.
	sig = sig + (Ringz.ar(Dust2.ar(freq.range(0.0,0.0009765625)),freq,attack+sustain+release,ringzAmp) * 0.00025) ; // Ringz is a ringing filter.

kindohm

Artist	Track	Time
restive	not always an option	00:00:00
Jesse Whitney	Ground	00:03:45
Daniel M Karlsson	Buildups and breakdowns	00:09:00
Michael Masaru Flora	grain (ver3)	00:14:05
Percival Pembroke	Localfields	00:15:47
Edgey	Scrape	00:17:35
Pooch Karton	IV	00:21:22
Sebastian Camens	untitled	00:25:20

kindohm

```
code
goes
here
```

kindohm

setcps 0.5

d1 
    $ spreadChoose ($) [(0.125 <~), (0.125 ~>), id, (0.25 <~), (0.25 ~>), id] 
    $ shift
    $ superimpose ((|* gain (range 0.8 1 $ slow 12 sine)) . (# orbit 1) . (# hpf (range 40 2000 $ slow 10 sine)) . (# hpq 0.1) . (# lpq 0.1) . (# lpf (range 40 3000 $ slow 11 sine)) . iter 32 . fast 3)
    $ stack [
        g $ rarely (one) $ shift' 33 $ s "k(3,8) ~" 
            # n 7
            # shape 0.5

kindohm

import Sound.Tidal.Stream

import Sound.Tidal.Pattern

import Sound.Tidal.Parse

import Sound.Tidal.OscStream

port = 5000