ref: f1652d3fffe4457db7bf025bdb4ab1201065d923
dir: /contrib/o/
#!/bin/rc
rfork en
font = /lib/font/bit/vga/unicode.font
if(~ $#* 0) instr = (piano kick_drum ay)
if not instr = $*
for(i in $instr){
daw/$i -m /n/$i || exit badarg
cat /n/$i/clone >/dev/null
}
>/tmp/orcastart cat <<'...'
#!/bin/rc
echo resize -minx 96 > /dev/wctl
label orca
d = `{syscall -o read 0 buf 48 </dev/wctl >[2]/dev/null}
d = `{echo $d(3) $d(1) -8-p2/2+p4-p | dc}
window -r $d(3) 0 $d(1) 9000 'echo daw/cfg /n/$instr; daw/cfg /n/$instr; rc'
window -r 0 0 $d(2) 9000 'echo ''games/orca -p -u /fd/3 |[3] daw/piper'' /n/$instr
games/orca -p -u /fd/3 |[3] daw/piper /n/$instr; rc'
...
chmod +x /tmp/orcastart
window -cd $home/orca -r 0 0 9000 9000 -m rio -i /tmp/orcastart