antonhornquist

-- flocking.
--

engine.name = 'PolyPerc'

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

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

(
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

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

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

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;

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

// 1. Overview of Scheme

(* 5 8) // ==> 40

// 2.1 Identifiers

// Extended alphabetic characters may be used within identifiers as if they were letters. The following are extended alphabetic characters:

+ - . * / < = > ! ? : $ % _ & ~ ^

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 .()
*/

/*