libcm is a C development framework with an emphasis on audio signal processing applications.
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

cmDspKr.c 75KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513
  1. #include "cmPrefix.h"
  2. #include "cmGlobal.h"
  3. #include "cmFloatTypes.h"
  4. #include "cmComplexTypes.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 "cmFile.h"
  12. #include "cmSymTbl.h"
  13. #include "cmJson.h"
  14. #include "cmText.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 "cmAudioSys.h"
  22. #include "cmDspCtx.h"
  23. #include "cmDspClass.h"
  24. #include "cmDspStore.h"
  25. #include "cmDspUi.h"
  26. #include "cmDspSys.h"
  27. #include "cmMath.h"
  28. #include "cmAudioFile.h"
  29. #include "cmFileSys.h"
  30. #include "cmProcObj.h"
  31. #include "cmProcTemplateMain.h"
  32. #include "cmProc.h"
  33. #include "cmMidi.h"
  34. #include "cmProc2.h"
  35. #include "cmVectOpsTemplateMain.h"
  36. #include "cmAudioFile.h"
  37. #include "cmMidiFile.h"
  38. #include "cmTimeLine.h"
  39. #include "cmScore.h"
  40. #include "cmProc4.h"
  41. enum
  42. {
  43. kWndSmpCntKrId,
  44. kHopFactKrId,
  45. kModeKrId,
  46. kThreshKrId,
  47. kLwrSlopeKrId,
  48. kUprSlopeKrId,
  49. kOffsetKrId,
  50. kInvertKrId,
  51. kBypassKrId,
  52. kWetKrId,
  53. kAudioInKrId,
  54. kAudioOutKrId
  55. };
  56. typedef struct
  57. {
  58. cmDspInst_t inst;
  59. cmCtx* ctx;
  60. cmSpecDist_t* sdp;
  61. } cmDspKr_t;
  62. cmDspClass_t _cmKrDC;
  63. //==========================================================================================================================================
  64. cmDspInst_t* _cmDspKrAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  65. {
  66. cmDspVarArg_t args[] =
  67. {
  68. { "wndn", kWndSmpCntKrId, 0, 0, kInDsvFl | kUIntDsvFl | kReqArgDsvFl, "Window sample count" },
  69. { "hopf", kHopFactKrId, 0, 0, kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "Hop factor" },
  70. { "mode", kModeKrId, 0, 0, kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "Mode 0=bypass 1=basic 2=spec cnt 3=amp env" },
  71. { "thrh", kThreshKrId, 0, 0, kInDsvFl | kDoubleDsvFl | kOptArgDsvFl, "Threshold" },
  72. { "lwrs", kLwrSlopeKrId, 0, 0, kInDsvFl | kDoubleDsvFl | kOptArgDsvFl, "Lower Slope"},
  73. { "uprs", kUprSlopeKrId, 0, 0, kInDsvFl | kDoubleDsvFl | kOptArgDsvFl, "Upper Slope"},
  74. { "offs", kOffsetKrId, 0, 0, kInDsvFl | kDoubleDsvFl | kOptArgDsvFl, "Offset"},
  75. { "invt", kInvertKrId, 0, 0, kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "Invert"},
  76. { "bypass", kBypassKrId, 0, 0, kInDsvFl | kBoolDsvFl | kOptArgDsvFl, "Bypass enable flag." },
  77. { "wet", kWetKrId, 0, 0, kInDsvFl | kSampleDsvFl, "Wet mix level."},
  78. { "in", kAudioInKrId, 0, 0, kInDsvFl | kAudioBufDsvFl, "Audio Input" },
  79. { "out", kAudioOutKrId, 0, 1, kOutDsvFl | kAudioBufDsvFl, "Audio Output" },
  80. { NULL, 0, 0, 0, 0 }
  81. };
  82. cmDspKr_t* p = cmDspInstAlloc(cmDspKr_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  83. unsigned defWndSmpCnt = cmDspDefaultUInt(&p->inst,kWndSmpCntKrId);
  84. unsigned wndSmpCnt = cmNextPowerOfTwo( defWndSmpCnt );
  85. cmDspSetDefaultUInt( ctx,&p->inst, kWndSmpCntKrId, defWndSmpCnt, wndSmpCnt );
  86. cmDspSetDefaultUInt( ctx,&p->inst, kHopFactKrId, 0, 4 );
  87. cmDspSetDefaultUInt( ctx,&p->inst, kModeKrId, 0, kBasicModeSdId );
  88. cmDspSetDefaultDouble( ctx,&p->inst, kThreshKrId, 0, 60.0 );
  89. cmDspSetDefaultDouble( ctx,&p->inst, kLwrSlopeKrId, 0, 2.0 );
  90. cmDspSetDefaultDouble( ctx,&p->inst, kUprSlopeKrId, 0, 0.0 );
  91. cmDspSetDefaultDouble( ctx,&p->inst, kOffsetKrId, 0, 30.0);
  92. cmDspSetDefaultUInt( ctx,&p->inst, kInvertKrId, 0, 0 );
  93. cmDspSetDefaultUInt( ctx,&p->inst, kBypassKrId, 0, 0 );
  94. cmDspSetDefaultSample( ctx,&p->inst, kWetKrId, 0, 1.0);
  95. //_cmDspKrCmInit(ctx,p); // initialize the cm library
  96. p->ctx = cmCtxAlloc(NULL,ctx->rpt,ctx->lhH,ctx->stH);
  97. return &p->inst;
  98. }
  99. cmDspRC_t _cmDspKrFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  100. {
  101. cmDspRC_t rc = kOkDspRC;
  102. cmDspKr_t* p = (cmDspKr_t*)inst;
  103. cmSpecDistFree(&p->sdp);
  104. cmCtxFree(&p->ctx);
  105. //_cmDspKrCmFinal(ctx,p); // finalize the cm library
  106. return rc;
  107. }
  108. cmDspRC_t _cmDspKrSetup(cmDspCtx_t* ctx, cmDspKr_t* p )
  109. {
  110. cmDspRC_t rc = kOkDspRC;
  111. unsigned wndSmpCnt = cmDspUInt(&p->inst,kWndSmpCntKrId);
  112. unsigned hopFact = cmDspUInt(&p->inst,kHopFactKrId);
  113. unsigned olaWndTypeId =kHannWndId;
  114. cmSpecDistFree(&p->sdp);
  115. p->sdp = cmSpecDistAlloc(p->ctx, NULL, cmDspSamplesPerCycle(ctx), cmDspSampleRate(ctx), wndSmpCnt, hopFact, olaWndTypeId);
  116. assert(p->sdp != NULL );
  117. if((rc = cmDspZeroAudioBuf(ctx,&p->inst,kAudioOutKrId)) != kOkDspRC )
  118. return rc;
  119. return rc;
  120. }
  121. cmDspRC_t _cmDspKrReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  122. {
  123. cmDspKr_t* p = (cmDspKr_t*)inst;
  124. cmDspRC_t rc;
  125. if((rc = cmDspApplyAllDefaults(ctx,inst)) != kOkDspRC )
  126. return rc;
  127. return _cmDspKrSetup(ctx,p);
  128. }
  129. cmDspRC_t _cmDspKrExec(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  130. {
  131. cmDspKr_t* p = (cmDspKr_t*)inst;
  132. cmDspRC_t rc = kOkDspRC;
  133. unsigned iChIdx = 0;
  134. const cmSample_t* ip = cmDspAudioBuf(ctx,inst,kAudioInKrId,iChIdx);
  135. unsigned iSmpCnt = cmDspVarRows(inst,kAudioInKrId);
  136. // if no connected
  137. if( iSmpCnt == 0 )
  138. return rc;
  139. unsigned oChIdx = 0;
  140. cmSample_t* op = cmDspAudioBuf(ctx,inst,kAudioOutKrId,oChIdx);
  141. unsigned oSmpCnt = cmDspVarRows(inst,kAudioOutKrId);
  142. const cmSample_t* sp;
  143. cmSample_t wet = cmDspSample(inst,kWetKrId);
  144. cmSpecDistExec(p->sdp,ip,iSmpCnt);
  145. if((sp = cmSpecDistOut(p->sdp)) != NULL )
  146. {
  147. cmVOS_MultVVS(op,oSmpCnt,sp,wet);
  148. }
  149. if( wet<1.0 )
  150. cmVOS_MultSumVVS(op,oSmpCnt,ip,1.0-wet);
  151. return rc;
  152. }
  153. cmDspRC_t _cmDspKrRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  154. {
  155. cmDspKr_t* p = (cmDspKr_t*)inst;
  156. cmDspRC_t rc = kOkDspRC;
  157. cmDspSetEvent(ctx,inst,evt);
  158. switch( evt->dstVarId )
  159. {
  160. case kWndSmpCntKrId:
  161. case kHopFactKrId:
  162. _cmDspKrSetup(ctx,p);
  163. // THIS IS A HACK
  164. // WHEN WND OR HOP CHANGE THE RESULTING CHANGES
  165. // SHOULD BE ISOLATED IN cmSpecDist() AND THE
  166. // CURRENT STATE OF THE PARAMETERS SHOULD NOT BE
  167. // LOST - IF THE CHANGES WERE ISOLATED WITHIN PVANL
  168. // AND PVSYN IT MIGHT BE POSSIBLE TO DO WITH
  169. // MINIMAL AUDIO INTERUPTION.
  170. p->sdp->mode = cmDspUInt(inst,kModeKrId);
  171. p->sdp->thresh = cmDspDouble(inst,kThreshKrId);
  172. p->sdp->uprSlope = cmDspDouble(inst,kUprSlopeKrId);
  173. p->sdp->lwrSlope = cmDspDouble(inst,kLwrSlopeKrId);
  174. p->sdp->offset = cmDspDouble(inst,kOffsetKrId);
  175. p->sdp->invertFl = cmDspUInt(inst,kInvertKrId)!=0;
  176. printf("wsn:%i hsn:%i\n",p->sdp->wndSmpCnt,p->sdp->hopSmpCnt);
  177. break;
  178. case kModeKrId:
  179. p->sdp->mode = cmDspUInt(inst,kModeKrId);
  180. printf("mode:%i\n",p->sdp->mode);
  181. break;
  182. case kThreshKrId:
  183. p->sdp->thresh = cmDspDouble(inst,kThreshKrId);
  184. //printf("thr:p:%p sdp:%p %f\n",p,p->sdp,p->sdp->thresh);
  185. break;
  186. case kUprSlopeKrId:
  187. p->sdp->uprSlope = cmDspDouble(inst,kUprSlopeKrId);
  188. //printf("upr slope:%f\n",p->sdp->uprSlope);
  189. break;
  190. case kLwrSlopeKrId:
  191. p->sdp->lwrSlope = cmDspDouble(inst,kLwrSlopeKrId);
  192. //printf("upr slope:%f\n",p->sdp->lwrSlope);
  193. break;
  194. case kOffsetKrId:
  195. p->sdp->offset = cmDspDouble(inst,kOffsetKrId);
  196. break;
  197. case kInvertKrId:
  198. p->sdp->invertFl = cmDspUInt(inst,kInvertKrId)!=0;
  199. break;
  200. case kWetKrId:
  201. break;
  202. default:
  203. { assert(0); }
  204. }
  205. return rc;
  206. }
  207. struct cmDspClass_str* cmKrClassCons( cmDspCtx_t* ctx )
  208. {
  209. cmDspClassSetup(&_cmKrDC,ctx,"Kr",
  210. NULL,
  211. _cmDspKrAlloc,
  212. _cmDspKrFree,
  213. _cmDspKrReset,
  214. _cmDspKrExec,
  215. _cmDspKrRecv,
  216. NULL,NULL,
  217. "Fourier based non-linear transformer.");
  218. return &_cmKrDC;
  219. }
  220. //==========================================================================================================================================
  221. // Time Line UI Object
  222. enum
  223. {
  224. kTlFileTlId,
  225. kPrefixPathTlId,
  226. kSelTlId,
  227. kCursTlId,
  228. kResetTlId,
  229. kAudFnTlId,
  230. kAudLblTlId,
  231. kMidiFnTlId,
  232. kMidiLblTlId,
  233. kBegAudSmpIdxTlId,
  234. kEndAudSmpIdxTlId,
  235. kBegMidiSmpIdxTlId,
  236. kEndMidiSmpIdxTlId
  237. };
  238. cmDspClass_t _cmTimeLineDC;
  239. typedef struct
  240. {
  241. cmDspInst_t inst;
  242. cmTlH_t tlH;
  243. unsigned afIdx;
  244. } cmDspTimeLine_t;
  245. cmDspInst_t* _cmDspTimeLineAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  246. {
  247. cmDspVarArg_t args[] =
  248. {
  249. { "tlfile", kTlFileTlId, 0, 0, kInDsvFl | kStrzDsvFl | kReqArgDsvFl, "Time line file." },
  250. { "path", kPrefixPathTlId, 0, 0, kInDsvFl | kStrzDsvFl | kReqArgDsvFl, "Time line data file prefix path" },
  251. { "sel", kSelTlId, 0, 0, kInDsvFl | kOutDsvFl | kUIntDsvFl, "Selected marker id."},
  252. { "curs", kCursTlId, 0, 0, kInDsvFl | kUIntDsvFl, "Current audio file index."},
  253. { "reset", kResetTlId, 0, 0, kInDsvFl | kSymDsvFl, "Resend all outputs." },
  254. { "afn", kAudFnTlId, 0, 0, kOutDsvFl | kStrzDsvFl, "Selected Audio file." },
  255. { "albl", kAudLblTlId, 0, 0, kOutDsvFl | kStrzDsvFl, "Select Audio file time line label."},
  256. { "mfn", kMidiFnTlId, 0, 0, kOutDsvFl | kStrzDsvFl, "Selected MIDI file." },
  257. { "mlbl", kMidiLblTlId, 0, 0, kOutDsvFl | kStrzDsvFl, "Select MIDI file time line label."},
  258. { "absi", kBegAudSmpIdxTlId, 0, 0, kOutDsvFl | kIntDsvFl, "Begin audio sample index."},
  259. { "aesi", kEndAudSmpIdxTlId, 0, 0, kOutDsvFl | kIntDsvFl, "End audio sample index."},
  260. { "mbsi", kBegMidiSmpIdxTlId, 0, 0, kOutDsvFl | kIntDsvFl, "Begin MIDI sample index."},
  261. { "mesi", kEndMidiSmpIdxTlId, 0, 0, kOutDsvFl | kIntDsvFl, "End MIDI sample index."},
  262. { NULL, 0, 0, 0, 0 }
  263. };
  264. cmDspTimeLine_t* p = cmDspInstAlloc(cmDspTimeLine_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  265. cmDspSetDefaultUInt( ctx, &p->inst, kSelTlId, 0, cmInvalidId);
  266. cmDspSetDefaultUInt( ctx, &p->inst, kCursTlId, 0, 0);
  267. cmDspSetDefaultStrcz(ctx, &p->inst, kAudFnTlId, NULL, "");
  268. cmDspSetDefaultStrcz(ctx, &p->inst, kAudLblTlId, NULL, "");
  269. cmDspSetDefaultStrcz(ctx, &p->inst, kMidiFnTlId, NULL, "");
  270. cmDspSetDefaultStrcz(ctx, &p->inst, kMidiLblTlId, NULL, "");
  271. cmDspSetDefaultInt( ctx, &p->inst, kBegAudSmpIdxTlId, 0, cmInvalidIdx);
  272. cmDspSetDefaultInt( ctx, &p->inst, kEndAudSmpIdxTlId, 0, cmInvalidIdx);
  273. cmDspSetDefaultInt( ctx, &p->inst, kBegMidiSmpIdxTlId, 0, cmInvalidIdx);
  274. cmDspSetDefaultInt( ctx, &p->inst, kEndMidiSmpIdxTlId, 0, cmInvalidIdx);
  275. // create the UI control
  276. cmDspUiTimeLineCreate(ctx,&p->inst,kTlFileTlId,kPrefixPathTlId,kSelTlId,kCursTlId);
  277. p->tlH = cmTimeLineNullHandle;
  278. return &p->inst;
  279. }
  280. cmDspRC_t _cmDspTimeLineFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  281. {
  282. cmDspRC_t rc = kOkDspRC;
  283. cmDspTimeLine_t* p = (cmDspTimeLine_t*)inst;
  284. if( cmTimeLineFinalize(&p->tlH) != kOkTlRC )
  285. return cmErrMsg(&inst->classPtr->err, kInstFinalFailDspRC, "Time-line finalize failed.");
  286. return rc;
  287. }
  288. cmDspRC_t _cmDspTimeLineReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  289. {
  290. cmDspRC_t rc = kOkDspRC;
  291. cmDspTimeLine_t* p = (cmDspTimeLine_t*)inst;
  292. cmDspApplyAllDefaults(ctx,inst);
  293. const cmChar_t* tlFn;
  294. const cmChar_t* tlPrePath = cmDspStrcz(inst,kPrefixPathTlId);
  295. if((tlFn = cmDspStrcz(inst, kTlFileTlId )) != NULL )
  296. if( cmTimeLineInitializeFromFile(ctx->cmCtx, &p->tlH, NULL, NULL, tlFn, tlPrePath ) != kOkTlRC )
  297. rc = cmErrMsg(&inst->classPtr->err, kInstResetFailDspRC, "Time-line file open failed.");
  298. return rc;
  299. }
  300. cmDspRC_t _cmDspTimeLineRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  301. {
  302. cmDspTimeLine_t* p = (cmDspTimeLine_t*)inst;
  303. switch( evt->dstVarId )
  304. {
  305. case kPrefixPathTlId:
  306. cmDspSetEvent(ctx,inst,evt);
  307. break;
  308. case kCursTlId:
  309. cmDspSetEvent(ctx,inst,evt);
  310. break;
  311. case kResetTlId:
  312. case kSelTlId:
  313. {
  314. unsigned markerId;
  315. cmDspSetEvent(ctx,inst,evt);
  316. // get the id of the selected marker
  317. if((markerId = cmDspUInt(inst,kSelTlId)) != cmInvalidId )
  318. {
  319. // get the marker object
  320. cmTlObj_t* op;
  321. if((op = cmTimeLineIdToObj(p->tlH, cmInvalidId, markerId )) != NULL )
  322. {
  323. assert(op->typeId == kMarkerTlId);
  324. p->afIdx = op->begSmpIdx;
  325. cmDspSetInt(ctx, inst, kBegAudSmpIdxTlId, op->begSmpIdx );
  326. cmDspSetInt(ctx, inst, kEndAudSmpIdxTlId, op->begSmpIdx + op->durSmpCnt );
  327. // locate the audio file assoc'd with the marker
  328. cmTlAudioFile_t* afp;
  329. if((afp = cmTimeLineAudioFileAtTime(p->tlH,op->seqId,op->seqSmpIdx)) != NULL)
  330. {
  331. cmDspSetStrcz(ctx, inst, kAudFnTlId, afp->fn );
  332. cmDspSetStrcz(ctx, inst, kAudLblTlId, afp->obj.name );
  333. }
  334. // locate the midi file assoc'd with the marker
  335. cmTlMidiFile_t* mfp;
  336. if((mfp = cmTimeLineMidiFileAtTime(p->tlH,op->seqId,op->seqSmpIdx)) != NULL )
  337. {
  338. cmDspSetInt(ctx, inst, kBegMidiSmpIdxTlId, op->seqSmpIdx - mfp->obj.seqSmpIdx );
  339. cmDspSetInt(ctx, inst, kEndMidiSmpIdxTlId, op->seqSmpIdx + op->durSmpCnt - mfp->obj.seqSmpIdx );
  340. cmDspSetStrcz(ctx, inst, kMidiFnTlId, mfp->fn );
  341. cmDspSetStrcz(ctx, inst, kMidiLblTlId,mfp->obj.name );
  342. }
  343. }
  344. }
  345. }
  346. break;
  347. default:
  348. {assert(0);}
  349. }
  350. return kOkDspRC;
  351. }
  352. struct cmDspClass_str* cmTimeLineClassCons( cmDspCtx_t* ctx )
  353. {
  354. cmDspClassSetup(&_cmTimeLineDC,ctx,"TimeLine",
  355. NULL,
  356. _cmDspTimeLineAlloc,
  357. _cmDspTimeLineFree,
  358. _cmDspTimeLineReset,
  359. NULL,
  360. _cmDspTimeLineRecv,
  361. NULL,NULL,
  362. "Time Line control.");
  363. return &_cmTimeLineDC;
  364. }
  365. //==========================================================================================================================================
  366. // Score UI Object
  367. enum
  368. {
  369. kFnScId,
  370. kSelScId,
  371. kSendScId,
  372. kStatusScId,
  373. kD0ScId,
  374. kD1ScId,
  375. kSmpIdxScId,
  376. kLocIdxScId,
  377. kEvtIdxScId,
  378. kDynScId,
  379. kValTypeScId,
  380. kValueScId
  381. };
  382. cmDspClass_t _cmScoreDC;
  383. typedef struct
  384. {
  385. cmDspInst_t inst;
  386. cmScH_t scH;
  387. cmDspCtx_t* ctx; // temporary ctx ptr used during cmScore callback in _cmDspScoreRecv()
  388. } cmDspScore_t;
  389. cmDspInst_t* _cmDspScoreAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  390. {
  391. cmDspVarArg_t args[] =
  392. {
  393. { "fn", kFnScId, 0, 0, kInDsvFl | kStrzDsvFl | kReqArgDsvFl, "Score file." },
  394. { "sel", kSelScId, 0, 0, kInDsvFl | kOutDsvFl | kUIntDsvFl, "Selected score element index input."},
  395. { "send", kSendScId, 0, 0, kInDsvFl | kTypeDsvMask, "Resend last selected score element."},
  396. { "status", kStatusScId, 0, 0, kInDsvFl | kIntDsvFl, "Performed MIDI status value output" },
  397. { "d0", kD0ScId, 0, 0, kInDsvFl | kUIntDsvFl, "Performed MIDI msg data byte 0" },
  398. { "d1", kD1ScId, 0, 0, kInDsvFl | kUIntDsvFl, "Performed MIDI msg data byte 1" },
  399. { "smpidx", kSmpIdxScId, 0, 0, kInDsvFl | kUIntDsvFl, "Performed MIDi msg time tag as a sample index." },
  400. { "loc", kLocIdxScId, 0, 0, kInDsvFl | kUIntDsvFl, "Performance score location."},
  401. { "evtidx", kEvtIdxScId, 0, 0, kOutDsvFl | kUIntDsvFl, "Performed event index of following dynamcis level."},
  402. { "dyn", kDynScId, 0, 0, kOutDsvFl | kUIntDsvFl, "Dynamic level of previous event index."},
  403. { "type", kValTypeScId,0, 0, kOutDsvFl | kUIntDsvFl, "Output variable type."},
  404. { "value", kValueScId, 0, 0, kOutDsvFl | kDoubleDsvFl, "Output variable value."},
  405. { NULL, 0, 0, 0, 0 }
  406. };
  407. cmDspScore_t* p = cmDspInstAlloc(cmDspScore_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  408. cmDspSetDefaultUInt( ctx, &p->inst, kSelScId, 0, cmInvalidId);
  409. // create the UI control
  410. cmDspUiScoreCreate(ctx,&p->inst,kFnScId,kSelScId,kSmpIdxScId,kD0ScId,kD1ScId,kLocIdxScId,kEvtIdxScId,kDynScId,kValTypeScId,kValueScId);
  411. p->scH = cmScNullHandle;
  412. return &p->inst;
  413. }
  414. cmDspRC_t _cmDspScoreFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  415. {
  416. cmDspRC_t rc = kOkDspRC;
  417. cmDspScore_t* p = (cmDspScore_t*)inst;
  418. if( cmScoreFinalize(&p->scH) != kOkTlRC )
  419. return cmErrMsg(&inst->classPtr->err, kInstFinalFailDspRC, "Score finalize failed.");
  420. return rc;
  421. }
  422. // Callback from cmScore triggered from _cmDspScoreRecv() during call to cmScoreSetPerfEvent().
  423. void _cmDspScoreCb( void* arg, const void* data, unsigned byteCnt )
  424. {
  425. cmDspInst_t* inst = (cmDspInst_t*)arg;
  426. cmDspScore_t* p = (cmDspScore_t*)inst;
  427. cmScMsg_t m;
  428. if( cmScoreDecode(data,byteCnt,&m) == kOkScRC )
  429. {
  430. switch( m.typeId )
  431. {
  432. case kDynMsgScId:
  433. cmDspSetUInt( p->ctx,inst, kEvtIdxScId, m.u.dyn.evtIdx );
  434. cmDspSetUInt( p->ctx,inst, kDynScId, m.u.dyn.dynLvl );
  435. break;
  436. case kVarMsgScId:
  437. cmDspSetUInt( p->ctx,inst, kValTypeScId, m.u.meas.varId);
  438. cmDspSetDouble(p->ctx,inst, kValueScId, m.u.meas.value);
  439. break;
  440. default:
  441. { assert(0); }
  442. }
  443. }
  444. }
  445. cmDspRC_t _cmDspScoreReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  446. {
  447. cmDspRC_t rc = kOkDspRC;
  448. cmDspScore_t* p = (cmDspScore_t*)inst;
  449. const cmChar_t* tlFn = NULL;
  450. unsigned* dynRefArray = NULL;
  451. unsigned dynRefCnt = 0;
  452. cmDspApplyAllDefaults(ctx,inst);
  453. if( cmDspRsrcUIntArray(ctx->dspH, &dynRefCnt, &dynRefArray, "dynRef", NULL ) != kOkDspRC )
  454. {
  455. rc = cmErrMsg(&inst->classPtr->err, kRsrcNotFoundDspRC, "The dynamics reference array resource was not found.");
  456. goto errLabel;
  457. }
  458. if((tlFn = cmDspStrcz(inst, kFnScId )) != NULL )
  459. if( cmScoreInitialize(ctx->cmCtx, &p->scH, tlFn, cmDspSampleRate(ctx), dynRefArray, dynRefCnt, _cmDspScoreCb, p, ctx->stH ) != kOkTlRC )
  460. rc = cmErrMsg(&inst->classPtr->err, kInstResetFailDspRC, "Score file open failed.");
  461. errLabel:
  462. return rc;
  463. }
  464. cmDspRC_t _cmDspScoreRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  465. {
  466. cmDspScore_t* p = (cmDspScore_t*)inst;
  467. if( evt->dstVarId == kSendScId )
  468. {
  469. unsigned selIdx;
  470. if((selIdx = cmDspUInt(inst,kSelScId)) != cmInvalidIdx )
  471. {
  472. cmDspSetUInt(ctx,inst,kSelScId, selIdx );
  473. cmScoreClearPerfInfo(p->scH);
  474. }
  475. return kOkDspRC;
  476. }
  477. cmDspSetEvent(ctx,inst,evt);
  478. switch( evt->dstVarId )
  479. {
  480. case kSelScId:
  481. cmScoreClearPerfInfo(p->scH);
  482. break;
  483. case kStatusScId:
  484. //printf("st:%x\n",cmDspUInt(inst,kStatusScId));
  485. break;
  486. case kLocIdxScId:
  487. {
  488. assert( cmDspUInt(inst,kStatusScId ) == kNoteOnMdId );
  489. p->ctx = ctx; // setup p->ctx for use in _cmDspScoreCb()
  490. // this call may result in callbacks to _cmDspScoreCb()
  491. cmScoreExecPerfEvent(p->scH, cmDspUInt(inst,kLocIdxScId), cmDspUInt(inst,kSmpIdxScId), cmDspUInt(inst,kD0ScId), cmDspUInt(inst,kD1ScId) );
  492. }
  493. break;
  494. }
  495. return kOkDspRC;
  496. }
  497. struct cmDspClass_str* cmScoreClassCons( cmDspCtx_t* ctx )
  498. {
  499. cmDspClassSetup(&_cmScoreDC,ctx,"Score",
  500. NULL,
  501. _cmDspScoreAlloc,
  502. _cmDspScoreFree,
  503. _cmDspScoreReset,
  504. NULL,
  505. _cmDspScoreRecv,
  506. NULL,NULL,
  507. "Score control.");
  508. return &_cmScoreDC;
  509. }
  510. //==========================================================================================================================================
  511. // MIDI File Player
  512. enum
  513. {
  514. kFnMfId,
  515. kSelMfId,
  516. kBsiMfId,
  517. kEsiMfId,
  518. kStatusMfId,
  519. kD0MfId,
  520. kD1MfId,
  521. kSmpIdxMfId,
  522. kIdMfId
  523. };
  524. cmDspClass_t _cmMidiFilePlayDC;
  525. typedef struct
  526. {
  527. cmDspInst_t inst;
  528. cmMidiFileH_t mfH;
  529. unsigned curMsgIdx; // current midi file msg index
  530. int csi; // current sample index
  531. int bsi; // starting sample index
  532. int esi; // ending sample index
  533. unsigned startSymId;
  534. unsigned stopSymId;
  535. unsigned contSymId;
  536. bool errFl;
  537. } cmDspMidiFilePlay_t;
  538. /*
  539. 'bsi' and 'esi' give the starting and ending sample for MIDI file playback.
  540. These indexes are relative to the start of the file.
  541. When the player recieves a 'start' msg it sets the current sample index
  542. 'si' to 'bsi' and begins scanning for the next note to play.
  543. On each call to the _cmDspMidiFilePlayExec() msgs that fall in the interval
  544. si:si+sPc-1 will be transmitted. (where sPc are the number of samples per DSP cycle).
  545. */
  546. cmDspInst_t* _cmDspMidiFilePlayAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  547. {
  548. cmDspVarArg_t args[] =
  549. {
  550. { "fn", kFnMfId, 0, 0, kInDsvFl | kStrzDsvFl, "File name"},
  551. { "sel", kSelMfId, 0, 0, kInDsvFl | kSymDsvFl, "start | stop | continue" },
  552. { "bsi", kBsiMfId, 0, 0, kInDsvFl | kIntDsvFl, "Starting sample." },
  553. { "esi", kEsiMfId, 0, 0, kInDsvFl | kIntDsvFl, "Ending sample."},
  554. { "status", kStatusMfId, 0, 0, kOutDsvFl | kIntDsvFl, "Status value output" },
  555. { "d0", kD0MfId, 0, 0, kOutDsvFl | kUIntDsvFl, "Data byte 0" },
  556. { "d1", kD1MfId, 0, 0, kOutDsvFl | kUIntDsvFl, "Data byte 1" },
  557. { "smpidx", kSmpIdxMfId, 0, 0, kOutDsvFl | kUIntDsvFl, "Msg time tag as a sample index." },
  558. { "id", kIdMfId, 0, 0, kOutDsvFl | kUIntDsvFl, "MIDI file msg unique id."},
  559. { NULL, 0, 0, 0, 0 }
  560. };
  561. cmDspMidiFilePlay_t* p = cmDspInstAlloc(cmDspMidiFilePlay_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  562. p->startSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"start");
  563. p->stopSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"stop");
  564. p->contSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"continue");
  565. p->mfH = cmMidiFileNullHandle;
  566. cmDspSetDefaultStrcz( ctx, &p->inst, kFnMfId, NULL, "");
  567. cmDspSetDefaultSymbol(ctx, &p->inst, kSelMfId, p->stopSymId);
  568. cmDspSetDefaultInt( ctx, &p->inst, kBsiMfId, 0, 0);
  569. cmDspSetDefaultInt( ctx, &p->inst, kEsiMfId, 0, 0);
  570. cmDspSetDefaultUInt( ctx, &p->inst, kStatusMfId, 0, 0);
  571. cmDspSetDefaultUInt( ctx, &p->inst, kD0MfId, 0, 0);
  572. cmDspSetDefaultUInt( ctx, &p->inst, kD1MfId, 0, 0);
  573. return &p->inst;
  574. }
  575. cmDspRC_t _cmDspMidiFilePlayFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  576. {
  577. cmDspMidiFilePlay_t* p = (cmDspMidiFilePlay_t*)inst;
  578. if( cmMidiFileClose(&p->mfH) )
  579. return cmErrMsg(&inst->classPtr->err, kInstFinalFailDspRC, "MIDI file close failed.");
  580. return kOkDspRC;
  581. }
  582. // return the index of the msg following smpIdx
  583. unsigned _cmDspMidiFilePlaySeekMsgIdx( cmDspCtx_t* ctx, cmDspInst_t* inst, unsigned smpIdx )
  584. {
  585. cmDspMidiFilePlay_t* p = (cmDspMidiFilePlay_t*)inst;
  586. if( cmMidiFileIsValid(p->mfH) == false )
  587. {
  588. cmErrMsg(&inst->classPtr->err, kInvalidStateDspRC,"The MIDI file player has not been given a valid MIDI file.");
  589. return cmInvalidIdx;
  590. }
  591. unsigned i;
  592. unsigned n = cmMidiFileMsgCount(p->mfH);
  593. const cmMidiTrackMsg_t** a = cmMidiFileMsgArray(p->mfH);
  594. for(i=0; i<n; ++i)
  595. if( a[i]->dtick > smpIdx )
  596. break;
  597. return i==n ? cmInvalidIdx : i;
  598. }
  599. cmDspRC_t _cmDspMidiFilePlayOpen(cmDspCtx_t* ctx, cmDspInst_t* inst )
  600. {
  601. cmDspRC_t rc = kOkDspRC;
  602. const cmChar_t* fn = cmDspStrcz(inst,kFnMfId);
  603. cmDspMidiFilePlay_t* p = (cmDspMidiFilePlay_t*)inst;
  604. p->errFl = false;
  605. if( fn==NULL || strlen(fn)==0 )
  606. return rc;
  607. if( cmMidiFileOpen( fn, &p->mfH, ctx->cmCtx ) != kOkFileRC )
  608. rc = cmErrMsg(&inst->classPtr->err, kInstResetFailDspRC, "MIDI file open failed.");
  609. else
  610. {
  611. p->curMsgIdx = 0;
  612. p->bsi = cmDspInt(inst,kBsiMfId);
  613. p->esi = cmDspInt(inst,kEsiMfId);
  614. p->csi = 0;
  615. // force the first msg to occurr one quarter note into the file
  616. cmMidiFileSetDelay(p->mfH, cmMidiFileTicksPerQN(p->mfH) );
  617. // convert midi msg times to absolute time in samples
  618. cmMidiFileTickToSamples(p->mfH,cmDspSampleRate(ctx),true);
  619. }
  620. return rc;
  621. }
  622. cmDspRC_t _cmDspMidiFilePlayReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  623. {
  624. cmDspApplyAllDefaults(ctx,inst);
  625. return _cmDspMidiFilePlayOpen(ctx,inst);
  626. }
  627. cmDspRC_t _cmDspMidiFilePlayExec(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  628. {
  629. cmDspRC_t rc = kOkDspRC;
  630. cmDspMidiFilePlay_t* p = (cmDspMidiFilePlay_t*)inst;
  631. unsigned sPc = cmDspSamplesPerCycle(ctx);
  632. if( cmDspSymbol(inst,kSelMfId) != p->stopSymId )
  633. {
  634. if( cmMidiFileIsValid(p->mfH) == false )
  635. {
  636. if( p->errFl==false )
  637. {
  638. rc = cmErrMsg(&inst->classPtr->err, kInvalidStateDspRC,"The MIDI file player has not been given a valid MIDI file.");
  639. p->errFl = true;
  640. }
  641. return rc;
  642. }
  643. const cmMidiTrackMsg_t** mpp = cmMidiFileMsgArray(p->mfH);
  644. unsigned msgN = cmMidiFileMsgCount(p->mfH);
  645. for(; p->curMsgIdx < msgN && p->csi <= mpp[p->curMsgIdx]->dtick && mpp[p->curMsgIdx]->dtick < (p->csi + sPc); ++p->curMsgIdx )
  646. {
  647. const cmMidiTrackMsg_t* mp = mpp[p->curMsgIdx];
  648. switch( mp->status )
  649. {
  650. case kNoteOffMdId:
  651. case kNoteOnMdId:
  652. case kCtlMdId:
  653. cmDspSetUInt(ctx,inst, kSmpIdxMfId, mp->dtick);
  654. cmDspSetUInt(ctx,inst, kD1MfId, mp->u.chMsgPtr->d1);
  655. cmDspSetUInt(ctx,inst, kD0MfId, mp->u.chMsgPtr->d0);
  656. cmDspSetUInt(ctx,inst, kStatusMfId, mp->status);
  657. cmDspSetUInt(ctx,inst, kIdMfId, mp->uid);
  658. break;
  659. }
  660. }
  661. }
  662. p->csi += sPc;
  663. return rc;
  664. }
  665. cmDspRC_t _cmDspMidiFilePlayRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  666. {
  667. cmDspMidiFilePlay_t* p = (cmDspMidiFilePlay_t*)inst;
  668. cmDspSetEvent(ctx,inst,evt);
  669. switch(evt->dstVarId)
  670. {
  671. case kFnMfId:
  672. _cmDspMidiFilePlayOpen(ctx, inst );
  673. break;
  674. case kSelMfId:
  675. {
  676. if( cmDspSymbol(inst,kSelMfId)==p->startSymId )
  677. {
  678. p->csi = cmDspInt(inst,kBsiMfId);
  679. p->curMsgIdx = _cmDspMidiFilePlaySeekMsgIdx(ctx, inst, p->csi );
  680. }
  681. break;
  682. }
  683. }
  684. return kOkDspRC;
  685. }
  686. struct cmDspClass_str* cmMidiFilePlayClassCons( cmDspCtx_t* ctx )
  687. {
  688. cmDspClassSetup(&_cmMidiFilePlayDC,ctx,"MidiFilePlay",
  689. NULL,
  690. _cmDspMidiFilePlayAlloc,
  691. _cmDspMidiFilePlayFree,
  692. _cmDspMidiFilePlayReset,
  693. _cmDspMidiFilePlayExec,
  694. _cmDspMidiFilePlayRecv,
  695. NULL,NULL,
  696. "MIDI file player.");
  697. return &_cmMidiFilePlayDC;
  698. }
  699. //==========================================================================================================================================
  700. enum
  701. {
  702. kFnSfId,
  703. kBufCntSfId,
  704. kMinLkAhdSfId,
  705. kMaxWndCntSfId,
  706. kMinVelSfId,
  707. kIndexSfId,
  708. kStatusSfId,
  709. kD0SfId,
  710. kD1SfId,
  711. kSmpIdxSfId,
  712. kCmdSfId,
  713. kOutSfId,
  714. kRecentSfId,
  715. kDynSfId,
  716. kEvenSfId,
  717. kTempoSfId,
  718. kCostSfId,
  719. kSymSfId
  720. };
  721. cmDspClass_t _cmScFolDC;
  722. struct cmDspScFol_str;
  723. typedef struct
  724. {
  725. cmDspCtx_t* ctx;
  726. struct cmDspScFol_str* sfp;
  727. } cmDspScFolCbArg_t;
  728. typedef struct cmDspScFol_str
  729. {
  730. cmDspInst_t inst;
  731. cmScMatcher* sfp;
  732. cmScMeas* smp;
  733. cmScH_t scH;
  734. cmDspScFolCbArg_t arg;
  735. unsigned printSymId;
  736. unsigned quietSymId;
  737. unsigned maxScLocIdx;
  738. } cmDspScFol_t;
  739. cmDspInst_t* _cmDspScFolAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  740. {
  741. cmDspVarArg_t args[] =
  742. {
  743. { "fn", kFnSfId, 0, 0, kInDsvFl | kStrzDsvFl | kReqArgDsvFl, "Score file." },
  744. { "bufcnt",kBufCntSfId, 0, 0, kInDsvFl | kUIntDsvFl, "Event buffer element count." },
  745. { "lkahd", kMinLkAhdSfId, 0, 0, kInDsvFl | kUIntDsvFl, "Minimum window look-ahead."},
  746. { "wndcnt",kMaxWndCntSfId,0, 0, kInDsvFl | kUIntDsvFl, "Maximum window length."},
  747. { "minvel",kMinVelSfId, 0, 0, kInDsvFl | kUIntDsvFl, "Minimum velocity."},
  748. { "index", kIndexSfId, 0, 0, kInDsvFl | kUIntDsvFl, "Tracking start location."},
  749. { "status",kStatusSfId, 0, 0, kInDsvFl | kUIntDsvFl, "MIDI status byte"},
  750. { "d0", kD0SfId, 0, 0, kInDsvFl | kUIntDsvFl, "MIDI data byte 0"},
  751. { "d1", kD1SfId, 0, 0, kInDsvFl | kUIntDsvFl, "MIDI data byte 1"},
  752. { "smpidx",kSmpIdxSfId, 0, 0, kInDsvFl | kUIntDsvFl, "MIDI time tag as a sample index"},
  753. { "cmd", kCmdSfId, 0, 0, kInDsvFl | kSymDsvFl, "Command input: print | quiet"},
  754. { "out", kOutSfId, 0, 0, kOutDsvFl| kUIntDsvFl, "Maximum score location index."},
  755. { "recent",kRecentSfId, 0, 0, kOutDsvFl| kUIntDsvFl, "Most recent score location index."},
  756. { "dyn", kDynSfId, 0, 0, kOutDsvFl| kDoubleDsvFl, "Dynamic value."},
  757. { "even", kEvenSfId, 0, 0, kOutDsvFl| kDoubleDsvFl, "Evenness value."},
  758. { "tempo", kTempoSfId, 0, 0, kOutDsvFl| kDoubleDsvFl, "Tempo value."},
  759. { "cost", kCostSfId, 0, 0, kOutDsvFl| kDoubleDsvFl, "Match cost value."},
  760. { "sym", kSymSfId, 0, 0, kOutDsvFl| kSymDsvFl, "Symbol associated with a global variable which has changed value."},
  761. { NULL, 0, 0, 0, 0, NULL }
  762. };
  763. cmDspScFol_t* p;
  764. if((p = cmDspInstAlloc(cmDspScFol_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl)) == NULL )
  765. return NULL;
  766. p->sfp = cmScMatcherAlloc(ctx->cmProcCtx, NULL, 0, cmScNullHandle, 0, 0, NULL, NULL );
  767. p->smp = cmScMeasAlloc( ctx->cmProcCtx, NULL, cmScNullHandle, 0, NULL, 0 );
  768. p->printSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"print");
  769. p->quietSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"quiet");
  770. p->maxScLocIdx= cmInvalidIdx;
  771. cmDspSetDefaultUInt( ctx, &p->inst, kBufCntSfId, 0, 7);
  772. cmDspSetDefaultUInt( ctx, &p->inst, kMaxWndCntSfId, 0, 10);
  773. cmDspSetDefaultUInt( ctx, &p->inst, kMinLkAhdSfId, 0, 3);
  774. cmDspSetDefaultUInt( ctx, &p->inst, kMinVelSfId, 0, 5);
  775. cmDspSetDefaultUInt( ctx, &p->inst, kIndexSfId, 0, 0);
  776. cmDspSetDefaultUInt( ctx, &p->inst, kOutSfId, 0, 0);
  777. cmDspSetDefaultUInt( ctx, &p->inst, kRecentSfId, 0, 0);
  778. cmDspSetDefaultDouble( ctx, &p->inst, kDynSfId, 0, 0);
  779. cmDspSetDefaultDouble( ctx, &p->inst, kEvenSfId, 0, 0);
  780. cmDspSetDefaultDouble( ctx, &p->inst, kTempoSfId, 0, 0);
  781. cmDspSetDefaultDouble( ctx, &p->inst, kCostSfId, 0, 0);
  782. cmDspSetDefaultSymbol(ctx,&p->inst, kCmdSfId, p->quietSymId );
  783. return &p->inst;
  784. }
  785. cmDspRC_t _cmDspScFolFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  786. {
  787. cmDspScFol_t* p = (cmDspScFol_t*)inst;
  788. cmScMatcherFree(&p->sfp);
  789. cmScMeasFree(&p->smp);
  790. cmScoreFinalize(&p->scH);
  791. return kOkDspRC;
  792. }
  793. // This is a callback function from cmScMatcherExec() which is called when
  794. // this cmDspFol object receives a new score location index.
  795. void _cmScFolMatcherCb( cmScMatcher* p, void* arg, cmScMatcherResult_t* rp )
  796. {
  797. cmDspScFolCbArg_t* ap = (cmDspScFolCbArg_t*)arg;
  798. if( cmScMeasExec(ap->sfp->smp, rp->mni, rp->locIdx, rp->scEvtIdx, rp->flags, rp->smpIdx, rp->pitch, rp->vel ) == cmOkRC )
  799. {
  800. cmDspInst_t* inst = &(ap->sfp->inst);
  801. // send 'set' values that were calculated on the previous call to cmScMeasExec()
  802. unsigned i;
  803. for(i=ap->sfp->smp->vsi; i<ap->sfp->smp->nsi; ++i)
  804. if(ap->sfp->smp->set[i].value != DBL_MAX )
  805. {
  806. switch( ap->sfp->smp->set[i].sp->varId )
  807. {
  808. case kEvenVarScId:
  809. cmDspSetDouble(ap->ctx,inst,kEvenSfId,ap->sfp->smp->set[i].value);
  810. break;
  811. case kDynVarScId:
  812. cmDspSetDouble(ap->ctx,inst,kDynSfId,ap->sfp->smp->set[i].value);
  813. break;
  814. case kTempoVarScId:
  815. cmDspSetDouble(ap->ctx,inst,kTempoSfId,ap->sfp->smp->set[i].value);
  816. break;
  817. default:
  818. { assert(0); }
  819. }
  820. cmDspSetDouble(ap->ctx,inst,kCostSfId,ap->sfp->smp->set[i].match_cost);
  821. // Set the values in the global variable storage
  822. cmDspValue_t vv,cv;
  823. unsigned j;
  824. cmDsvSetDouble(&vv,ap->sfp->smp->set[i].value);
  825. cmDsvSetDouble(&cv,ap->sfp->smp->set[i].match_cost);
  826. for(j=0; j<ap->sfp->smp->set[i].sp->sectCnt; ++j)
  827. {
  828. cmDspStoreSetValueViaSym(ap->ctx->dsH, ap->sfp->smp->set[i].sp->symArray[j], &vv );
  829. cmDspStoreSetValueViaSym(ap->ctx->dsH, ap->sfp->smp->set[i].sp->costSymArray[j], &cv );
  830. cmDspSetSymbol(ap->ctx,inst,kSymSfId,ap->sfp->smp->set[i].sp->symArray[j]);
  831. cmDspSetSymbol(ap->ctx,inst,kSymSfId,ap->sfp->smp->set[i].sp->costSymArray[j]);
  832. }
  833. }
  834. /*
  835. // trigger 'section' starts
  836. for(i=ap->sfp->smp->vsli; i<ap->sfp->smp->nsli; ++i)
  837. {
  838. const cmScoreLoc_t* locPtr = cmScoreLoc(ap->sfp->smp->mp->scH,i);
  839. if( locPtr->begSectPtr != NULL )
  840. cmDspSetUInt(ap->ctx,inst,kSectIndexSfId,locPtr->begSectPtr->index);
  841. }
  842. */
  843. }
  844. }
  845. cmDspRC_t _cmDspScFolOpenScore( cmDspCtx_t* ctx, cmDspInst_t* inst )
  846. {
  847. cmDspRC_t rc = kOkDspRC;
  848. cmDspScFol_t* p = (cmDspScFol_t*)inst;
  849. const cmChar_t* fn;
  850. if((fn = cmDspStrcz(inst,kFnSfId)) == NULL || strlen(fn)==0 )
  851. return cmErrMsg(&inst->classPtr->err, kInvalidArgDspRC, "No score file name supplied.");
  852. if( cmScoreInitialize(ctx->cmCtx, &p->scH, fn, cmDspSampleRate(ctx), NULL, 0, NULL, NULL, ctx->stH ) != kOkScRC )
  853. return cmErrMsg(&inst->classPtr->err, kSubSysFailDspRC, "Unable to open the score '%s'.",fn);
  854. if( cmScoreIsValid(p->scH) )
  855. {
  856. unsigned* dynRefArray = NULL;
  857. unsigned dynRefCnt = 0;
  858. // initialize the cmScMatcher
  859. if( cmScMatcherInit(p->sfp, cmDspSampleRate(ctx), p->scH, cmDspUInt(inst,kMaxWndCntSfId), cmDspUInt(inst,kBufCntSfId), _cmScFolMatcherCb, p->smp ) != cmOkRC )
  860. rc = cmErrMsg(&inst->classPtr->err, kSubSysFailDspRC, "Internal score follower allocation failed.");
  861. // read the dynamics reference array
  862. if( cmDspRsrcUIntArray(ctx->dspH, &dynRefCnt, &dynRefArray, "dynRef", NULL ) != kOkDspRC )
  863. {
  864. rc = cmErrMsg(&inst->classPtr->err, kRsrcNotFoundDspRC, "The dynamics reference array resource was not found.");
  865. goto errLabel;
  866. }
  867. // initialize the cmScMeas object.
  868. if( cmScMeasInit(p->smp, p->scH, cmDspSampleRate(ctx), dynRefArray, dynRefCnt ) != cmOkRC )
  869. rc = cmErrMsg(&inst->classPtr->err, kSubSysFailDspRC, "Internal scMeas object initialization failed.");
  870. }
  871. errLabel:
  872. return rc;
  873. }
  874. cmDspRC_t _cmDspScFolReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  875. {
  876. cmDspRC_t rc;
  877. if((rc = cmDspApplyAllDefaults(ctx,inst)) != kOkDspRC )
  878. return rc;
  879. return _cmDspScFolOpenScore(ctx,inst);
  880. }
  881. cmDspRC_t _cmDspScFolRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  882. {
  883. cmDspRC_t rc = kOkDspRC;
  884. cmDspScFol_t* p = (cmDspScFol_t*)inst;
  885. if((rc = cmDspSetEvent(ctx,inst,evt)) == kOkDspRC && p->sfp != NULL )
  886. {
  887. switch( evt->dstVarId )
  888. {
  889. case kIndexSfId:
  890. if( cmScoreIsValid(p->scH) )
  891. {
  892. p->maxScLocIdx = cmInvalidIdx;
  893. if( cmScMeasReset( p->smp ) != cmOkRC )
  894. cmErrMsg(&inst->classPtr->err, kSubSysFailDspRC, "Score measure unit reset to score index '%i' failed.");
  895. if( cmScMatcherReset( p->sfp, cmDspUInt(inst,kIndexSfId) ) != cmOkRC )
  896. cmErrMsg(&inst->classPtr->err, kSubSysFailDspRC, "Score follower reset to score index '%i' failed.");
  897. }
  898. break;
  899. case kStatusSfId:
  900. if( cmScoreIsValid(p->scH))
  901. {
  902. unsigned scLocIdx = cmInvalidIdx;
  903. // setup the cmScMeas() callback arg.
  904. p->arg.ctx = ctx;
  905. p->arg.sfp = p;
  906. p->sfp->cbArg = &p->arg;
  907. // this call may result in a callback to _cmScFolMatcherCb()
  908. if( cmScMatcherExec(p->sfp, cmDspUInt(inst,kSmpIdxSfId), cmDspUInt(inst,kStatusSfId), cmDspUInt(inst,kD0SfId), cmDspUInt(inst,kD1SfId), &scLocIdx) == cmOkRC )
  909. if( scLocIdx != cmInvalidIdx )
  910. {
  911. // It is possible that the internal score follower may go backwards.
  912. // In this case it will report a given score location multiple times or out of time order.
  913. // The 'out' port will only be updated under the circumstances that no later
  914. // score location has been seen - so the last output from 'out' always reports
  915. // the furthest possible progress in the score. THe 'recent' output simply reports
  916. // the most recent output from the internal score follower which may include
  917. // previously reported or out of order score locations.
  918. cmDspSetUInt(ctx,inst,kRecentSfId,scLocIdx);
  919. if( p->maxScLocIdx==cmInvalidIdx || p->maxScLocIdx < scLocIdx )
  920. {
  921. p->maxScLocIdx = scLocIdx;
  922. cmDspSetUInt(ctx,inst,kOutSfId,scLocIdx);
  923. }
  924. }
  925. }
  926. break;
  927. case kFnSfId:
  928. _cmDspScFolOpenScore(ctx,inst);
  929. break;
  930. case kCmdSfId:
  931. if( cmDspSymbol(inst,kCmdSfId) == p->printSymId )
  932. p->sfp->printFl = true;
  933. else
  934. if( cmDspSymbol(inst,kCmdSfId) == p->quietSymId )
  935. p->sfp->printFl = false;
  936. break;
  937. }
  938. }
  939. return rc;
  940. }
  941. struct cmDspClass_str* cmScFolClassCons( cmDspCtx_t* ctx )
  942. {
  943. cmDspClassSetup(&_cmScFolDC,ctx,"ScFol",
  944. NULL,
  945. _cmDspScFolAlloc,
  946. _cmDspScFolFree,
  947. _cmDspScFolReset,
  948. NULL,
  949. _cmDspScFolRecv,
  950. NULL,NULL,
  951. "Score Follower");
  952. return &_cmScFolDC;
  953. }
  954. //==========================================================================================================================================
  955. enum
  956. {
  957. kScLocIdxMdId,
  958. kResetIdxMdId,
  959. kCmdMdId,
  960. kPostMdId
  961. };
  962. cmDspClass_t _cmModulatorDC;
  963. typedef struct
  964. {
  965. cmDspInst_t inst;
  966. cmScModulator* mp;
  967. cmDspCtx_t* tmp_ctx; // used to temporarily hold the current cmDspCtx during callback
  968. cmChar_t* fn;
  969. cmChar_t* modLabel;
  970. unsigned onSymId;
  971. unsigned offSymId;
  972. unsigned postSymId;
  973. } cmDspScMod_t;
  974. void _cmDspScModCb( void* arg, unsigned varSymId, double value, bool postFl )
  975. {
  976. cmDspScMod_t* p = (cmDspScMod_t*)arg;
  977. cmDspVar_t* varPtr;
  978. if((varPtr = cmDspVarSymbolToPtr( p->tmp_ctx, &p->inst, varSymId, 0 )) == NULL )
  979. return;
  980. cmDspSetDouble(p->tmp_ctx,&p->inst,varPtr->constId,value);
  981. if( postFl )
  982. cmDspSetSymbol(p->tmp_ctx,&p->inst,kPostMdId,p->postSymId);
  983. }
  984. cmDspInst_t* _cmDspScModAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  985. {
  986. va_list vl1;
  987. va_copy(vl1,vl);
  988. cmDspVarArg_t args[] =
  989. {
  990. { "index", kScLocIdxMdId, 0,0, kInDsvFl | kUIntDsvFl, "Score follower index input."},
  991. { "reset", kResetIdxMdId, 0,0, kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "Reset the modulator and go to the score index."},
  992. { "cmd", kCmdMdId, 0,0, kInDsvFl | kSymDsvFl | kOptArgDsvFl, "on | off."},
  993. { "post", kPostMdId, 0,0, kOutDsvFl | kSymDsvFl, "Sends 'post' symbol after a message transmission if the 'post' flag is set in scMod."},
  994. { NULL, 0, 0, 0, 0 }
  995. };
  996. // validate the argument count
  997. if( va_cnt != 2 )
  998. {
  999. cmDspClassErr(ctx,classPtr,kInvalidArgDspRC,"The Modulator requires at least two arguments.");
  1000. return NULL;
  1001. }
  1002. // read the modulator file and label strings
  1003. const cmChar_t* fn = va_arg(vl1,const cmChar_t*);
  1004. const cmChar_t* modLabel = va_arg(vl1,const cmChar_t*);
  1005. va_end(vl1);
  1006. // validate the file
  1007. if( fn==NULL || cmFsIsFile(fn)==false )
  1008. {
  1009. cmDspClassErr(ctx,classPtr,kInvalidArgDspRC,"The Modulator file '%s' is not valid.",cmStringNullGuard(fn));
  1010. return NULL;
  1011. }
  1012. // allocate the internal modulator object
  1013. cmScModulator* mp = cmScModulatorAlloc(ctx->cmProcCtx, NULL, ctx->cmCtx, ctx->stH, cmDspSampleRate(ctx), cmDspSamplesPerCycle(ctx), fn, modLabel, _cmDspScModCb, NULL );
  1014. if(mp == NULL )
  1015. {
  1016. cmDspClassErr(ctx,classPtr,kInvalidArgDspRC,"The internal modulator object initialization failed.");
  1017. return NULL;
  1018. }
  1019. unsigned fixArgCnt = sizeof(args)/sizeof(args[0]) - 1;
  1020. unsigned argCnt = fixArgCnt + cmScModulatorOutVarCount(mp);
  1021. cmDspVarArg_t a[ argCnt+1 ];
  1022. unsigned i;
  1023. cmDspArgCopy( a, argCnt, 0, args, fixArgCnt );
  1024. for(i=fixArgCnt; i<argCnt; ++i)
  1025. {
  1026. unsigned varIdx = i - fixArgCnt;
  1027. const cmScModVar_t* vp = cmScModulatorOutVar(mp,varIdx);
  1028. const cmChar_t* label = cmSymTblLabel( ctx->stH, vp->varSymId );
  1029. const cmChar_t* docStr = cmTsPrintfS("Variable output for %s",label);
  1030. cmDspArgSetup(ctx, a + i, label, cmInvalidId, i, 0, 0, kOutDsvFl | kDoubleDsvFl, docStr );
  1031. }
  1032. cmDspArgSetupNull(a+argCnt); // set terminating arg. flags
  1033. cmDspScMod_t* p = cmDspInstAlloc(cmDspScMod_t,ctx,classPtr,a,instSymId,id,storeSymId,va_cnt,vl);
  1034. p->fn = cmMemAllocStr(fn);
  1035. p->modLabel = cmMemAllocStr(modLabel);
  1036. p->mp = mp;
  1037. p->onSymId = cmSymTblId(ctx->stH,"on");
  1038. p->offSymId = cmSymTblId(ctx->stH,"off");
  1039. p->postSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"post");
  1040. mp->cbArg = p; // set the modulator callback arg
  1041. cmDspSetDefaultUInt(ctx,&p->inst,kScLocIdxMdId,0,0);
  1042. cmDspSetDefaultSymbol(ctx,&p->inst,kCmdMdId,p->offSymId);
  1043. return &p->inst;
  1044. }
  1045. cmDspRC_t _cmDspScModFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1046. {
  1047. cmDspRC_t rc = kOkDspRC;
  1048. cmDspScMod_t* p = (cmDspScMod_t*)inst;
  1049. if( cmScModulatorFree(&p->mp) != kOkTlRC )
  1050. return cmErrMsg(&inst->classPtr->err, kInstFinalFailDspRC, "Modulator release failed.");
  1051. cmMemFree(p->fn);
  1052. cmMemFree(p->modLabel);
  1053. return rc;
  1054. }
  1055. cmDspRC_t _cmDspScModReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1056. {
  1057. cmDspRC_t rc = kOkDspRC;
  1058. cmDspApplyAllDefaults(ctx,inst);
  1059. return rc;
  1060. }
  1061. cmDspRC_t _cmDspScModRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1062. {
  1063. cmDspScMod_t* p = (cmDspScMod_t*)inst;
  1064. cmDspSetEvent(ctx,inst,evt);
  1065. switch( evt->dstVarId )
  1066. {
  1067. case kResetIdxMdId:
  1068. cmDspSetUInt(ctx,inst,kScLocIdxMdId,cmDspUInt(inst,kResetIdxMdId));
  1069. break;
  1070. case kCmdMdId:
  1071. {
  1072. unsigned symId = cmDspSymbol(inst,kCmdMdId);
  1073. if( symId == p->onSymId )
  1074. cmScModulatorReset(p->mp, ctx->cmCtx, cmDspUInt(inst,kScLocIdxMdId));
  1075. }
  1076. break;
  1077. }
  1078. return kOkDspRC;
  1079. }
  1080. cmDspRC_t _cmDspScModExec(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1081. {
  1082. cmDspRC_t rc = kOkDspRC;
  1083. cmDspScMod_t* p = (cmDspScMod_t*)inst;
  1084. if( cmDspSymbol(inst,kCmdMdId) != p->offSymId )
  1085. {
  1086. p->tmp_ctx = ctx;
  1087. cmScModulatorExec(p->mp,cmDspUInt(inst,kScLocIdxMdId));
  1088. }
  1089. return rc;
  1090. }
  1091. struct cmDspClass_str* cmScModClassCons( cmDspCtx_t* ctx )
  1092. {
  1093. cmDspClassSetup(&_cmModulatorDC,ctx,"ScMod",
  1094. NULL,
  1095. _cmDspScModAlloc,
  1096. _cmDspScModFree,
  1097. _cmDspScModReset,
  1098. _cmDspScModExec,
  1099. _cmDspScModRecv,
  1100. NULL,NULL,
  1101. "Score Driven Variable Modulator.");
  1102. return &_cmModulatorDC;
  1103. }
  1104. //==========================================================================================================================================
  1105. enum
  1106. {
  1107. kInChCntGsId,
  1108. kOutGroupCntGsId,
  1109. kGroupSelIdxGsId,
  1110. kBaseInFloatGsId
  1111. };
  1112. cmDspClass_t _cmGSwitchDC;
  1113. typedef struct
  1114. {
  1115. cmDspInst_t inst;
  1116. unsigned iChCnt;
  1117. unsigned oGroupCnt;
  1118. unsigned baseInFloatGsId;
  1119. unsigned baseInSymGsId;
  1120. unsigned baseInBoolGsId;
  1121. unsigned baseOutFloatGsId;
  1122. unsigned baseOutSymGsId;
  1123. unsigned baseOutBoolGsId;
  1124. } cmDspGSwitch_t;
  1125. cmDspInst_t* _cmDspGSwitchAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  1126. {
  1127. va_list vl1;
  1128. va_copy(vl1,vl);
  1129. cmDspVarArg_t args[] =
  1130. {
  1131. { "ichs", kInChCntGsId, 0,0, kUIntDsvFl | kReqArgDsvFl, "Input channel count."},
  1132. { "ochs", kOutGroupCntGsId, 0,0, kUIntDsvFl | kReqArgDsvFl, "Output group count."},
  1133. { "sel", kGroupSelIdxGsId, 0,0, kInDsvFl | kUIntDsvFl, "Group select index."},
  1134. { NULL, 0, 0, 0, 0 }
  1135. };
  1136. // validate the argument count
  1137. if( va_cnt != 2 )
  1138. {
  1139. cmDspClassErr(ctx,classPtr,kInvalidArgDspRC,"The GSwitch requires at least two arguments.");
  1140. return NULL;
  1141. }
  1142. // read the input ch and output group count
  1143. unsigned iChCnt = va_arg(vl1,unsigned);
  1144. unsigned oGroupCnt = va_arg(vl1,unsigned);
  1145. va_end(vl1);
  1146. // validate the channel counts
  1147. if( iChCnt == 0 || oGroupCnt==0 )
  1148. {
  1149. cmDspClassErr(ctx,classPtr,kInvalidArgDspRC,"The GSwitch input channel count and group count must be greater than zero.");
  1150. return NULL;
  1151. }
  1152. unsigned typeCnt = 3; // i.e. float,sym,bool
  1153. unsigned baseInFloatGsId = kBaseInFloatGsId;
  1154. unsigned baseInSymGsId = baseInFloatGsId + iChCnt;
  1155. unsigned baseInBoolGsId = baseInSymGsId + iChCnt;
  1156. unsigned baseOutFloatGsId = baseInBoolGsId + iChCnt;
  1157. unsigned baseOutSymGsId = baseOutFloatGsId + (iChCnt * oGroupCnt);
  1158. unsigned baseOutBoolGsId = baseOutSymGsId + (iChCnt * oGroupCnt);
  1159. unsigned fixArgCnt = 3;
  1160. unsigned varArgCnt = (iChCnt * typeCnt) + (iChCnt * typeCnt * oGroupCnt);
  1161. unsigned argCnt = fixArgCnt + varArgCnt;
  1162. cmDspVarArg_t a[ argCnt+1 ];
  1163. unsigned i;
  1164. cmDspArgCopy( a, argCnt, 0, args, fixArgCnt );
  1165. cmDspArgSetupN( ctx, a, argCnt, baseInFloatGsId, iChCnt, "f-in", baseInFloatGsId, 0, 0, kInDsvFl | kDoubleDsvFl, "Float input");
  1166. cmDspArgSetupN( ctx, a, argCnt, baseInSymGsId, iChCnt, "s-in", baseInSymGsId, 0, 0, kInDsvFl | kSymDsvFl, "Symbol input");
  1167. cmDspArgSetupN( ctx, a, argCnt, baseInBoolGsId, iChCnt, "b-in", baseInBoolGsId, 0, 0, kInDsvFl | kBoolDsvFl, "Bool input");
  1168. unsigned labelCharCnt = 63;
  1169. cmChar_t label[labelCharCnt+1];
  1170. label[labelCharCnt] = 0;
  1171. unsigned gsid = baseOutFloatGsId;
  1172. for(i=0; i<oGroupCnt; ++i, gsid+=iChCnt)
  1173. {
  1174. snprintf(label,labelCharCnt,"f-out-%i",i);
  1175. cmDspArgSetupN( ctx, a, argCnt, gsid, iChCnt, label, gsid, 0, 0, kInDsvFl | kDoubleDsvFl, "Float output");
  1176. }
  1177. gsid = baseOutSymGsId;
  1178. for(i=0; i<oGroupCnt; ++i, gsid+=iChCnt)
  1179. {
  1180. snprintf(label,labelCharCnt,"s-out-%i",i);
  1181. cmDspArgSetupN( ctx, a, argCnt, gsid, iChCnt, label, gsid, 0, 0, kInDsvFl | kSymDsvFl, "Symbol output");
  1182. }
  1183. gsid = baseOutBoolGsId;
  1184. for(i=0; i<oGroupCnt; ++i, gsid+=iChCnt)
  1185. {
  1186. snprintf(label,labelCharCnt,"b-out-%i",i);
  1187. cmDspArgSetupN( ctx,a, argCnt, gsid, iChCnt, label, gsid, 0, 0, kInDsvFl | kBoolDsvFl, "Bool output");
  1188. }
  1189. cmDspArgSetupNull(a+argCnt); // set terminating arg. flags
  1190. cmDspGSwitch_t* p = cmDspInstAlloc(cmDspGSwitch_t,ctx,classPtr,a,instSymId,id,storeSymId,va_cnt,vl);
  1191. p->iChCnt = iChCnt;
  1192. p->oGroupCnt = oGroupCnt;
  1193. p->baseInFloatGsId = baseInFloatGsId;
  1194. p->baseInSymGsId = baseInSymGsId;
  1195. p->baseInBoolGsId = baseInBoolGsId;
  1196. p->baseOutFloatGsId = baseOutFloatGsId;
  1197. p->baseOutSymGsId = baseOutSymGsId;
  1198. p->baseOutBoolGsId = baseOutBoolGsId;
  1199. cmDspSetDefaultUInt(ctx,&p->inst,kGroupSelIdxGsId,0,0);
  1200. return &p->inst;
  1201. }
  1202. cmDspRC_t _cmDspGSwitchReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1203. {
  1204. cmDspRC_t rc = kOkDspRC;
  1205. cmDspApplyAllDefaults(ctx,inst);
  1206. return rc;
  1207. }
  1208. cmDspRC_t _cmDspGSwitchRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1209. {
  1210. cmDspRC_t rc = kOkDspRC;
  1211. cmDspGSwitch_t* p = (cmDspGSwitch_t*)inst;
  1212. // if this is the group selector
  1213. if( evt->dstVarId == kGroupSelIdxGsId )
  1214. {
  1215. unsigned idx;
  1216. if( (idx = cmDsvGetUInt(evt->valuePtr)) > p->oGroupCnt )
  1217. cmDspInstErr(ctx,inst,kInvalidArgDspRC,"The GSwitch group select index %i is out of range %i.",idx,p->oGroupCnt);
  1218. else
  1219. cmDspSetEvent(ctx,inst,evt);
  1220. return rc;
  1221. }
  1222. // get the group selector
  1223. unsigned groupIdx = cmDspUInt(inst,kGroupSelIdxGsId);
  1224. assert( groupIdx < p->oGroupCnt);
  1225. // if this is a float input
  1226. if( p->baseInFloatGsId <= evt->dstVarId && evt->dstVarId < p->baseInFloatGsId + p->iChCnt )
  1227. {
  1228. unsigned outVarId = p->baseOutFloatGsId + (groupIdx * p->iChCnt) + (evt->dstVarId - p->baseInFloatGsId);
  1229. cmDspValueSet(ctx, inst, outVarId, evt->valuePtr, 0 );
  1230. return rc;
  1231. }
  1232. // if this is a symbol input
  1233. if( p->baseInSymGsId <= evt->dstVarId && evt->dstVarId < p->baseInSymGsId + p->iChCnt )
  1234. {
  1235. unsigned outVarId = p->baseOutSymGsId + (groupIdx * p->iChCnt) + (evt->dstVarId - p->baseInSymGsId);
  1236. cmDspValueSet(ctx, inst, outVarId, evt->valuePtr, 0 );
  1237. return rc;
  1238. }
  1239. // if this is a bool input
  1240. if( p->baseInBoolGsId <= evt->dstVarId && evt->dstVarId < p->baseInBoolGsId + p->iChCnt )
  1241. {
  1242. unsigned outVarId = p->baseOutBoolGsId + (groupIdx * p->iChCnt) + (evt->dstVarId - p->baseInBoolGsId);
  1243. cmDspValueSet(ctx, inst, outVarId, evt->valuePtr, 0 );
  1244. return rc;
  1245. }
  1246. return rc;
  1247. }
  1248. struct cmDspClass_str* cmGSwitchClassCons( cmDspCtx_t* ctx )
  1249. {
  1250. cmDspClassSetup(&_cmGSwitchDC,ctx,"GSwitch",
  1251. NULL,
  1252. _cmDspGSwitchAlloc,
  1253. NULL,
  1254. _cmDspGSwitchReset,
  1255. NULL,
  1256. _cmDspGSwitchRecv,
  1257. NULL,NULL,
  1258. "Ganged switch.");
  1259. return &_cmGSwitchDC;
  1260. }
  1261. //==========================================================================================================================================
  1262. enum
  1263. {
  1264. kMinInSrId,
  1265. kMaxInSrId,
  1266. kMinOutSrId,
  1267. kMaxOutSrId,
  1268. kValInSrId,
  1269. kValOutSrId,
  1270. };
  1271. cmDspClass_t _cmScaleRangeDC;
  1272. typedef struct
  1273. {
  1274. cmDspInst_t inst;
  1275. } cmDspScaleRange_t;
  1276. cmDspInst_t* _cmDspScaleRangeAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  1277. {
  1278. va_list vl1;
  1279. va_copy(vl1,vl);
  1280. cmDspVarArg_t args[] =
  1281. {
  1282. { "min_in", kMinInSrId, 0,0, kInDsvFl | kDoubleDsvFl , "Min Input value."},
  1283. { "max_in", kMaxInSrId, 0,0, kInDsvFl | kDoubleDsvFl , "Min Input value."},
  1284. { "min_out", kMinOutSrId, 0,0, kInDsvFl | kDoubleDsvFl , "Min Input value."},
  1285. { "max_out", kMaxOutSrId, 0,0, kInDsvFl | kDoubleDsvFl , "Min Input value."},
  1286. { "val_in", kValInSrId, 0,0, kInDsvFl | kDoubleDsvFl, "Input value."},
  1287. { "val_out", kValOutSrId, 0,0, kOutDsvFl | kDoubleDsvFl, "Output value"},
  1288. { NULL, 0, 0, 0, 0 }
  1289. };
  1290. cmDspScaleRange_t* p = cmDspInstAlloc(cmDspScaleRange_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  1291. cmDspSetDefaultDouble(ctx,&p->inst,kMinInSrId,0,0);
  1292. cmDspSetDefaultDouble(ctx,&p->inst,kMaxInSrId,0,1.0);
  1293. cmDspSetDefaultDouble(ctx,&p->inst,kMinOutSrId,0,0);
  1294. cmDspSetDefaultDouble(ctx,&p->inst,kMaxOutSrId,0,1.0);
  1295. return &p->inst;
  1296. }
  1297. cmDspRC_t _cmDspScaleRangeReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1298. {
  1299. cmDspRC_t rc = kOkDspRC;
  1300. cmDspApplyAllDefaults(ctx,inst);
  1301. return rc;
  1302. }
  1303. cmDspRC_t _cmDspScaleRangeRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1304. {
  1305. cmDspRC_t rc = kOkDspRC;
  1306. //cmDspScaleRange_t* p = (cmDspScaleRange_t*)inst;
  1307. cmDspSetEvent(ctx,inst,evt);
  1308. if( evt->dstVarId == kValInSrId )
  1309. {
  1310. double val = cmDspDouble(inst,kValInSrId);
  1311. double min_in = cmDspDouble(inst,kMinInSrId);
  1312. double max_in = cmDspDouble(inst,kMaxInSrId);
  1313. double min_out = cmDspDouble(inst,kMinOutSrId);
  1314. double max_out = cmDspDouble(inst,kMaxOutSrId);
  1315. double x = cmMax(min_in,cmMin(max_in,val));
  1316. x = (x - min_in)/(max_in - min_in);
  1317. x = min_out + x * (max_out - min_out);
  1318. cmDspSetDouble(ctx,inst,kValOutSrId, x );
  1319. //printf("%f (%f %f) : (%f %f) %f\n",val,min_in,max_in,min_out,max_out,x);
  1320. }
  1321. return rc;
  1322. }
  1323. struct cmDspClass_str* cmScaleRangeClassCons( cmDspCtx_t* ctx )
  1324. {
  1325. cmDspClassSetup(&_cmScaleRangeDC,ctx,"ScaleRange",
  1326. NULL,
  1327. _cmDspScaleRangeAlloc,
  1328. NULL,
  1329. _cmDspScaleRangeReset,
  1330. NULL,
  1331. _cmDspScaleRangeRecv,
  1332. NULL,NULL,
  1333. "Scale a value inside an input range to a value in the output range.");
  1334. return &_cmScaleRangeDC;
  1335. }
  1336. //==========================================================================================================================================
  1337. enum
  1338. {
  1339. kCntAmId,
  1340. kSflocAmId,
  1341. kLocAmId,
  1342. kTypeAmId,
  1343. kValueAmId,
  1344. kCstAmId,
  1345. kCmdAmId,
  1346. kScLocAmId,
  1347. kEvenAmId,
  1348. kDynAmId,
  1349. kTempoAmId,
  1350. kCostAmId
  1351. };
  1352. cmDspClass_t _cmActiveMeasDC;
  1353. typedef struct
  1354. {
  1355. unsigned loc;
  1356. unsigned type;
  1357. double value;
  1358. double cost;
  1359. } cmDspActiveMeasRecd_t;
  1360. int cmDspActiveMeasRecdCompare(const void * p0, const void * p1)
  1361. {
  1362. return ((int)((cmDspActiveMeasRecd_t*)p0)->loc) - (int)(((cmDspActiveMeasRecd_t*)p1)->loc);
  1363. }
  1364. typedef struct
  1365. {
  1366. cmDspInst_t inst;
  1367. unsigned addSymId;
  1368. unsigned clearSymId;
  1369. unsigned printSymId;
  1370. unsigned rewindSymId;
  1371. cmDspActiveMeasRecd_t* array; // array[cnt]
  1372. unsigned cnt;
  1373. unsigned nextEmptyIdx;
  1374. unsigned nextFullIdx;
  1375. } cmDspActiveMeas_t;
  1376. cmDspInst_t* _cmDspActiveMeasAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  1377. {
  1378. cmDspVarArg_t args[] =
  1379. {
  1380. { "cnt", kCntAmId, 0,0, kInDsvFl | kUIntDsvFl, "Maximum count of active measurements."},
  1381. { "sfloc", kSflocAmId, 0,0, kInDsvFl | kUIntDsvFl, "Score follower location input." },
  1382. { "loc", kLocAmId, 0,0, kInDsvFl | kUIntDsvFl, "Meas. location." },
  1383. { "type", kTypeAmId, 0,0, kInDsvFl | kUIntDsvFl, "Meas. Type." },
  1384. { "val", kValueAmId, 0,0, kInDsvFl | kDoubleDsvFl, "Meas. Value."},
  1385. { "cst", kCstAmId, 0,0, kInDsvFl | kDoubleDsvFl, "Meas. Cost."},
  1386. { "cmd", kCmdAmId, 0,0, kInDsvFl | kSymDsvFl, "Commands:add | clear | dump | rewind"},
  1387. { "scloc", kScLocAmId, 0,0, kOutDsvFl | kUIntDsvFl, "Score location"},
  1388. { "even", kEvenAmId, 0,0, kOutDsvFl | kDoubleDsvFl, "Even out"},
  1389. { "dyn", kDynAmId, 0,0, kOutDsvFl | kDoubleDsvFl, "Dyn out"},
  1390. { "tempo", kTempoAmId, 0,0, kOutDsvFl | kDoubleDsvFl, "Tempo out"},
  1391. { "cost", kCostAmId, 0,0, kOutDsvFl | kDoubleDsvFl, "Cost out"},
  1392. { NULL, 0, 0, 0, 0 }
  1393. };
  1394. cmDspActiveMeas_t* p = cmDspInstAlloc(cmDspActiveMeas_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  1395. p->addSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"add");
  1396. p->clearSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"clear");
  1397. p->printSymId = cmSymTblRegisterStaticSymbol(ctx->stH,"dump");
  1398. p->rewindSymId= cmSymTblRegisterStaticSymbol(ctx->stH,"rewind");
  1399. cmDspSetDefaultUInt( ctx,&p->inst,kCntAmId, 0,100);
  1400. cmDspSetDefaultUInt( ctx,&p->inst,kScLocAmId,0,0);
  1401. cmDspSetDefaultDouble(ctx,&p->inst,kEvenAmId, 0,0);
  1402. cmDspSetDefaultDouble(ctx,&p->inst,kDynAmId, 0,0);
  1403. cmDspSetDefaultDouble(ctx,&p->inst,kTempoAmId,0,0);
  1404. cmDspSetDefaultDouble(ctx,&p->inst,kTempoAmId,0,0);
  1405. return &p->inst;
  1406. }
  1407. cmDspRC_t _cmDspActiveMeasPrint(cmDspCtx_t* ctx, cmDspActiveMeas_t* p )
  1408. {
  1409. unsigned i;
  1410. for(i=0; i<p->nextEmptyIdx; ++i)
  1411. {
  1412. const cmChar_t* label = "<null>";
  1413. switch( p->array[i].type )
  1414. {
  1415. case kEvenVarScId: label="even "; break;
  1416. case kDynVarScId: label="dyn "; break;
  1417. case kTempoVarScId: label="tempo"; break;
  1418. default:
  1419. { assert(0); }
  1420. }
  1421. cmRptPrintf(ctx->rpt,"loc:%i %s %f %f\n",p->array[i].loc,label,p->array[i].value,p->array[i].cost);
  1422. }
  1423. return kOkDspRC;
  1424. }
  1425. cmDspRC_t _cmDspActiveMeasClear(cmDspCtx_t* ctx, cmDspActiveMeas_t* p )
  1426. {
  1427. p->nextEmptyIdx = 0;
  1428. p->nextFullIdx = cmInvalidIdx;
  1429. return kOkDspRC;
  1430. }
  1431. cmDspRC_t _cmDspActiveMeasFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1432. {
  1433. cmDspActiveMeas_t* p = (cmDspActiveMeas_t*)inst;
  1434. _cmDspActiveMeasClear(ctx,p);
  1435. cmMemPtrFree(&p->array);
  1436. return kOkDspRC;
  1437. }
  1438. cmDspRC_t _cmDspActiveMeasReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1439. {
  1440. cmDspRC_t rc = kOkDspRC;
  1441. cmDspActiveMeas_t* p = (cmDspActiveMeas_t*)inst;
  1442. cmDspApplyAllDefaults(ctx,inst);
  1443. unsigned cnt = cmMax(100,cmDspUInt(inst,kCntAmId));
  1444. _cmDspActiveMeasFree(ctx,inst,evt);
  1445. p->array = cmMemAllocZ(cmDspActiveMeasRecd_t,cnt);
  1446. p->cnt = cnt;
  1447. return rc;
  1448. }
  1449. cmDspRC_t _cmDspActiveMeasRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1450. {
  1451. cmDspRC_t rc = kOkDspRC;
  1452. cmDspActiveMeas_t* p = (cmDspActiveMeas_t*)inst;
  1453. cmDspSetEvent(ctx,inst,evt);
  1454. switch( evt->dstVarId )
  1455. {
  1456. case kSflocAmId:
  1457. if( p->nextFullIdx != cmInvalidIdx )
  1458. {
  1459. // get the recv'd score location
  1460. unsigned sflocIdx = cmDspUInt(inst,kSflocAmId);
  1461. unsigned prvLoc = cmInvalidIdx;
  1462. // for each remaining avail record
  1463. for(; p->nextFullIdx < p->nextEmptyIdx; p->nextFullIdx++)
  1464. {
  1465. cmDspActiveMeasRecd_t* r = p->array + p->nextFullIdx;
  1466. // if this records score location is after the recv'd score loc then we're done
  1467. if( r->loc > sflocIdx )
  1468. break;
  1469. // deterimine the records type
  1470. unsigned varId = cmInvalidId;
  1471. switch( r->type )
  1472. {
  1473. case kEvenVarScId: varId = kEvenAmId; break;
  1474. case kDynVarScId: varId = kDynAmId; break;
  1475. case kTempoVarScId: varId = kTempoAmId; break;
  1476. default:
  1477. { assert(0); }
  1478. }
  1479. // if this score location has not yet been sent then send it now
  1480. if( prvLoc != r->loc )
  1481. cmDspSetUInt(ctx,inst,kScLocAmId,r->loc);
  1482. // transmit the records value and cost
  1483. cmDspSetDouble(ctx,inst,varId,r->value);
  1484. cmDspSetDouble(ctx,inst,kCostAmId,r->cost);
  1485. prvLoc = r->loc;
  1486. }
  1487. }
  1488. break;
  1489. case kCmdAmId:
  1490. {
  1491. unsigned cmdSymId = cmDspSymbol(inst,kCmdAmId);
  1492. if( cmdSymId == p->addSymId )
  1493. {
  1494. if( p->nextEmptyIdx >= p->cnt )
  1495. cmDspInstErr(ctx,inst,kProcFailDspRC,"The active measurement list is full cnt=%i.",p->cnt);
  1496. else
  1497. {
  1498. cmDspActiveMeasRecd_t* r = p->array + p->nextEmptyIdx;
  1499. r->loc = cmDspUInt( inst,kLocAmId);
  1500. r->type = cmDspUInt( inst,kTypeAmId);
  1501. r->value = cmDspDouble(inst,kValueAmId);
  1502. r->cost = cmDspDouble(inst,kCstAmId);
  1503. p->nextEmptyIdx += 1;
  1504. qsort(p->array,p->nextEmptyIdx,sizeof(p->array[0]),cmDspActiveMeasRecdCompare);
  1505. if( p->nextEmptyIdx == 1 && p->nextFullIdx == cmInvalidIdx )
  1506. p->nextFullIdx = 0;
  1507. }
  1508. }
  1509. if( cmdSymId == p->clearSymId )
  1510. rc = _cmDspActiveMeasClear(ctx,p);
  1511. else
  1512. if( cmdSymId == p->printSymId )
  1513. rc = _cmDspActiveMeasPrint(ctx,p);
  1514. else
  1515. if(cmdSymId == p->rewindSymId )
  1516. p->nextFullIdx = 0;
  1517. }
  1518. break;
  1519. }
  1520. return rc;
  1521. }
  1522. struct cmDspClass_str* cmActiveMeasClassCons( cmDspCtx_t* ctx )
  1523. {
  1524. cmDspClassSetup(&_cmActiveMeasDC,ctx,"ActiveMeas",
  1525. NULL,
  1526. _cmDspActiveMeasAlloc,
  1527. _cmDspActiveMeasFree,
  1528. _cmDspActiveMeasReset,
  1529. NULL,
  1530. _cmDspActiveMeasRecv,
  1531. NULL,NULL,
  1532. "Scale a value inside an input range to a value in the output range.");
  1533. return &_cmActiveMeasDC;
  1534. }
  1535. //==========================================================================================================================================
  1536. // Audio MIDI Sync
  1537. enum
  1538. {
  1539. kSelAmId,
  1540. kAFnAmId,
  1541. kASmpAmId,
  1542. kMFnAmId,
  1543. kMIdAmId,
  1544. };
  1545. enum
  1546. {
  1547. kAfnAmFl = 0x01,
  1548. kMfnAmFl = 0x02,
  1549. kAsmpAmFl = 0x04,
  1550. kMidAmFl = 0x08,
  1551. };
  1552. cmDspClass_t _cmAmSyncDC;
  1553. typedef struct cmDspAmSyncEntry_str
  1554. {
  1555. const cmChar_t* afn;
  1556. const cmChar_t* mfn;
  1557. unsigned asmp; // Audio sample index to sync to MIDI event
  1558. unsigned mid; // MIDI event unique id (cmMidiTrackMsg_t.uid)
  1559. int afi;
  1560. int mfi;
  1561. unsigned state;
  1562. } cmDspAmSyncEntry_t;
  1563. typedef struct
  1564. {
  1565. cmDspInst_t inst;
  1566. cmDspAmSyncEntry_t* array;
  1567. unsigned arrayCnt;
  1568. cmDspAmSyncEntry_t* acur;
  1569. cmDspAmSyncEntry_t* mcur;
  1570. } cmDspAmSync_t;
  1571. cmDspInst_t* _cmDspAmSyncAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  1572. {
  1573. cmDspVarArg_t args[] =
  1574. {
  1575. { "sel", kSelAmId, 0, 0, kInDsvFl | kTypeDsvMask, "Print and reset" },
  1576. { "afn", kAFnAmId, 0, 0, kInDsvFl | kStrzDsvFl, "Audio File name"},
  1577. { "asmp", kASmpAmId, 0, 0, kInDsvFl | kIntDsvFl, "Audio sample index"},
  1578. { "mfn", kMFnAmId, 0, 0, kInDsvFl | kStrzDsvFl, "MIDI File name"},
  1579. { "mid", kMIdAmId, 0, 0, kInDsvFl | kIntDsvFl, "MIDI Event Unique Id"},
  1580. { NULL, 0, 0, 0, 0 }
  1581. };
  1582. cmDspAmSync_t* p = cmDspInstAlloc(cmDspAmSync_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  1583. return &p->inst;
  1584. }
  1585. cmDspRC_t _cmDspAmSyncFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1586. {
  1587. cmDspAmSync_t* p = (cmDspAmSync_t*)inst;
  1588. cmMemFree(p->array);
  1589. return kOkDspRC;
  1590. }
  1591. cmDspRC_t _cmDspAmSyncReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1592. {
  1593. cmDspRC_t rc = kOkDspRC;
  1594. cmDspAmSync_t* p = (cmDspAmSync_t*)inst;
  1595. cmDspApplyAllDefaults(ctx,inst);
  1596. cmJsonH_t jsH = cmDspSysPgmRsrcHandle(ctx->dspH);
  1597. cmJsonNode_t* np;
  1598. const cmChar_t* errLabelPtr;
  1599. unsigned i;
  1600. cmJsRC_t jsRC;
  1601. if((np = cmJsonFindValue(jsH, "amSync", NULL, kArrayTId)) == NULL )
  1602. {
  1603. rc = cmDspInstErr(ctx,inst,kRsrcNotFoundDspRC,"The AUDIO MIDI Sync cfg. record was not found.");
  1604. goto errLabel;
  1605. }
  1606. p->arrayCnt = cmJsonChildCount(np);
  1607. p->array = cmMemResizeZ(cmDspAmSyncEntry_t,p->array,p->arrayCnt);
  1608. for(i=0; i<p->arrayCnt; ++i)
  1609. {
  1610. cmJsonNode_t* anp = cmJsonArrayElement(np,i);
  1611. cmDspAmSyncEntry_t* r = p->array + i;
  1612. if( (jsRC = cmJsonMemberValues(anp,&errLabelPtr,
  1613. "af", kStringTId,&r->afn,
  1614. "asmp",kIntTId, &r->asmp,
  1615. "mf", kStringTId,&r->mfn,
  1616. "mid", kIntTId, &r->mid,
  1617. NULL)) != kOkJsRC )
  1618. {
  1619. if( jsRC == kNodeNotFoundJsRC )
  1620. rc = cmDspInstErr(ctx,inst,kRsrcNotFoundDspRC,"The Audio-MIDI Sync cfg. field '%s' was missing in the cfg. record at index %i.",errLabelPtr,i);
  1621. else
  1622. rc = cmDspInstErr(ctx,inst,kInvalidArgDspRC,"The AUDIO MIDI Sync cfg. parse failed on the record at index %i.",i);
  1623. break;
  1624. }
  1625. r->afi = cmInvalidIdx;
  1626. r->mfi = cmInvalidIdx;
  1627. r->state = 0;
  1628. }
  1629. errLabel:
  1630. return rc;
  1631. }
  1632. cmDspRC_t _cmDspAmSyncRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1633. {
  1634. cmDspAmSync_t* p = (cmDspAmSync_t*)inst;
  1635. unsigned i;
  1636. if( evt->dstVarId != kSelAmId )
  1637. cmDspSetEvent(ctx,inst,evt);
  1638. switch(evt->dstVarId)
  1639. {
  1640. case kSelAmId:
  1641. {
  1642. double srate = cmDspSysSampleRate(ctx->dspH);
  1643. int fpc = cmDspSamplesPerCycle(ctx);
  1644. for(i=0; i<p->arrayCnt; ++i)
  1645. {
  1646. cmDspAmSyncEntry_t* r = p->array + i;
  1647. int dframes = r->mfi-r->afi;
  1648. cmRptPrintf(ctx->rpt,"0x%x : %s %i %i - %s %i %i : frm:%i smp:%i sec:%f\n",
  1649. r->state,r->afn,r->asmp,r->afi,r->mfn,r->mid,r->mfi,dframes,dframes*fpc,dframes*fpc/srate);
  1650. r->afi = cmInvalidIdx;
  1651. r->mfi = cmInvalidIdx;
  1652. r->state = 0;
  1653. }
  1654. p->acur = NULL;
  1655. p->mcur = NULL;
  1656. }
  1657. break;
  1658. case kAFnAmId:
  1659. {
  1660. const cmChar_t* fn = cmDspStrcz(inst, kAFnAmId );
  1661. for(i=0; i<p->arrayCnt; ++i)
  1662. if( strcmp(fn,p->array[i].afn) == 0 )
  1663. {
  1664. p->array[i].state = cmSetFlag(p->array[i].state,kAfnAmFl);
  1665. p->acur = p->array + i;
  1666. }
  1667. }
  1668. break;
  1669. case kMFnAmId:
  1670. {
  1671. const cmChar_t* fn = cmDspStrcz(inst, kMFnAmId );
  1672. for(i=0; i<p->arrayCnt; ++i)
  1673. if( strcmp(fn,p->array[i].mfn) == 0 )
  1674. {
  1675. p->array[i].state = cmSetFlag(p->array[i].state,kMfnAmFl);
  1676. p->mcur = p->array + i;
  1677. }
  1678. }
  1679. break;
  1680. case kASmpAmId:
  1681. {
  1682. int v = cmDspInt(inst,kASmpAmId);
  1683. if( p->acur != NULL )
  1684. for(i=0; i<p->arrayCnt; ++i)
  1685. {
  1686. cmDspAmSyncEntry_t* r = p->array + i;
  1687. if( cmIsNotFlag(r->state,kAsmpAmFl) && r->asmp <= v && strcmp(p->acur->afn,r->afn)==0 )
  1688. {
  1689. r->afi = ctx->cycleCnt;
  1690. r->state = cmSetFlag(r->state,kAsmpAmFl);
  1691. break;
  1692. }
  1693. }
  1694. }
  1695. break;
  1696. case kMIdAmId:
  1697. {
  1698. int v = cmDspInt(inst,kMIdAmId);
  1699. if( p->mcur != NULL )
  1700. for(i=0; i<p->arrayCnt; ++i)
  1701. {
  1702. cmDspAmSyncEntry_t* r = p->array + i;
  1703. if( cmIsNotFlag(r->state,kMidAmFl) && r->mid == v && strcmp(p->mcur->mfn,r->mfn)==0 )
  1704. {
  1705. r->mfi = ctx->cycleCnt;
  1706. r->state = cmSetFlag(r->state,kMidAmFl);
  1707. break;
  1708. }
  1709. }
  1710. }
  1711. break;
  1712. }
  1713. return kOkDspRC;
  1714. }
  1715. struct cmDspClass_str* cmAmSyncClassCons( cmDspCtx_t* ctx )
  1716. {
  1717. cmDspClassSetup(&_cmAmSyncDC,ctx,"AmSync",
  1718. NULL,
  1719. _cmDspAmSyncAlloc,
  1720. _cmDspAmSyncFree,
  1721. _cmDspAmSyncReset,
  1722. NULL,
  1723. _cmDspAmSyncRecv,
  1724. NULL,NULL,
  1725. "Audio - MIDI Sync Object.");
  1726. return &_cmAmSyncDC;
  1727. }
  1728. //==========================================================================================================================================
  1729. enum
  1730. {
  1731. kPgmNmId,
  1732. kStatusNmId,
  1733. kD0NmId,
  1734. kD1NmId,
  1735. kThruNmId
  1736. };
  1737. cmDspClass_t _cmNanoMapDC;
  1738. typedef struct
  1739. {
  1740. cmDspInst_t inst;
  1741. } cmDspNanoMap_t;
  1742. cmDspRC_t _cmDspNanoMapSend( cmDspCtx_t* ctx, cmDspInst_t* inst, unsigned st, unsigned d0, unsigned d1 )
  1743. {
  1744. cmDspSetUInt(ctx,inst,kD1NmId,d1);
  1745. cmDspSetUInt(ctx,inst,kD0NmId,d0);
  1746. cmDspSetUInt(ctx,inst,kStatusNmId,st);
  1747. return kOkDspRC;
  1748. }
  1749. void _cmDspNanoMapPgm( cmDspCtx_t* ctx, cmDspInst_t* inst, unsigned pgm )
  1750. {
  1751. unsigned i;
  1752. for(i=0; i<kMidiChCnt; ++i)
  1753. {
  1754. _cmDspNanoMapSend(ctx,inst,kCtlMdId+i,121,0); // reset all controllers
  1755. _cmDspNanoMapSend(ctx,inst,kCtlMdId+i,123,0); // turn all notes off
  1756. _cmDspNanoMapSend(ctx,inst,kCtlMdId+i,0,0); // switch to bank 0
  1757. _cmDspNanoMapSend(ctx,inst,kPgmMdId+i,pgm,0); // send pgm change
  1758. cmSleepMs(15);
  1759. }
  1760. }
  1761. cmDspInst_t* _cmDspNanoMapAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  1762. {
  1763. cmDspVarArg_t args[] =
  1764. {
  1765. { "pgm", kPgmNmId, 0, 0, kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "Reprogram all channels to this pgm." },
  1766. { "status", kStatusNmId, 0, 0, kOutDsvFl | kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "MIDI status" },
  1767. { "d0", kD0NmId, 0, 0, kOutDsvFl | kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "MIDI channel message d0" },
  1768. { "d1", kD1NmId, 0, 0, kOutDsvFl | kInDsvFl | kUIntDsvFl | kOptArgDsvFl, "MIDI channel message d1" },
  1769. { "thru", kThruNmId, 0, 0, kInDsvFl | kBoolDsvFl | kOptArgDsvFl, "Enable pass through."},
  1770. { NULL, 0, 0, 0, 0 }
  1771. };
  1772. cmDspNanoMap_t* p = cmDspInstAlloc(cmDspNanoMap_t,ctx,classPtr,args,instSymId,id,storeSymId,va_cnt,vl);
  1773. cmDspSetDefaultUInt(ctx,&p->inst, kPgmNmId, 0, 0 );
  1774. return &p->inst;
  1775. }
  1776. cmDspRC_t _cmDspNanoMapReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1777. {
  1778. cmDspRC_t rc = kOkDspRC;
  1779. cmDspApplyAllDefaults(ctx,inst);
  1780. _cmDspNanoMapPgm(ctx,inst,cmDspUInt(inst,kPgmNmId));
  1781. return rc;
  1782. }
  1783. cmDspRC_t _cmDspNanoMapRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1784. {
  1785. //cmDspNanoMap_t* p = (cmDspNanoMap_t*)inst;
  1786. switch( evt->dstVarId )
  1787. {
  1788. case kPgmNmId:
  1789. cmDspSetEvent(ctx,inst,evt);
  1790. _cmDspNanoMapPgm(ctx,inst,cmDspUInt(inst,kPgmNmId));
  1791. break;
  1792. case kStatusNmId:
  1793. {
  1794. unsigned status = cmDsvGetUInt(evt->valuePtr);
  1795. if( (status & 0xf0) == kNoteOnMdId )
  1796. {
  1797. unsigned d0 = cmDspUInt(inst,kD0NmId);
  1798. unsigned ch = d0 % 8;
  1799. status = (status & 0xf0) + ch;
  1800. cmDspSetUInt(ctx,inst,kStatusNmId,status);
  1801. }
  1802. }
  1803. break;
  1804. default:
  1805. cmDspSetEvent(ctx,inst,evt);
  1806. break;
  1807. }
  1808. return kOkDspRC;
  1809. }
  1810. struct cmDspClass_str* cmNanoMapClassCons( cmDspCtx_t* ctx )
  1811. {
  1812. cmDspClassSetup(&_cmNanoMapDC,ctx,"NanoMap",
  1813. NULL,
  1814. _cmDspNanoMapAlloc,
  1815. NULL,
  1816. _cmDspNanoMapReset,
  1817. NULL,
  1818. _cmDspNanoMapRecv,
  1819. NULL,
  1820. NULL,
  1821. "Nanosynth Mapper");
  1822. return &_cmNanoMapDC;
  1823. }
  1824. //==========================================================================================================================================
  1825. enum
  1826. {
  1827. kChCntPrId,
  1828. kFnPrId,
  1829. kSecsPrId,
  1830. kFadeRatePrId,
  1831. kScLocIdxPrId,
  1832. kCmdPrId,
  1833. kInAudioBasePrId
  1834. };
  1835. cmDspClass_t _cmRecdPlayDC;
  1836. typedef struct
  1837. {
  1838. cmDspInst_t inst;
  1839. cmRecdPlay* rcdply;
  1840. cmScH_t scH;
  1841. unsigned onSymId;
  1842. unsigned offSymId;
  1843. unsigned audioOutBaseId;
  1844. unsigned chCnt;
  1845. unsigned scLocIdx;
  1846. } cmDspRecdPlay_t;
  1847. cmDspRC_t _cmDspRecdPlayOpenScore( cmDspCtx_t* ctx, cmDspInst_t* inst )
  1848. {
  1849. cmDspRC_t rc =kOkDspRC;
  1850. const cmChar_t* fn;
  1851. cmDspRecdPlay_t* p = (cmDspRecdPlay_t*)inst;
  1852. p->scLocIdx = 0;
  1853. if((fn = cmDspStrcz(inst,kFnPrId)) == NULL || strlen(fn)==0 )
  1854. return cmErrMsg(&inst->classPtr->err, kInvalidArgDspRC, "No score file name supplied.");
  1855. if( cmScoreInitialize(ctx->cmCtx, &p->scH, fn, cmDspSampleRate(ctx), NULL, 0, NULL, NULL, ctx->stH ) != kOkScRC )
  1856. return cmErrMsg(&inst->classPtr->err, kSubSysFailDspRC, "Unable to open the score '%s'.",fn);
  1857. if( cmScoreIsValid(p->scH) )
  1858. {
  1859. unsigned i;
  1860. unsigned markerCnt = cmScoreMarkerLabelCount(p->scH);
  1861. if((p->rcdply = cmRecdPlayAlloc(ctx->cmProcCtx, NULL, cmDspSampleRate(ctx), markerCnt, p->chCnt, cmDspDouble(inst,kSecsPrId))) == NULL)
  1862. return cmErrMsg(&inst->classPtr->err,kSubSysFailDspRC,"Unable to create the internal recorder-player object.");
  1863. for(i=0; i<markerCnt; ++i)
  1864. cmRecdPlayRegisterFrag(p->rcdply,i, cmScoreMarkerLabelSymbolId(p->scH,i ));
  1865. }
  1866. return rc;
  1867. }
  1868. cmDspInst_t* _cmDspRecdPlayAlloc(cmDspCtx_t* ctx, cmDspClass_t* classPtr, unsigned storeSymId, unsigned instSymId, unsigned id, unsigned va_cnt, va_list vl )
  1869. {
  1870. if( va_cnt < 1 )
  1871. {
  1872. cmDspClassErr(ctx,classPtr,kVarArgParseFailDspRC,"The 'RecdPlay' constructor must have a count of input ports.");
  1873. return NULL;
  1874. }
  1875. va_list vl1;
  1876. va_copy(vl1,vl);
  1877. int chCnt = va_arg(vl,int);
  1878. unsigned audioOutBase = kInAudioBasePrId + chCnt;
  1879. cmDspRecdPlay_t* p = cmDspInstAllocV(cmDspRecdPlay_t,ctx,classPtr,instSymId,id,storeSymId,va_cnt,vl1,
  1880. 1, "chs", kChCntPrId, 0,0, kUIntDsvFl | kReqArgDsvFl, "channel count.",
  1881. 1, "fn", kFnPrId, 0,0, kInDsvFl | kStrzDsvFl | kReqArgDsvFl, "Score file." ,
  1882. 1, "secs", kSecsPrId, 0,0, kInDsvFl | kDoubleDsvFl | kReqArgDsvFl, "Initial fragment allocation in seconds.",
  1883. 1, "frate", kFadeRatePrId, 0,0, kInDsvFl | kDoubleDsvFl, "Fade rate in dB per second.",
  1884. 1, "index", kScLocIdxPrId, 0,0, kInDsvFl | kUIntDsvFl, "Score follower location index.",
  1885. 1, "cmd", kCmdPrId, 0,0, kInDsvFl | kSymDsvFl, "on=reset off=stop.",
  1886. chCnt, "in", kInAudioBasePrId,0,1, kInDsvFl | kAudioBufDsvFl, "Audio input",
  1887. chCnt, "out", audioOutBase, 0,1, kOutDsvFl | kAudioBufDsvFl, "Audio output",
  1888. 0 );
  1889. va_end(vl1);
  1890. p->onSymId = cmSymTblId(ctx->stH,"on");
  1891. p->offSymId = cmSymTblId(ctx->stH,"off");
  1892. p->audioOutBaseId = audioOutBase;
  1893. p->chCnt = chCnt;
  1894. p->scLocIdx = 0;
  1895. cmDspSetDefaultDouble(ctx,&p->inst, kSecsPrId, 0, 10.0 );
  1896. cmDspSetDefaultDouble(ctx,&p->inst, kFadeRatePrId, 0, 1.0);
  1897. return &p->inst;
  1898. }
  1899. cmDspRC_t _cmDspRecdPlayFree(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1900. {
  1901. cmDspRC_t rc = kOkDspRC;
  1902. cmDspRecdPlay_t* p = (cmDspRecdPlay_t*)inst;
  1903. cmRecdPlayFree(&p->rcdply);
  1904. cmScoreFinalize(&p->scH);
  1905. return rc;
  1906. }
  1907. cmDspRC_t _cmDspRecdPlayReset(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1908. {
  1909. cmDspApplyAllDefaults(ctx,inst);
  1910. return _cmDspRecdPlayOpenScore(ctx,inst);
  1911. }
  1912. cmDspRC_t _cmDspRecdPlayExec(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1913. {
  1914. cmDspRC_t rc = kOkDspRC;
  1915. cmDspRecdPlay_t* p = (cmDspRecdPlay_t*)inst;
  1916. const cmSample_t* x[ p->chCnt ];
  1917. cmSample_t* y[ p->chCnt ];
  1918. unsigned n;
  1919. unsigned i;
  1920. unsigned actChCnt = 0;
  1921. for(i=0; i<p->chCnt; ++i)
  1922. {
  1923. if( i==0 )
  1924. n = cmDspAudioBufSmpCount(ctx,inst,kInAudioBasePrId+i,0);
  1925. else
  1926. { assert( n == cmDspAudioBufSmpCount(ctx,inst,kInAudioBasePrId+i,0)); }
  1927. x[i] = cmDspAudioBuf(ctx,inst,kInAudioBasePrId+i,0);
  1928. if( x[i] != NULL )
  1929. {
  1930. y[i] = cmDspAudioBuf(ctx,inst,p->audioOutBaseId+i,0);
  1931. if( y[i] != NULL )
  1932. {
  1933. assert( n == cmDspAudioBufSmpCount(ctx,inst,p->audioOutBaseId+i,0));
  1934. cmVOS_Zero(y[i],n);
  1935. actChCnt += 1;
  1936. }
  1937. }
  1938. }
  1939. cmRecdPlayExec(p->rcdply,x,y,actChCnt,n);
  1940. return rc;
  1941. }
  1942. cmDspRC_t _cmDspRecdPlayRecv(cmDspCtx_t* ctx, cmDspInst_t* inst, const cmDspEvt_t* evt )
  1943. {
  1944. cmDspRecdPlay_t* p = (cmDspRecdPlay_t*)inst;
  1945. cmDspSetEvent(ctx,inst,evt);
  1946. switch( evt->dstVarId )
  1947. {
  1948. case kCmdPrId:
  1949. if( cmDspSymbol(inst,kCmdPrId) == p->onSymId )
  1950. {
  1951. printf("rewind\n");
  1952. cmRecdPlayRewind(p->rcdply);
  1953. p->scLocIdx = 0;
  1954. }
  1955. else
  1956. if( cmDspSymbol(inst,kCmdPrId) == p->offSymId )
  1957. {
  1958. }
  1959. break;
  1960. case kScLocIdxPrId:
  1961. {
  1962. unsigned endScLocIdx = cmDspUInt(inst,kScLocIdxPrId) ;
  1963. for(; p->scLocIdx<=endScLocIdx; p->scLocIdx+=1)
  1964. {
  1965. cmScoreLoc_t* loc = cmScoreLoc(p->scH, p->scLocIdx );
  1966. cmScoreMarker_t* mp = loc->markList;
  1967. for(; mp!=NULL; mp=mp->link)
  1968. switch( mp->markTypeId )
  1969. {
  1970. case kRecdBegScMId:
  1971. printf("recd-beg\n");
  1972. cmRecdPlayBeginRecord(p->rcdply, mp->labelSymId );
  1973. break;
  1974. case kRecdEndScMId:
  1975. printf("recd-end\n");
  1976. cmRecdPlayEndRecord(p->rcdply, mp->labelSymId );
  1977. break;
  1978. case kPlayBegScMId:
  1979. printf("play-beg\n");
  1980. cmRecdPlayBeginPlay(p->rcdply, mp->labelSymId );
  1981. break;
  1982. case kPlayEndScMId:
  1983. printf("recd-end\n");
  1984. cmRecdPlayEndPlay(p->rcdply, mp->labelSymId );
  1985. break;
  1986. case kFadeScMId:
  1987. printf("fade-beg\n");
  1988. cmRecdPlayBeginFade(p->rcdply, mp->labelSymId, cmDspDouble(inst,kFadeRatePrId) );
  1989. break;
  1990. default:
  1991. break;
  1992. }
  1993. }
  1994. p->scLocIdx = endScLocIdx+1;
  1995. }
  1996. break;
  1997. }
  1998. return kOkDspRC;
  1999. }
  2000. struct cmDspClass_str* cmRecdPlayClassCons( cmDspCtx_t* ctx )
  2001. {
  2002. cmDspClassSetup(&_cmRecdPlayDC,ctx,"RecdPlay",
  2003. NULL,
  2004. _cmDspRecdPlayAlloc,
  2005. _cmDspRecdPlayFree,
  2006. _cmDspRecdPlayReset,
  2007. _cmDspRecdPlayExec,
  2008. _cmDspRecdPlayRecv,
  2009. NULL,
  2010. NULL,
  2011. "Score controlled live recorder/player");
  2012. return &_cmRecdPlayDC;
  2013. }