antonhornquist

-- flocking.
--

engine.name = 'PolyPerc'

local function to_hz(note)
  local exp = (note - 21) / 12
  return 27.5 * 2^exp
end

antonhornquist

( // an ad-hoc, informally-specified, bug-ridden, slow implementation of half of Common Lisp.

/* TODO: assoc / assv / assq TODO TODO: (sc only) suspicion that slow ss_* functions has performance penalty - check by testing parsed statements in define_non_prim_standard_procedures TODO: (sc only) for clarity, use .value() over .() */

/*

antonhornquist

-- an ad-hoc, informally-specified, bug-ridden, slow implementation of half of Common Lisp.

--[[
]]

--[[

inspiration:
https://norvig.com/lispy.html
scheme r4rs @ https://people.csail.mit.edu/jaffer/r4rs_toc.html

antonhornquist

(
~engine=NornsProto.spawn('glut') { |engine|
	var nvoices = 7;

	var pg;
	var effect;
	var buffers;
	var voices;
	var mixBus;
	var phases;

antonhornquist

(
Norns.spawn('glut') { |engine|
	var nvoices = 7;

	var pg;
	var effect;
	var buffers;
	var voices;
	var mixBus;
	var phases;

antonhornquist

(
~engine = Norns.spawn('glut') { |engine|
	var nvoices = 7;

	var pg;
	var effect;
	var buffers;
	var voices;
	var mixBus;
	var phases;

antonhornquist

(
var imgui_prev;
var imgui = ();

var ui_begin = {
	ui_clear.value; // TODO: perhaps possible to fix via property?

	imgui.inside_item = nil;
	Pen.font = imgui.font;

antonhornquist

local ControlSpec = require 'controlspec'
local Formatters = require 'formatters'
local lib = {}

local specs = {}

specs.send = ControlSpec.DB:copy()
specs.send.default = -60

specs.sample_start = ControlSpec.UNIPOLAR

antonhornquist

(
var nvoices = 7;

var pg;
var effect;
var buffers;
var voices;
var mixBus;
var phases;
var levels;

antonhornquist

(
var nvoices = 7;

var pg;
var effect;
var buffers;
var voices;
var mixBus;
var phases;
var levels;