diff options
Diffstat (limited to 'examples/toCheck')
| -rw-r--r-- | examples/toCheck/7-sqlite-pitchmatcher.csd | 140 |
1 files changed, 0 insertions, 140 deletions
diff --git a/examples/toCheck/7-sqlite-pitchmatcher.csd b/examples/toCheck/7-sqlite-pitchmatcher.csd deleted file mode 100644 index 1d45234..0000000 --- a/examples/toCheck/7-sqlite-pitchmatcher.csd +++ /dev/null @@ -1,140 +0,0 @@ -<CsoundSynthesizer> -<CsOptions> --odac -</CsOptions> -<CsInstruments> -/* - EXAMPLE 9 - - A rudimentary pitch tracking concatenative resynthesizer - - This creates a sqlite database in memory, and then uses the opcode getpitches to scan through a - sound file in non-realtime, storing detected pitches and the relevant offset time of the pitch in - the database. The example file is a series of ascending piano notes. - - When done, the instrument "playmatches" is scheduled. This plays a descending oscillator - which is pitch tracked and then a similar pitch is found from the database, prompting the "segment" - instrument to be scheduled with the relevant offset. - The result is that the piano notes/sound file segments picked should moreorless match what the - oscillator is doing. - -*/ - -sr = 44100 -kr = 4410 -nchnls = 2 -0dbfs = 1 - - -; create an in-memory sqlite database and create a table -gidb dbconnect "sqlite", ":memory:" -dbexec gidb, "CREATE TABLE pitches (time REAL, cps REAL)" - -; file of ascending piano pitches -gSfile = "sounds/piano.wav" - - -; detect pitches and insert time/cps to database given a filename, in non-realtime -opcode getpitches, 0, S - Sfile xin - ktimek timeinstk - ktime timeinsts - klast init -1 - kcount init 0 - - ; run in the first single k-rate cycle - if (ktimek == 0) then - - ; get file length in k-cycles - ilen filelen Sfile - kcycles = ilen * kr -loop: - ; read file and track pitch - ain diskin2 Sfile, 1 - koct, kamp pitch ain, 0.01, 7, 11, 6, 12, 10, 8 - - ; only take action if pitch has changed - kchanged changed2 koct - if (kchanged == 1) then - - ; only store if cps is reasonably different from the last value - kcps = cpsoct(koct) - if (kcps > klast*1.1 || kcps < klast*0.9) then - - ; insert to database: the dbexec_kb opcode is k-rate but blocking/synchronous. - ; simpler to use for the non-realtime operation as regular _k opcodes are threaded/asynchronous - ktime = kcount / kr - Squery sprintfk "INSERT INTO pitches (time, cps) VALUES (%f, %f)", ktime, kcps - dbexec_kb gidb, Squery - klast = kcps - endif - endif - loop_lt kcount, 1, kcycles, loop - - endif -endop - - - -; begin the example: find pitches and then schedule the next step -instr start_example - getpitches gSfile - schedkwhen 1, 0, 0, "playmatches", 0, 20 - turnoff - -endin - - - -; pitch follow a descending oscillator and attempt to find a similar cps in the database, then schedule segment accordingly -instr playmatches - kdone init 0 ; for when the select query is done - klast init 0 ; last pitch played, in order to avoid repeats - - ; descending oscillator - k1 linseg 2000, p3, 200 - ain oscil 1, k1, 1 - - ; track it - koct, kamp pitch ain, 0.01, 7, 11, 6, 12, 10, 8 - - ; only take action when the tracked pitch has changed - kchanged changed2 koct - if (kchanged == 1) then - - ; (very roughly) get a near frequency match from the database - kcps = cpsoct(koct) - Squery sprintfk "SELECT time FROM pitches WHERE cps >= %f LIMIT 1", kcps - kdone, kpos dbscalar_k gidb, Squery, kchanged - - ; don't repeat notes (try the schedkwhen outside of the if block for continuous play) - if (kpos != klast) then - schedkwhen kdone, 0, 0, "segment", 0, 0.2, kpos - klast = kpos - endif - endif - - ; uncomment to hear the oscillator as well as pitch matched output - ;outs ain*0.01, ain*0.01 -endin - - - -; play part of the sound file given a skip time with a basic fade in/out -instr segment - iskip = p4 - kamp linseg 0, p3*0.1, 1, p3*0.8, 1, p3*0.1, 0 - a1 diskin2 gSfile, 1, iskip - aout = a1*kamp * 0.1 - outs aout, aout -endin - - -</CsInstruments> -<CsScore> -f1 0 16384 10 1 0 0.3 0 0.2 0 0.14 0 .111 ; square wave - -i"start_example" 0 1 - -</CsScore> -</CsoundSynthesizer>
\ No newline at end of file |