nornsgenerate

#!/usr/bin/bash 
######################################################################
#
# NORNS PROJECT GENERATOR
# by Mads Kjeldgaard, 2020
#
######################################################################

PROJECTNAME=$1
ENGINENAME=$2

PROJECTDIR="$PROJECTNAME"
ENGINE="lib/Engine_$ENGINENAME.sc"
LUAFILE="$PROJECTNAME.lua"

function main() {
	if [[ ! -z "$PROJECTNAME" ]] ; then
		greeting

		echo "Creating Norns project $PROJECTNAME in $PROJECTDIR"

		# Create directory
		mkdir $PROJECTDIR
		cd $PROJECTDIR

		# LUA FILE
		echo "making main lua file $LUAFILE"
		make_main_lua

		# README
		echo "making README file"
		echo "# $PROJECTNAME" >> README.md
		echo "A project for the monome norns sound computing platform" >> README.md

		# Create engine
		if [[ ! -z "$ENGINENAME" ]]; then
			echo "making supercollider engine file $ENGINE"
			make_engine	
		fi

		initgit

		echo "Done..."

	else
		echo "No project name supplied... exiting"
		exit 1
	fi

}

# If git is on the system, initialize a git repo and make the first commit
function initgit(){
	if [[ -f "$(which git)" ]]; then 
		git init; 
		git add .
		git commit . -m "first"
	fi
}

# Create engine file
function make_engine() {
mkdir lib

echo "Engine_$ENGINENAME : CroneEngine {
	var synth;

	*new { arg context, doneCallback;
		^super.new(context, doneCallback);
	}

	alloc {
		SynthDef.new(\boringvolume, {|inL=0, inR=1, out=0, amp=0.5, pan=0|
			var sig = In.ar([inL, inR]);
			sig = sig * amp;
			sig = Balance2.ar(sig[0], sig[1], pan);
			Out.ar(out, sig)
		}).add;

		// Sync with audio norns' sc server
		context.server.sync;

		/*
		The audio context's fx group:
		context.xg

		The in bus:
		context.in_b

		The out bus:
		context.out_b
		*/

		synth = Synth.new(\boringvolume, 
			[
				\inL, context.in_b[0].index,
				\inR, context.in_b[1].index,
				\out, context.out_b.index 
			],
			target: context.xg // The fx group of Crone
		);

		// Expose commands to lua like this:
		this.addCommand(\"amp\", \"f\", {|msg|
			var val = msg[1];
			synth.set(\amp, val)
		});

		this.addCommand(\"pan\", \"f\", {|msg|
			var val = msg[1];
			synth.set(\pan, val)
		});

	}

	free {
		synth.free;
	}
}" > $ENGINE
}

# Create lua file
function make_main_lua() {
if [[ ! -z "$ENGINENAME" ]]; then

# Top part of generated LUA file
TOPCODE="-- Parameters for custom engine
engine.name = \"$ENGINENAME\"

-- Amplitude
params:add_control(\"amp\", \"amp\", controlspec.new(0.0, 1.0, 'lin', 0, 0.5, 'amps'))
params:set_action(\"amp\", function(x) engine.amp(x) end)

-- Panning
params:add_control(\"pan\", \"pan\", controlspec.new(-1.0, 1.0, 'lin', 0, 0.0, 'pans'))
params:set_action(\"pan\", function(x) engine.pan(x) end)

-- initialization
function init()
	engine.load(\"$ENGINENAME\")
end

local viewport = { width = 128, height = 64, frame = 0 }
-- encoder actions: n = number, d = delta
function enc(n,d)
	if n == 2 then
		params:delta(\"amp\", d)
	elseif n == 3 then
		params:delta(\"pan\", d)
	end
end
"
else
TOPCODE="engine.name = \"TestSine\"

-- initialization
function init()
	engine.hz(100)
end

-- key actions: n = number, z = state
function key(n,z)
	print(\"Key \" .. n .. \" pressed: \" .. z)
end


-- encoder actions: n = number, d = delta
function enc(n,d)
	print(\"Enc \" .. n .. \" touched: \" .. d)
end
"
fi

# And then joined with the bottom part
echo "-- scriptname: $PROJECTNAME
-- v1.0.0 @$USER
$TOPCODE

-- key actions: n = number, z = state
function key(n,z)
end

function redraw()
	screen.clear()
	screen.move(0,viewport.height/2)
	screen.text(\"this is $PROJECTNAME\")
	screen.update()
end

-- deinitialization
function cleanup()
end
" > $LUAFILE
}

function greeting(){
echo "
@@@  @@@   @@@@@@   @@@@@@@   @@@  @@@   @@@@@@   
@@@@ @@@  @@@@@@@@  @@@@@@@@  @@@@ @@@  @@@@@@@   
@@!@!@@@  @@!  @@@  @@!  @@@  @@!@!@@@  !@@       
!@!!@!@!  !@!  @!@  !@!  @!@  !@!!@!@!  !@!       
@!@ !!@!  @!@  !@!  @!@!!@!   @!@ !!@!  !!@@!!    
!@!  !!!  !@!  !!!  !!@!@!    !@!  !!!   !!@!!!   
!!:  !!!  !!:  !!!  !!: :!!   !!:  !!!       !:!  
:!:  !:!  :!:  !:!  :!:  !:!  :!:  !:!      !:!   
 ::   ::  ::::: ::  ::   :::   ::   ::  :::: ::   
::    :    : :  :    :   : :  ::    :   :: : :    
"
}

function echo_help(){
echo "
NORNS PROJECT GENERATOR

usage:

nornsgenerate projectname [enginename]

projectname 		Project name (mandatory)
enginename 			If supplied, will create a lib directory with a SuperCollider Engine inside of it
-h 					Show help


EXAMPLE:
nornsgenerate howdy TurboMegaOverdrive

Will result in the following project structure:

howdy/howdy.lua
howdy/lib/Engine_TurboMegaOverdrive.sc
"
}

if [ $# -eq 0 ] || [ "$1" == "-h" ]; then
	echo_help
	exit 1
else 
	main
fi