libcm is a C development framework with an emphasis on audio signal processing applications.
Du kannst nicht mehr als 25 Themen auswählen Themen müssen mit entweder einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.

cmDspPgm.c 106KB

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