samaaron

//https://cdn.jsdelivr.net/npm/hydra-synth@1.3.29/dist/hydra-synth.js

(function(f){if(typeof exports==="object"&&typeof module!=="undefined"){module.exports=f()}else if(typeof define==="function"&&define.amd){define([],f)}else{var g;if(typeof window!=="undefined"){g=window}else if(typeof global!=="undefined"){g=global}else if(typeof self!=="undefined"){g=self}else{g=this}g.Hydra = f()}})(function(){var define,module,exports;return (function(){function r(e,n,t){function o(i,f){if(!n[i]){if(!e[i]){var c="function"==typeof require&&require;if(!f&&c)return c(i,!0);if(u)return u(i,!0);var a=new Error("Cannot find module '"+i+"'");throw a.code="MODULE_NOT_FOUND",a}var p=n[i]={exports:{}};e[i][0].call(p.exports,function(r){var n=e[i][1][r];return o(n||r)},p,p.exports,r,e,n,t)}return n[i].exports}for(var u="function"==typeof require&&require,i=0;i<t.length;i++)o(t[i]);return o}return r})()({1:[function(require,module,exports){
// Copyright Joyent, Inc. and other Node contributors.
//
// Permission is hereby granted,

samaaron

rest?
use_arg_bpm_scaling
with_arg_bpm_scaling
midi_to_hz
hz_to_midi
set_control_delta!
set_sched_ahead_time!
use_debug
with_debug
use_arg_checks

samaaron

(defn mk-tmp-dir!
  "Creates a unique temporary directory on the filesystem. Typically in /tmp on
  *NIX systems. Returns a File object pointing to the new directory. Raises an
  exception if the directory couldn't be created after 10000 tries."
  []
  (let [base-dir (file (System/getProperty "java.io.tmpdir"))
        base-name (str (System/currentTimeMillis) "-" (long (rand 1000000000)) "-")
        tmp-base (mk-path base-dir base-name)
        max-attempts 10000]
    (loop [num-attempts 1]

samaaron

## Sonic Pi triplets example
## http://sonic-pi.net

live_loop :triplets do
  density 3 do
    play :e4, release: 0.1
    sleep 1
  end
end

samaaron

-module(keepalive).

-export([start/1, init/1, loop/1]).

start(DaemonPortNum) ->
    spawn_link(?MODULE, init, [DaemonPortNum]).

init(DaemonPortNum) ->
    io:format("connecting to Daemon via TCP...~n", []),
    {ok, DaemonSocket} = gen_tcp:connect({127,0,0,1}, DaemonPortNum, [

samaaron

 
define :eggs do |co=130|
  time_warp 0 do
    with_fx :reverb,room: 1 do
      with_fx :krush, amp: 2, mix: 0.3 do
        time_warp -0.01 do
          play :e0, release: 8, cutoff: co, note_slide: 0.01, cutoff_slide: 2 do
            control cutoff: 130
            16.times do
              control note: (scale, :e0, :minor_pentatonic).choose

samaaron

# Super simple drum and bass
# Coded by Sam Aaron w/ Sonic Pi

# To play: download Sonic Pi from the link below, paste the code in and hit Run
# http://sonic-pi.net


use_bpm 100

live_loop :amen_break do

samaaron

(ns overtone.examples.compositions.piano-phase
  (:use overtone.live
        overtone.inst.sampled-piano))

;; Steve Reich's Piano Phase

(def piece [:E4 :F#4 :B4 :C#5 :D5 :F#4 :E4 :C#5 :B4 :F#4 :D5 :C#5])

(defn player
  [t speed notes]

samaaron

Keybase proof

I hereby claim:

• I am samaaron on github.
• I am samaaron (https://keybase.io/samaaron) on keybase.
• I have a public key whose fingerprint is FAE0 DB04 1B34 4F6F 0702 93B5 85D8 A2FD 323A F9A0

To claim this, I am signing this object:

samaaron

live_loop :lloop do
  with_fx :reverb, room: 0.5 do
    with_fx :compressor do
      sample :bd_boom, amp: 10, rate: 1
    end
  end
  with_fx :reverb, room: 0.5 do
    with_fx :krush, amp: 2, cutoff: 100 do
      with_fx :slicer, probability: 0, phase: 0.125, mix: 0.5 do
        use_synth :dsaw