trentgill

--- sequins.
-- a demonstration

engine.name = 'PolyPerc'
local MusicUtil = require "musicutil"

-- TODO operate by reference so the scale can change without recreating the sequin
dim = {3,6,9,15,18,21,-6}
bass = {-6,-12,-15}
lyd = {12,14,16,18,19,9,11,24}

trentgill

--- crowy: this script runs on crow

function init()
  print '~crowy~'
  metro[1].event = function(v) print("tick: "..v) end
  metro[1]:start()
end

trentgill

--- norns library for crow namespace support
-- enables full syntax support for calling crow functions, and setting crow values
-- does *not* support directly querying values or function responses from crow


--- helper fns for quoting (aka stringifying) lua constructs

quotekey = function(ix)
    -- stringify table keys with [] style
    local fstr = (type(ix)=='number') and '[%g]' or '[%q]'

trentgill

--- crow syntax reference
-- many libs have multiple access styles
-- i think we need to be more explicit about the idiomatic choices
-- all examples / bowery / tutorials should use *the* way


--- input
_ = input[n].volts  --> returns current voltage
input[n].query()    --> sends voltage to the stream handler
input[n].mode('mode' [, args])      -- function style

trentgill

--- flash crash
-- quantizer & w/syn output

function init()
    input[1].mode('scale',{0,1,2,3,4,5,6,7,8,9,10,11})
    ii.wsyn.ar_mode(1)
    ii.wsyn.fm_ratio(1)
    output[2].action = pulse()
end

trentgill

-- feels different if you separate the ASL structure from the data

function modulator(height, risetime, falltime)
  return loop{ to( height, risetime )
             , to( 0, falltime)
             }
end

function init()
  starting_rise = 1

trentgill

-- found shapes

-- setup
mys = sequins{0,2,4,7,9}
myt = sequins{1,1,1,1/2,1/2}
function time_fn()
	while true do
		clock.sync(myt())
		nn()
	end

trentgill

--- bouncy
-- tiny demo of ASL's dyn, generating a stream of bass notes from crow

-- little sequins of frequencies
PIT = sequins{ 110
             , 110*1.5
             , 110*1.25
             , 110*1.666
             , 110*1.333
             }

trentgill

--- maps: S2E3 long distance

-- using i2c to communicate to external devices
-- ???

s = sequins
ws = ii.wsyn
wd = ii.wdel
cr = clock.run

trentgill

--- maps: S2E4 dynamic mutation

-- using ASL's new dyn{} variables for self-modifying signals

-- aliases
s = sequins
ws = ii.wsyn
wd = ii.wdel
cr = clock.run