libcm is a C development framework with an emphasis on audio signal processing applications.
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

cmDspPgmKrTimeLineLite.c 14KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294
  1. //( { file_desc:"'snap' Performance analysis Simplified Time Line program." kw:[snap]}
  2. #include "cmPrefix.h"
  3. #include "cmGlobal.h"
  4. #include "cmFloatTypes.h"
  5. #include "cmRpt.h"
  6. #include "cmErr.h"
  7. #include "cmCtx.h"
  8. #include "cmMem.h"
  9. #include "cmMallocDebug.h"
  10. #include "cmLinkedHeap.h"
  11. #include "cmText.h"
  12. #include "cmFileSys.h"
  13. #include "cmSymTbl.h"
  14. #include "cmJson.h"
  15. #include "cmPrefs.h"
  16. #include "cmDspValue.h"
  17. #include "cmMsgProtocol.h"
  18. #include "cmThread.h"
  19. #include "cmUdpPort.h"
  20. #include "cmUdpNet.h"
  21. #include "cmTime.h"
  22. #include "cmAudioSys.h"
  23. #include "cmProcObj.h"
  24. #include "cmDspCtx.h"
  25. #include "cmDspClass.h"
  26. #include "cmDspSys.h"
  27. #include "cmDspPgm.h"
  28. #include "cmAudioFile.h"
  29. #include "cmProcObj.h"
  30. #include "cmProc.h"
  31. #include "cmProc3.h"
  32. #include "cmVectOpsTemplateMain.h"
  33. #include "cmVectOps.h"
  34. #include "cmDspPgmKrChain.h"
  35. //)
  36. //( { label:cmDspPgm_TimeLineLite file_desc:"Simplified score vs. the performance and generating related audio transforms." kw:[spgm] }
  37. cmDspRC_t _cmDspSysPgm_TimeLineLite(cmDspSysH_t h, void** userPtrPtr )
  38. {
  39. cmDspRC_t rc = kOkDspRC;
  40. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  41. cmErr_t err;
  42. krRsrc_t r;
  43. unsigned sfBufCnt = 7; // length of the MIDI event buffer
  44. unsigned sfMaxWndCnt = 10; // length of the score event buffer
  45. unsigned sfMinVel = 5; // ignore MIDI events below this velocity
  46. bool sfEnaMeasFl = true;
  47. memset(&r,0,sizeof(r));
  48. cmErrSetup(&err,&cmCtx->rpt,"Kr TimelineLite");
  49. if( krLoadRsrc(h,&err,&r) != kOkDspRC )
  50. return rc;
  51. cmDspInst_t* ai0 = cmDspSysAllocInst(h,"AudioIn", NULL, 1, 0);
  52. cmDspInst_t* ai1 = cmDspSysAllocInst(h,"AudioIn", NULL, 1, 1);
  53. cmDspInst_t* tlp = cmDspSysAllocInst(h,"TimeLine", "tl", 2, r.tlFn, r.tlPrefixPath );
  54. cmDspInst_t* scp = cmDspSysAllocInst(h,"Score", "sc", 1, r.scFn );
  55. cmDspInst_t* pts = cmDspSysAllocInst(h,"PortToSym", NULL, 2, "on", "off" );
  56. cmDspInst_t* mfp = cmDspSysAllocInst(h,"MidiFilePlay",NULL, 0 );
  57. cmDspInst_t* nmp = cmDspSysAllocInst(h,"NanoMap", NULL, 0 );
  58. cmDspInst_t* mop = cmDspSysAllocInst(h,"MidiOut", NULL, 2, r.midiDevice,r.midiOutPort);
  59. cmDspInst_t* mo2p = cmDspSysAllocInst(h,"MidiOut", NULL, 2, r.midiDevice,r.midiOutPort2);
  60. cmDspInst_t* sfp = cmDspSysAllocInst(h,"ScFol", NULL, 1, r.scFn, sfBufCnt, sfMaxWndCnt, sfMinVel, sfEnaMeasFl );
  61. cmDspInst_t* amp = cmDspSysAllocInst(h,"ActiveMeas", NULL, 1, 100 );
  62. cmDspInst_t* modp = cmDspSysAllocInst(h,"ScMod", NULL, 2, r.modFn, "m1" );
  63. unsigned preGrpSymId = cmDspSysPresetRegisterGroup(h,"tl");
  64. unsigned cmpPreGrpSymId = cmDspSysPresetRegisterGroup(h,"tl_cmp");
  65. cmDspTlXform_t c0,c1;
  66. cmDspSysNewPage(h,"Controls-0");
  67. _cmDspSys_TlXformChain(h, &c0, preGrpSymId, cmpPreGrpSymId, modp, 0, 0 );
  68. cmDspSysNewPage(h,"Controls-1");
  69. _cmDspSys_TlXformChain(h, &c1, preGrpSymId, cmpPreGrpSymId, modp, 1, 1 );
  70. cmDspInst_t* ao0 = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 4 ); // Piano 1 Output
  71. cmDspInst_t* ao1 = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 5 ); // 2
  72. cmDspInst_t* ao2 = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 2 ); // Transform 1 OUtput
  73. cmDspInst_t* ao3 = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 3 ); // 2
  74. cmDspSysNewPage(h,"Main");
  75. cmDspInst_t* onb = cmDspSysAllocInst(h,"Button", "start", 2, kButtonDuiId, 1.0 );
  76. cmDspInst_t* offb = cmDspSysAllocInst(h,"Button", "stop", 2, kButtonDuiId, 1.0 );
  77. cmDspInst_t* mod_sel = cmDspSysAllocMsgList(h, NULL, "mod_sel", 1 );
  78. cmDspInst_t* prp = cmDspSysAllocInst(h,"Printer", NULL, 1, ">" );
  79. cmDspInst_t* prd = cmDspSysAllocInst(h,"Printer", NULL, 1, "DYN:" );
  80. cmDspInst_t* pre = cmDspSysAllocInst(h,"Printer", NULL, 1, "EVEN:" );
  81. cmDspInst_t* prt = cmDspSysAllocInst(h,"Printer", NULL, 1, "TEMPO:");
  82. cmDspInst_t* prc = cmDspSysAllocInst(h,"Printer", NULL, 1, "COST:");
  83. // Record <-> Live switches
  84. cmDspInst_t* tlRt = cmDspSysAllocInst(h,"Router", NULL, 2, 2, 0); // time line swich
  85. cmDspInst_t* mfpRt = cmDspSysAllocInst(h,"Router", NULL, 2, 2, 0);
  86. cmDspInst_t* amRt = cmDspSysAllocInst(h,"Router", NULL, 2, 2, 0);
  87. //cmDspSysNewColumn(h,0);
  88. cmDspInst_t* igain0 = cmDspSysAllocInst(h,"Scalar", "In Gain-0", 5, kNumberDuiId, 0.0, 100.0,0.01, 1.0 );
  89. cmDspInst_t* igain1 = cmDspSysAllocInst(h,"Scalar", "In Gain-1", 5, kNumberDuiId, 0.0, 100.0,0.01, 1.0 );
  90. //cmDspSysNewColumn(h,0);
  91. cmDspInst_t* ogain0 = cmDspSysAllocInst(h,"Scalar", "Dry Out Gain-0", 5, kNumberDuiId, 0.0, 10.0,0.01, 1.0 );
  92. cmDspInst_t* ogain1 = cmDspSysAllocInst(h,"Scalar", "Dry Out Gain-1", 5, kNumberDuiId, 0.0, 10.0,0.01, 1.0 );
  93. cmDspInst_t* ogain2 = cmDspSysAllocInst(h,"Scalar", "Wet Out Gain-2", 5, kNumberDuiId, 0.0, 10.0,0.01, 1.0 );
  94. cmDspInst_t* ogain3 = cmDspSysAllocInst(h,"Scalar", "Wet Out Gain-3", 5, kNumberDuiId, 0.0, 10.0,0.01, 1.0 );
  95. // Audio file recording
  96. cmDspInst_t* recdGain= cmDspSysAllocInst(h,"Scalar", "Recd Gain", 5, kNumberDuiId, 0.0, 100.0,0.01, 1.5 );
  97. cmDspInst_t* recdChk = cmDspSysAllocInst(h,"Button", "Record", 2, kCheckDuiId, 0.0 );
  98. cmDspInst_t* recdPtS = cmDspSysAllocInst(h,"GateToSym", NULL, 2, cmSymTblRegisterStaticSymbol(cmDspSysSymbolTable(h),"open"),cmSymTblRegisterStaticSymbol(cmDspSysSymbolTable(h),"close"));
  99. cmDspInst_t* afop = cmDspSysAllocInst(h,"AudioFileOut",NULL, 2, r.recordDir,2);
  100. cmDspInst_t* mi0p = cmDspSysAllocInst(h,"AMeter","In 0", 0);
  101. cmDspInst_t* mi1p = cmDspSysAllocInst(h,"AMeter","In 1", 0);
  102. cmDspInst_t* meas = cmDspSysAllocInst(h,"Scalar", "Meas", 5, kNumberDuiId, 1.0, 59.0,1.0, 1.0 );
  103. cmDspSysInstallCb( h, meas, "val", scp, "meas", NULL);
  104. cmDspSysInstallCb( h, meas, "val", tlp, "meas", NULL);
  105. //--------------- Preset controls
  106. cmDspSysNewColumn(h,0);
  107. cmDspInst_t* preset = cmDspSysAllocInst( h, "Preset", NULL, 1, preGrpSymId );
  108. cmDspInst_t* presetLbl = cmDspSysAllocInst( h, "Text", "Preset", 1, "" );
  109. cmDspInst_t* storeBtn = cmDspSysAllocButton( h, "store", 0);
  110. cmDspInst_t* recallBtn = cmDspSysAllocButton( h, "recall", 0);
  111. cmDspSysInstallCb( h, presetLbl, "val", preset, "label",NULL);
  112. cmDspSysInstallCb( h, storeBtn, "sym", preset, "cmd", NULL );
  113. cmDspSysInstallCb( h, recallBtn, "sym", preset, "cmd", NULL );
  114. cmDspInst_t* prePath = cmDspSysAllocInst( h, "Fname", "prePath", 3, true,NULL,r.tlPrefixPath);
  115. //cmDspSysNewColumn(h,0);
  116. //--------------- Recorded performance evaluation and Active Measurement related controls
  117. cmDspInst_t* clrBtn = cmDspSysAllocButton( h, "clear", 0);
  118. cmDspInst_t* prtBtn = cmDspSysAllocButton( h, "dump", 0);
  119. cmDspInst_t* amCmd = cmDspSysAllocInst( h, "PortToSym", NULL, 2, "add", "rewind" );
  120. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  121. return rc;
  122. // Output Audio file recording.
  123. cmDspSysInstallCb(h, recdGain,"val", afop, "gain0", NULL );
  124. cmDspSysInstallCb(h, recdGain,"val", afop, "gain1", NULL );
  125. cmDspSysInstallCb(h, recdChk, "out", recdPtS, "on", NULL );
  126. cmDspSysInstallCb(h, recdChk, "out", recdPtS, "off", NULL );
  127. cmDspSysInstallCb(h, recdPtS, "out", afop, "sel", NULL );
  128. // Audio connections
  129. cmDspSysConnectAudio( h, ai0, "out", ao0, "in" ); // dry signal through
  130. cmDspSysConnectAudio( h, ai1, "out", ao1, "in" ); //
  131. cmDspSysConnectAudio( h, ai0, "out", mi0p, "in" ); //
  132. cmDspSysConnectAudio( h, ai0, "out", c0.kr0, "in" ); // ain -> ch0.kr0
  133. cmDspSysConnectAudio( h, ai0, "out", c0.kr1, "in" ); // ain -> ch0.kr1
  134. cmDspSysConnectAudio( h, c0.cmp,"out", ao2, "in" ); // ch0.cmp -> aout
  135. cmDspSysConnectAudio( h, c0.cmp,"out", afop, "in0"); // ch0.cmp -> audio_file_out
  136. cmDspSysConnectAudio( h, ai1, "out", mi1p, "in" ); //
  137. cmDspSysConnectAudio( h, ai1, "out", c1.kr0, "in" ); // ain -> ch1.kr0
  138. cmDspSysConnectAudio( h, ai1, "out", c1.kr1, "in" ); // ain -> ch1.kr1
  139. cmDspSysConnectAudio( h, c1.cmp,"out", ao3, "in" ); // ch1.cmp -> aout
  140. cmDspSysConnectAudio( h, c1.cmp,"out", afop, "in1"); // ch1.cmp ->audio_file_out
  141. cmDspSysInstallCb( h, clrBtn, "sym", amp, "cmd", NULL ); // clear active meas.
  142. cmDspSysInstallCb( h, prtBtn, "sym", modp, "cmd", NULL ); // print active meas
  143. //cmDspSysInstallCb( h, prtBtn, "sym", scp, "cmd", NULL ); // print the score
  144. cmDspSysInstallCb( h, amCmd, "add", amp, "cmd", NULL ); // add active meas
  145. cmDspSysInstallCb( h, amCmd, "rewind", amp, "cmd", NULL ); // rewind active meas
  146. cmDspSysInstallCb( h, sfp, "out", amRt, "f-in", NULL ); // sfp-active meas router (rtr is switched by live btn)
  147. cmDspSysInstallCb( h, amRt, "f-out-0",amp, "sfloc", NULL );
  148. cmDspSysInstallCb( h, sfp, "vloc", amp, "loc", NULL ); // live meas's to active meas unit
  149. cmDspSysInstallCb( h, sfp, "vval", amp, "val", NULL ); //
  150. cmDspSysInstallCb( h, sfp, "vcost",amp, "cst", NULL ); //
  151. cmDspSysInstallCb( h, sfp, "vtyp", amp, "type", NULL ); //
  152. cmDspSysInstallCb( h, sfp, "vtyp", amCmd, "add", NULL); //
  153. // ***** delete this to prevent the score follower from driving the active-measure unit in 'live' mode
  154. cmDspSysInstallCb( h, amRt, "f-out-1",amp, "sfloc", NULL );
  155. // *****
  156. // active measure loc to xfad channel trigger
  157. cmDspSysInstallCb( h, amp, "scloc",c0.achan, "trig", NULL ); // See Also: modp.sw ->achan.trig
  158. cmDspSysInstallCb( h, amp, "scloc",c1.achan, "trig", NULL );
  159. cmDspSysInstallCb( h, recallBtn, "sym", c0.achan, "trig", NULL );
  160. cmDspSysInstallCb( h, recallBtn, "sym", c1.achan, "trig", NULL );
  161. cmDspSysInstallCb( h, amp, "even", pre, "in", NULL ); // active meas output to printers
  162. cmDspSysInstallCb( h, amp, "dyn", prd, "in", NULL );
  163. cmDspSysInstallCb( h, amp, "tempo", prt, "in", NULL );
  164. cmDspSysInstallCb( h, amp, "cost", prc, "in", NULL );
  165. // wave-table to time-line cursor
  166. //cmDspSysInstallCb( h, wtp, "fidx",tlp, "curs", NULL);
  167. cmDspSysInstallCb(h, prePath, "out", tlp, "path", NULL );
  168. // start connections
  169. cmDspSysInstallCb(h, onb, "sym", tlRt, "s-in", NULL );
  170. cmDspSysInstallCb(h, tlRt, "s-out-0",tlp, "reset", NULL );
  171. cmDspSysInstallCb(h, onb, "sym", scp, "send", NULL );
  172. cmDspSysInstallCb(h, onb, "sym", mfpRt,"s-in", NULL );
  173. cmDspSysInstallCb(h, mfpRt,"s-out-0",mfp, "sel", NULL );
  174. cmDspSysInstallCb(h, onb, "sym", pts, "on", NULL );
  175. cmDspSysInstallCb(h, pts, "on", modp, "cmd", NULL );
  176. cmDspSysInstallCb(h, onb, "sym", amCmd, "rewind", NULL );
  177. cmDspSysInstallCb(h, onb, "out", c0.achan,"reset", NULL );
  178. cmDspSysInstallCb(h, onb, "out", c1.achan,"reset", NULL );
  179. cmDspSysInstallCb(h, mod_sel,"out", modp, "sel", NULL );
  180. // stop connections
  181. cmDspSysInstallCb(h, tlp, "mfn", pts, "off", NULL ); // Prevents WT start on new audio file from TL.
  182. cmDspSysInstallCb(h, offb, "sym", mfp, "sel", NULL );
  183. cmDspSysInstallCb(h, offb, "sym", pts, "off", NULL );
  184. cmDspSysInstallCb(h, pts, "off", modp,"cmd", NULL );
  185. cmDspSysInstallCb(h, offb, "sym", mop, "reset", NULL );
  186. cmDspSysInstallCb(h, offb, "sym", mo2p,"reset", NULL );
  187. // time-line to MIDI file player selection
  188. cmDspSysInstallCb(h, tlp, "mbsi", mfp, "bsi", NULL );
  189. cmDspSysInstallCb(h, tlp, "mesi", mfp, "esi", NULL );
  190. cmDspSysInstallCb(h, tlp, "mfn", mfp, "fn", NULL );
  191. // score to score follower - to set initial search location
  192. cmDspSysInstallCb(h, scp, "sel", sfp, "index", NULL );
  193. cmDspSysInstallCb(h, scp, "sel", modp,"reset", NULL );
  194. cmDspSysInstallCb(h, scp, "sel", prp, "in", NULL );
  195. // MIDI file player to score follower and sampler
  196. cmDspSysInstallCb(h, mfp, "smpidx", sfp, "smpidx",NULL );
  197. cmDspSysInstallCb(h, mfp, "id", sfp, "muid", NULL );
  198. cmDspSysInstallCb(h, mfp, "d1", sfp, "d1", NULL );
  199. cmDspSysInstallCb(h, mfp, "d1", nmp, "d1", NULL );
  200. cmDspSysInstallCb(h, nmp, "d1", mop, "d1", NULL );
  201. cmDspSysInstallCb(h, nmp, "d1", mo2p, "d1", NULL );
  202. cmDspSysInstallCb(h, mfp, "d0", sfp, "d0", NULL );
  203. cmDspSysInstallCb(h, mfp, "d0", nmp, "d0", NULL );
  204. cmDspSysInstallCb(h, nmp, "d0", mop, "d0", NULL );
  205. cmDspSysInstallCb(h, nmp, "d0", mo2p, "d0", NULL );
  206. cmDspSysInstallCb(h, mfp, "status", sfp, "status",NULL );
  207. cmDspSysInstallCb(h, mfp, "status", nmp, "status",NULL );
  208. cmDspSysInstallCb(h, nmp, "status", mop, "status",NULL );
  209. cmDspSysInstallCb(h, nmp, "status", mo2p, "status",NULL );
  210. // score follower to recd_play,modulator and printers
  211. cmDspSysInstallCb(h, sfp, "out", modp, "index", NULL );
  212. cmDspSysInstallCb(h, sfp, "recent", prp, "in", NULL ); // report 'recent' but only act on 'max' loc index
  213. cmDspSysInstallCb(h, igain0, "val", ai0, "gain", NULL ); // input gain control
  214. cmDspSysInstallCb(h, igain1, "val", ai1, "gain", NULL );
  215. cmDspSysInstallCb(h, modp, "dgain0", ogain0, "val", NULL );
  216. cmDspSysInstallCb(h, modp, "dgain1", ogain1, "val", NULL );
  217. cmDspSysInstallCb(h, modp, "wgain0", ogain2, "val", NULL );
  218. cmDspSysInstallCb(h, modp, "wgain1", ogain3, "val", NULL );
  219. cmDspSysInstallCb(h, ogain0, "val", ao0, "gain", NULL ); // output gain control - dry 0
  220. cmDspSysInstallCb(h, ogain1, "val", ao1, "gain", NULL ); // dry 1
  221. cmDspSysInstallCb(h, ogain2, "val", ao2, "gain", NULL ); // wet 0
  222. cmDspSysInstallCb(h, ogain3, "val", ao3, "gain", NULL ); // wet 1
  223. return rc;
  224. }
  225. //------------------------------------------------------------------------------
  226. //)