initial

4 files changed, 408 insertions, 0 deletions

diff --git a/examples/0-fltk_gui.csd b/examples/0-fltk_gui.csd
new file mode 100644
index 0000000..d81a48a
--- /dev/null
+++ b/examples/0-fltk_gui.csd
@@ -0,0 +1,169 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+-+rtmidi=virtual -M0
+</CsOptions>
+; ==============================================
+<CsInstruments>
+
+sr	=	44100
+kr = 4410
+nchnls	=	2
+0dbfs	=	1
+seed 0 
+
+gkop[][] init 4, 12
+giop[][] init 4, 12
+gkinstr[] init 8
+giinstr[] init 8
+giopwidth = 200
+gidiv = 60
+
+opcode operator, 0, i
+    iop xin
+    ix = giopwidth * iop
+    iy = 0
+    ihl FLbox sprintf("OP%d", iop+1), 1, 2, 14, giopwidth, 30, ix, iy
+    gkop[iop][0], giop[iop][0] FLslider "Level", 0, 63, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*1)
+    gkop[iop][1], giop[iop][1] FLslider "Key scale", 0, 3, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*2)
+    gkop[iop][2], giop[iop][2] FLslider "Attack", 0, 15, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*3)
+    gkop[iop][3], giop[iop][3] FLslider "Decay", 0, 15, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*4)
+    gkop[iop][4], giop[iop][4] FLslider "Sustain", 0, 15, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*5)
+    gkop[iop][5], giop[iop][5] FLslider "Release", 0, 15, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*6)
+    gkop[iop][6], giop[iop][6] FLslider "Waveform", 0, 7, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*7)      ;; TODO have as scrollbox/text
+    gkop[iop][7], giop[iop][7] FLslider "Frequency multiplier", 0, 15, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*8)
+    gkop[iop][8], giop[iop][8] FLbutton "Tremolo", 1, 0, 3, giopwidth/2, 30, ix, iy+(gidiv*9), -1
+    gkop[iop][9], giop[iop][9] FLbutton "Vibrato", 1, 0, 3, giopwidth/2, 30, ix+(giopwidth/2), iy+(gidiv*9), -1
+    gkop[iop][10], giop[iop][10] FLbutton "Sustaining", 1, 0, 3, giopwidth/2, 30, ix, iy+(gidiv*9.5), -1
+    gkop[iop][11], giop[iop][11] FLbutton "Key env", 1, 0, 3, giopwidth/2, 30, ix+(giopwidth/2), iy+(gidiv*9.5), -1
+
+endop
+
+opcode randomise, 0, 0
+    iop = 0
+    while (iop < 4) do
+        FLsetVal_i random(30, 63), giop[iop][0]
+        FLsetVal_i random(0, 3), giop[iop][1]
+        FLsetVal_i random(0, 15), giop[iop][2]
+        FLsetVal_i random(0, 15), giop[iop][3]
+        FLsetVal_i random(0, 15), giop[iop][4]
+        FLsetVal_i random(0, 15), giop[iop][5]
+        FLsetVal_i random(0, 7), giop[iop][6]
+        FLsetVal_i random(0, 15), giop[iop][7]
+        FLsetVal_i random(0, 1), giop[iop][8]
+        FLsetVal_i random(0, 1), giop[iop][9]
+        FLsetVal_i random(0, 1), giop[iop][10]
+        FLsetVal_i random(0, 1), giop[iop][11]
+        iop += 1
+    od
+    FLsetVal_i random(0, 7), giinstr[2]
+    FLsetVal_i random(0, 7), giinstr[3]
+endop
+
+instr gui
+    FLpanel "OPL3", 1000, 768
+        operator 0
+        operator 1
+        operator 2
+        operator 3
+        ix = 800
+        iy = 0
+        ihl FLbox "Globals", 1, 2, 14, giopwidth, 30, ix, iy
+        gkinstr[0], giinstr[0] FLbutton "Mode 1/2 AM", 1, 0, 3, giopwidth/2, 30, ix, iy+(gidiv), -1
+        gkinstr[1], giinstr[1] FLbutton "Mode 3/4 AM", 1, 0, 3, giopwidth/2, 30, ix+(giopwidth/2), iy+(gidiv), -1
+        gkinstr[2], giinstr[2] FLslider "Feedback 1/2", 0, 7, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*2)
+        gkinstr[3], giinstr[3] FLslider "Feedback 3/4", 0, 7, 0, 1, -1, giopwidth, 30, ix, iy+(gidiv*3)
+        gkinstr[4], giinstr[4] FLbutton "4OP", 1, 0, 3, giopwidth/2, 30, ix, iy+(gidiv*4), 0, nstrnum("fouroptrig"), 0, 1
+        gkinstr[5], giinstr[5] FLbutton "Pseudo 4OP", 1, 0, 3, giopwidth/2, 30, ix+(giopwidth/2), iy+(gidiv*4), 0, nstrnum("fouroptrig"), 0, 1
+        gkinstr[6], giinstr[6] FLbutton "Deep vib", 1, 0, 3, giopwidth/2, 30, ix, iy+(gidiv*4.5), -1
+        gkinstr[7], giinstr[7] FLbutton "Deep trem", 1, 0, 3, giopwidth/2, 30, ix+(giopwidth/2), iy+(gidiv*4.5), -1
+        knull0, inull0 FLbutton "Randomise", 1, 0, 1, giopwidth, 30, ix, iy+(gidiv*5), 0, nstrnum("randomiser"), 0, 1
+        knull1, inull1 FLbutton "Panic", 1, 0, 1, giopwidth, 30, ix, iy+(gidiv*6), 0, nstrnum("panic"), 0, 1
+    FLpanelEnd
+    FLrun
+    event_i "i", "fouropset", 0, 1, 0
+endin
+
+
+
+instr fouroptrig
+    kstate = 0
+    if (gkinstr[4] == 1 || gkinstr[5] == 1) then
+        kstate = 1
+    endif
+    event "i", "fouropset", 0, 1, kstate
+    turnoff
+endin
+
+instr fouropset
+    istate = p4
+    iop = 2
+    while (iop <= 3) do
+        idx = 0
+        while (idx < 12) do
+            ihandle = giop[iop][idx]
+            if (istate == 0) then
+                FLhide ihandle
+            else
+                FLshow ihandle
+            endif
+            idx += 1
+        od
+        iop += 1
+    od
+endin
+
+instr randomiser
+    randomise
+    turnoff
+endin
+
+instr main	
+    giopl, aL, aR opl 5
+    outs aL, aR
+
+    
+    iop1, iop2, iop3, iop4 oplinstrument giopl, gkinstr[0], gkinstr[1], gkinstr[2], gkinstr[3], gkinstr[4], gkinstr[5], gkinstr[6], gkinstr[7]
+
+
+    ; level, keyscale, attack, decay
+    kattack init 2
+    kdecay init 13
+
+    oploperator iop1, gkop[0][0], gkop[0][1], gkop[0][2], gkop[0][3], gkop[0][4], gkop[0][5], gkop[0][6], gkop[0][7], gkop[0][8], gkop[0][9], gkop[0][10], gkop[0][11]
+    oploperator iop2, gkop[1][0], gkop[1][1], gkop[1][2], gkop[1][3], gkop[1][4], gkop[1][5], gkop[1][6], gkop[1][7], gkop[1][8], gkop[1][9], gkop[1][10], gkop[1][11]
+    oploperator iop3, gkop[2][0], gkop[2][1], gkop[2][2], gkop[2][3], gkop[2][4], gkop[2][5], gkop[2][6], gkop[2][7], gkop[2][8], gkop[2][9], gkop[2][10], gkop[2][11]
+    oploperator iop4, gkop[3][0], gkop[3][1], gkop[3][2], gkop[3][3], gkop[3][4], gkop[3][5], gkop[3][6], gkop[3][7], gkop[3][8], gkop[3][9], gkop[3][10], gkop[3][11]
+
+endin
+
+
+instr 2
+    ;inotes[] fillarray 48, 52, 53, 57, 60, 64, 65, 69
+    ;inote = 56;inotes[int(random(0, lenarray(inotes)-1))]-36
+    oplnote giopl, 0, 60, 120
+    oplnote giopl, 0, 64, 120
+    oplnote giopl, 0, 65, 120
+    oplnote giopl, 0, 69, 120
+
+endin
+
+instr 1
+    inote notnum
+    iveloc veloc
+    oplnote giopl, 0, inote, iveloc
+endin
+
+instr panic
+    oplpanic giopl
+endin
+
+
+</CsInstruments>
+; ==============================================
+<CsScore>
+i"main" 0 3600
+i"gui" 0 3600
+</CsScore>
+</CsoundSynthesizer>
+
diff --git a/examples/1-chord_sequence.csd b/examples/1-chord_sequence.csd
new file mode 100644
index 0000000..38e0ed6
--- /dev/null
+++ b/examples/1-chord_sequence.csd
@@ -0,0 +1,104 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+
+sr = 44100
+kr = 4410
+nchnls = 2
+0dbfs = 1
+
+giopl init 0
+
+instr main	
+    giopl, aL, aR opl
+    outs aL, aR
+
+    oplpatchchange giopl, 0, 89
+    oplpatchchange giopl, 1, 12
+    oplpatchchange giopl, 2, 72
+    oplpatchchange giopl, 3, 96
+
+    event_i "i", "sequencer", 0, p3
+endin
+
+
+opcode playchord, 0, kkkk[]kk
+    kinstr, kduration, kbase, kintervals[], ktimeinc, kreadmode xin
+    ktime = 0
+
+    if (kreadmode == 0) then
+        kdx = 0
+        while (kdx < lenarray(kintervals)) do
+            event "i", kinstr, ktime, kduration, kbase+kintervals[kdx]
+            ktime += ktimeinc
+            kdx += 1
+        od
+    else 
+        kdx = lenarray(kintervals) - 1
+        while (kdx > -1) do
+            event "i", kinstr, ktime, kduration, kbase+kintervals[kdx]
+            ktime += ktimeinc
+            kdx -= 1
+        od
+    endif
+endop
+
+instr sequencer
+    itempo = 120
+    ibeatduration = 60/itempo
+    kintervals[] fillarray 0, 4, 5, 9
+    knotes[] fillarray 50, 54, 56, 48
+    knotedx init 0
+    kbeat metro itempo/60
+    kbar0 init 0
+    if (kbeat == 1) then
+        if (kbar0 == 0) then
+            playchord 3, ibeatduration*4, knotes[knotedx], kintervals, 0, 0
+        elseif (kbar0 == 1) then
+            playchord 2, ibeatduration, knotes[knotedx], kintervals, ibeatduration/4, 0
+        elseif (kbar0 == 2) then
+            playchord 1, ibeatduration, knotes[knotedx]+12, kintervals, 0, 0
+        elseif (kbar0 == 3) then
+            playchord 4, ibeatduration, knotes[knotedx]+12, kintervals, ibeatduration/4, 1
+        endif
+
+        if (kbar0 < 3) then
+            kbar0 += 1
+        else
+            if (knotedx < 3) then
+                knotedx += 1
+            else 
+                knotedx = 0
+            endif
+            kbar0 = 0
+        endif
+    endif
+endin
+
+
+instr 1
+    oplnote giopl, 0, p4, 120
+endin
+
+instr 2
+    oplnote giopl, 1, p4, 100
+endin
+
+instr 3
+    oplnote giopl, 2, p4, 100
+endin
+
+instr 4
+    oplnote giopl, 3, p4, 100
+endin
+
+</CsInstruments>
+; ==============================================
+<CsScore>
+i"main" 0 3600
+
+</CsScore>
+</CsoundSynthesizer>
+
diff --git a/examples/2-random_params.csd b/examples/2-random_params.csd
new file mode 100644
index 0000000..37b951d
--- /dev/null
+++ b/examples/2-random_params.csd
@@ -0,0 +1,58 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+; ==============================================
+<CsInstruments>
+
+sr	=	44100
+kr = 4410
+nchnls	=	2
+0dbfs	=	1
+seed 0 
+
+
+instr main	
+    giopl, aL, aR opl 0
+    outs aL, aR
+
+    kmetro metro 1
+    schedkwhen kmetro, 0, 0, 2, 0, 1
+
+    iop1, iop2, iop3, iop4 oplinstrument giopl, int:k(random:k(0, 2)), int:k(random:k(0, 2)), random:k(0, 7), random:k(0, 7), 1, 1, int:k(random:k(0, 2)), int:k(random:k(0, 2))
+
+
+    ; level, keyscale, attack, decay
+    kattack init 2
+    kdecay init 13
+;0 -15 freq mult
+    oploperator iop1, random:k(60, 63), random:k(0, 3), random:k(0, 15), random:k(0, 15), random:k(0, 15), random:k(0, 1), random:k(0, 7), 0, random:k(0, 2), random:k(0, 2), random:k(0, 2), random:k(0, 2)
+    oploperator iop2, random:k(60, 63), random:k(0, 3), random:k(0, 15), random:k(0, 15), random:k(0, 15), random:k(0, 1), random:k(0, 7), 0, random:k(0, 2), random:k(0, 2), random:k(0, 2), random:k(0, 2)
+    oploperator iop3, random:k(60, 63), random:k(0, 3), random:k(0, 15), random:k(0, 15), random:k(0, 15), random:k(0, 1), random:k(0, 7), 0, random:k(0, 2), random:k(0, 2), random:k(0, 2), random:k(0, 2)
+    oploperator iop4, random:k(60, 63), random:k(0, 3), random:k(0, 15), random:k(0, 15), random:k(0, 15), random:k(0, 1), random:k(0, 7), 0, random:k(0, 2), random:k(0, 2), random:k(0, 2), random:k(0, 2)
+endin
+
+
+instr 2
+    inotes[] fillarray 48, 52, 53, 57
+    inote = inotes[int(random(0, lenarray(inotes)-1))]+24
+    oplnote giopl, 0, inote, 120
+endin
+
+instr 3
+    inote = 48+24
+    oplnote giopl, 1, inote, 120
+    oplnote giopl, 1, inote+4, 120
+    oplnote giopl, 1, inote+5, 120
+    oplnote giopl, 1, inote+9, 120
+endin
+
+
+
+</CsInstruments>
+; ==============================================
+<CsScore>
+i"main" 0 3600
+</CsScore>
+</CsoundSynthesizer>
+
diff --git a/examples/3-controlchanges.csd b/examples/3-controlchanges.csd
new file mode 100644
index 0000000..93749b1
--- /dev/null
+++ b/examples/3-controlchanges.csd
@@ -0,0 +1,77 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac -m0
+</CsOptions>
+<CsInstruments>
+
+sr = 44100
+kr = 4410
+nchnls	= 2
+0dbfs = 1
+seed 0 
+
+
+instr main	
+    giopl, aL, aR opl
+    outs aL, aR
+    gSbanks[] oplbanknames giopl
+    
+    index = 0
+    itime = 0
+    inote = 0
+    inotes[] fillarray 50, 52, 64, 56, 53, 59, 62 
+    while (index < lenarray(gSbanks)) do
+        event_i "i", "play", itime, 2, index, inotes[inote], 0
+        if (inote < lenarray(inotes)-1) then
+            inote += 1
+        else
+            inote = 0
+        endif
+        if (random(0, 1) > 0.5) then
+            event_i "i", "play", itime+0.5, 0.5, index, inotes[inote], 1
+        endif
+        itime += 1
+        index += 1
+    od
+    p3 = itime
+endin
+
+
+instr play
+    ibank = p4
+    inote = p5
+    ichannel = p6
+    ipatch random 0, 127
+    prints sprintf("%d-%d (%s)\n", ibank, ipatch, gSbanks[ibank])    
+    if (ichannel == 0) then
+        oplsetbank giopl, ibank
+    endif
+    oplpatchchange giopl, ichannel, ipatch
+    oplnote giopl, ichannel, inote, 100
+    event_i "i", "cc", p3*0.5, p3*0.5, ichannel
+endin
+
+
+instr cc
+    ichannel = p4
+    if (random(0, 1) > 0.6) then
+        ibend = (random(0, 1) > 0.5) ? 1 : -1
+        kbend linseg 0, p3*0.7, 0, p3*0.29, ibend, p3*0.01, 0
+        oplpitchbend giopl, ichannel, kbend
+    endif
+
+
+    if (random(0, 1) > 0.6) then
+        kmod linseg 0, p3*0.7, 255, p3*0.3, 0
+        oplcontrolchange giopl, ichannel, 1, kmod
+    endif
+endin
+
+
+</CsInstruments>
+; ==============================================
+<CsScore>
+i"main" 0 3600
+</CsScore>
+</CsoundSynthesizer>
+