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

cmDspPgm.c 141KB

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