libcm is a C development framework with an emphasis on audio signal processing applications.
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

cmDspPgm.c 126KB

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