kindohm

/*
// Simple DIY Electronic Music Projects
//    diyelectromusic.wordpress.com
//
//  Simple MIDI Serial Monitor
//  https://diyelectromusic.wordpress.com/2022/04/06/simple-midi-serial-monitor/
//
      MIT License
      
      Copyright (c) 2020 diyelectromusic (Kevin)

kindohm

#include <MIDI.h>


#define MIDI_HW_SERIAL2  1


// ---- Definitions for MIDI INPUT devices ----
//
#ifdef MIDI_HW_SERIAL2

kindohm

# original code is from
# https://www.notesandvolts.com/2015/02/midi-for-arduino-input-test.html

#include <MIDI.h>  // Add Midi Library

#define LED 13    // Arduino Board LED is on Pin 13

//Create an instance of the library with default name, serial port and settings
MIDI_CREATE_DEFAULT_INSTANCE();

kindohm

#define MIDI_CLOCK 0xF8

#define MIDI_CLOCK_PIN 1

// Define the MIDI baud rate
#define MIDI_BAUD_RATE 31250

unsigned long previousMicros = 0;
unsigned long intervalBetweenTempoChanges = 2000;  // 2 seconds in microseconds
unsigned long lastTempoChangeTime = 0;

kindohm

do
  let nn num = stack [speed (segment 1 $ range 0.5 3 $ (cF 1 num)) # s "arpy", s "drum" ]
      step1 = nn "96"
      step2 = nn "98"
      step3 = nn "100"
      step4 = nn "70"
      step5 = nn "72"
      step6 = nn "74"
      step7 = nn "76"
      step8 = nn "78"

kindohm

do
  d1
    $ limit
    $ stack [
        -- kick
        , gain "{1@9 1@6 1@7 1@8}%2" # midichan 1 # note "c3"
        -- pad swell
        , gain "{1@15 1@16 1@13 1@12 1@14}%4" # midichan 3 # note "c3"
        -- pad
        , slow "<2 3 4 5>" $ (0.5 ~>) $ midichan 7 # note "c3"

kindohm

d1 $ s "bd? bd? bd? bd? bd? bd? bd? bd?"

d1 $ s "bd!!! cp!! [bd!! cp!]"

d1 $ s "bd ~ ~ cp ~ ~ bd bd"

d1 $ s "bd@3 cp@3 bd bd"

d1 $ s "bd bd [s b peri:3]/2 cp"

kindohm

00:00 Atte Kantonen - iiiii
03:00 {arsonist} - Projecting Into Phantasmagoric Subspace
07:23 Fausto Mercier - MIND BUSINESS
10:45 Forces - Agency to Act
14:14 SDEM - BX16
18:34 Sebastian Camens - Sentinal Arm
21:50 Renick Bell - Syzygysm (remix)
25:16 William Fields - To Those Who Wait
30:37 Heith & Weightausend - PANTAIBIRA
34:10 Little Snake - ETH2.22

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",