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.

cmDspPgm.c 112KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619
  1. #include "cmPrefix.h"
  2. #include "cmGlobal.h"
  3. #include "cmFloatTypes.h"
  4. #include "cmRpt.h"
  5. #include "cmErr.h"
  6. #include "cmCtx.h"
  7. #include "cmMem.h"
  8. #include "cmMallocDebug.h"
  9. #include "cmLinkedHeap.h"
  10. #include "cmFileSys.h"
  11. #include "cmSymTbl.h"
  12. #include "cmJson.h"
  13. #include "cmPrefs.h"
  14. #include "cmDspValue.h"
  15. #include "cmMsgProtocol.h"
  16. #include "cmThread.h"
  17. #include "cmUdpPort.h"
  18. #include "cmUdpNet.h"
  19. #include "cmTime.h"
  20. #include "cmAudioSys.h"
  21. #include "cmProcObj.h"
  22. #include "cmDspCtx.h"
  23. #include "cmDspClass.h"
  24. #include "cmDspSys.h"
  25. #include "cmDspPgm.h"
  26. #include "cmDspPgmPP.h"
  27. #include "cmDspPgmKr.h"
  28. cmDspRC_t _cmDspSysPgm_SyncRecd( cmDspSysH_t h, void** userPtrPtr )
  29. {
  30. cmDspRC_t rc = kOkDspRC;
  31. unsigned audioFileBits = 24;
  32. cmDspInst_t* ai0p = cmDspSysAllocInst(h,"AudioIn", NULL, 1, 0 );
  33. cmDspInst_t* ai1p = cmDspSysAllocInst(h,"AudioIn", NULL, 1, 1 );
  34. cmDspInst_t* mip = cmDspSysAllocInst(h,"MidiIn", NULL, 0 );
  35. cmDspInst_t* srp = cmDspSysAllocInst(h,"SyncRecd",NULL, 3, "/home/kevin/temp/kr/sr","sr","audio",audioFileBits);
  36. cmDspInst_t* am0p = cmDspSysAllocInst(h,"AMeter", "Left", 0);
  37. cmDspInst_t* am1p = cmDspSysAllocInst(h,"AMeter", "Right",0);
  38. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 0 );
  39. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 1 );
  40. cmDspInst_t* chk = cmDspSysAllocInst(h,"Checkbox","recd", 5, "Recd","open","close", 1.0, 0.0);
  41. cmDspInst_t* gain0 = cmDspSysAllocInst(h,"Scalar", "In Gain-0", 5, kNumberDuiId, 0.0, 10.0,0.01, 1.0 );
  42. cmDspInst_t* gain1 = cmDspSysAllocInst(h,"Scalar", "In Gain-1", 5, kNumberDuiId, 0.0, 10.0,0.01, 1.0 );
  43. // check for allocation errors
  44. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  45. goto errLabel;
  46. cmDspSysInstallCb(h, mip, "status", srp, "status", NULL);
  47. cmDspSysInstallCb(h, mip, "d0", srp, "d0", NULL);
  48. cmDspSysInstallCb(h, mip, "d1", srp, "d1", NULL);
  49. cmDspSysInstallCb(h, mip, "sec", srp, "sec", NULL);
  50. cmDspSysInstallCb(h, mip, "nsec", srp, "nsec", NULL);
  51. cmDspSysInstallCb(h, chk, "sym", srp, "cmd", NULL);
  52. cmDspSysInstallCb(h, gain0, "val", ai0p, "gain", NULL);
  53. cmDspSysInstallCb(h, gain1, "val", ai1p, "gain", NULL);
  54. cmDspSysConnectAudio(h, ai0p, "out", srp, "ain-0");
  55. cmDspSysConnectAudio(h, ai1p, "out", srp, "ain-1");
  56. cmDspSysConnectAudio(h, ai0p, "out", am0p, "in");
  57. cmDspSysConnectAudio(h, ai1p, "out", am1p, "in");
  58. cmDspSysConnectAudio(h, ai0p, "out", ao0p, "in");
  59. cmDspSysConnectAudio(h, ai1p, "out", ao1p, "in");
  60. errLabel:
  61. return rc;
  62. }
  63. cmDspRC_t _cmDspSysPgm_Test_Midi( cmDspSysH_t h, void** userPtrPtr )
  64. {
  65. cmDspRC_t rc = kOkDspRC;
  66. const cmChar_t* deviceName = "Fastlane";
  67. const cmChar_t* portName = "Fastlane MIDI A";
  68. #ifdef OS_OSX
  69. deviceName = "MOTU - FastLane USB";
  70. portName = "Port A";
  71. //deviceName = "RME - Fireface UFX (23148636)";
  72. //portName = "Port 2";
  73. #endif
  74. cmDspInst_t* sendBtn = cmDspSysAllocInst( h,"Button", "Send", 2, kButtonDuiId, 0.0 );
  75. cmDspInst_t* status = cmDspSysAllocInst( h,"Scalar", "Status", 5, kNumberDuiId, 0.0, 127.0, 1.0, 144.0);
  76. cmDspInst_t* d0 = cmDspSysAllocInst( h,"Scalar", "D0", 5, kNumberDuiId, 0.0, 127.0, 1.0, 64.0);
  77. cmDspInst_t* d1 = cmDspSysAllocInst( h,"Scalar", "D1", 5, kNumberDuiId, 0.0, 127.0, 1.0, 64.0);
  78. cmDspInst_t* midiOut = cmDspSysAllocInst( h,"MidiOut", NULL, 2, deviceName, portName);
  79. cmDspInst_t* midiIn = cmDspSysAllocInst( h,"MidiIn", NULL, 0 );
  80. //cmDspInst_t* printer = cmDspSysAllocInst( h,"Printer", NULL, 1, ">" );
  81. cmDspInst_t* prst = cmDspSysAllocInst( h,"Printer", NULL, 1, "st>" );
  82. cmDspInst_t* prd0 = cmDspSysAllocInst( h,"Printer", NULL, 1, "d0>" );
  83. cmDspInst_t* prd1 = cmDspSysAllocInst( h,"Printer", NULL, 1, "d1>" );
  84. // check for allocation errors
  85. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  86. goto errLabel;
  87. cmDspSysInstallCb( h, sendBtn, "out", d1, "send", NULL);
  88. cmDspSysInstallCb( h, sendBtn, "out", d0, "send", NULL);
  89. cmDspSysInstallCb( h, sendBtn, "out", status, "send", NULL);
  90. cmDspSysInstallCb( h, status, "val", midiOut, "status",NULL);
  91. cmDspSysInstallCb( h, d0, "val", midiOut, "d0", NULL);
  92. cmDspSysInstallCb( h, d1, "val", midiOut, "d1", NULL);
  93. cmDspSysInstallCb( h, midiIn, "status", prst, "in", NULL);
  94. cmDspSysInstallCb( h, midiIn, "d0", prd0, "in", NULL);
  95. cmDspSysInstallCb( h, midiIn, "d1", prd1, "in", NULL);
  96. //cmDspSysInstallCb( h, midiIn, "smpidx", printer, "in", NULL);
  97. errLabel:
  98. return rc;
  99. }
  100. cmDspRC_t _cmDspSysPgm_Stereo_Through( cmDspSysH_t h, void** userPtrPtr )
  101. {
  102. bool useBuiltInFl = true;
  103. cmDspInst_t* ignp = cmDspSysAllocInst( h,"Scalar", "In Gain", 5, kNumberDuiId, 0.0, 4.0, 0.01, 1.0);
  104. //cmDspInst_t* ognp = cmDspSysAllocInst( h,"Scalar", "Out Gain", 5, kNumberDuiId, 0.0, 4.0, 0.01, 1.0);
  105. cmDspInst_t* hzp = cmDspSysAllocInst(h,"Scalar", "Hz", 5, kNumberDuiId, 0.0, 10.0, 0.001, 1.0);
  106. cmDspInst_t* php = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  107. cmDspInst_t* wtp = cmDspSysAllocInst(h,"WaveTable",NULL, 2, cmDspSysSampleRate(h), 2 );
  108. cmDspInst_t* ai0p = cmDspSysAllocInst(h,"AudioIn", NULL, 1, useBuiltInFl ? 0 : 2 );
  109. cmDspInst_t* ai1p = cmDspSysAllocInst(h,"AudioIn", NULL, 1, useBuiltInFl ? 1 : 3 );
  110. // MOTU Traveler: Use channels 2&3 (out plugs:3&4) because 0&1 do not show up on plugs 1&2.
  111. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  112. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  113. cmDspInst_t* im0p = cmDspSysAllocInst(h,"AMeter","In 0", 0);
  114. cmDspInst_t* im1p = cmDspSysAllocInst(h,"AMeter","In 1", 0);
  115. cmDspInst_t* om0p = cmDspSysAllocInst(h,"AMeter","Out 0", 0);
  116. cmDspInst_t* om1p = cmDspSysAllocInst(h,"AMeter","Out 1",0);
  117. //cmDspSysConnectAudio(h, ai0p, "out", ao0p, "in");
  118. //cmDspSysConnectAudio(h, ai1p, "out", ao1p, "in");
  119. cmDspSysConnectAudio(h, ai0p, "out", im0p, "in"); //ain0 -> imtr0
  120. cmDspSysConnectAudio(h, ai1p, "out", im1p, "in"); //ain1 -> imtr1
  121. if(0)
  122. {
  123. cmDspSysInstallCb( h, hzp, "val", php, "mult", NULL); // hz -> phs
  124. cmDspSysConnectAudio(h, php, "out", wtp, "phs" ); // phs -> wt
  125. cmDspSysConnectAudio(h, wtp, "out", ao0p, "in" ); // wt -> aout0
  126. cmDspSysConnectAudio(h, wtp, "out", om0p, "in" ); // wt -> omtr0
  127. }
  128. else
  129. {
  130. cmDspSysInstallCb( h, ignp,"val", ai0p, "gain", NULL); // igain -> ain0
  131. cmDspSysConnectAudio(h, ai0p,"out", ao0p, "in" ); // ain0 -> aout0
  132. cmDspSysConnectAudio(h, ai0p,"out", om0p, "in" ); // ain0 -> omtr0
  133. }
  134. cmDspSysInstallCb( h, ignp,"val", ai1p, "gain", NULL); // igain -> ain1
  135. cmDspSysConnectAudio(h, ai1p,"out", ao1p, "in" ); // ain1 -> aout1
  136. cmDspSysConnectAudio(h, ai1p,"out", om1p, "in" ); // ain1 -> omtr1
  137. return kOkDspRC;
  138. }
  139. cmDspRC_t _cmDspSysPgm_Stereo_Fx( cmDspSysH_t h, void** userPtrPtr )
  140. {
  141. bool useBuiltInFl = true;
  142. cmDspInst_t* ignp = cmDspSysAllocInst( h,"Scalar", "In Gain", 5, kNumberDuiId, 0.0, 4.0, 0.01, 1.0);
  143. cmDspInst_t* ognp = cmDspSysAllocInst( h,"Scalar", "Out Gain", 5, kNumberDuiId, 0.0, 4.0, 0.01, 1.0);
  144. //cmDspInst_t* fb0p = cmDspSysAllocInst( h,"Scalar", "Feeback 0", 5, kNumberDuiId, 0.0, 1.0, 0.001, 0.0);
  145. //cmDspInst_t* fb1p = cmDspSysAllocInst( h,"Scalar", "Feedback 1", 5, kNumberDuiId, 0.0, 1.0, 0.001, 0.0);
  146. //cmDspInst_t* tm0p = cmDspSysAllocInst( h,"Scalar", "Time 0", 5, kNumberDuiId, 0.0, 1000.0, 0.0001, 10.0);
  147. //cmDspInst_t* tm1p = cmDspSysAllocInst( h,"Scalar", "Time 1", 5, kNumberDuiId, 0.0, 1000.0, 0.0001, 10.0);
  148. cmDspInst_t* rt0p = cmDspSysAllocInst( h,"Scalar", "Ratio 0", 5, kNumberDuiId, 0.01, 10.0, 0.01, 1.0);
  149. cmDspInst_t* rt1p = cmDspSysAllocInst( h,"Scalar", "Ratio 1", 5, kNumberDuiId, 0.01, 10.0, 0.01, 1.0);
  150. cmDspInst_t* ai0p = cmDspSysAllocInst(h,"AudioIn", NULL, 1, useBuiltInFl ? 0 : 2 );
  151. cmDspInst_t* ai1p = cmDspSysAllocInst(h,"AudioIn", NULL, 1, useBuiltInFl ? 1 : 3 );
  152. cmDspInst_t* om0p = cmDspSysAllocInst(h,"AMeter","Out Left", 0);
  153. cmDspInst_t* om1p = cmDspSysAllocInst(h,"AMeter","Out Right",0);
  154. //cmDspInst_t* dy0p = cmDspSysAllocInst(h,"Delay", NULL, 2, 1000.0, 0.5 );
  155. //cmDspInst_t* dy1p = cmDspSysAllocInst(h,"Delay", NULL, 2, 2000.0, 0.7 );
  156. cmDspInst_t* ps0p = cmDspSysAllocInst(h,"PShift", NULL, 0 );
  157. cmDspInst_t* ps1p = cmDspSysAllocInst(h,"PShift", NULL, 0 );
  158. // MOTU Traveler: Use channels 2&3 (out plugs:3&4) because 0&1 do not show up on plugs 1&2.
  159. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  160. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  161. cmDspSysConnectAudio(h, ai0p,"out", om0p, "in" ); // input meter connection
  162. cmDspSysConnectAudio(h, ai1p,"out", om1p, "in" );
  163. //cmDspSysConnectAudio(h, ai0p,"out", dy0p, "in" ); // input -> delay
  164. //cmDspSysConnectAudio(h, ai1p,"out", dy1p, "in" );
  165. cmDspSysConnectAudio(h, ai0p,"out", ps0p, "in" ); // delay -> pshift
  166. cmDspSysConnectAudio(h, ai1p,"out", ps1p, "in" );
  167. cmDspSysConnectAudio(h, ps0p,"out", ao0p, "in" ); // pshift -> output
  168. cmDspSysConnectAudio(h, ps1p,"out", ao1p, "in" );
  169. //cmDspSysConnectAudio(h, dy0p,"out", ao0p, "in" ); // delay -> output
  170. //cmDspSysConnectAudio(h, dy1p,"out", ao1p, "in" );
  171. cmDspSysInstallCb( h, ignp,"val", ai0p, "gain", NULL); // input gain
  172. cmDspSysInstallCb( h, ignp,"val", ai1p, "gain", NULL);
  173. cmDspSysInstallCb( h, ognp, "val", ao0p, "gain", NULL); // output gain
  174. cmDspSysInstallCb( h, ognp, "val", ao1p, "gain", NULL);
  175. //cmDspSysInstallCb( h, fb0p, "val", dy0p, "fb", NULL); // feedback
  176. //cmDspSysInstallCb( h, fb1p, "val", dy1p, "fb", NULL);
  177. //cmDspSysInstallCb( h, tm0p, "val", dy0p, "time", NULL); // delay time
  178. //cmDspSysInstallCb( h, tm1p, "val", dy1p, "time", NULL);
  179. cmDspSysInstallCb( h, rt0p, "val", ps0p, "ratio", NULL); // pitch ratio
  180. cmDspSysInstallCb( h, rt1p, "val", ps1p, "ratio", NULL);
  181. return kOkDspRC;
  182. }
  183. cmDspRC_t _cmDspSysPgm_PlaySine( cmDspSysH_t h, void** userPtrPtr )
  184. {
  185. bool useBuiltInFl = true;
  186. double frqHz = 440.0;
  187. cmDspInst_t* chp = cmDspSysAllocInst( h,"Scalar", "Channel", 5, kNumberDuiId, 0.0, 100.0, 1.0, 0.0);
  188. cmDspInst_t* php = cmDspSysAllocInst(h,"Phasor", NULL, 2, cmDspSysSampleRate(h), frqHz );
  189. cmDspInst_t* wtp = cmDspSysAllocInst(h,"WaveTable", NULL, 2, ((int)cmDspSysSampleRate(h)), 4);
  190. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut", NULL, 1, useBuiltInFl ? 0 : 2 );
  191. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut", NULL, 1, useBuiltInFl ? 1 : 3 );
  192. cmDspInst_t* om0p = cmDspSysAllocInst(h,"AMeter","Out", 0);
  193. cmDspSysConnectAudio(h, php, "out", wtp, "phs" ); // phasor -> wave table
  194. cmDspSysConnectAudio(h, wtp, "out", ao0p, "in" ); // wave table -> audio out
  195. cmDspSysConnectAudio(h, wtp, "out", ao1p, "in" ); //
  196. cmDspSysConnectAudio(h, wtp, "out", om0p, "in" );
  197. cmDspSysInstallCb( h, chp, "val", ao0p, "ch", NULL);
  198. return kOkDspRC;
  199. }
  200. cmDspRC_t _cmDspSysPgm_PlayFile( cmDspSysH_t h, void** userPtrPtr )
  201. {
  202. bool useBuiltInFl = true;
  203. const char* fn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  204. //int beg = 6900826;
  205. //int end = 13512262;
  206. const cmChar_t* fn = cmFsMakeFn(cmFsUserDir(),fn0,NULL,NULL );
  207. cmDspInst_t* ofp = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  208. cmDspInst_t* fnp = cmDspSysAllocInst(h,"Fname", NULL, 3, false,"Audio Files (*.wav,*.aiff,*.aif)\tAudio Files (*.{wav,aiff,aif})",fn);
  209. cmDspInst_t* php = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  210. cmDspInst_t* wtp = cmDspSysAllocInst(h,"WaveTable",NULL, 2, ((int)cmDspSysSampleRate(h)), 1 );
  211. //cmDspInst_t* afp = cmDspSysAllocInst(h,"AudioFileOut",NULL,2,"/home/kevin/temp/record0.aif",1);
  212. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  213. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  214. cmDspSysConnectAudio(h, php, "out", wtp, "phs" ); // phasor -> wave table
  215. cmDspSysConnectAudio(h, wtp, "out", ao0p, "in" ); // wave table -> audio out
  216. cmDspSysConnectAudio(h, wtp, "out", ao1p, "in" ); //
  217. //cmDspSysConnectAudio(h, wtp, "out", afp, "in0");
  218. cmDspSysInstallCb(h, ofp, "val", wtp, "beg", NULL );
  219. cmDspSysInstallCb(h, fnp, "out", wtp, "fn", NULL);
  220. return kOkDspRC;
  221. }
  222. cmDspRC_t _cmDspSysPgm_GateDetect( cmDspSysH_t h, void** userPtrPtr )
  223. {
  224. bool useBuiltInFl = true;
  225. //const char* fn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  226. //int beg = 6900826;
  227. //int end = 13512262;
  228. //const char* fn0 = "media/audio/McGill-3/1 Audio Track.aiff";
  229. const char* fn0 = "temp/gate_detect0.aif";
  230. int beg = 0;
  231. int end = -1;
  232. const cmChar_t* fn = cmFsMakeFn(cmFsUserDir(),fn0,NULL,NULL );
  233. const cmChar_t* tfn = "/home/kevin/temp/test0.txt";
  234. cmDspInst_t* ofp = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  235. //cmDspInst_t* fnp = cmDspSysAllocInst(h,"Fname", NULL, 3, false,"Audio Files (*.wav,*.aiff,*.aif)\tAudio Files (*.{wav,aiff,aif})",fn);
  236. cmDspInst_t* php = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  237. cmDspInst_t* wtp = cmDspSysAllocInst(h,"WaveTable", NULL, 6, ((int)cmDspSysSampleRate(h)), 1, fn, -1, beg, end );
  238. cmDspInst_t* gdp = cmDspSysAllocInst(h,"GateDetect",NULL, 1, 20.0);
  239. cmDspInst_t* gmp = cmDspSysAllocInst(h,"Meter", NULL, 3, 0.0, 0.0, 1.0);
  240. cmDspInst_t* rmp = cmDspSysAllocInst(h,"Meter", NULL, 3, -100.0, -100.0, 0.0);
  241. cmDspInst_t* txp = cmDspSysAllocInst(h,"TextFile", NULL, 2, 3, tfn);
  242. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  243. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  244. cmDspSysConnectAudio(h, php, "out", wtp, "phs" ); // phasor -> wave table
  245. cmDspSysConnectAudio(h, wtp, "out", ao0p, "in" ); // wave table -> audio out
  246. cmDspSysConnectAudio(h, wtp, "out", ao1p, "in" ); //
  247. cmDspSysConnectAudio(h, wtp, "out", gdp, "in" );
  248. cmDspSysInstallCb(h, ofp, "val", wtp, "beg", NULL );
  249. cmDspSysInstallCb(h, gdp, "gate", gmp, "in", NULL );
  250. cmDspSysInstallCb(h, gdp, "rms", rmp, "in", NULL );
  251. cmDspSysInstallCb(h, gdp, "gate", txp, "in-0", NULL);
  252. cmDspSysInstallCb(h, gdp, "rms", txp, "in-1", NULL);
  253. cmDspSysInstallCb(h, gdp, "mean", txp, "in-2", NULL);
  254. return kOkDspRC;
  255. }
  256. cmDspRC_t _cmDspSysPgm_Record(cmDspSysH_t h, void** userPtrPtr)
  257. {
  258. int chCnt = 8;
  259. cmDspInst_t* a[chCnt];
  260. int i;
  261. for(i=0; i<chCnt; ++i)
  262. a[i] = cmDspSysAllocInst( h, "AudioIn", NULL, 1, i );
  263. cmDspInst_t* mxp = cmDspSysAllocInst( h, "AMix", NULL, chCnt+1, chCnt, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0 );
  264. cmDspInst_t* afp = cmDspSysAllocInst( h, "AudioFileOut", NULL, 2,"/home/kevin/temp/gate_detect.aif",1);
  265. cmDspInst_t* aop = cmDspSysAllocInst( h, "AudioOut", NULL, 1, 0 );
  266. cmDspInst_t* txp = cmDspSysAllocInst( h, "TextFile", NULL, 2, 1, "/home/kevin/temp/gate_detect.txt");
  267. cmDspInst_t* chp = cmDspSysAllocInst( h, "Scalar", "Channel", 5, kNumberDuiId, 0.0, 7.0, 1.0, 0.0);
  268. for(i=0; i<chCnt; ++i)
  269. {
  270. cmChar_t lbl[15];
  271. snprintf(lbl,15,"in-%i",i);
  272. cmDspSysConnectAudio(h,a[i], "out", mxp, lbl);
  273. }
  274. cmDspSysConnectAudio(h, mxp, "out", afp, "in0" );
  275. cmDspSysConnectAudio(h, mxp, "out", aop, "in" );
  276. cmDspSysInstallCb(h, chp, "out", txp, "in-0", NULL);
  277. return kOkDspRC;
  278. }
  279. cmDspRC_t _cmDspSysPgm_PitchShiftFile( cmDspSysH_t h, void** userPtrPtr )
  280. {
  281. bool useBuiltInFl = true;
  282. const cmChar_t* fn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  283. const cmChar_t* fn1 = "temp/record0.aif";
  284. int beg = 6900826;
  285. int end = 13512262;
  286. const cmChar_t* fn = cmFsMakeFn(cmFsUserDir(),fn0,NULL,NULL );
  287. const cmChar_t* ofn = cmFsMakeFn(cmFsUserDir(),fn1,NULL,NULL );
  288. cmDspInst_t* rt0p = cmDspSysAllocInst(h,"Scalar", "Ratio 0", 5, kNumberDuiId, 0.01, 10.0, 0.01, 1.0);
  289. cmDspInst_t* rt1p = cmDspSysAllocInst(h,"Scalar", "Ratio 1", 5, kNumberDuiId, 0.01, 10.0, 0.01, 1.0);
  290. cmDspInst_t* ofp = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  291. //cmDspInst_t* fnp = cmDspSysAllocInst(h,"Fname", NULL, 3, false,"Audio Files (*.wav,*.aiff,*.aif)\tAudio Files (*.{wav,aiff,aif})",fn);
  292. cmDspInst_t* php = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  293. cmDspInst_t* wtp = cmDspSysAllocInst(h,"WaveTable",NULL, 6, ((int)cmDspSysSampleRate(h)), 1, fn, -1, beg, end );
  294. cmDspInst_t* afp = cmDspSysAllocInst(h,"AudioFileOut",NULL,2,ofn,1);
  295. cmDspInst_t* ps0p = cmDspSysAllocInst(h,"PShift", NULL, 0 );
  296. cmDspInst_t* ps1p = cmDspSysAllocInst(h,"PShift", NULL, 0 );
  297. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  298. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  299. cmDspSysConnectAudio(h, php, "out", wtp, "phs" ); // phasor -> wave table
  300. cmDspSysConnectAudio(h, wtp, "out", ps0p, "in" ); // wave table -> shift
  301. cmDspSysConnectAudio(h, wtp, "out", ps1p, "in" ); //
  302. cmDspSysConnectAudio(h, ps0p, "out", ao0p, "in" ); // shift -> audio out
  303. cmDspSysConnectAudio(h, ps1p, "out", ao1p, "in" ); //
  304. cmDspSysConnectAudio(h, ps0p, "out", afp, "in0"); //
  305. cmDspSysInstallCb(h, ofp, "val", wtp, "beg", NULL );
  306. //cmDspSysInstallCb(h, fnp, "out", wtp, "fn", NULL);
  307. cmDspSysInstallCb(h, rt0p, "val", ps0p, "ratio", NULL);
  308. cmDspSysInstallCb(h, rt1p, "val", ps1p, "ratio", NULL);
  309. return kOkDspRC;
  310. }
  311. cmDspRC_t _cmDspSysPgm_LoopRecd( cmDspSysH_t h, void** userPtrPtr )
  312. {
  313. bool useBuiltInFl = true;
  314. const cmChar_t* fn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  315. const cmChar_t* fn = cmFsMakeFn(cmFsUserDir(),fn0,NULL,NULL );
  316. int beg = 6900826;
  317. int end = 13512262;
  318. cmDspInst_t* rfl = cmDspSysAllocInst(h,"Button", "Recd", 2, kCheckDuiId, 0.0 );
  319. cmDspInst_t* pfl = cmDspSysAllocInst(h,"Button", "Play", 2, kButtonDuiId, 1.0 );
  320. cmDspInst_t* rtp = cmDspSysAllocInst(h,"Scalar", "Ratio", 5, kNumberDuiId, 0.0, 10.0, 0.01, 1.0 );
  321. cmDspInst_t* ofp = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  322. //cmDspInst_t* fnp = cmDspSysAllocInst(h,"Fname", NULL, 3, false,"Audio Files (*.wav,*.aiff,*.aif)\tAudio Files (*.{wav,aiff,aif})",fn);
  323. cmDspInst_t* php = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  324. cmDspInst_t* wtp = cmDspSysAllocInst(h,"WaveTable",NULL, 6, ((int)cmDspSysSampleRate(h)), 1, fn, -1, beg, end );
  325. //cmDspInst_t* afp = cmDspSysAllocInst(h,"AudioFileOut",NULL,2,"/home/kevin/temp/record0.aif",1);
  326. cmDspInst_t* lrp = cmDspSysAllocInst(h,"LoopRecd", NULL, 0 );
  327. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  328. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  329. cmDspSysConnectAudio(h, php, "out", wtp, "phs" ); // phasor -> wave table
  330. cmDspSysConnectAudio(h, wtp, "out", lrp, "in" ); // wave table -> shift
  331. cmDspSysConnectAudio(h, lrp, "out", ao0p, "in" ); // shift -> audio out
  332. cmDspSysConnectAudio(h, wtp, "out", ao1p, "in" );
  333. cmDspSysInstallCb(h, ofp, "val", wtp, "beg", NULL );
  334. //cmDspSysInstallCb(h, fnp, "out", wtp, "fn", NULL);
  335. cmDspSysInstallCb(h, rfl, "out", lrp, "recd", NULL);
  336. cmDspSysInstallCb(h, pfl, "out", lrp, "play", NULL);
  337. cmDspSysInstallCb(h, rtp, "val", lrp, "ratio",NULL);
  338. return kOkDspRC;
  339. }
  340. cmDspRC_t _cmDspSysPgm_UiTest(cmDspSysH_t h, void** userPtrPtr )
  341. {
  342. cmDspRC_t rc = kOkDspRC;
  343. cmDspInst_t* mdp = cmDspSysAllocInst(h,"Scalar", "Mode", 5, kNumberDuiId, 0.0, 4.0, 1.0, 1.0);
  344. cmDspInst_t* wsp = cmDspSysAllocInst(h,"MsgList","wndSmpCnt", 3, "wndSmpCnt", NULL, 2);
  345. cmDspInst_t* hfp = cmDspSysAllocInst(h,"MsgList","hopFact", 3, "hopFact", NULL, 2);
  346. cmDspInst_t* thp = cmDspSysAllocInst(h,"Scalar", "threshold", 5, kNumberDuiId, 0.0, 1.0, 0.01, 0.5 );
  347. cmDspInst_t* trp = cmDspSysAllocInst(h,"Scalar", "target", 5, kNumberDuiId, 0.0, 1.0, 0.01, 0.5 );
  348. cmDspInst_t* btn = cmDspSysAllocInst(h,"Button", "btn", 2, kButtonDuiId, 12.3 );
  349. cmDspInst_t* chk = cmDspSysAllocInst(h,"Button", "check", 2, kCheckDuiId, 0 );
  350. cmDspInst_t* chb = cmDspSysAllocInst(h,"Checkbox","checkbox", 5, "Checker","up","down", 2.0, 1.0);
  351. cmDspInst_t* txt = cmDspSysAllocInst(h,"Text", "text", 1, "Hello" );
  352. cmDspInst_t* prp = cmDspSysAllocInst(h,"Printer", NULL, 1, ">" );
  353. cmDspInst_t* mtp = cmDspSysAllocInst(h,"Meter", "meter", 3, 0.0, 0.0, 4.0);
  354. cmDspInst_t* ctp = cmDspSysAllocInst(h,"Counter", NULL, 3, 0.0, 10.0, 1.0 );
  355. cmDspSysAllocInst(h,"Label", "label1", 1, "label2");
  356. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  357. return rc;
  358. cmDspSysInstallCb(h, mdp, "val", thp, "val", NULL );
  359. cmDspSysInstallCb(h, mdp, "val", prp, "in", NULL );
  360. cmDspSysInstallCb(h, wsp, "out", prp, "in", NULL );
  361. cmDspSysInstallCb(h, hfp, "out", prp, "in", NULL );
  362. cmDspSysInstallCb(h, trp, "val", prp, "in", NULL );
  363. cmDspSysInstallCb(h, btn, "out", prp, "in", NULL );
  364. cmDspSysInstallCb(h, chk, "out", prp, "in", NULL );
  365. cmDspSysInstallCb(h, ctp, "out", prp, "in", NULL );
  366. cmDspSysInstallCb(h, mdp, "val", btn, "in", NULL );
  367. cmDspSysInstallCb(h, thp, "val", mtp, "in", NULL );
  368. cmDspSysInstallCb(h, thp, "val", trp, "val", NULL );
  369. cmDspSysInstallCb(h, btn, "sym", prp, "in", NULL );
  370. cmDspSysInstallCb(h, btn, "out", ctp, "next", NULL );
  371. cmDspSysInstallCb(h, txt, "val", prp, "in", NULL );
  372. cmDspSysInstallCb(h, chb, "out", prp, "in", NULL );
  373. cmDspSysInstallCb(h, chb, "sym", prp, "in", NULL );
  374. return rc;
  375. }
  376. cmDspRC_t _cmDspSysPgm_Xfade( cmDspSysH_t h, void** userPtrPtr )
  377. {
  378. cmDspRC_t rc = kOkDspRC;
  379. unsigned leftChIdx = 0;
  380. unsigned rightChIdx = 1;
  381. unsigned chCnt = 2;
  382. double xfadeMs = 1000; // cross fade time
  383. double sgHz = 500;
  384. unsigned sgShapeId = 1;
  385. double sgGain = 0.5;
  386. cmDspInst_t* sg = cmDspSysAllocInst( h, "SigGen", NULL, 3, sgHz, sgShapeId, sgGain );
  387. cmDspInst_t* xfp = cmDspSysAllocInst(h,"Xfader", NULL, 2, chCnt, xfadeMs );
  388. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, leftChIdx );
  389. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, rightChIdx );
  390. cmDspInst_t* im0p = cmDspSysAllocInst(h,"AMeter","In 0", 0);
  391. cmDspInst_t* im1p = cmDspSysAllocInst(h,"AMeter","In 1", 0);
  392. cmDspInst_t* om0p = cmDspSysAllocInst(h,"AMeter","Out 0", 0);
  393. cmDspInst_t* om1p = cmDspSysAllocInst(h,"AMeter","Out 1", 0);
  394. cmDspInst_t* mstr = cmDspSysAllocInst(h,"Button", "Mstr", 2, kCheckDuiId, 0.0 );
  395. cmDspInst_t* btn0 = cmDspSysAllocInst(h,"Button", "Fade 0", 2, kCheckDuiId, 0.0 );
  396. cmDspInst_t* btn1 = cmDspSysAllocInst(h,"Button", "Fade 1", 2, kCheckDuiId, 1.0 );
  397. cmDspInst_t* gm0p = cmDspSysAllocInst(h,"Meter","Gain 0", 3, 0.0, 0.0, 1.0);
  398. cmDspInst_t* gm1p = cmDspSysAllocInst(h,"Meter","Gain 1", 3, 0.0, 0.0, 1.0);
  399. cmDspInst_t* pon = cmDspSysAllocInst(h,"Printer", NULL, 1, "on:" );
  400. cmDspInst_t* pof = cmDspSysAllocInst(h,"Printer", NULL, 1, "off:" );
  401. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  402. return rc;
  403. cmDspSysConnectAudio(h, sg, "out", im0p, "in"); // ain -> meter
  404. cmDspSysConnectAudio(h, sg, "out", im1p, "in"); //
  405. cmDspSysConnectAudio(h, sg, "out", xfp, "in-0"); // ain -> xfader
  406. cmDspSysConnectAudio(h, sg, "out", xfp, "in-1");
  407. cmDspSysConnectAudio(h, xfp, "out-0", om0p, "in" ); // xfade -> meter
  408. cmDspSysConnectAudio(h, xfp, "out-1", om1p, "in" ); //
  409. cmDspSysConnectAudio(h, xfp, "out-0", ao0p, "in" ); // xfade -> aout
  410. cmDspSysConnectAudio(h, xfp, "out-1", ao1p, "in" ); //
  411. cmDspSysInstallCb(h, btn0, "out", xfp, "gate-0", NULL ); // check -> xfade gate
  412. cmDspSysInstallCb(h, btn1, "out", xfp, "gate-1", NULL );
  413. cmDspSysInstallCb(h, mstr, "out", xfp, "mgate", NULL );
  414. cmDspSysInstallCb(h, xfp, "gain-0", gm0p, "in", NULL );
  415. cmDspSysInstallCb(h, xfp, "gain-1", gm1p, "in", NULL );
  416. cmDspSysInstallCb(h, xfp, "on", pon, "in", NULL );
  417. cmDspSysInstallCb(h, xfp, "off", pof, "in", NULL );
  418. return cmDspSysLastRC(h);
  419. }
  420. cmDspRC_t _cmDspSysPgm6( cmDspSysH_t h, void* audioDir )
  421. {
  422. cmDspRC_t rc = kOkDspRC;
  423. int wndSmpCnt = 2048;
  424. int hopFact = 4;
  425. //const char* afDir = "/Volumes/LaTetra0/media/audio/20110723-Kriesberg/Audio Files";
  426. //const char* afDir = "/Users/administrator/Documents/kc";
  427. const char* afDir = "/home/kevin/media/audio/20110723-Kriesberg/Audio Files";
  428. cmDspInst_t* ph0p = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  429. cmDspInst_t* wt0p = cmDspSysAllocInst(h,"WaveTable",NULL, 0 );
  430. cmDspInst_t* ro0p = cmDspSysAllocInst(h,"Reorder", NULL, 5, 3, 2, 0, 1, 2 );
  431. cmDspInst_t* kr0p = cmDspSysAllocInst(h,"Kr", NULL, 2, wndSmpCnt, hopFact );
  432. cmDspInst_t* kr1p = cmDspSysAllocInst(h,"Kr", NULL, 2, wndSmpCnt, hopFact );
  433. cmDspInst_t* prp = cmDspSysAllocInst(h,"Printer", NULL, 0 );
  434. bool useBuiltInFl = true;
  435. // MOTU Traveler: Use channels 2&3 (out plugs:3&4) because 0&1 do not show up on plugs 1&2.
  436. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  437. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  438. // BUG: If audio inputs are not connected a 'not an audio buffer' msg is generated.
  439. // This is a problem with type determination in the cmDspClass related code : see cmDspClass.c 833
  440. // for a place that this error would be thrown in the following audio outputs were not connected
  441. // to audio sources.
  442. cmDspInst_t* ao2p = NULL;
  443. cmDspInst_t* ao3p = NULL;
  444. if( !useBuiltInFl )
  445. {
  446. ao2p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 4 );
  447. ao3p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 5 );
  448. }
  449. cmDspInst_t* al0p = cmDspSysAllocInst(h,"MsgList","audFiles", 2, "audFiles",NULL);
  450. cmDspInst_t* fl0p = cmDspSysAllocInst(h,"MsgList","audFragsA", 2, "audFrags",NULL);
  451. cmDspInst_t* fn0p = cmDspSysAllocInst(h,"Sprintf","filename", 1, "%s/%s_%02i.wav");
  452. cmDspInst_t* md0p = cmDspSysAllocInst(h,"Scalar", "Mode", 5, kNumberDuiId, 0.0, 4.0, 1.0, 1.0);
  453. cmDspInst_t* ws0p = cmDspSysAllocInst(h,"MsgList","wndSmpCnt", 3, "wndSmpCnt", NULL, 2);
  454. cmDspInst_t* hf0p = cmDspSysAllocInst(h,"MsgList","hopFact", 3, "hopFact", NULL, 2);
  455. cmDspInst_t* th0p = cmDspSysAllocInst(h,"Scalar", "threshold", 5, kNumberDuiId, 0.0, 100.0, 1.0, 60.0 );
  456. cmDspInst_t* us0p = cmDspSysAllocInst(h,"Scalar", "upr slope", 5, kNumberDuiId, 0.0, 10.0, 0.01, 0.0 );
  457. cmDspInst_t* ls0p = cmDspSysAllocInst(h,"Scalar", "lwr slope", 5, kNumberDuiId, 0.3, 10.0, 0.01, 2.0 );
  458. cmDspInst_t* of0p = cmDspSysAllocInst(h,"Scalar", "offset", 5, kNumberDuiId, 0.0, 100.0, 0.01, 30.0 );
  459. cmDspInst_t* iv0p = cmDspSysAllocInst(h,"Scalar", "invert", 5, kNumberDuiId, 0.0, 1.0, 1.0, 0.0 );
  460. cmDspSysNewColumn(h,0);
  461. //cmDspInst_t* al1p = cmDspSysAllocInst(h,"MsgList","audFiles", 2, "audFiles",NULL);
  462. //cmDspInst_t* fl1p = cmDspSysAllocInst(h,"MsgList","audFrags1", 2, "audFrags",NULL);
  463. //cmDspInst_t* fn1p = cmDspSysAllocInst(h,"Sprintf","filename", 1, "%s/%s_%02i.wav");
  464. cmDspInst_t* md1p = cmDspSysAllocInst(h,"Scalar", "Mode", 5, kNumberDuiId, 0.0, 4.0, 1.0, 1.0);
  465. cmDspInst_t* ws1p = cmDspSysAllocInst(h,"MsgList","wndSmpCnt", 3, "wndSmpCnt", NULL, 2);
  466. cmDspInst_t* hf1p = cmDspSysAllocInst(h,"MsgList","hopFact", 3, "hopFact", NULL, 2);
  467. cmDspInst_t* th1p = cmDspSysAllocInst(h,"Scalar", "threshold", 5, kNumberDuiId, 0.0, 100.0, 1.0, 60.0 );
  468. cmDspInst_t* us1p = cmDspSysAllocInst(h,"Scalar", "upr slope", 5, kNumberDuiId, 0.0, 10.0, 0.01, 0.0 );
  469. cmDspInst_t* ls1p = cmDspSysAllocInst(h,"Scalar", "lwr slope", 5, kNumberDuiId, 0.3, 10.0, 0.01, 2.0 );
  470. cmDspInst_t* of1p = cmDspSysAllocInst(h,"Scalar", "offset", 5, kNumberDuiId, 0.0, 100.0, 0.01, 30.0 );
  471. cmDspInst_t* iv1p = cmDspSysAllocInst(h,"Scalar", "invert", 5, kNumberDuiId, 0.0, 1.0, 1.0, 0.0 );
  472. cmDspSysNewColumn(h,0);
  473. cmDspInst_t* dnp = cmDspSysAllocInst(h,"Fname", "audDir", 3, true,NULL,afDir);
  474. cmDspInst_t* mtp = cmDspSysAllocInst(h,"Meter","MyMeter", 3, 50.0, 0.0, 100.0);
  475. cmDspInst_t* atp = cmDspSysAllocInst(h,"AMeter","Audio Meter",0);
  476. if( (rc = cmDspSysLastRC(h)) != kOkDspRC )
  477. return rc;
  478. cmDspSysConnectAudio(h, ph0p, "out", wt0p, "phs"); // phasor->wt:phs
  479. cmDspSysConnectAudio(h, wt0p, "out", kr0p, "in"); // wt->kr
  480. cmDspSysConnectAudio(h, kr0p, "out", ao0p, "in"); // kr->aout- 0
  481. cmDspSysConnectAudio(h, wt0p, "out", kr1p, "in"); // wt->kr
  482. cmDspSysConnectAudio(h, kr1p, "out", ao1p, "in"); // kr->aout - 1
  483. if( ao2p != NULL )
  484. cmDspSysConnectAudio(h, wt0p,"out", ao2p, "in"); // wt->aout - 2
  485. if( ao3p != NULL )
  486. cmDspSysConnectAudio(h, wt0p,"out", ao3p, "in"); // wt->aout - 3
  487. cmDspSysConnectAudio(h, wt0p,"out", atp, "in"); // wt->meter
  488. cmDspSysInstallCb(h, ws0p, "out", kr0p, "wndn", NULL ); // wndSmpCnt->kr
  489. cmDspSysInstallCb(h, hf0p, "out", kr0p, "hopf", NULL ); // hopFact->kr
  490. cmDspSysInstallCb(h, md0p, "val", kr0p, "mode", NULL ); // mode->kr
  491. cmDspSysInstallCb(h, th0p, "val", kr0p, "thrh", NULL ); // thresh->kr
  492. cmDspSysInstallCb(h, ls0p, "val", kr0p, "lwrs", NULL ); // lwrSlope->kr
  493. cmDspSysInstallCb(h, us0p, "val", kr0p, "uprs", NULL ); // uprSlope->kr
  494. cmDspSysInstallCb(h, of0p, "val", kr0p, "offs", NULL ); // offset->kr
  495. cmDspSysInstallCb(h, iv0p, "val", kr0p, "invt", NULL ); // invert->kr
  496. cmDspSysInstallCb(h, th0p, "val", mtp, "in", NULL );
  497. cmDspSysInstallCb(h, ws1p, "out", kr1p, "wndn", NULL ); // wndSmpCnt->kr
  498. cmDspSysInstallCb(h, hf1p, "out", kr1p, "hopf", NULL ); // hopFact->kr
  499. cmDspSysInstallCb(h, md1p, "val", kr1p, "mode", NULL ); // mode->kr
  500. cmDspSysInstallCb(h, th1p, "val", kr1p, "thrh", NULL ); // thresh->kr
  501. cmDspSysInstallCb(h, ls1p, "val", kr1p, "lwrs", NULL ); // lwrSlope->kr
  502. cmDspSysInstallCb(h, us1p, "val", kr1p, "uprs", NULL ); // uprSlope->kr
  503. cmDspSysInstallCb(h, of1p, "val", kr1p, "offs", NULL ); // offset->kr
  504. cmDspSysInstallCb(h, iv1p, "val", kr1p, "invt", NULL ); // invert->kr
  505. cmDspSysInstallCb(h, dnp, "out", fn0p, "in-0", NULL); // dir->fn:0
  506. cmDspSysInstallCb(h, al0p, "out", fn0p, "in-1", NULL ); // fn->fn:1
  507. cmDspSysInstallCb(h, fl0p, "take", fn0p, "in-2", NULL ); // take->fn:2
  508. cmDspSysInstallCb(h, fn0p, "out", ro0p, "in-0", NULL); // fn->print
  509. cmDspSysInstallCb(h, fl0p, "beg", ro0p, "in-1", NULL); //
  510. cmDspSysInstallCb(h, fl0p, "end", ro0p, "in-2", NULL); //
  511. cmDspSysInstallCb(h, ro0p, "out-0", wt0p, "fn", NULL ); // fn->wt:fn
  512. cmDspSysInstallCb(h, ro0p, "out-1", wt0p, "beg", NULL ); // beg->wt:beg
  513. cmDspSysInstallCb(h, ro0p, "out-2", wt0p, "end", NULL ); // end->wt:end
  514. cmDspSysInstallCb(h, ro0p, "out-1", prp, "in", NULL ); //
  515. //cmDspSysInstallCb(h, dnp, "out", fn1p, "in-0", NULL); // dir->fn:0
  516. //cmDspSysInstallCb(h, al1p, "out", fn1p, "in-1", NULL ); // fn->fn:1
  517. //cmDspSysInstallCb(h, fl1p, "take", fn1p, "in-2", NULL ); // take->fn:2
  518. //cmDspSysInstallCb(h, fn1p, "out", ro1p, "in-0", NULL); // fn->print
  519. //cmDspSysInstallCb(h, fl1p, "beg", ro1p, "in-1", NULL); //
  520. //cmDspSysInstallCb(h, fl1p, "end", ro1p, "in-2", NULL); //
  521. //cmDspSysInstallCb(h, ro1p, "out-0", wt1p, "fn", NULL ); // fn->wt:fn
  522. //cmDspSysInstallCb(h, ro1p, "out-1", wt1p, "beg", NULL ); // beg->wt:beg
  523. //cmDspSysInstallCb(h, ro1p, "out-2", wt1p, "end", NULL ); // end->wt:end
  524. return cmDspSysLastRC(h);
  525. }
  526. cmDspRC_t _cmDspSysPgmGuitar( cmDspSysH_t h, void** userPtrPtr )
  527. {
  528. cmDspRC_t rc = kOkDspRC;
  529. int wndSmpCnt = 2048;
  530. int hopFact = 4;
  531. const char* afDir = "/Volumes/LaTetra0/media/audio/20110723-Kriesberg/Audio Files";
  532. //const char* afDir = "/Users/administrator/Documents/kc";
  533. cmDspInst_t* ph0p = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  534. cmDspInst_t* wt0p = cmDspSysAllocInst(h,"WaveTable",NULL, 0 );
  535. cmDspInst_t* ro0p = cmDspSysAllocInst(h,"Reorder", NULL, 5, 3, 2, 0, 1, 2 );
  536. cmDspInst_t* kr0p = cmDspSysAllocInst(h,"Kr", NULL, 2, wndSmpCnt, hopFact );
  537. cmDspInst_t* kr1p = cmDspSysAllocInst(h,"Kr", NULL, 2, wndSmpCnt, hopFact );
  538. cmDspInst_t* prp = cmDspSysAllocInst(h,"Printer", NULL, 0 );
  539. bool useBuiltInFl = true;
  540. // MOTU Traveler: Use channels 2&3 (out plugs:3&4) because 0&1 do not show up on plugs 1&2.
  541. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 0 : 2 );
  542. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, useBuiltInFl ? 1 : 3 );
  543. // BUG: If audio inputs are not connected a 'not an audio buffer' msg is generated.
  544. // This is a problem with type determination in the cmDspClass related code : see cmDspClass.c 833
  545. // for a place that this error would be thrown in the following audio outputs were not connected
  546. // to audio sources.
  547. cmDspInst_t* ao2p = NULL;
  548. cmDspInst_t* ao3p = NULL;
  549. if( !useBuiltInFl )
  550. {
  551. ao2p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 4 );
  552. ao3p = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 5 );
  553. }
  554. cmDspInst_t* al0p = cmDspSysAllocInst(h,"MsgList","audFiles", 2, "audFiles",NULL);
  555. cmDspInst_t* fl0p = cmDspSysAllocInst(h,"MsgList","audFragsA", 2, "audFrags",NULL);
  556. cmDspInst_t* fn0p = cmDspSysAllocInst(h,"Sprintf","filename", 1, "%s/%s_%02i.wav");
  557. cmDspInst_t* md0p = cmDspSysAllocInst(h,"Scalar", "Mode", 5, kNumberDuiId, 0.0, 4.0, 1.0, 1.0);
  558. cmDspInst_t* ws0p = cmDspSysAllocInst(h,"MsgList","wndSmpCnt", 3, "wndSmpCnt", NULL, 2);
  559. cmDspInst_t* hf0p = cmDspSysAllocInst(h,"MsgList","hopFact", 3, "hopFact", NULL, 2);
  560. cmDspInst_t* th0p = cmDspSysAllocInst(h,"Scalar", "threshold", 5, kNumberDuiId, 0.0, 100.0, 1.0, 60.0 );
  561. cmDspInst_t* us0p = cmDspSysAllocInst(h,"Scalar", "upr slope", 5, kNumberDuiId, 0.0, 10.0, 0.01, 0.0 );
  562. cmDspInst_t* ls0p = cmDspSysAllocInst(h,"Scalar", "lwr slope", 5, kNumberDuiId, 0.3, 10.0, 0.01, 2.0 );
  563. cmDspInst_t* of0p = cmDspSysAllocInst(h,"Scalar", "offset", 5, kNumberDuiId, 0.0, 100.0, 0.01, 30.0 );
  564. cmDspInst_t* iv0p = cmDspSysAllocInst(h,"Scalar", "invert", 5, kNumberDuiId, 0.0, 1.0, 1.0, 0.0 );
  565. cmDspSysNewColumn(h,0);
  566. //cmDspInst_t* al1p = cmDspSysAllocInst(h,"MsgList","audFiles", 2, "audFiles",NULL);
  567. //cmDspInst_t* fl1p = cmDspSysAllocInst(h,"MsgList","audFrags1", 2, "audFrags",NULL);
  568. //cmDspInst_t* fn1p = cmDspSysAllocInst(h,"Sprintf","filename", 1, "%s/%s_%02i.wav");
  569. cmDspInst_t* md1p = cmDspSysAllocInst(h,"Scalar", "Mode", 5, kNumberDuiId, 0.0, 4.0, 1.0, 1.0);
  570. cmDspInst_t* ws1p = cmDspSysAllocInst(h,"MsgList","wndSmpCnt", 3, "wndSmpCnt", NULL, 2);
  571. cmDspInst_t* hf1p = cmDspSysAllocInst(h,"MsgList","hopFact", 3, "hopFact", NULL, 2);
  572. cmDspInst_t* th1p = cmDspSysAllocInst(h,"Scalar", "threshold", 5, kNumberDuiId, 0.0, 100.0, 1.0, 60.0 );
  573. cmDspInst_t* us1p = cmDspSysAllocInst(h,"Scalar", "upr slope", 5, kNumberDuiId, 0.0, 10.0, 0.01, 0.0 );
  574. cmDspInst_t* ls1p = cmDspSysAllocInst(h,"Scalar", "lwr slope", 5, kNumberDuiId, 0.3, 10.0, 0.01, 2.0 );
  575. cmDspInst_t* of1p = cmDspSysAllocInst(h,"Scalar", "offset", 5, kNumberDuiId, 0.0, 100.0, 0.01, 30.0 );
  576. cmDspInst_t* iv1p = cmDspSysAllocInst(h,"Scalar", "invert", 5, kNumberDuiId, 0.0, 1.0, 1.0, 0.0 );
  577. cmDspSysNewColumn(h,0);
  578. cmDspInst_t* dnp = cmDspSysAllocInst(h,"Fname", "audDir", 3, true,NULL,afDir);
  579. cmDspInst_t* mtp = cmDspSysAllocInst(h,"Meter","MyMeter", 3, 50.0, 0.0, 100.0);
  580. cmDspInst_t* atp = cmDspSysAllocInst(h,"AMeter","Audio Meter",0);
  581. if( (rc = cmDspSysLastRC(h)) != kOkDspRC )
  582. return rc;
  583. cmDspSysConnectAudio(h, ph0p, "out", wt0p, "phs"); // phasor->wt:phs
  584. cmDspSysConnectAudio(h, wt0p, "out", kr0p, "in"); // wt->kr
  585. cmDspSysConnectAudio(h, kr0p, "out", ao0p, "in"); // kr->aout- 0
  586. cmDspSysConnectAudio(h, wt0p, "out", kr1p, "in"); // wt->kr
  587. cmDspSysConnectAudio(h, kr1p, "out", ao1p, "in"); // kr->aout - 1
  588. if( ao2p != NULL )
  589. cmDspSysConnectAudio(h, wt0p,"out", ao2p, "in"); // wt->aout - 2
  590. if( ao3p != NULL )
  591. cmDspSysConnectAudio(h, wt0p,"out", ao3p, "in"); // wt->aout - 3
  592. cmDspSysConnectAudio(h, wt0p,"out", atp, "in"); // wt->meter
  593. cmDspSysInstallCb(h, ws0p, "out", kr0p, "wndn", NULL ); // wndSmpCnt->kr
  594. cmDspSysInstallCb(h, hf0p, "out", kr0p, "hopf", NULL ); // hopFact->kr
  595. cmDspSysInstallCb(h, md0p, "val", kr0p, "mode", NULL ); // mode->kr
  596. cmDspSysInstallCb(h, th0p, "val", kr0p, "thrh", NULL ); // thresh->kr
  597. cmDspSysInstallCb(h, ls0p, "val", kr0p, "lwrs", NULL ); // lwrSlope->kr
  598. cmDspSysInstallCb(h, us0p, "val", kr0p, "uprs", NULL ); // uprSlope->kr
  599. cmDspSysInstallCb(h, of0p, "val", kr0p, "offs", NULL ); // offset->kr
  600. cmDspSysInstallCb(h, iv0p, "val", kr0p, "invt", NULL ); // invert->kr
  601. cmDspSysInstallCb(h, th0p, "val", mtp, "in", NULL );
  602. cmDspSysInstallCb(h, ws1p, "out", kr1p, "wndn", NULL ); // wndSmpCnt->kr
  603. cmDspSysInstallCb(h, hf1p, "out", kr1p, "hopf", NULL ); // hopFact->kr
  604. cmDspSysInstallCb(h, md1p, "val", kr1p, "mode", NULL ); // mode->kr
  605. cmDspSysInstallCb(h, th1p, "val", kr1p, "thrh", NULL ); // thresh->kr
  606. cmDspSysInstallCb(h, ls1p, "val", kr1p, "lwrs", NULL ); // lwrSlope->kr
  607. cmDspSysInstallCb(h, us1p, "val", kr1p, "uprs", NULL ); // uprSlope->kr
  608. cmDspSysInstallCb(h, of1p, "val", kr1p, "offs", NULL ); // offset->kr
  609. cmDspSysInstallCb(h, iv1p, "val", kr1p, "invt", NULL ); // invert->kr
  610. cmDspSysInstallCb(h, dnp, "out", fn0p, "in-0", NULL); // dir->fn:0
  611. cmDspSysInstallCb(h, al0p, "out", fn0p, "in-1", NULL ); // fn->fn:1
  612. cmDspSysInstallCb(h, fl0p, "take", fn0p, "in-2", NULL ); // take->fn:2
  613. cmDspSysInstallCb(h, fn0p, "out", ro0p, "in-0", NULL); // fn->print
  614. cmDspSysInstallCb(h, fl0p, "beg", ro0p, "in-1", NULL); //
  615. cmDspSysInstallCb(h, fl0p, "end", ro0p, "in-2", NULL); //
  616. cmDspSysInstallCb(h, ro0p, "out-0", wt0p, "fn", NULL ); // fn->wt:fn
  617. cmDspSysInstallCb(h, ro0p, "out-1", wt0p, "beg", NULL ); // beg->wt:beg
  618. cmDspSysInstallCb(h, ro0p, "out-2", wt0p, "end", NULL ); // end->wt:end
  619. cmDspSysInstallCb(h, ro0p, "out-1", prp, "in", NULL ); //
  620. //cmDspSysInstallCb(h, dnp, "out", fn1p, "in-0", NULL); // dir->fn:0
  621. //cmDspSysInstallCb(h, al1p, "out", fn1p, "in-1", NULL ); // fn->fn:1
  622. //cmDspSysInstallCb(h, fl1p, "take", fn1p, "in-2", NULL ); // take->fn:2
  623. //cmDspSysInstallCb(h, fn1p, "out", ro1p, "in-0", NULL); // fn->print
  624. //cmDspSysInstallCb(h, fl1p, "beg", ro1p, "in-1", NULL); //
  625. //cmDspSysInstallCb(h, fl1p, "end", ro1p, "in-2", NULL); //
  626. //cmDspSysInstallCb(h, ro1p, "out-0", wt1p, "fn", NULL ); // fn->wt:fn
  627. //cmDspSysInstallCb(h, ro1p, "out-1", wt1p, "beg", NULL ); // beg->wt:beg
  628. //cmDspSysInstallCb(h, ro1p, "out-2", wt1p, "end", NULL ); // end->wt:end
  629. return cmDspSysLastRC(h);
  630. }
  631. cmDspRC_t _cmDspSysPgm_Pickups0( cmDspSysH_t h, void** userPtrPtr )
  632. {
  633. unsigned i;
  634. unsigned chCnt = 8;
  635. double delayFb = 0.0;
  636. double delayMaxMs = 1000.0;
  637. cmDspInst_t* chArray[chCnt];
  638. cmDspInst_t* m_mxWet = cmDspSysAllocInst(h,"Scalar", "Mstr Wet", 5, kNumberDuiId, 0.0, 2.0, 0.01, 1.0 );
  639. cmDspInst_t* m_mxDry = cmDspSysAllocInst(h,"Scalar", "Mstr Dry", 5, kNumberDuiId, 0.0, 2.0, 0.01, 1.0 );
  640. cmDspSysNewColumn(h,0);
  641. cmDspInst_t* m_lpByp = cmDspSysAllocInst(h,"Button", "Mstr Lp Byps", 2, kCheckDuiId, 0.0 );
  642. cmDspInst_t* m_lpRcd = cmDspSysAllocInst(h,"Button", "Mstr Lp Recd", 2, kCheckDuiId, 0.0 );
  643. cmDspInst_t* m_lpRat = cmDspSysAllocInst(h,"Scalar", "Mstr Lp Ratio", 5, kNumberDuiId, 0.0, 10.0, 0.01, 1.0 );
  644. cmDspSysNewColumn(h,0);
  645. cmDspInst_t* m_dlyByp = cmDspSysAllocInst(h,"Button", "Mstr Dly Byps", 2, kCheckDuiId, 0.0 );
  646. cmDspInst_t* m_dlyMs = cmDspSysAllocInst(h,"Scalar", "Mstr Dly Time", 5, kNumberDuiId, 0.0, delayMaxMs, 1.0, 0.0 );
  647. cmDspInst_t* m_dlyFb = cmDspSysAllocInst(h,"Scalar", "Mstr Dly Fb", 5, kNumberDuiId, 0.0, 0.999, 0.01, 0.0 );
  648. cmDspSysNewColumn(h,0);
  649. cmDspInst_t* m_psByp = cmDspSysAllocInst(h,"Button", "Mstr PS Byps", 2, kCheckDuiId, 0.0 );
  650. cmDspInst_t* m_psRat = cmDspSysAllocInst(h,"Scalar", "Mstr PS Ratio", 5, kNumberDuiId, 0.0, 10.0, 0.01, 1.0 );
  651. cmDspSysNewColumn(h,0);
  652. cmDspInst_t* m_rcByp = cmDspSysAllocInst(h,"Button", "Mstr Rect Byps", 2, kCheckDuiId, 0.0 );
  653. cmDspSysInsertHorzBorder(h);
  654. for(i=0; i<chCnt; ++i)
  655. {
  656. int chIdx = i;
  657. cmDspInst_t* mxWet = cmDspSysAllocInst(h,"Scalar", "Wet", 5, kNumberDuiId, 0.0, 2.0, 0.01, 1.0 );
  658. cmDspInst_t* mxDry = cmDspSysAllocInst(h,"Scalar", "Dry", 5, kNumberDuiId, 0.0, 2.0, 0.01, 1.0 );
  659. cmDspInst_t* lpByp = cmDspSysAllocInst(h,"Button", "Lp Byps", 2, kCheckDuiId, 0.0 );
  660. cmDspInst_t* lpRcd = cmDspSysAllocInst(h,"Button", "Lp Recd", 2, kCheckDuiId, 0.0 );
  661. cmDspInst_t* lpRat = cmDspSysAllocInst(h,"Scalar", "Lp Ratio", 5, kNumberDuiId, 0.0, 10.0, 0.01, 1.0 );
  662. cmDspInst_t* dlyByp = cmDspSysAllocInst(h,"Button", "Delay Byps", 2, kCheckDuiId, 0.0 );
  663. cmDspInst_t* dlyMs = cmDspSysAllocInst(h,"Scalar", "Delay Time", 5, kNumberDuiId, 0.0, delayMaxMs, 1.0, 0.0 );
  664. cmDspInst_t* dlyFb = cmDspSysAllocInst(h,"Scalar", "Delay Fb", 5, kNumberDuiId, 0.0, 0.999, 0.01, 0.0 );
  665. cmDspInst_t* psByp = cmDspSysAllocInst(h,"Button", "PS Byps", 2, kCheckDuiId, 0.0 );
  666. cmDspInst_t* psRat = cmDspSysAllocInst(h,"Scalar", "PS Ratio", 5, kNumberDuiId, 0.0, 10.0, 0.01, 1.0 );
  667. cmDspInst_t* rcByp = cmDspSysAllocInst(h,"Button", "Rect Byps", 2, kCheckDuiId, 0.0 );
  668. cmDspInst_t* ain = cmDspSysAllocInst(h, "AudioIn", NULL, 1, chIdx );
  669. cmDspInst_t* loop = cmDspSysAllocInst(h, "LoopRecd", NULL, 0 );
  670. cmDspInst_t* dely = cmDspSysAllocInst(h, "Delay", NULL, 2, delayMaxMs, delayFb );
  671. cmDspInst_t* pshf = cmDspSysAllocInst(h, "PShift", NULL, 0 );
  672. cmDspInst_t* rect = cmDspSysAllocInst(h, "Rectify", NULL, 0 );
  673. cmDspInst_t* amix = cmDspSysAllocInst(h, "AMix", NULL, 1, 2 );
  674. //cmDspInst_t* aout = cmDspSysAllocInst(h, "AudioOut", NULL, 1, chIdx );
  675. chArray[i] = amix;
  676. cmDspSysNewColumn(h,0);
  677. cmDspSysConnectAudio(h, ain, "out", loop, "in"); // ain -> loop
  678. cmDspSysConnectAudio(h, loop, "out", dely, "in"); // loop -> delay
  679. cmDspSysConnectAudio(h, dely, "out", pshf, "in"); // delay -> pshf
  680. cmDspSysConnectAudio(h, pshf, "out", rect, "in"); // pshf -> rect
  681. cmDspSysConnectAudio(h, rect, "out", amix, "in-0"); // rect -> mix_wet
  682. cmDspSysConnectAudio(h, ain, "out", amix, "in-1"); // ain -> mix_dry
  683. //cmDspSysConnectAudio(h, amix, "out", aout, "in"); // mix -> out
  684. cmDspSysInstallCb(h, mxWet, "val", amix, "gain-0", NULL );
  685. cmDspSysInstallCb(h, mxDry, "val", amix, "gain-1", NULL );
  686. cmDspSysInstallCb(h, lpByp, "out", loop, "bypass", NULL );
  687. cmDspSysInstallCb(h, lpRcd, "out", loop, "recd", NULL );
  688. cmDspSysInstallCb(h, lpRat, "val", loop, "ratio", NULL );
  689. cmDspSysInstallCb(h, dlyByp,"val", dely, "bypass", NULL );
  690. cmDspSysInstallCb(h, dlyMs, "val", dely, "time", NULL );
  691. cmDspSysInstallCb(h, dlyFb, "out", dely, "fb", NULL );
  692. cmDspSysInstallCb(h, psByp, "out", pshf, "bypass", NULL );
  693. cmDspSysInstallCb(h, psRat, "val", pshf, "ratio", NULL );
  694. cmDspSysInstallCb(h, rcByp, "out", rect, "bypass", NULL );
  695. cmDspSysInstallCb(h, m_mxWet, "val", mxWet, "in", NULL );
  696. cmDspSysInstallCb(h, m_mxDry, "val", mxDry, "in", NULL );
  697. cmDspSysInstallCb(h, m_lpByp, "out", lpByp, "in", NULL );
  698. cmDspSysInstallCb(h, m_lpRcd, "out", lpRcd, "in", NULL );
  699. cmDspSysInstallCb(h, m_lpRat, "val", lpRat, "in", NULL );
  700. cmDspSysInstallCb(h, m_dlyByp,"out", dlyByp,"in", NULL );
  701. cmDspSysInstallCb(h, m_dlyMs, "val", dlyMs, "in", NULL );
  702. cmDspSysInstallCb(h, m_dlyFb, "val", dlyFb, "in", NULL );
  703. cmDspSysInstallCb(h, m_psByp, "out", psByp, "in", NULL );
  704. cmDspSysInstallCb(h, m_psRat, "val", psRat, "in", NULL );
  705. cmDspSysInstallCb(h, m_rcByp, "out", rcByp, "in", NULL );
  706. }
  707. double dfltGain = 0.5;
  708. cmDspInst_t* omix = cmDspSysAllocInst(h, "AMix", NULL, 9, 8, dfltGain, dfltGain, dfltGain, dfltGain, dfltGain, dfltGain, dfltGain, dfltGain );
  709. cmDspInst_t* aout0 = cmDspSysAllocInst(h, "AudioOut", NULL, 1, 0 );
  710. cmDspInst_t* aout1 = cmDspSysAllocInst(h, "AudioOut", NULL, 1, 1 );
  711. cmDspInst_t* aout2 = cmDspSysAllocInst(h, "AudioOut", NULL, 1, 2 );
  712. cmDspInst_t* aout3 = cmDspSysAllocInst(h, "AudioOut", NULL, 1, 3 );
  713. for(i=0; i<chCnt; ++i)
  714. {
  715. char label[32];
  716. snprintf(label,32,"in-%i",i);
  717. cmDspSysConnectAudio(h, chArray[i], "out", omix, label);
  718. }
  719. cmDspSysConnectAudio(h, omix, "out", aout0, "in");
  720. cmDspSysConnectAudio(h, omix, "out", aout1, "in");
  721. cmDspSysConnectAudio(h, omix, "out", aout2, "in");
  722. cmDspSysConnectAudio(h, omix, "out", aout3, "in");
  723. return kOkDspRC;
  724. }
  725. #include "cmAudioFile.h"
  726. #include "cmProcObj.h"
  727. #include "cmProc.h"
  728. #include "cmProc3.h"
  729. // Usage:
  730. // 1) Push 'start'.
  731. // 2) Select the first element in the Ch Cfg List UI.
  732. // 3) Play several examples of the note.
  733. // 4) Select the next element in the Ch Cfg List UI.
  734. // 5) Go to 3) until all ch's have been played.
  735. // 6) Push 'proc'. A new set of gains will be calc'd and sent to the audio input channels.
  736. // Note that if a mistake is made while playing a set of notes in 3) then
  737. // push select the same element from the list again and replay.
  738. // The order the notes are played in does not make any difference.
  739. cmDspRC_t _cmDspSysPgm_AutoGain( cmDspSysH_t h, void** userPtrPtr )
  740. {
  741. cmDspRC_t rc = kOkDspRC;
  742. unsigned i;
  743. //unsigned j;
  744. cmErr_t err;
  745. const cmChar_t* errLabelPtr = NULL;
  746. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  747. unsigned chCnt = 0;
  748. unsigned nsChCnt = 0;
  749. const cmChar_t* chCfgFn = NULL;
  750. const cmChar_t* chCfgPath = NULL;
  751. unsigned agMedCnt = 5;
  752. unsigned agAvgCnt = 9;
  753. unsigned agSuprCnt = 3;
  754. unsigned agOffCnt = 3;
  755. cmReal_t agSuprCoeff = 1.4;
  756. cmReal_t agOnThreshDb = -53.0;
  757. cmReal_t agOffThreshDb = -80.0;
  758. cmReal_t agHopMs = 25;
  759. //cmReal_t cdMaxTimeSpanMs = 50;
  760. //cmReal_t cdMinNoteCnt = 3;
  761. unsigned labelCharCnt = 31;
  762. char label0[ labelCharCnt + 1];
  763. cmErrSetup(&err,&cmCtx->rpt,"Auto-gain");
  764. // get the name of channel cfg file
  765. if( cmJsonPathValues( cmDspSysPgmRsrcHandle(h),"cfg/",NULL,&errLabelPtr,
  766. "chCfgFn", kStringTId, &chCfgFn,
  767. "agParms/hopMs", kRealTId, &agHopMs,
  768. "agParms/medCnt", kIntTId, &agMedCnt,
  769. "agParms/avgCnt", kIntTId, &agAvgCnt,
  770. "agParms/suprCnt", kIntTId, &agSuprCnt,
  771. "agParms/offCnt", kIntTId, &agOffCnt,
  772. "agParms/suprCoeff", kRealTId, &agSuprCoeff,
  773. "agParms/onThreshDb", kRealTId, &agOnThreshDb,
  774. "agParms/offThreshDb", kRealTId, &agOffThreshDb,
  775. NULL) != kOkJsRC )
  776. {
  777. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"An error occurred while reading the required auto-tune JSON parameters.");
  778. goto errLabel;
  779. }
  780. // get the count of channels from the ch. cfg. array
  781. if(( chCnt = cmChCfgChannelCount(cmCtx,chCfgFn,&nsChCnt)) == 0 )
  782. {
  783. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"Unable to obtain the channel count from '%s'.",cmStringNullGuard(chCfgFn));
  784. goto errLabel;
  785. }
  786. // prepend the prefs directory to the ch. cfg filename
  787. chCfgPath = cmFsMakeFn(cmFsPrefsDir(),chCfgFn,NULL,NULL);
  788. if( rc == kOkDspRC )
  789. {
  790. //mDspInst_t* ain[chCnt];
  791. cmDspInst_t* ef[chCnt];
  792. cmDspInst_t* mtr[chCnt];
  793. cmDspInst_t* amtr[chCnt];
  794. cmDspInst_t* on[chCnt];
  795. cmDspInst_t* off[chCnt];
  796. cmDspInst_t* rms[chCnt];
  797. ///cmDspInst_t* fdr0[chCnt];
  798. ///cmDspInst_t* fdr1[chCnt];
  799. ///cmDspInst_t* fdr2[chCnt];
  800. // allocate the audio inputs
  801. //for(i=0; i<chCnt; ++i)
  802. // ain[i] = cmDspSysAllocAudioIn(h,i,1.0);
  803. unsigned inChCnt;
  804. cmDspInst_t** ain = cmDspSysAllocAudioInAR( h, "audioInMap", 1.0, &inChCnt );
  805. // allocate the auto-gain calibration object
  806. cmDspInst_t* ag = cmDspSysAllocInst( h, "AutoGain", NULL, 9, chCnt, agHopMs,agMedCnt,agAvgCnt,agSuprCnt,agOffCnt,agSuprCoeff,agOnThreshDb,agOffThreshDb );
  807. // allocate the command buttons
  808. cmDspInst_t* start = cmDspSysAllocButton(h, "start", 0);
  809. cmDspInst_t* proc = cmDspSysAllocButton(h, "proc", 0);
  810. cmDspInst_t* cancel = cmDspSysAllocButton(h, "cancel", 0);
  811. cmDspInst_t* write = cmDspSysAllocButton(h, "write", 0);
  812. cmDspInst_t* print = cmDspSysAllocButton(h, "print", 0);
  813. cmDspInst_t* chMenu = cmDspSysAllocMsgList(h, chCfgPath, "ch_array", 0 );
  814. cmDspInst_t* onThr = cmDspSysAllocScalar(h,"On Thresh",-100.0,0.0,0.1,-45.0);
  815. cmDspInst_t* offThr = cmDspSysAllocScalar(h,"Off Thresh",-100.0,0.0,0.1,-80.0);
  816. //cmDspInst_t* prt = cmDspSysAllocInst(h,"Printer",NULL,1,"ag>");
  817. cmDspInst_t* sub = cmDspSysAllocInst(h,"ScalarOp",NULL,6,2,"+","in-0",0.0,"in-1",-1.0);
  818. cmDspSysNewColumn(h,200);
  819. cmDspSysAllocLabel(h,"EF Gate",kLeftAlignDuiId);
  820. // allocate the envelope followers and meters
  821. for(i=0; i<chCnt; ++i )
  822. {
  823. snprintf(label0,labelCharCnt,"%2i",i);
  824. ef[i] = cmDspSysAllocInst( h, "EnvFollow", NULL, 0 );
  825. mtr[i] = cmDspSysAllocInst( h, "Meter",label0, 3, 0.0, 0.0, 1.0 );
  826. }
  827. cmDspSysNewColumn(h,200);
  828. cmDspSysAllocLabel(h,"Audio",kLeftAlignDuiId);
  829. // allocate the envelope followers and meters
  830. for(i=0; i<chCnt; ++i )
  831. {
  832. amtr[i] = cmDspSysAllocInst( h, "AMeter", NULL, 0 );
  833. }
  834. // chord detector, note selector, mix0, mix1, mix2
  835. ///cmDspInst_t* cdp = cmDspSysAllocInst(h, "ChordDetect", NULL, 1, "cdSel" );
  836. ///cmDspInst_t* nsp = cmDspSysAllocInst(h, "NoteSelect", NULL, 1, chCnt );
  837. // onset count display
  838. cmDspSysNewColumn(h,150);
  839. cmDspSysAllocLabel(h,"Onsets",kLeftAlignDuiId);
  840. for(i=0; i<chCnt; ++i)
  841. on[i] = cmDspSysAllocScalar(h,NULL,0,1,0,0);
  842. // offset count display
  843. cmDspSysNewColumn(h,150);
  844. cmDspSysAllocLabel(h,"Offsets",kLeftAlignDuiId);
  845. for(i=0; i<chCnt; ++i)
  846. off[i] = cmDspSysAllocScalar(h,NULL,0,1,0,0);
  847. // offset count display
  848. cmDspSysNewColumn(h,150);
  849. cmDspSysAllocLabel(h,"RMS",kLeftAlignDuiId);
  850. for(i=0; i<chCnt; ++i)
  851. rms[i] = cmDspSysAllocScalar(h,NULL,0,1,0,0);
  852. /*
  853. // note select gate meters
  854. for(j=0; j<3; ++j)
  855. {
  856. snprintf(label0,labelCharCnt,"Set %i",j);
  857. cmDspSysNewColumn(h,50);
  858. cmDspSysAllocLabel(h,label0,kLeftAlignDuiId );
  859. for(i=0; i<chCnt; ++i)
  860. {
  861. cmDspInst_t* m = cmDspSysAllocInst(h, "Meter", NULL, 3, 0.0, 0.0, 1.0 );
  862. switch(j)
  863. {
  864. case 0: fdr0[i] = m; break;
  865. case 1: fdr1[i] = m; break;
  866. case 2: fdr2[i] = m; break;
  867. }
  868. }
  869. }
  870. // chord detector parameters
  871. cmDspSysNewColumn(h,150);
  872. cmDspSysAllocLabel(h,"Chord Detector",kLeftAlignDuiId);
  873. cmDspInst_t* cdSpanMs = cmDspSysAllocScalar(h,"Span Ms", 10.0,1000.0,1.0,cdMaxTimeSpanMs);
  874. cmDspInst_t* cdNoteCnt = cmDspSysAllocScalar(h,"Note Cnt", 1.0, 100.0,1.0,cdMinNoteCnt );
  875. cmDspInst_t* cdCount = cmDspSysAllocScalar(h,"Ch. Count", 0,1,0,0);
  876. */
  877. // allocate an audio mixer and two audio output channels
  878. cmDspInst_t* amix = cmDspSysAllocInst( h, "AMix", NULL, 1, chCnt);
  879. cmDspInst_t* ao0 = cmDspSysAllocAudioOut(h,0,1.0);
  880. cmDspInst_t* ao1 = cmDspSysAllocAudioOut(h,1,1.0);
  881. // alloc chCfg last so that it's default outputs are applied to connected objects
  882. cmDspInst_t* chCfg = cmDspSysAllocInst( h, "ChCfg", NULL, 1, chCfgFn );
  883. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  884. goto errLabel;
  885. cmDspSysConnectAudioN11N(h,ain, "out", ag, "in", chCnt); // ain -> auto gain
  886. cmDspSysConnectAudioN11N(h,ain, "out", amix, "in", chCnt); // ain -> amix
  887. cmDspSysConnectAudioN1N1(h,ain, "out", ef, "in", chCnt); // ain -> EF
  888. cmDspSysConnectAudioN1N1(h, ain, "out", amtr, "in",chCnt);
  889. cmDspSysInstallCb1N1N(h, ag, "gain", chCfg, "gain", chCnt ); // ag -> chCfg (gain)
  890. cmDspSysInstallCb1NN1(h, chCfg, "gain", ain, "gain", chCnt ); // cgCfg -> ain (gain)
  891. cmDspSysInstallCb1NN1(h, chCfg, "ch", ain, "ch", chCnt ); // cgCfg -> ain (ch)
  892. cmDspSysInstallCbN1N1(h, ef, "gate", mtr, "in", chCnt ); // EF gate -> meter
  893. cmDspSysInstallCb11N1(h, onThr, "val", ef, "ondb", chCnt ); //
  894. cmDspSysInstallCb11N1(h, offThr, "val", ef, "offdb", chCnt ); //
  895. cmDspSysInstallCbN1N1(h, ef, "ons", on, "val", chCnt ); // EF -> onset count
  896. cmDspSysInstallCbN1N1(h, ef, "offs", off, "val", chCnt ); // EF -> offset count
  897. cmDspSysInstallCbN1N1(h, ef, "rms", rms, "val", chCnt );
  898. ///cmDspSysInstallCbN11N(h, ef, "gate", cdp, "gate", chCnt ); // EF -> CD gate
  899. ///cmDspSysInstallCbN11N(h, ef, "rms", cdp, "rms", chCnt ); // EF -> CD rms
  900. ///cmDspSysInstallCb1N1N(h, cdp, "gate", nsp, "gate", chCnt ); // CD -> NS gate
  901. ///cmDspSysInstallCb1N1N(h, cdp, "rms", nsp, "rms", chCnt ); // CD -> NS rms
  902. ///cmDspSysInstallCb1NN1(h, nsp, "gate-0",fdr0, "in", chCnt ); // NS -> Fader 0 gate
  903. ///cmDspSysInstallCb1NN1(h, nsp, "gate-1",fdr1, "in", chCnt ); // NS -> Fader 1 gate
  904. ///cmDspSysInstallCb1NN1(h, nsp, "gate-2",fdr2, "in", chCnt ); // NS -> Fader 2 gate
  905. cmDspSysConnectAudio(h, amix, "out", ao0, "in"); // amix -> aout 0
  906. cmDspSysConnectAudio(h, amix, "out", ao1, "in"); // amix -> aout 1
  907. //cmDspSysInstallCb(h, chMenu, "ch", ag, "id", NULL );
  908. cmDspSysInstallCb(h, chMenu, "sel", sub, "in-0", NULL );
  909. cmDspSysInstallCb(h, sub, "out", ag, "id", NULL );
  910. cmDspSysInstallCb(h, start, "sym", ag, "sel", NULL );
  911. cmDspSysInstallCb(h, proc, "sym", ag, "sel", NULL );
  912. cmDspSysInstallCb(h, cancel, "sym", ag, "sel", NULL );
  913. cmDspSysInstallCb(h, print, "sym", ag, "sel", NULL );
  914. cmDspSysInstallCb(h, print, "sym", chCfg, "sel", NULL );
  915. cmDspSysInstallCb(h, write, "sym", chCfg, "sel", NULL );
  916. /*
  917. cmDspSysInstallCb(h, cdSpanMs, "val", cdp, "span", NULL );
  918. cmDspSysInstallCb(h, cdNoteCnt, "val", cdp, "notes", NULL );
  919. cmDspSysInstallCb(h, cdp, "count", cdCount, "val", NULL );
  920. cmDspSysInstallCb(h, cdp, "detect", nsp, "trig", NULL );
  921. */
  922. }
  923. errLabel:
  924. cmFsFreeFn(chCfgPath);
  925. return rc;
  926. }
  927. cmDspRC_t _cmDspSysPgm_PickupFxFile( cmDspSysH_t h, void** userPtrPtr )
  928. {
  929. cmDspRC_t rc = kOkDspRC;
  930. cmErr_t err;
  931. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  932. unsigned chCnt = 0;
  933. unsigned nsChCnt = 0;
  934. const cmChar_t* chCfgPath = NULL;
  935. const cmChar_t* chCfgFn = "pick_chs8.js";
  936. double cfMinHz = 20.0;
  937. double cfAlpha = 0.9;
  938. bool cfFbFl = true;
  939. unsigned sgShapeId = 2;
  940. const cmChar_t* afn = "/home/kevin/media/audio/gate_detect/gate_detect0.aif";
  941. unsigned abeg[] = { 9.842046, 18.838291, 27.007957, 35.562079, 45.461793, 52.920218, 60.436312, 68.913543};
  942. unsigned aend[] = {11.399088, 20.645229, 28.891786, 37.311349, 47.287954, 54.131251, 62.473923, 72.142964};
  943. bool cfBypassFl = false;
  944. unsigned i;
  945. cmErrSetup(&err,&cmCtx->rpt,"Pickup Effects");
  946. // prepend the prefs directory to the ch. cfg filename
  947. chCfgPath = cmFsMakeFn(cmFsPrefsDir(),chCfgFn,NULL,NULL);
  948. // get the count of channels from the ch. cfg. array
  949. if(( chCnt = cmChCfgChannelCount(cmCtx,chCfgFn,&nsChCnt)) == 0 )
  950. {
  951. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"Unable to obtain the channel count from '%s'.",cmStringNullGuard(chCfgFn));
  952. goto errLabel;
  953. }
  954. if( rc == kOkDspRC )
  955. {
  956. cmDspInst_t* af[chCnt];
  957. //cmDspInst_t* aout[chCnt];
  958. cmDspInst_t* ef[chCnt];
  959. cmDspInst_t* cf[chCnt];
  960. cmDspInst_t* sg[chCnt];
  961. cmDspInst_t* mtr[chCnt];
  962. cmDspInst_t* mute[chCnt];
  963. cmDspInst_t* phs = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  964. // allocate the audio inputs
  965. for(i=0; i<chCnt; ++i)
  966. {
  967. unsigned labelCharCnt = 31;
  968. cmChar_t label[labelCharCnt+1];
  969. snprintf(label,labelCharCnt,"%i",i);
  970. int sbeg = floor(abeg[i] * cmDspSysSampleRate(h));
  971. int send = floor(aend[i] * cmDspSysSampleRate(h));
  972. //ain[i] = cmDspSysAllocAudioIn( h,i,1.0);
  973. af[i] = cmDspSysAllocInst(h,"WaveTable",NULL, 6, ((int)cmDspSysSampleRate(h)), 1, afn, -1, sbeg, send );
  974. //aout[i] = cmDspSysAllocAudioOut(h,i,1.0);
  975. ef[i] = cmDspSysAllocInst(h, "EnvFollow", NULL, 0 );
  976. sg[i] = cmDspSysAllocInst(h, "SigGen", NULL, 2, 1000.0, sgShapeId );
  977. cf[i] = cmDspSysAllocInst(h, "CombFilt", NULL, 5, cfBypassFl, cfMinHz, cfFbFl, cfMinHz, cfAlpha );
  978. mtr[i] = cmDspSysAllocInst( h, "Meter",label, 3, 0.0, 0.0, 1.0 );
  979. }
  980. // allocate the ch cfg last so that it's default outputs initialize connected objects
  981. cmDspInst_t* chCfg = cmDspSysAllocInst( h, "ChCfg", NULL, 1, chCfgFn );
  982. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL, 1, chCnt );
  983. cmDspSysNewColumn(h,50);
  984. for(i=0; i<chCnt; ++i)
  985. mute[i] = cmDspSysAllocCheck(h,"",0);
  986. // checkk for allocation errors
  987. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  988. goto errLabel;
  989. //
  990. //cmDspSysConnectAudioN1N1(h, ain, "out", aout, "in", chCnt );
  991. cmDspSysConnectAudio11N1(h, phs, "out", af, "phs", chCnt );
  992. cmDspSysConnectAudioN1N1(h, af, "out", ef, "in", chCnt ); // af -> EF
  993. cmDspSysConnectAudioN1N1(h, sg, "out", cf, "in", chCnt ); // sg -> CF
  994. cmDspSysConnectAudioN11N(h, cf, "out", mix, "in", chCnt ); // CF -> mix
  995. //cmDspSysInstallCb1NN1( h, chCfg, "gain", ain, "gain", chCnt ); // chCfg -> ain gain
  996. cmDspSysInstallCb1NN1( h, chCfg, "hz", cf, "hz", chCnt ); // chCfg -> CF Hz
  997. //cmDspSysInstallCbN1N1( h, ef, "rms", aout, "gain", chCnt ); // EF -> aout gain
  998. cmDspSysInstallCbN1N1( h, ef, "rms", mtr, "in", chCnt ); // EF -> meter RMS
  999. cmDspSysInstallCbN11N( h, ef, "rms", mix, "gain", chCnt );
  1000. cmDspSysInstallCbN11N( h, mute, "out", mix, "mute", chCnt ); // mute -> mix
  1001. }
  1002. errLabel:
  1003. cmFsFreeFn(chCfgPath);
  1004. return rc;
  1005. }
  1006. cmDspRC_t _cmDspSysPgm_NoiseTails( cmDspSysH_t h, void** userPtrPtr )
  1007. {
  1008. cmDspRC_t rc = kOkDspRC;
  1009. cmErr_t err;
  1010. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  1011. unsigned chCnt = 0;
  1012. unsigned nsChCnt = 0;
  1013. const cmChar_t* chCfgPath = NULL;
  1014. const cmChar_t* chCfgFn = "pick_chs8.js";
  1015. double cfMinHz = 20.0;
  1016. double cfHz = 500;
  1017. double cfAlpha = 0.9;
  1018. bool cfFbFl = true;
  1019. bool cfBypassFl= false;
  1020. unsigned sgShapeId = 3;
  1021. double dfltDelayMs = 100;
  1022. unsigned i;
  1023. cmErrSetup(&err,&cmCtx->rpt,"Noise Tails");
  1024. // prepend the prefs directory to the ch. cfg filename
  1025. chCfgPath = cmFsMakeFn(cmFsPrefsDir(),chCfgFn,NULL,NULL);
  1026. // get the count of channels from the ch. cfg. array
  1027. if(( chCnt = cmChCfgChannelCount(cmCtx,chCfgFn,&nsChCnt)) == 0 )
  1028. {
  1029. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"Unable to obtain the channel count from '%s'.",cmStringNullGuard(chCfgFn));
  1030. goto errLabel;
  1031. }
  1032. if( rc == kOkDspRC )
  1033. {
  1034. cmDspInst_t* ain[chCnt];
  1035. cmDspInst_t* ef[chCnt];
  1036. cmDspInst_t* cf[chCnt];
  1037. cmDspInst_t* sg[chCnt];
  1038. cmDspInst_t* mtr[chCnt];
  1039. cmDspInst_t* add[chCnt];
  1040. cmDspInst_t* mul[chCnt];
  1041. cmDspInst_t* dly[chCnt];
  1042. // allocate the audio inputs
  1043. for(i=0; i<chCnt; ++i)
  1044. {
  1045. unsigned labelCharCnt = 31;
  1046. cmChar_t label[labelCharCnt+1];
  1047. snprintf(label,labelCharCnt,"%i",i);
  1048. ain[i] = cmDspSysAllocAudioIn( h, i, 1.0);
  1049. ef[i] = cmDspSysAllocInst( h, "EnvFollow", NULL, 0 );
  1050. sg[i] = cmDspSysAllocInst( h, "SigGen", NULL, 2, 1000.0, sgShapeId );
  1051. cf[i] = cmDspSysAllocInst( h, "CombFilt", NULL, 5, cfBypassFl, cfMinHz, cfFbFl, cfHz, cfAlpha );
  1052. mtr[i] = cmDspSysAllocInst( h, "Meter",label, 3, 0.0, 0.0, 1.0 );
  1053. add[i] = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "+", "in-0", 0.0, "in-1", 0.0);
  1054. mul[i] = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "*", "in-0", 0.0, "in-1", 0.99);
  1055. dly[i] = cmDspSysAllocInst( h, "MsgDelay", NULL, 2, 1000, dfltDelayMs );
  1056. }
  1057. // allocate the ch cfg last so that it's default outputs initialize connected objects
  1058. cmDspInst_t* chCfg = cmDspSysAllocInst( h, "ChCfg", NULL, 1, chCfgFn );
  1059. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL, 1, chCnt );
  1060. cmDspInst_t* ao0 = cmDspSysAllocAudioOut( h, 0, 1.0 );
  1061. cmDspInst_t* ao1 = cmDspSysAllocAudioOut( h, 1, 1.0 );
  1062. cmDspInst_t* alpha = cmDspSysAllocScalar( h, "alpha", -1.0, 1.0, 0.001, cfAlpha );
  1063. cmDspInst_t* decay = cmDspSysAllocScalar( h, "decay", -1.0, 1.0, 0.001, 0.5);
  1064. cmDspInst_t* delay = cmDspSysAllocScalar( h, "delay", 0.0, 1000.0, 1.0, dfltDelayMs );
  1065. cmDspInst_t* zero = cmDspSysAllocScalar( h, "zero", 0.0, 0.0, 0.0, 0.0);
  1066. // check for allocation errors
  1067. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1068. goto errLabel;
  1069. cmDspSysConnectAudioN1N1( h, ain, "out", ef, "in", chCnt ); // ain -> EF
  1070. cmDspSysConnectAudioN1N1( h, sg, "out", cf, "in", chCnt ); // sg -> CF
  1071. cmDspSysConnectAudioN11N( h, cf, "out", mix, "in", chCnt ); // cf -> mix
  1072. cmDspSysConnectAudio( h, mix, "out", ao0, "in"); // mix -> aout L
  1073. cmDspSysConnectAudio( h, mix, "out", ao1, "in"); // mix -> aout R
  1074. cmDspSysInstallCb1NN1( h, chCfg, "gain", ain, "gain", chCnt ); // chCfg -> ain gain
  1075. cmDspSysInstallCb1NN1( h, chCfg, "hz", cf, "hz", chCnt ); // chCfg -> CF Hz
  1076. cmDspSysInstallCbN1N1( h, ef, "rms", add, "in-0", chCnt ); // EF -> mul 0
  1077. cmDspSysInstallCbN1N1( h, mul, "out", add, "in-1", chCnt ); // mul -> add
  1078. cmDspSysInstallCbN1N1( h, add, "out", dly, "in", chCnt ); // add -> delay
  1079. cmDspSysInstallCbN11N( h, dly, "out", mix, "gain", chCnt ); // delay -> mix gain
  1080. cmDspSysInstallCbN1N1( h, add, "out", mul, "in-0", chCnt); // add -> mul (feedback)
  1081. cmDspSysInstallCb11N1( h, decay, "val", mul, "in-1", chCnt ); // decay ctl
  1082. cmDspSysInstallCbN1N1( h, ef, "gate", mtr, "in", chCnt ); // EF -> meter RMS
  1083. cmDspSysInstallCb11N1( h, alpha, "val", cf, "alpha",chCnt ); // CF alpha
  1084. cmDspSysInstallCb11N1( h, delay, "val", dly, "delay",chCnt ); // Delay ctl
  1085. cmDspSysInstallCb111N( h, zero, "val", mix, "in", chCnt ); //
  1086. }
  1087. errLabel:
  1088. cmFsFreeFn(chCfgPath);
  1089. return rc;
  1090. }
  1091. cmDspRC_t _cmDspSysPgm_NoiseTails2( cmDspSysH_t h, void** userPtrPtr )
  1092. {
  1093. cmDspRC_t rc = kOkDspRC;
  1094. cmErr_t err;
  1095. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  1096. unsigned chCnt = 0;
  1097. unsigned nsChCnt = 0;
  1098. const cmChar_t* chCfgPath = NULL;
  1099. const cmChar_t* chCfgFn = "pick_chs8.js";
  1100. double cfMinHz = 20.0;
  1101. double cfHz = 500;
  1102. double cfAlpha = 0.9;
  1103. bool cfFbFl = true;
  1104. bool cfBypassFl = false;
  1105. unsigned sgShapeId = 3;
  1106. double adsrMaxMs = 10000;
  1107. double adsrMinMs = 0;
  1108. double adsrIncMs = 1;
  1109. double adsrMaxLevel = 100.0;
  1110. double adsrSusLevel = 100.0;
  1111. double adsrMinLevel = 0.0;
  1112. double adsrIncLevel = 0.001;
  1113. bool eqBypassFl = false;
  1114. unsigned eqModeSymId = cmSymTblRegisterStaticSymbol(cmDspSysSymbolTable(h),"LP");
  1115. double eqF0hz = 250;
  1116. double eqQ = 1.0;
  1117. double eqFgain = 1.0;
  1118. bool mtBypassFl = false;
  1119. double mtTimeScale= 1.0;
  1120. double mtFeedback = 0.0;
  1121. unsigned i;
  1122. cmErrSetup(&err,&cmCtx->rpt,"Noise Tails");
  1123. // prepend the prefs directory to the ch. cfg filename
  1124. chCfgPath = cmFsMakeFn(cmFsPrefsDir(),chCfgFn,NULL,NULL);
  1125. // get the count of channels from the ch. cfg. array
  1126. if(( chCnt = cmChCfgChannelCount(cmCtx,chCfgFn,&nsChCnt)) == 0 )
  1127. {
  1128. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"Unable to obtain the channel count from '%s'.",cmStringNullGuard(chCfgFn));
  1129. goto errLabel;
  1130. }
  1131. if( rc == kOkDspRC )
  1132. {
  1133. cmDspInst_t* ain[chCnt];
  1134. cmDspInst_t* ef[chCnt];
  1135. cmDspInst_t* cf[chCnt];
  1136. cmDspInst_t* sg[chCnt];
  1137. cmDspInst_t* mtr[chCnt];
  1138. cmDspInst_t* add[chCnt];
  1139. cmDspInst_t* mul[chCnt];
  1140. cmDspInst_t* env[chCnt];
  1141. cmDspInst_t* d2l[chCnt];
  1142. cmDspInst_t* eq[chCnt];
  1143. cmDspInst_t* mt[chCnt];
  1144. // allocate the audio inputs
  1145. for(i=0; i<chCnt; ++i)
  1146. {
  1147. unsigned labelCharCnt = 31;
  1148. cmChar_t label[labelCharCnt+1];
  1149. snprintf(label,labelCharCnt,"%i",i);
  1150. ain[i] = cmDspSysAllocAudioIn( h, i, 1.0);
  1151. ef[i] = cmDspSysAllocInst( h, "EnvFollow", NULL, 0 );
  1152. sg[i] = cmDspSysAllocInst( h, "SigGen", NULL, 2, 1000.0, sgShapeId );
  1153. cf[i] = cmDspSysAllocInst( h, "CombFilt", NULL, 5, cfBypassFl, cfMinHz, cfFbFl, cfHz, cfAlpha );
  1154. mtr[i] = cmDspSysAllocInst( h, "Meter",label, 3, 0.0, 0.0, 1.0 );
  1155. env[i] = cmDspSysAllocInst( h, "Adsr", NULL, 2, true, adsrMinLevel );
  1156. d2l[i] = cmDspSysAllocInst( h, "DbToLin", NULL, 0 );
  1157. add[i] = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "+", "in-0", 0.0, "in-1", 0.0);
  1158. mul[i] = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "*", "in-0", 0.0, "in-1", 0.99);
  1159. eq[i] = cmDspSysAllocInst( h, "BiQuadEq", NULL, 5, eqBypassFl, eqModeSymId, eqF0hz, eqQ, eqFgain );
  1160. mt[i] = cmDspSysAllocInst( h, "MtDelay", NULL, 9, mtBypassFl, mtTimeScale, mtFeedback, 20.0, 0.8, 15.0, 0.9, 12.0, 0.9 );
  1161. }
  1162. // allocate the ch cfg last so that it's default outputs initialize connected objects
  1163. cmDspInst_t* chCfg = cmDspSysAllocInst( h, "ChCfg", NULL, 1, chCfgFn );
  1164. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL, 1, chCnt );
  1165. cmDspInst_t* ao0 = cmDspSysAllocAudioOut( h, 0, 1.0 );
  1166. cmDspInst_t* ao1 = cmDspSysAllocAudioOut( h, 1, 1.0 );
  1167. cmDspInst_t* alpha = cmDspSysAllocScalar( h, "alpha", -1.0, 1.0, 0.001, cfAlpha );
  1168. cmDspInst_t* decay = cmDspSysAllocScalar( h, "decay", -1.0, 1.0, 0.001, 0.5);
  1169. cmDspInst_t* zero = cmDspSysAllocScalar( h, "zero", 0.0, 0.0, 0.0, 0.0);
  1170. // cmDspInst_t* print = cmDspSysAllocButton( h, "print", 0 );
  1171. cmDspSysNewColumn(h,200);
  1172. cmDspInst_t* dly = cmDspSysAllocScalar( h, "Dly Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 0.0);
  1173. cmDspInst_t* atk = cmDspSysAllocScalar( h, "Atk Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 2000.0);
  1174. cmDspInst_t* dcy = cmDspSysAllocScalar( h, "Dcy Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 100.0);
  1175. cmDspInst_t* hold = cmDspSysAllocScalar( h, "Hold Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 100.0);
  1176. cmDspInst_t* rls = cmDspSysAllocScalar( h, "Rls Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 4000.0);
  1177. cmDspInst_t* alvl = cmDspSysAllocScalar( h, "AdsrMax", adsrMinLevel,adsrMaxLevel,adsrIncLevel, adsrMaxLevel);
  1178. cmDspInst_t* sus = cmDspSysAllocScalar( h, "Sustain", adsrMinLevel,adsrMaxLevel,adsrIncLevel, adsrSusLevel );
  1179. cmDspSysNewColumn(h,200);
  1180. cmDspInst_t* onThr = cmDspSysAllocScalar(h,"On Thresh",-100.0,0.0,0.1,-55.0);
  1181. cmDspInst_t* offThr = cmDspSysAllocScalar(h,"Off Thresh",-100.0,0.0,0.1,-80.0);
  1182. cmDspInst_t* eqbyp = cmDspSysAllocCheck( h, "Eq Byp", 0 );
  1183. cmDspInst_t* eqmode = cmDspSysAllocInst( h, "MsgList","Mode", 1, "biQuadEqMode");
  1184. cmDspInst_t* eqq = cmDspSysAllocScalar( h, "Q", -100.0, 100.0, 0.1, eqQ);
  1185. cmDspInst_t* eqfgn = cmDspSysAllocScalar( h, "Filt Gain", 0.0, 1.0, 0.1, eqFgain);
  1186. cmDspInst_t* mtfb = cmDspSysAllocScalar( h, "Mt Feedback", 0.0, 1.0, 0.01, mtFeedback);
  1187. cmDspInst_t* mtscale= cmDspSysAllocScalar( h, "Mt Time Scale", 0.01, 10.0, 0.01, mtTimeScale);
  1188. // check for allocation errors
  1189. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1190. goto errLabel;
  1191. cmDspSysConnectAudioN1N1( h, ain, "out", ef, "in", chCnt ); // ain -> EF
  1192. cmDspSysConnectAudioN1N1( h, sg, "out", cf, "in", chCnt ); // sg -> CF
  1193. cmDspSysConnectAudioN1N1( h, cf, "out", eq, "in", chCnt );
  1194. cmDspSysConnectAudioN1N1( h, eq, "out", mt, "in", chCnt );
  1195. cmDspSysConnectAudioN11N( h, mt, "out", mix, "in", chCnt ); // cf -> mix
  1196. cmDspSysConnectAudio( h, mix, "out", ao0, "in"); // mix -> aout L
  1197. cmDspSysConnectAudio( h, mix, "out", ao1, "in"); // mix -> aout R
  1198. cmDspSysInstallCb1NN1( h, chCfg, "gain", ain, "gain", chCnt ); // chCfg -> ain gain
  1199. cmDspSysInstallCb1NN1( h, chCfg, "hz", cf, "hz", chCnt ); // chCfg -> CF Hz
  1200. cmDspSysInstallCb1NN1( h, chCfg, "hz", eq, "f0", chCnt ); // chCfg -> Eq Hz
  1201. cmDspSysInstallCbN1N1( h, mul, "out", add, "in-1", chCnt ); // mul -> add
  1202. cmDspSysInstallCbN1N1( h, ef, "gate", env, "gate", chCnt ); // EF -> adsr (gate)
  1203. cmDspSysInstallCbN1N1( h, ef, "rms", env, "rms", chCnt ); // EF ->adsr (rms)
  1204. //cmDspSysInstallCb11N1( h, print, "out", env, "cmd", chCnt );
  1205. cmDspSysInstallCbN1N1( h, env, "out", d2l, "in", chCnt );
  1206. cmDspSysInstallCbN11N( h, d2l, "out", mix, "gain", chCnt );
  1207. cmDspSysInstallCbN1N1( h, add, "out", mul, "in-0", chCnt ); // add -> mul (feedback)
  1208. cmDspSysInstallCb11N1( h, decay, "val", mul, "in-1", chCnt ); // decay ctl
  1209. cmDspSysInstallCbN1N1( h, ef, "gate", mtr, "in", chCnt ); // EF -> meter RMS
  1210. cmDspSysInstallCb11N1( h, alpha, "val", cf, "alpha",chCnt ); // CF alpha
  1211. cmDspSysInstallCb111N( h, zero, "val", mix, "in", chCnt ); //
  1212. cmDspSysInstallCb11N1( h, dly, "val", env, "dly", chCnt );
  1213. cmDspSysInstallCb11N1( h, atk, "val", env, "atk", chCnt );
  1214. cmDspSysInstallCb11N1( h, dcy, "val", env, "dcy", chCnt );
  1215. cmDspSysInstallCb11N1( h, hold, "val", env, "hold", chCnt );
  1216. cmDspSysInstallCb11N1( h, rls, "val", env, "rls", chCnt );
  1217. cmDspSysInstallCb11N1( h, alvl, "val", env, "alvl", chCnt );
  1218. cmDspSysInstallCb11N1( h, sus, "val", env, "sus", chCnt );
  1219. cmDspSysInstallCb11N1( h, onThr, "val", ef, "ondb", chCnt ); //
  1220. cmDspSysInstallCb11N1( h, offThr, "val", ef, "offdb", chCnt ); //
  1221. cmDspSysInstallCb11N1( h, eqbyp, "out", eq, "bypass", chCnt );
  1222. cmDspSysInstallCb11N1( h, eqmode, "mode", eq, "mode", chCnt );
  1223. cmDspSysInstallCb11N1( h, eqq, "val", eq, "Q", chCnt );
  1224. cmDspSysInstallCb11N1( h, eqfgn, "val", eq, "gain", chCnt );
  1225. cmDspSysInstallCb11N1( h, mtfb, "val", mt, "fb", chCnt );
  1226. cmDspSysInstallCb11N1( h, mtscale, "val", mt, "scale", chCnt );
  1227. }
  1228. errLabel:
  1229. cmFsFreeFn(chCfgPath);
  1230. return rc;
  1231. }
  1232. cmDspRC_t _cmDspSysPgm_CombFilt( cmDspSysH_t h, void** userPtrPtr )
  1233. {
  1234. cmDspRC_t rc = kOkDspRC;
  1235. double cfMinHz = 20.0;
  1236. double cfAlpha = 0.9;
  1237. bool cfFbFl = true;
  1238. bool cfBypassFl= false;
  1239. unsigned sgShapeId = 2;
  1240. cmDspInst_t* ao = cmDspSysAllocAudioOut( h, 0, 1.0 );
  1241. cmDspInst_t* sg = cmDspSysAllocInst( h, "SigGen", NULL, 2, 1000.0, sgShapeId );
  1242. cmDspInst_t* cf = cmDspSysAllocInst( h, "CombFilt", NULL, 5, cfBypassFl, cfMinHz, cfFbFl, cfMinHz, cfAlpha );
  1243. cmDspInst_t* hz = cmDspSysAllocScalar( h, "Hz", 25, 10000, 1, 1000 );
  1244. cmDspInst_t* a = cmDspSysAllocScalar( h, "Alpha", 0.0, 2.0, 0.001, cfAlpha);
  1245. // check for allocation errors
  1246. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1247. goto errLabel;
  1248. cmDspSysConnectAudio(h, sg, "out", cf, "in");
  1249. cmDspSysConnectAudio(h, cf, "out", ao, "in");
  1250. cmDspSysInstallCb( h, hz, "val", cf, "hz", NULL);
  1251. cmDspSysInstallCb( h, a, "val", cf, "alpha", NULL);
  1252. errLabel:
  1253. return rc;
  1254. }
  1255. cmDspRC_t _cmDspSysPgm_ScalarOp( cmDspSysH_t h, void** userPtrPtr )
  1256. {
  1257. cmDspRC_t rc;
  1258. cmDspInst_t* add = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "+", "in-0", 0.0, "in-1", 0.0 );
  1259. cmDspInst_t* mul0 = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "*", "in-0", 0.0, "in-1", 0.0 );
  1260. cmDspInst_t* mul1 = cmDspSysAllocInst( h, "ScalarOp", NULL, 6, 2, "*", "in-0", 0.0, "in-1", 0.0 );
  1261. cmDspInst_t* in = cmDspSysAllocScalar( h, "Input", 0.0, 10.0, 0.001, 0.0);
  1262. cmDspInst_t* in_m = cmDspSysAllocScalar( h, "Input_M", 0.0, 10.0, 0.001, 0.0);
  1263. cmDspInst_t* fb = cmDspSysAllocScalar( h, "Feedback", 0.0, 10.0, 0.001, 0.0);
  1264. cmDspInst_t* fb_m = cmDspSysAllocScalar( h, "Feedback_M", 0.0, 10.0, 0.001, 0.0);
  1265. cmDspInst_t* out = cmDspSysAllocScalar( h, "Out", 0.0, 10.0, 0.001, 0.0);
  1266. // check for allocation errors
  1267. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1268. goto errLabel;
  1269. cmDspSysInstallCb( h, in, "val", mul0, "in-0", NULL );
  1270. cmDspSysInstallCb( h, in_m, "val", mul0, "in-1", NULL );
  1271. cmDspSysInstallCb( h, fb, "val", mul1, "in-0", NULL );
  1272. cmDspSysInstallCb( h, fb_m, "val", mul1, "in-1", NULL );
  1273. cmDspSysInstallCb( h, mul0, "out", add, "in-0", NULL );
  1274. cmDspSysInstallCb( h, mul1, "out", add, "in-1", NULL );
  1275. cmDspSysInstallCb( h, add, "out", fb, "val", NULL );
  1276. cmDspSysInstallCb( h, add, "out", out, "val", NULL );
  1277. errLabel:
  1278. return rc;
  1279. }
  1280. cmDspRC_t _cmDspSysPgm_RingMod( cmDspSysH_t h, void** userPtrPtr )
  1281. {
  1282. cmDspRC_t rc = kOkDspRC;
  1283. cmErr_t err;
  1284. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  1285. unsigned chCnt = 0;
  1286. unsigned nsChCnt = 0;
  1287. const cmChar_t* chCfgPath = NULL;
  1288. const cmChar_t* chCfgFn = "pick_chs8.js";
  1289. unsigned groupCnt = 3;
  1290. unsigned chsPerGroup = 2;
  1291. cmReal_t fadeTimeMs = 25;
  1292. unsigned i,j,k;
  1293. cmErrSetup(&err,&cmCtx->rpt,"Pickup Effects");
  1294. // prepend the prefs directory to the ch. cfg filename
  1295. chCfgPath = cmFsMakeFn(cmFsPrefsDir(),chCfgFn,NULL,NULL);
  1296. // get the count of channels from the ch. cfg. array
  1297. if(( chCnt = cmChCfgChannelCount(cmCtx,chCfgFn,&nsChCnt)) == 0 )
  1298. {
  1299. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"Unable to obtain the channel count from '%s'.",cmStringNullGuard(chCfgFn));
  1300. goto errLabel;
  1301. }
  1302. if( rc == kOkDspRC )
  1303. {
  1304. cmDspInst_t* ain[chCnt];
  1305. cmDspInst_t* ef[chCnt];
  1306. cmDspInst_t* mtr[chCnt];
  1307. cmDspInst_t* nom[groupCnt];
  1308. cmDspInst_t* rm[groupCnt];
  1309. cmDspInst_t* nm_mtr[groupCnt*chsPerGroup];
  1310. unsigned labelCharCnt = 31;
  1311. cmChar_t label[labelCharCnt+1];
  1312. // allocate the audio inputs and envelope followers
  1313. for(i=0; i<chCnt; ++i)
  1314. {
  1315. snprintf(label,labelCharCnt,"%i",i);
  1316. ain[i] = cmDspSysAllocAudioIn( h, i, 1.0);
  1317. ef[i] = cmDspSysAllocInst( h, "EnvFollow", NULL, 0 );
  1318. mtr[i] = cmDspSysAllocInst( h, "Meter", label, 3, 0.0, 0.0, 1.0 );
  1319. }
  1320. cmDspInst_t* gs = cmDspSysAllocInst( h, "GroupSel", NULL, 3, chCnt, groupCnt, chsPerGroup );
  1321. for(i=0; i<groupCnt; ++i)
  1322. {
  1323. nom[i] = cmDspSysAllocInst(h, "AudioNofM", NULL, 3, chCnt, chsPerGroup, fadeTimeMs );
  1324. rm[i] = cmDspSysAllocInst(h, "RingMod", NULL, 1, chsPerGroup );
  1325. }
  1326. for(i=0,k=0; i<groupCnt; ++i)
  1327. {
  1328. cmDspSysNewColumn(h,50);
  1329. snprintf(label,labelCharCnt,"%i",i);
  1330. cmDspSysAllocLabel(h,label,kLeftAlignDuiId );
  1331. for(j=0; j<chsPerGroup; ++j,++k)
  1332. {
  1333. snprintf(label,labelCharCnt,"%i",j);
  1334. nm_mtr[k] = cmDspSysAllocInst(h, "Meter", label, 3, 0.0, 0.0, 1.0 );
  1335. }
  1336. }
  1337. assert(k==groupCnt*chsPerGroup);
  1338. // allocate the ch cfg last so that it's default outputs initialize connected objects
  1339. //cmDspInst_t* chCfg = cmDspSysAllocInst( h, "ChCfg", NULL, 1, chCfgFn );
  1340. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL, 1, groupCnt );
  1341. cmDspInst_t* ao0 = cmDspSysAllocAudioOut( h, 0, 1.0 );
  1342. cmDspInst_t* ao1 = cmDspSysAllocAudioOut( h, 1, 1.0 );
  1343. // check for allocation errors
  1344. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1345. goto errLabel;
  1346. cmDspSysConnectAudioN1N1( h, ain, "out", ef, "in", chCnt ); // ain -> EF
  1347. for(i=0; i<groupCnt; ++i)
  1348. {
  1349. cmDspSysConnectAudioN11N( h, ain, "out", nom[i], "in", chCnt );
  1350. cmDspSysConnectAudio1N1N( h, nom[i], "out", rm[i], "in", chsPerGroup);
  1351. snprintf(label,labelCharCnt,"gate-%i",i);
  1352. cmDspSysInstallCb1N1N( h, gs, label, nom[i], "gate", chCnt );
  1353. cmDspSysInstallCb1NN1( h, nom[i], "gain", nm_mtr + i * chsPerGroup, "in", chsPerGroup);
  1354. }
  1355. cmDspSysConnectAudioN11N( h, rm, "out", mix, "in", groupCnt );
  1356. cmDspSysConnectAudio( h, mix, "out", ao0, "in"); // mix -> aout L
  1357. cmDspSysConnectAudio( h, mix, "out", ao1, "in"); // mix -> aout R
  1358. cmDspSysInstallCbN11N( h, ef, "gate", gs, "gate", chCnt ); // EF -> grp_sel gate
  1359. cmDspSysInstallCbN11N( h, ef, "rms", gs, "rms", chCnt ); // EF -> grp_sel RMS
  1360. cmDspSysInstallCbN1N1( h, ef, "gate", mtr, "in", chCnt );
  1361. }
  1362. errLabel:
  1363. cmFsFreeFn(chCfgPath);
  1364. return rc;
  1365. }
  1366. cmDspRC_t _cmDspSysPgm_RingMod2( cmDspSysH_t h, void** userPtrPtr )
  1367. {
  1368. cmDspRC_t rc = kOkDspRC;
  1369. cmErr_t err;
  1370. cmCtx_t* cmCtx = cmDspSysPgmCtx(h);
  1371. unsigned iChCnt = 0;
  1372. unsigned oChCnt = 0;
  1373. unsigned nsChCnt = 0;
  1374. const cmChar_t* chCfgPath = NULL;
  1375. const cmChar_t* chCfgFn = "pick_chs8.js";
  1376. unsigned i;
  1377. cmErrSetup(&err,&cmCtx->rpt,"Pickup Effects");
  1378. // prepend the prefs directory to the ch. cfg filename
  1379. chCfgPath = cmFsMakeFn(cmFsPrefsDir(),chCfgFn,NULL,NULL);
  1380. // get the count of channels from the ch. cfg. array
  1381. if(( iChCnt = cmChCfgChannelCount(cmCtx,chCfgFn,&nsChCnt)) == 0 )
  1382. {
  1383. rc = cmErrMsg(&err,kPgmCfgFailDspRC,"Unable to obtain the channel count from '%s'.",cmStringNullGuard(chCfgFn));
  1384. goto errLabel;
  1385. }
  1386. if( rc == kOkDspRC && iChCnt > 0 )
  1387. {
  1388. if( iChCnt % 2 )
  1389. iChCnt -= 1;
  1390. oChCnt = iChCnt/2;
  1391. cmDspInst_t* ain[iChCnt];
  1392. cmDspInst_t* ef[iChCnt];
  1393. cmDspInst_t* mtr[iChCnt];
  1394. cmDspInst_t* rm[oChCnt];
  1395. unsigned labelCharCnt = 31;
  1396. cmChar_t label[labelCharCnt+1];
  1397. // allocate the audio inputs and envelope followers
  1398. for(i=0; i<iChCnt; ++i)
  1399. {
  1400. snprintf(label,labelCharCnt,"%i",i);
  1401. ain[i] = cmDspSysAllocAudioIn( h, i, 1.0);
  1402. ef[i] = cmDspSysAllocInst( h, "EnvFollow", NULL, 0 );
  1403. mtr[i] = cmDspSysAllocInst( h, "Meter", label, 3, 0.0, 0.0, 1.0 );
  1404. }
  1405. for(i=0; i<oChCnt; ++i)
  1406. {
  1407. rm[i] = cmDspSysAllocInst( h, "RingMod", NULL, 1, 2 );
  1408. }
  1409. cmDspInst_t* gain = cmDspSysAllocScalar( h, "RM Gain", 0.0, 10.0, 0.001, 1.0);
  1410. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL, 1, oChCnt );
  1411. cmDspInst_t* ao0 = cmDspSysAllocAudioOut( h, 0, 1.0 );
  1412. cmDspInst_t* ao1 = cmDspSysAllocAudioOut( h, 1, 1.0 );
  1413. // check for allocation errors
  1414. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1415. goto errLabel;
  1416. cmDspSysConnectAudioN1N1( h, ain, "out", ef, "in", iChCnt ); // ain -> EF
  1417. cmDspSysInstallCbN1N1( h, ef, "gate", mtr, "in", iChCnt ); // EF -> mtr (gate)
  1418. for(i=0; i<oChCnt; ++i)
  1419. {
  1420. cmDspSysConnectAudio( h, ain[i*2+0], "out", rm[i], "in-0"); // ain -> rm 0
  1421. cmDspSysConnectAudio( h, ain[i*2+1], "out", rm[i], "in-1"); // ain -> rm 1
  1422. snprintf(label,labelCharCnt,"in-%i",i);
  1423. cmDspSysConnectAudio( h, rm[i], "out", mix, label); // rm -> mix
  1424. cmDspSysInstallCb(h, gain, "val", rm[i], "gain", NULL ); // gain -> rm gain
  1425. }
  1426. cmDspSysConnectAudio( h, mix, "out", ao0, "in"); // mix -> aout L
  1427. cmDspSysConnectAudio( h, mix, "out", ao1, "in"); // mix -> aout R
  1428. }
  1429. errLabel:
  1430. cmFsFreeFn(chCfgPath);
  1431. return rc;
  1432. }
  1433. cmDspRC_t _cmDspSysPgm_MsgDelay( cmDspSysH_t h, void** userPtrPtr )
  1434. {
  1435. cmDspRC_t rc = kOkDspRC;
  1436. double dfltDelayTimeMs = 100.0;
  1437. double maxDelayTimeMs = 10000.0;
  1438. cmDspInst_t* ctl = cmDspSysAllocScalar( h, "Delay", 0.0, maxDelayTimeMs, 1.0, dfltDelayTimeMs );
  1439. cmDspInst_t* dly = cmDspSysAllocInst( h, "MsgDelay", NULL, 2, 1000, dfltDelayTimeMs );
  1440. cmDspInst_t* print = cmDspSysAllocInst( h, "Printer", NULL, 1, ">");
  1441. if( (rc = cmDspSysLastRC(h)) != kOkDspRC )
  1442. return rc;
  1443. cmDspSysInstallCb( h, ctl, "val", dly, "delay", NULL );
  1444. cmDspSysInstallCb( h, ctl, "val", dly, "in", NULL );
  1445. cmDspSysInstallCb( h, dly, "out", print, "in", NULL );
  1446. return rc;
  1447. }
  1448. cmDspRC_t _cmDspSysPgm_Adsr( cmDspSysH_t h, void** userPtrPtr )
  1449. {
  1450. cmDspRC_t rc;
  1451. bool trigModeFl = true;
  1452. double adsrMaxMs = 5000;
  1453. double adsrMinMs = 0;
  1454. double adsrIncMs = 1;
  1455. double adsrMaxLevel = 100.0; //1.0;
  1456. double adsrSusLevel = 80.0; //0.8;
  1457. double adsrMinLevel = 0.0; //0.0;
  1458. double adsrIncLevel = 0.001;
  1459. const cmChar_t* fn = "/home/kevin/temp/adsr1.bin";
  1460. cmDspInst_t* adsr = cmDspSysAllocInst(h, "Adsr", NULL, 2, trigModeFl, adsrMinLevel );
  1461. cmDspInst_t* chck = cmDspSysAllocCheck(h,"Gate",0);
  1462. cmDspInst_t* mtr = cmDspSysAllocInst(h,"Meter","Out", 3, adsrMinLevel, adsrMinLevel, adsrMaxLevel );
  1463. cmDspInst_t* bmf = cmDspSysAllocInst(h,"BinMtxFile", NULL, 2, 1, fn );
  1464. cmDspInst_t* dly = cmDspSysAllocScalar( h, "Dly Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 0.0);
  1465. cmDspInst_t* atk = cmDspSysAllocScalar( h, "Atk Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 1000.0);
  1466. cmDspInst_t* dcy = cmDspSysAllocScalar( h, "Dcy Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 300.0);
  1467. cmDspInst_t* hold = cmDspSysAllocScalar( h, "Hold Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 500.0);
  1468. cmDspInst_t* rls = cmDspSysAllocScalar( h, "Rls Ms", adsrMinMs, adsrMaxMs, adsrIncMs, 1000.0);
  1469. cmDspInst_t* alvl = cmDspSysAllocScalar( h, "AdsrMax", adsrMinLevel,adsrMaxLevel,adsrIncLevel, adsrMaxLevel);
  1470. cmDspInst_t* sus = cmDspSysAllocScalar( h, "Sustain", adsrMinLevel,adsrMaxLevel,adsrIncLevel, adsrSusLevel);
  1471. // check for allocation errors
  1472. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1473. goto errLabel;
  1474. cmDspSysInstallCb( h, dly, "val", adsr, "dly", NULL );
  1475. cmDspSysInstallCb( h, atk, "val", adsr, "atk", NULL );
  1476. cmDspSysInstallCb( h, dcy, "val", adsr, "dcy", NULL );
  1477. cmDspSysInstallCb( h, hold, "val", adsr, "hold", NULL );
  1478. cmDspSysInstallCb( h, rls, "val", adsr, "rls", NULL );
  1479. cmDspSysInstallCb( h, alvl, "val", adsr, "alvl", NULL );
  1480. cmDspSysInstallCb( h, sus, "val", adsr, "sus", NULL );
  1481. cmDspSysInstallCb( h, chck, "out", adsr, "gate", NULL );
  1482. cmDspSysInstallCb( h, adsr, "out", mtr, "in", NULL );
  1483. cmDspSysInstallCb( h, adsr, "out", bmf, "in", NULL );
  1484. errLabel:
  1485. return rc;
  1486. }
  1487. cmDspRC_t _cmDspSysPgm_Compressor( cmDspSysH_t h, void** userPtrPtr )
  1488. {
  1489. cmDspRC_t rc;
  1490. const cmChar_t* ofn = "/home/kevin/temp/adsr0.bin";
  1491. const char* afn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  1492. int beg = 6900826;
  1493. int end = 13512262;
  1494. const cmChar_t* afn = cmFsMakeFn(cmFsUserDir(),afn0,NULL,NULL );
  1495. bool bypassFl = false;
  1496. double inGain = 1.0;
  1497. double threshDb = -40.0;
  1498. double ratio_num = 4.0;
  1499. double atkMs = 100.0;
  1500. double rlsMs = 100.0;
  1501. double makeup = 1.0;
  1502. double wndMaxMs = 1000.0;
  1503. double wndMs = 200.0;
  1504. cmDspInst_t* off = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  1505. cmDspInst_t* phs = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  1506. cmDspInst_t* wt = cmDspSysAllocInst(h,"WaveTable",NULL, 6, ((int)cmDspSysSampleRate(h)), 1, afn, -1, beg, end );
  1507. cmDspInst_t* cmp = cmDspSysAllocInst(h,"Compressor",NULL, 8, bypassFl, threshDb, ratio_num, atkMs, rlsMs, makeup, wndMs, wndMaxMs );
  1508. cmDspInst_t* ao0 = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 0 );
  1509. cmDspInst_t* ao1 = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 1 );
  1510. cmDspInst_t* bmf = cmDspSysAllocInst(h,"BinMtxFile", NULL, 2, 1, ofn );
  1511. cmDspInst_t* mtr = cmDspSysAllocInst(h,"Meter","Env", 3, 0.0, 0.0, 1.0);
  1512. cmDspInst_t* igain = cmDspSysAllocScalar( h, "In Gain", 0.0, 10.0, 0.1, inGain);
  1513. cmDspInst_t* thr = cmDspSysAllocScalar( h, "ThreshDb", -100.0, 0.0, 0.1, threshDb);
  1514. cmDspInst_t* rat = cmDspSysAllocScalar( h, "Ratio", 0.1, 100, 0.1, ratio_num);
  1515. cmDspInst_t* atk = cmDspSysAllocScalar( h, "Atk Ms", 0.0, 1000.0, 0.1, atkMs);
  1516. cmDspInst_t* rls = cmDspSysAllocScalar( h, "Rls Ms", 0.0, 1000.0, 0.1, rlsMs);
  1517. cmDspInst_t* mkup = cmDspSysAllocScalar( h, "Makeup", 0.0, 10.0, 0.01, makeup);
  1518. cmDspInst_t* wnd = cmDspSysAllocScalar( h, "Wnd Ms", 1.0, wndMaxMs, 1.0, wndMs );
  1519. // check for allocation errors
  1520. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1521. goto errLabel;
  1522. cmDspSysConnectAudio(h, phs, "out", wt, "phs" ); // phasor -> wave table
  1523. cmDspSysConnectAudio(h, wt, "out", cmp, "in" ); // wave table -> cmp in
  1524. cmDspSysConnectAudio(h, cmp, "out", ao0, "in" ); // comp -> aout
  1525. cmDspSysConnectAudio(h, cmp, "out", ao1, "in" ); //
  1526. cmDspSysInstallCb(h, off, "val", wt, "beg", NULL );
  1527. cmDspSysInstallCb(h, igain,"val", cmp, "igain", NULL );
  1528. cmDspSysInstallCb(h, thr, "val", cmp, "thr", NULL );
  1529. cmDspSysInstallCb(h, rat, "val", cmp, "ratio", NULL );
  1530. cmDspSysInstallCb(h, atk, "val", cmp, "atk", NULL );
  1531. cmDspSysInstallCb(h, rls, "val", cmp, "rls", NULL );
  1532. cmDspSysInstallCb(h, mkup, "val", cmp, "ogain", NULL );
  1533. cmDspSysInstallCb(h, wnd, "val", cmp, "wnd", NULL );
  1534. cmDspSysInstallCb(h, cmp, "env", bmf, "in", NULL );
  1535. cmDspSysInstallCb(h, cmp, "env", mtr, "in", NULL );
  1536. errLabel:
  1537. return rc;
  1538. }
  1539. cmDspRC_t _cmDspSysPgm_BiQuadEq( cmDspSysH_t h, void** userPtrPtr )
  1540. {
  1541. cmDspRC_t rc = kOkDspRC;
  1542. const char* afn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  1543. int beg = 6900826;
  1544. int end = 13512262;
  1545. const cmChar_t* afn = cmFsMakeFn(cmFsUserDir(),afn0,NULL,NULL );
  1546. bool bypassFl = false;
  1547. unsigned modeSymId = cmSymTblRegisterStaticSymbol(cmDspSysSymbolTable(h),"LP");
  1548. double f0hz = 264.0;
  1549. double Q = 1.0;
  1550. double fgain = 1.0;
  1551. cmDspInst_t* off = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  1552. cmDspInst_t* phs = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  1553. cmDspInst_t* wt = cmDspSysAllocInst(h,"WaveTable",NULL, 6, ((int)cmDspSysSampleRate(h)), 1, afn, -1, beg, end );
  1554. cmDspInst_t* flt = cmDspSysAllocInst(h,"BiQuadEq",NULL, 5, bypassFl, modeSymId,f0hz, Q, fgain );
  1555. cmDspInst_t* ao0 = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 0 );
  1556. cmDspInst_t* ao1 = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 1 );
  1557. cmDspInst_t* mode = cmDspSysAllocInst( h, "MsgList","Mode", 1, "biQuadEqMode");
  1558. cmDspInst_t* fhz = cmDspSysAllocScalar( h, "Fc Hz", 0.0, 15000.0, 0.1, f0hz);
  1559. cmDspInst_t* q = cmDspSysAllocScalar( h, "Q", -100.0, 100, 0.1, Q);
  1560. cmDspInst_t* fgn = cmDspSysAllocScalar( h, "Filt Gain", 0.0, 1.0, 0.1, fgain);
  1561. // check for allocation errors
  1562. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1563. goto errLabel;
  1564. cmDspSysConnectAudio(h, phs, "out", wt, "phs" ); // phasor -> wave table
  1565. cmDspSysConnectAudio(h, wt, "out", flt, "in" ); // wave table -> cmp in
  1566. cmDspSysConnectAudio(h, flt, "out", ao0, "in" ); // filter -> aout
  1567. cmDspSysConnectAudio(h, flt, "out", ao1, "in" ); //
  1568. cmDspSysInstallCb(h, off, "val", wt, "beg", NULL );
  1569. cmDspSysInstallCb(h, mode,"mode",flt, "mode", NULL );
  1570. cmDspSysInstallCb(h, fhz, "val", flt, "f0", NULL );
  1571. cmDspSysInstallCb(h, q, "val", flt, "Q", NULL );
  1572. cmDspSysInstallCb(h, fgn, "val", flt, "gain", NULL );
  1573. errLabel:
  1574. return rc;
  1575. }
  1576. cmDspRC_t _cmDspSysPgm_DistDs( cmDspSysH_t h, void** userPtrPtr )
  1577. {
  1578. cmDspRC_t rc = kOkDspRC;
  1579. const char* afn0 = "media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  1580. int beg = 6900826;
  1581. int end = 13512262;
  1582. const cmChar_t* afn = cmFsMakeFn(cmFsUserDir(),afn0,NULL,NULL );
  1583. bool bypassFl = false;
  1584. double inGain = 1.0;
  1585. double dsrate = 44100.0;
  1586. double bits = 24.0;
  1587. bool rectifyFl = false;
  1588. bool fullRectFl = false;
  1589. double clipDb = -10.0;
  1590. cmDspInst_t* off = cmDspSysAllocInst(h,"Scalar", "Offset", 5, kNumberDuiId, 0.0, cmDspSysSampleRate(h)*600.0, 1.0, 0.0);
  1591. cmDspInst_t* phs = cmDspSysAllocInst(h,"Phasor", NULL, 0 );
  1592. cmDspInst_t* wt = cmDspSysAllocInst(h,"WaveTable",NULL, 6, ((int)cmDspSysSampleRate(h)), 1, afn, -1, beg, end );
  1593. cmDspInst_t* dst = cmDspSysAllocInst(h,"DistDs",NULL, 3, bypassFl, inGain, dsrate, bits );
  1594. cmDspInst_t* ao0 = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 0 );
  1595. cmDspInst_t* ao1 = cmDspSysAllocInst(h,"AudioOut",NULL, 1, 1 );
  1596. cmDspInst_t* ign = cmDspSysAllocScalar( h, "In Gain", 0.0, 10.0, 0.01, 1.0);
  1597. cmDspInst_t* rct = cmDspSysAllocCheck( h, "Rectify", rectifyFl);
  1598. cmDspInst_t* ful = cmDspSysAllocCheck( h, "Full/Half", fullRectFl);
  1599. cmDspInst_t* dsr = cmDspSysAllocScalar( h, "Srate", 0.0, 96000, 1.0, dsrate);
  1600. cmDspInst_t* dbt = cmDspSysAllocScalar( h, "bits", 2.0, 32.0, 1.0, bits);
  1601. cmDspInst_t* clip = cmDspSysAllocScalar( h, "Clip dB", -100.0, 0.0, 0.1, clipDb);
  1602. cmDspInst_t* ogn = cmDspSysAllocScalar( h, "Out Gain", 0.0, 10.0, 0.01, 1.0);
  1603. // check for allocation errors
  1604. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1605. goto errLabel;
  1606. cmDspSysConnectAudio(h, phs, "out", wt, "phs" ); // phasor -> wave table
  1607. cmDspSysConnectAudio(h, wt, "out", dst, "in" ); // wave table -> cmp in
  1608. cmDspSysConnectAudio(h, dst, "out", ao0, "in" ); // filter -> aout
  1609. cmDspSysConnectAudio(h, dst, "out", ao1, "in" ); //
  1610. cmDspSysInstallCb(h, off, "val", wt, "beg", NULL );
  1611. cmDspSysInstallCb(h, ign, "val", dst, "igain", NULL );
  1612. cmDspSysInstallCb(h, dsr, "val", dst, "srate", NULL );
  1613. cmDspSysInstallCb(h, dbt, "val", dst, "bits", NULL );
  1614. cmDspSysInstallCb(h, rct, "out", dst, "rect", NULL );
  1615. cmDspSysInstallCb(h, ful, "out", dst, "full", NULL );
  1616. cmDspSysInstallCb(h, clip, "val", dst, "clip", NULL );
  1617. cmDspSysInstallCb(h, ogn, "val", dst, "ogain", NULL );
  1618. errLabel:
  1619. return rc;
  1620. }
  1621. cmDspRC_t _cmDspSysPgm_Seq( cmDspSysH_t h, void** userPtrPtr )
  1622. {
  1623. cmDspRC_t rc;
  1624. double min = 1.0;
  1625. double max = 10.0;
  1626. double incr = 1.0;
  1627. cmDspInst_t* btn = cmDspSysAllocButton( h, "smack", 0);
  1628. cmDspInst_t* cnt = cmDspSysAllocInst( h, "Counter", NULL, 3, min, max, incr );
  1629. cmDspInst_t* lst = cmDspSysAllocInst( h, "MsgList","Seq", 1, "seqTest");
  1630. cmDspInst_t* prt = cmDspSysAllocInst( h, "Printer", NULL, 1, ">");
  1631. cmDspSysInstallCb(h, lst, "cnt", cnt, "max", NULL );
  1632. cmDspSysInstallCb(h, btn, "out", cnt, "next", NULL );
  1633. cmDspSysInstallCb(h, cnt, "out", lst, "sel", NULL );
  1634. cmDspSysInstallCb(h, lst, "midi", prt, "in", NULL );
  1635. // check for allocation errors
  1636. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1637. goto errLabel;
  1638. errLabel:
  1639. return rc;
  1640. }
  1641. cmDspRC_t _cmDspSysPgm_ThunkNet( cmDspSysH_t h, void** userPtrPtr )
  1642. {
  1643. cmDspRC_t rc;
  1644. cmDspInst_t* add = cmDspSysAllocInst( h, "ScalarOp", "adder-0", 6, 2, "+", "in-0", 0.0, "in-1", 0.0 );
  1645. cmDspInst_t* in = cmDspSysAllocScalar( h, "Input", 0.0, 10.0, 0.001, 0.0);
  1646. cmDspInst_t* out = cmDspSysAllocScalar( h, "Out", 0.0, 10.0, 0.001, 0.0);
  1647. // check for allocation errors
  1648. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1649. goto errLabel;
  1650. cmDspSysInstallCb( h, in, "val", add, "in-1", NULL );
  1651. cmDspSysInstallCb( h, add, "out", out, "val", NULL );
  1652. errLabel:
  1653. return rc;
  1654. }
  1655. cmDspRC_t _cmDspSysPgm_WhirlNet( cmDspSysH_t h, void** userPtrPtr )
  1656. {
  1657. cmDspRC_t rc;
  1658. cmDspInst_t* in = cmDspSysAllocScalar( h, "Input", 0.0, 10.0, 0.001, 0.0);
  1659. // check for allocation errors
  1660. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1661. goto errLabel;
  1662. cmDspSysInstallNetCb( h, in, "val", "thunk", "adder-0", "in-0" );
  1663. errLabel:
  1664. return rc;
  1665. }
  1666. cmDspRC_t _cmDspSysPgm_NofM( cmDspSysH_t h, void** userPtrPtr )
  1667. {
  1668. cmDspRC_t rc;
  1669. unsigned iChCnt = 3;
  1670. unsigned oChCnt = 2;
  1671. unsigned sgShapeId = 0;
  1672. double sgGain = 0.4;
  1673. double xfadeMs = 1000;
  1674. cmDspInst_t* onBtn = cmDspSysAllocButton( h, "on", 0 );
  1675. cmDspInst_t* offBtn = cmDspSysAllocButton(h, "off", 0 );
  1676. cmDspInst_t* sg0 = cmDspSysAllocInst( h, "SigGen", NULL, 3, 500.0, sgShapeId, sgGain );
  1677. cmDspInst_t* sg1 = cmDspSysAllocInst( h, "SigGen", NULL, 3, 1000.0, sgShapeId, sgGain );
  1678. cmDspInst_t* sg2 = cmDspSysAllocInst( h, "SigGen", NULL, 3, 2000.0, sgShapeId, sgGain );
  1679. cmDspInst_t* nom = cmDspSysAllocInst( h,"NofM", NULL, 3, iChCnt, oChCnt, xfadeMs );
  1680. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL, 1, oChCnt );
  1681. cmDspInst_t* ao = cmDspSysAllocAudioOut(h, 0, 1.0 );
  1682. cmDspInst_t* btn = cmDspSysAllocButton( h, "cfg", 0);
  1683. cmDspInst_t* sel0 = cmDspSysAllocCheck(h,"Sel-0",0);
  1684. cmDspInst_t* sel1 = cmDspSysAllocCheck(h,"Sel-1",0);
  1685. cmDspInst_t* sel2 = cmDspSysAllocCheck(h,"Sel-2",0);
  1686. cmDspInst_t* in0 = cmDspSysAllocScalar( h, "In-0", 0.0, 10.0, 0.001, 0.0);
  1687. cmDspInst_t* in1 = cmDspSysAllocScalar( h, "In-1", 0.0, 10.0, 0.001, 0.0);
  1688. cmDspInst_t* in2 = cmDspSysAllocScalar( h, "In-2", 0.0, 10.0, 0.001, 0.0);
  1689. cmDspInst_t* out0 = cmDspSysAllocScalar( h, "Out-0", 0.0, 10.0, 0.001, 0.0);
  1690. cmDspInst_t* out1 = cmDspSysAllocScalar( h, "Out-1", 0.0, 10.0, 0.001, 0.0);
  1691. // check for allocation errors
  1692. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1693. goto errLabel;
  1694. cmDspSysConnectAudio( h, sg0, "out", nom, "a-in-0" );
  1695. cmDspSysConnectAudio( h, sg1, "out", nom, "a-in-1" );
  1696. cmDspSysConnectAudio( h, sg2, "out", nom, "a-in-2" );
  1697. cmDspSysConnectAudio( h, nom, "a-out-0", mix, "in-0" );
  1698. cmDspSysConnectAudio( h, nom, "a-out-1", mix, "in-1" );
  1699. cmDspSysConnectAudio( h, mix, "out", ao, "in" );
  1700. cmDspSysInstallCb( h, btn, "sym", nom, "cmd", NULL );
  1701. cmDspSysInstallCb( h, sel0, "out", nom, "sel-0", NULL );
  1702. cmDspSysInstallCb( h, sel1, "out", nom, "sel-1", NULL );
  1703. cmDspSysInstallCb( h, sel2, "out", nom, "sel-2", NULL );
  1704. cmDspSysInstallCb( h, in0, "val", nom, "f-in-0", NULL );
  1705. cmDspSysInstallCb( h, in1, "val", nom, "f-in-1", NULL );
  1706. cmDspSysInstallCb( h, in2, "val", nom, "f-in-2", NULL );
  1707. cmDspSysInstallCb( h, nom, "f-out-0", out0, "val", NULL );
  1708. cmDspSysInstallCb( h, nom, "f-out-1", out1, "val", NULL );
  1709. cmDspSysInstallCb( h, onBtn, "sym", nom, "cmd", NULL );
  1710. cmDspSysInstallCb( h, offBtn, "sym", nom, "cmd", NULL );
  1711. errLabel:
  1712. return rc;
  1713. }
  1714. cmDspRC_t _cmDspSysPgm_1ofN( cmDspSysH_t h, void** userPtrPtr )
  1715. {
  1716. cmDspRC_t rc;
  1717. unsigned inCnt = 3;
  1718. unsigned initSel = 0;
  1719. cmDspInst_t* oom = cmDspSysAllocInst(h,"1ofN", NULL, 2, inCnt, initSel );
  1720. cmDspInst_t* sel = cmDspSysAllocScalar( h, "Sel", 0, inCnt-1, 0.001, 0.0);
  1721. cmDspInst_t* in0 = cmDspSysAllocScalar( h, "In-0", 0.0, 10.0, 0.001, 0.0);
  1722. cmDspInst_t* in1 = cmDspSysAllocScalar( h, "In-1", 0.0, 10.0, 0.001, 0.0);
  1723. cmDspInst_t* in2 = cmDspSysAllocScalar( h, "In-2", 0.0, 10.0, 0.001, 0.0);
  1724. cmDspInst_t* out = cmDspSysAllocScalar( h, "Out", 0.0, 10.0, 0.001, 0.0);
  1725. // check for allocation errors
  1726. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1727. goto errLabel;
  1728. cmDspSysInstallCb( h, sel, "val", oom, "chidx", NULL );
  1729. cmDspSysInstallCb( h, in0, "val", oom, "f-in-0", NULL );
  1730. cmDspSysInstallCb( h, in1, "val", oom, "f-in-1", NULL );
  1731. cmDspSysInstallCb( h, in2, "val", oom, "f-in-2", NULL );
  1732. cmDspSysInstallCb( h, oom, "f-out", out, "val", NULL );
  1733. errLabel:
  1734. return rc;
  1735. }
  1736. cmDspRC_t _cmDspSysPgm_Router( cmDspSysH_t h, void** userPtrPtr )
  1737. {
  1738. cmDspRC_t rc;
  1739. unsigned inCnt = 3;
  1740. unsigned initSel = 0;
  1741. cmDspInst_t* rtr = cmDspSysAllocInst(h,"Router", NULL, 2, inCnt, initSel );
  1742. cmDspInst_t* sel = cmDspSysAllocScalar( h, "Sel", 0, inCnt-1, 1.0, 0.0);
  1743. cmDspInst_t* in = cmDspSysAllocScalar( h, "In", 0.0, 10.0, 0.001, 0.0);
  1744. cmDspInst_t* out0 = cmDspSysAllocScalar( h, "Out-0", 0.0, 10.0, 0.001, 0.0);
  1745. cmDspInst_t* out1 = cmDspSysAllocScalar( h, "Out-1", 0.0, 10.0, 0.001, 0.0);
  1746. cmDspInst_t* out2 = cmDspSysAllocScalar( h, "Out-2", 0.0, 10.0, 0.001, 0.0);
  1747. // check for allocation errors
  1748. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1749. goto errLabel;
  1750. cmDspSysInstallCb( h, sel, "val", rtr, "sel", NULL );
  1751. cmDspSysInstallCb( h, in, "val", rtr, "f-in", NULL );
  1752. cmDspSysInstallCb( h, rtr, "f-out-0", out0, "val", NULL );
  1753. cmDspSysInstallCb( h, rtr, "f-out-1", out1, "val", NULL );
  1754. cmDspSysInstallCb( h, rtr, "f-out-2", out2, "val", NULL );
  1755. errLabel:
  1756. return rc;
  1757. }
  1758. cmDspRC_t _cmDspSysPgm_Preset( cmDspSysH_t h, void** userPtrPtr )
  1759. {
  1760. cmDspRC_t rc;
  1761. unsigned sgShapeId = 0;
  1762. double sgHz = 500;
  1763. double sgGain = 0.02;
  1764. unsigned grpSymId = cmDspSysPresetRegisterGroup(h,"test");
  1765. const cmChar_t* prefixLabel = NULL;
  1766. cmDspInst_t* sg = cmDspSysAllocInst( h, "SigGen", NULL, 3, sgHz, sgShapeId, sgGain );
  1767. cmDspInst_t* ao = cmDspSysAllocAudioOut( h, 0, 1.0 );
  1768. cmDspInst_t* shapes = cmDspSysAllocMsgListP(h, grpSymId, prefixLabel, "Shape", NULL, "shapeList", 0 );
  1769. cmDspInst_t* gains = cmDspSysAllocMsgListP(h, grpSymId, prefixLabel, "Gains", NULL, "gainMenu", 0 );
  1770. cmDspInst_t* hz = cmDspSysAllocScalarP( h, grpSymId, prefixLabel, "Hz", 0.0, 10000.0, 0.01, sgHz);
  1771. cmDspInst_t* gain = cmDspSysAllocScalarP( h, grpSymId, prefixLabel, "Gain", 0.0, 1.0, 0.01, sgGain);
  1772. cmDspInst_t* preset = cmDspSysAllocInst( h, "Preset", NULL, 1, grpSymId );
  1773. cmDspInst_t* presetLbl = cmDspSysAllocInst( h, "Text", "Preset", 1, "" );
  1774. cmDspInst_t* storeBtn = cmDspSysAllocButton( h, "store", 0);
  1775. cmDspInst_t* recallBtn = cmDspSysAllocButton( h, "recall", 0);
  1776. // check for allocation errors
  1777. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1778. goto errLabel;
  1779. cmDspSysConnectAudio(h, sg, "out", ao, "in" );
  1780. cmDspSysInstallCb( h, shapes,"out", sg, "shape", NULL );
  1781. cmDspSysInstallCb( h, hz, "val", sg, "hz", NULL );
  1782. cmDspSysInstallCb( h, gain, "val", sg, "gain", NULL );
  1783. cmDspSysInstallCb( h, gains, "out", gain, "val", NULL );
  1784. cmDspSysInstallCb( h, presetLbl, "val", preset, "label",NULL);
  1785. cmDspSysInstallCb( h, storeBtn, "sym", preset, "cmd", NULL );
  1786. cmDspSysInstallCb( h, recallBtn, "sym", preset, "cmd", NULL );
  1787. errLabel:
  1788. return rc;
  1789. }
  1790. cmDspRC_t _cmDspSysPgm_RsrcWr( cmDspSysH_t h, void** userPtrPtr )
  1791. {
  1792. cmDspRC_t rc = kOkDspRC;
  1793. const cmChar_t* lbl1 = "rsrc1";
  1794. const cmChar_t* lbl2 = "rsrc2";
  1795. const cmChar_t* str1 = NULL;
  1796. const cmChar_t* str2 = NULL;
  1797. if( cmDspRsrcString(h,&str1, lbl1, NULL ) != kOkDspRC )
  1798. str1 = "1";
  1799. if( cmDspRsrcString(h,&str2, lbl2, NULL ) != kOkDspRC )
  1800. str2 = "2";
  1801. cmDspInst_t* rsrcWr = cmDspSysAllocInst( h, "RsrcWr", NULL, 2, lbl1, lbl2 );
  1802. cmDspInst_t* textUi0 = cmDspSysAllocInst( h, "Text", "Value1", 1, str1 );
  1803. cmDspInst_t* textUi1 = cmDspSysAllocInst( h, "Text", "Value2", 1, str2 );
  1804. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1805. goto errLabel;
  1806. cmDspSysInstallCb( h, textUi0, "val", rsrcWr, "rsrc1", NULL );
  1807. cmDspSysInstallCb( h, textUi1, "val", rsrcWr, "rsrc2", NULL );
  1808. errLabel:
  1809. return rc;
  1810. }
  1811. cmDspRC_t _cmDspSysPgm_1Up( cmDspSysH_t h, void** userPtrPtr )
  1812. {
  1813. cmDspRC_t rc;
  1814. unsigned chCnt = 3;
  1815. double maxIdx = chCnt - 1;
  1816. unsigned initIdx = 2;
  1817. cmDspInst_t* sel = cmDspSysAllocScalar( h, "Chan", 0.0, maxIdx, 1.0, 0.0 );
  1818. cmDspInst_t* up = cmDspSysAllocInst( h, "1Up", NULL, 2, chCnt, initIdx );
  1819. cmDspInst_t* pr0 = cmDspSysAllocInst( h, "Printer", NULL, 1, "0:" );
  1820. cmDspInst_t* pr1 = cmDspSysAllocInst( h, "Printer", NULL, 1, "1:" );
  1821. cmDspInst_t* pr2 = cmDspSysAllocInst( h, "Printer", NULL, 1, "2:" );
  1822. // check for allocation errors
  1823. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1824. goto errLabel;
  1825. cmDspSysInstallCb( h, sel, "val", up, "sel",NULL);
  1826. cmDspSysInstallCb( h, up, "out-0", pr0, "in", NULL );
  1827. cmDspSysInstallCb( h, up, "out-1", pr1, "in", NULL );
  1828. cmDspSysInstallCb( h, up, "out-2", pr2, "in", NULL );
  1829. errLabel:
  1830. return rc;
  1831. }
  1832. cmDspRC_t _cmDspSysPgm_PortToSym( cmDspSysH_t h, void** userPtrPtr )
  1833. {
  1834. cmDspRC_t rc = kOkDspRC;
  1835. cmDspInst_t* btn0 = cmDspSysAllocButton( h, "Btn0", 0.0 );
  1836. cmDspInst_t* btn1 = cmDspSysAllocButton( h, "Btn1", 0.0 );
  1837. cmDspInst_t* btn2 = cmDspSysAllocButton( h, "Btn2", 0.0 );
  1838. cmDspInst_t* pts = cmDspSysAllocInst( h, "PortToSym", NULL, 3, "one", "two", "three");
  1839. cmDspInst_t* pr0 = cmDspSysAllocInst( h, "Printer", NULL, 1, "0:" );
  1840. cmDspInst_t* pr1 = cmDspSysAllocInst( h, "Printer", NULL, 1, "1:" );
  1841. // check for allocation errors
  1842. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1843. goto errLabel;
  1844. cmDspSysInstallCb( h, btn0, "out", pts, "one",NULL);
  1845. cmDspSysInstallCb( h, btn1, "out", pts, "two",NULL);
  1846. cmDspSysInstallCb( h, btn2, "out", pts, "three",NULL);
  1847. cmDspSysInstallCb( h, btn0, "out", pr1, "in",NULL);
  1848. cmDspSysInstallCb( h, btn1, "out", pr1, "in",NULL);
  1849. cmDspSysInstallCb( h, btn2, "out", pr1, "in",NULL);
  1850. cmDspSysInstallCb( h, pts, "one", pr0, "in", NULL );
  1851. cmDspSysInstallCb( h, pts, "two", pr0, "in", NULL );
  1852. cmDspSysInstallCb( h, pts, "three", pr0, "in", NULL );
  1853. errLabel:
  1854. return rc;
  1855. }
  1856. cmDspRC_t _cmDspSysPgm_Line( cmDspSysH_t h, void** userPtrPtr )
  1857. {
  1858. cmDspRC_t rc = kOkDspRC;
  1859. cmDspInst_t* beg = cmDspSysAllocScalar( h, "beg", -10.0, 10.0, 1.0, 0.0 );
  1860. cmDspInst_t* end = cmDspSysAllocScalar( h, "end", -10.0, 10.0, 1.0, 1.0 );
  1861. cmDspInst_t* dur = cmDspSysAllocScalar( h, "dur", 0.0, 10000.0, 1.0, 0.0 );
  1862. cmDspInst_t* reset = cmDspSysAllocButton(h, "reset", 0.0 );
  1863. cmDspInst_t* line = cmDspSysAllocInst( h, "Line", NULL, 3, 0.0, 10.0, 1000.0 );
  1864. cmDspInst_t* mtr = cmDspSysAllocInst( h, "Meter", NULL, 3, -10.0, 10.0, 0.0 );
  1865. cmDspInst_t* pr1 = cmDspSysAllocInst( h, "Printer", NULL, 1, ">" );
  1866. // check for allocation errors
  1867. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1868. goto errLabel;
  1869. cmDspSysInstallCb( h, beg, "val", line, "beg",NULL);
  1870. cmDspSysInstallCb( h, end, "val", line, "end",NULL);
  1871. cmDspSysInstallCb( h, dur, "val", line, "dur",NULL);
  1872. cmDspSysInstallCb( h, line, "out", mtr, "in", NULL );
  1873. cmDspSysInstallCb( h, reset, "sym", line, "cmd", NULL );
  1874. cmDspSysInstallCb( h, line, "out", pr1, "in", NULL );
  1875. errLabel:
  1876. return rc;
  1877. }
  1878. cmDspRC_t _cmDspSysPgm_Array( cmDspSysH_t h, void** userPtrPtr )
  1879. {
  1880. cmDspRC_t rc = kOkDspRC;
  1881. unsigned cnt = 0;
  1882. const cmChar_t* rsrcLabelStr = "test";
  1883. if( cmDspRsrcArrayCount( h, &cnt, rsrcLabelStr, NULL ) != kOkDspRC )
  1884. return cmErrMsg(&cmDspSysPgmCtx(h)->err,kPgmCfgFailDspRC,"The resource '%s' could not be read.",rsrcLabelStr);
  1885. cmDspInst_t* printBtn = cmDspSysAllocButton( h, "print", 0.0 );
  1886. cmDspInst_t* sendBtn = cmDspSysAllocButton( h, "send", 0.0 );
  1887. cmDspInst_t* cntBtn = cmDspSysAllocButton( h, "count", 0.0 );
  1888. cmDspInst_t* offsCtl = cmDspSysAllocScalar( h, "offset",0.0, 128.0, 1.0, 60.0 );
  1889. cmDspInst_t* array = cmDspSysAllocInst( h, "Array", NULL, 1, rsrcLabelStr );
  1890. cmDspInst_t** pcvt = cmDspSysAllocInstArray( h, cnt, "PitchCvt", NULL, NULL, 0 );
  1891. cmDspInst_t* printer = cmDspSysAllocInst( h, "Printer", NULL, 1, ">" );
  1892. cmDspSysInstallCb( h, printBtn, "sym", array, "cmd", NULL );
  1893. cmDspSysInstallCb( h, sendBtn, "sym", array, "cmd", NULL );
  1894. cmDspSysInstallCb( h, cntBtn, "sym", array, "cmd", NULL );
  1895. cmDspSysInstallCb11N1( h, offsCtl, "val", pcvt, "offs", cnt );
  1896. cmDspSysInstallCb1NN1( h, array, "out", pcvt, "midi", cnt );
  1897. cmDspSysInstallCbN111( h, pcvt, "midi", printer, "in", cnt );
  1898. cmDspSysInstallCb( h, array, "cnt", printer, "in", NULL );
  1899. return rc;
  1900. }
  1901. cmDspRC_t _cmDspSysPgm_SegLine( cmDspSysH_t h, void** userPtrPtr )
  1902. {
  1903. cmDspRC_t rc = kOkDspRC;
  1904. cmDspInst_t* btn = cmDspSysAllocButton( h, "Trig", 0.0 );
  1905. cmDspInst_t* sline = cmDspSysAllocInst( h, "SegLine", NULL, 1, "array" );
  1906. cmDspInst_t* printer = cmDspSysAllocInst( h, "Printer", NULL, 1, ">" );
  1907. // check for allocation errors
  1908. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1909. goto errLabel;
  1910. cmDspSysInstallCb( h, btn, "sym", sline, "trig", NULL );
  1911. cmDspSysInstallCb( h, sline, "out", printer, "in", NULL );
  1912. errLabel:
  1913. return rc;
  1914. }
  1915. cmDspRC_t _cmDspSysPgm_AvailCh( cmDspSysH_t h, void** userPtrPtr )
  1916. {
  1917. double frqHz = 440.0;
  1918. unsigned xfadeChCnt = 2;
  1919. double xfadeMs = 250.0;
  1920. bool xfadeInitFl = false;
  1921. const char* fn = "/home/kevin/media/audio/20110723-Kriesberg/Audio Files/Piano 3_01.wav";
  1922. cmDspInst_t* chk0 = cmDspSysAllocInst(h,"Button", "0", 2, kButtonDuiId, 0.0 );
  1923. //cmDspInst_t* chk1 = cmDspSysAllocInst(h,"Button", "1", 2, kCheckDuiId, 0.0 );
  1924. cmDspInst_t* achp = cmDspSysAllocInst( h, "AvailCh", NULL, 1, xfadeChCnt );
  1925. cmDspInst_t* sphp = cmDspSysAllocInst( h, "Phasor", NULL, 2, cmDspSysSampleRate(h), frqHz );
  1926. cmDspInst_t* swtp = cmDspSysAllocInst( h, "WaveTable", NULL, 2, ((int)cmDspSysSampleRate(h)), 4);
  1927. cmDspInst_t* fphp = cmDspSysAllocInst( h, "Phasor", NULL, 1, cmDspSysSampleRate(h) );
  1928. cmDspInst_t* fwtp = cmDspSysAllocInst( h, "WaveTable", NULL, 5, ((int)cmDspSysSampleRate(h)), 1, fn, -1, 7000000 );
  1929. cmDspInst_t* fad0 = cmDspSysAllocInst( h, "Xfader", NULL, 3, xfadeChCnt, xfadeMs, xfadeInitFl );
  1930. //cmDspInst_t* prp = cmDspSysAllocInst( h, "Printer", NULL, 1, ">" );
  1931. cmDspInst_t* ao0p = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 0 );
  1932. cmDspInst_t* ao1p = cmDspSysAllocInst(h,"AudioOut", NULL, 1, 1 );
  1933. // phasor->sine->fad-0->aout
  1934. cmDspSysConnectAudio(h, sphp, "out", swtp, "phs" );
  1935. cmDspSysConnectAudio(h, swtp, "out", fad0, "in-0" );
  1936. cmDspSysConnectAudio(h, fad0, "out-0", ao0p, "in" );
  1937. // phasor->file->fad-1->aout
  1938. cmDspSysConnectAudio(h, fphp, "out", fwtp, "phs" );
  1939. cmDspSysConnectAudio(h, fwtp, "out", fad0, "in-1" );
  1940. cmDspSysConnectAudio(h, fad0, "out-1", ao1p, "in" );
  1941. //cmDspSysInstallCb(h, chk0, "out", fad0, "gate-0", NULL);
  1942. //cmDspSysInstallCb(h, chk1, "out", fad0, "gate-1", NULL);
  1943. cmDspSysInstallCb(h, chk0, "sym", achp, "trig", NULL);
  1944. cmDspSysInstallCb(h, achp, "gate-0", fad0, "gate-0", NULL );
  1945. cmDspSysInstallCb(h, fad0, "state-0", achp, "dis-0", NULL );
  1946. cmDspSysInstallCb(h, achp, "gate-1", fad0, "gate-1", NULL );
  1947. cmDspSysInstallCb(h, fad0, "state-1", achp, "dis-1", NULL );
  1948. return kOkDspRC;
  1949. }
  1950. cmDspRC_t _cmDspSysPgm_Goertzel( cmDspSysH_t h, void** userPtrPtr )
  1951. {
  1952. cmDspRC_t rc;
  1953. const unsigned chCnt = 8;
  1954. unsigned hopFact = 2;
  1955. double dfltHz = 18000.0;
  1956. unsigned sigGenMode = 2; // sine
  1957. double sigGenGain = 0.9;
  1958. double dfltMixGain = 1.0/chCnt;
  1959. double fcHzV[chCnt];
  1960. unsigned i;
  1961. for(i=0; i<chCnt; ++i)
  1962. fcHzV[i] = 18000.0 + (20000.0-18000.0) * i /chCnt;
  1963. cmDspInst_t* ain = cmDspSysAllocAudioIn( h, 0, 1.0);
  1964. cmDspInst_t* amtr = cmDspSysAllocInst( h, "AMeter", "In", 0 );
  1965. cmDspInst_t* goer = cmDspSysAllocInst( h, "Goertzel", NULL, 3, hopFact, chCnt, fcHzV );
  1966. cmDspSysNewColumn(h,0);
  1967. cmDspInst_t** mtrV = cmDspSysAllocInstArray(h, chCnt, "Meter", "Mtr", NULL, 3, 0.0, 0.0, 1.0 );
  1968. cmDspInst_t** sgV = cmDspSysAllocInstArray(h, chCnt, "SigGen", "SG", NULL, 2, dfltHz, sigGenMode, sigGenGain, 0 );
  1969. cmDspInst_t* mix = cmDspSysAllocInst( h, "AMix", NULL,1, chCnt );
  1970. cmDspInst_t* ao0 = cmDspSysAllocAudioOut( h, 0, 1.0);
  1971. cmDspInst_t* ao1 = cmDspSysAllocAudioOut( h, 0, 1.0);
  1972. cmDspSysNewColumn(h,0);
  1973. cmDspInst_t** hzV = cmDspSysAllocInstArray( h, chCnt, "Scalar", "Hz", NULL, 5, kNumberDuiId, 0.0, 22000.0, 100.0, dfltHz );
  1974. cmDspSysNewColumn(h,0);
  1975. cmDspInst_t** gnV = cmDspSysAllocInstArray( h, chCnt, "Scalar", "Gain", NULL, 5, kNumberDuiId, 0.0, 1.0, 0.01, dfltMixGain );
  1976. cmDspInst_t* igain = cmDspSysAllocScalar( h, "igain", 0.0, 3.0, 0.01, 1.0 );
  1977. cmDspInst_t* hop = cmDspSysAllocScalar( h, "hop", 0.0, 16.0, 1.0, 4.0 );
  1978. //cmDspInst_t* prnt = cmDspSysAllocInst( h,"Printer", NULL, 1, ">" );
  1979. // check for allocation errors
  1980. if((rc = cmDspSysLastRC(h)) != kOkDspRC )
  1981. goto errLabel;
  1982. cmDspSysConnectAudio(h,ain,"out", goer, "in" );
  1983. cmDspSysConnectAudio(h,ain,"out", amtr, "in" );
  1984. cmDspSysConnectAudioN11N(h,sgV, "out", mix, "in", chCnt );
  1985. cmDspSysConnectAudio(h,mix,"out", ao0, "in" );
  1986. cmDspSysConnectAudio(h,mix,"out", ao1, "in" );
  1987. cmDspSysInstallCb( h, igain, "val", ain, "gain", NULL);
  1988. cmDspSysInstallCbN1N1( h, hzV, "val", sgV, "hz", chCnt);
  1989. cmDspSysInstallCbN11N( h, hzV, "val", goer, "hz", chCnt );
  1990. cmDspSysInstallCbN11N( h, gnV, "val", mix, "gain", chCnt);
  1991. cmDspSysInstallCb1NN1( h, goer, "out", mtrV, "in", chCnt );
  1992. cmDspSysInstallCb( h, hop, "val", goer, "hop", NULL );
  1993. errLabel:
  1994. return rc;
  1995. }
  1996. _cmDspSysPgm_t _cmDspSysPgmArray[] =
  1997. {
  1998. { "time_line", _cmDspSysPgm_TimeLine, NULL, NULL },
  1999. { "goertzel", _cmDspSysPgm_Goertzel, NULL, NULL },
  2000. { "kr_live", _cmDspSysPgm_KrLive, NULL, NULL },
  2001. { "main", _cmDspSysPgm_Main, NULL, NULL },
  2002. { "array", _cmDspSysPgm_Array, NULL, NULL },
  2003. { "line", _cmDspSysPgm_Line, NULL, NULL },
  2004. { "1Up", _cmDspSysPgm_1Up, NULL, NULL },
  2005. { "PortToSym", _cmDspSysPgm_PortToSym, NULL, NULL },
  2006. { "preset", _cmDspSysPgm_Preset, NULL, NULL },
  2007. { "rsrcWr", _cmDspSysPgm_RsrcWr, NULL, NULL },
  2008. { "router", _cmDspSysPgm_Router, NULL, NULL },
  2009. { "1ofN", _cmDspSysPgm_1ofN, NULL, NULL },
  2010. { "NofM", _cmDspSysPgm_NofM, NULL, NULL },
  2011. { "whirl_net", _cmDspSysPgm_WhirlNet, NULL, NULL },
  2012. { "thunk_net", _cmDspSysPgm_ThunkNet, NULL, NULL },
  2013. { "seq", _cmDspSysPgm_Seq, NULL, NULL },
  2014. { "dist_ds", _cmDspSysPgm_DistDs, NULL, NULL },
  2015. { "bi_quad_eq", _cmDspSysPgm_BiQuadEq, NULL, NULL },
  2016. { "compressor", _cmDspSysPgm_Compressor, NULL, NULL },
  2017. { "adsr", _cmDspSysPgm_Adsr, NULL, NULL },
  2018. { "msg delay", _cmDspSysPgm_MsgDelay, NULL, NULL },
  2019. { "pickup rmod2", _cmDspSysPgm_RingMod2, NULL, NULL },
  2020. { "pickup rmod", _cmDspSysPgm_RingMod, NULL, NULL },
  2021. { "pickup tails", _cmDspSysPgm_NoiseTails, NULL, NULL },
  2022. { "tails_2", _cmDspSysPgm_NoiseTails2, NULL, NULL },
  2023. { "pickups", _cmDspSysPgm_Pickups0, NULL, NULL },
  2024. { "sync_recd", _cmDspSysPgm_SyncRecd, NULL, NULL },
  2025. { "midi_test", _cmDspSysPgm_Test_Midi, NULL, NULL },
  2026. { "2_thru", _cmDspSysPgm_Stereo_Through, NULL, NULL },
  2027. { "guitar", _cmDspSysPgmGuitar, NULL, NULL },
  2028. { "2_fx", _cmDspSysPgm_Stereo_Fx, NULL, NULL },
  2029. { "sine", _cmDspSysPgm_PlaySine, NULL, NULL },
  2030. { "file", _cmDspSysPgm_PlayFile, NULL, NULL },
  2031. { "gate_detect", _cmDspSysPgm_GateDetect, NULL, NULL },
  2032. { "record", _cmDspSysPgm_Record, NULL, NULL },
  2033. { "pitch_shift", _cmDspSysPgm_PitchShiftFile, NULL, NULL },
  2034. { "loop_recd", _cmDspSysPgm_LoopRecd, NULL, NULL },
  2035. { "ui_test", _cmDspSysPgm_UiTest, NULL, NULL },
  2036. { "xfade_test", _cmDspSysPgm_Xfade, NULL, NULL },
  2037. { "auto_gain", _cmDspSysPgm_AutoGain, NULL, NULL },
  2038. { "comb filt", _cmDspSysPgm_CombFilt, NULL, NULL },
  2039. { "scalar op", _cmDspSysPgm_ScalarOp, NULL, NULL },
  2040. { "seg_line", _cmDspSysPgm_SegLine, NULL, NULL },
  2041. { "avail_ch", _cmDspSysPgm_AvailCh, NULL, NULL },
  2042. { NULL , NULL, NULL, NULL }
  2043. };
  2044. _cmDspSysPgm_t* _cmDspSysPgmArrayBase()
  2045. {
  2046. return _cmDspSysPgmArray;
  2047. }