libcm is a C development framework with an emphasis on audio signal processing applications.
您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符

cmMidiFile.c 46KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784
  1. #include "cmPrefix.h"
  2. #include "cmGlobal.h"
  3. #include "cmRpt.h"
  4. #include "cmErr.h"
  5. #include "cmCtx.h"
  6. #include "cmFile.h"
  7. #include "cmMem.h"
  8. #include "cmMallocDebug.h"
  9. #include "cmLinkedHeap.h"
  10. #include "cmTime.h"
  11. #include "cmMidi.h"
  12. #include "cmMidiFile.h"
  13. #ifdef cmBIG_ENDIAN
  14. #define mfSwap16(v) (v)
  15. #define mfSwap32(v) (v)
  16. #else
  17. #define mfSwap16(v) cmSwap16(v)
  18. #define mfSwap32(v) cmSwap32(v)
  19. #endif
  20. typedef struct
  21. {
  22. unsigned cnt; // count of track records
  23. cmMidiTrackMsg_t* base; // pointer to first track recd
  24. cmMidiTrackMsg_t* last; // pointer to last track recd
  25. } _cmMidiTrack_t;
  26. typedef struct
  27. {
  28. cmErr_t err; // this objects error object
  29. cmLHeapH_t lhH; // linked heap used for all dynamically alloc'd data space
  30. cmFileH_t fh; // cmFile handle (only used in fmMidiFileOpen() and cmMidiFileWrite())
  31. unsigned short fmtId; // midi file type id: 0,1,2
  32. unsigned short ticksPerQN; // ticks per quarter note or 0 if smpteFmtId is valid
  33. cmMidiByte_t smpteFmtId; // smpte format or 0 if ticksPerQN is valid
  34. cmMidiByte_t smpteTicksPerFrame; // smpte ticks per frame or 0 if ticksPerQN is valid
  35. unsigned short trkN; // track count
  36. _cmMidiTrack_t* trkV; // track vector
  37. char* fn; // file name or NULL if this object did not originate from a file
  38. unsigned msgN; // count of msg's in msgV[]
  39. cmMidiTrackMsg_t** msgV; // sorted msg list
  40. unsigned nextUid; // next available msg uid
  41. } _cmMidiFile_t;
  42. cmMidiFileH_t cmMidiFileNullHandle = cmSTATIC_NULL_HANDLE;
  43. _cmMidiFile_t* _cmMidiFileHandleToPtr( cmMidiFileH_t h )
  44. {
  45. _cmMidiFile_t* p = (_cmMidiFile_t*)h.h;
  46. assert( p != NULL );
  47. return p;
  48. }
  49. void* _cmMidiFileMalloc( _cmMidiFile_t* mfp, unsigned byteN )
  50. { return cmLHeapAllocZ(mfp->lhH,byteN); }
  51. cmMfRC_t _cmMidiFileRead8( _cmMidiFile_t* mfp, cmMidiByte_t* p )
  52. {
  53. if( cmFileReadUChar(mfp->fh,p,1) != kOkFileRC )
  54. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI byte read failed.");
  55. return kOkMfRC;
  56. }
  57. cmMfRC_t _cmMidiFileRead16( _cmMidiFile_t* mfp, unsigned short* p )
  58. {
  59. if( cmFileReadUShort(mfp->fh,p,1) != kOkFileRC )
  60. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI short read failed.");
  61. *p = mfSwap16(*p);
  62. return kOkMfRC;
  63. }
  64. cmMfRC_t _cmMidiFileRead24( _cmMidiFile_t* mfp, unsigned* p )
  65. {
  66. *p = 0;
  67. int i = 0;
  68. for(; i<3; ++i)
  69. {
  70. unsigned char c;
  71. if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
  72. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI 24 bit integer read failed.");
  73. *p = (*p << 8) + c;
  74. }
  75. //*p =mfSwap32(*p);
  76. return kOkMfRC;
  77. }
  78. cmMfRC_t _cmMidiFileRead32( _cmMidiFile_t* mfp, unsigned* p )
  79. {
  80. if( cmFileReadUInt(mfp->fh,p,1) != kOkFileRC )
  81. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI integer read failed.");
  82. *p = mfSwap32(*p);
  83. return kOkMfRC;
  84. }
  85. cmMfRC_t _cmMidiFileReadText( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigned byteN )
  86. {
  87. if( byteN == 0 )
  88. return kOkMfRC;
  89. char* t = (char*)_cmMidiFileMalloc(mfp,byteN+1);
  90. t[byteN] = 0;
  91. if( cmFileReadChar(mfp->fh,t,byteN) != kOkFileRC )
  92. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read text failed.");
  93. tmp->u.text = t;
  94. tmp->byteCnt = byteN;
  95. return kOkMfRC;
  96. }
  97. cmMfRC_t _cmMidiFileReadRecd( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigned byteN )
  98. {
  99. char* t = (char*)_cmMidiFileMalloc(mfp,byteN);
  100. if( cmFileReadChar(mfp->fh,t,byteN) != kOkFileRC )
  101. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read record failed.");
  102. tmp->byteCnt = byteN;
  103. tmp->u.voidPtr = t;
  104. return kOkMfRC;
  105. }
  106. cmMfRC_t _cmMidiFileReadVarLen( _cmMidiFile_t* mfp, unsigned* p )
  107. {
  108. unsigned char c;
  109. if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
  110. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read variable length integer failed.");
  111. if( !(c & 0x80) )
  112. *p = c;
  113. else
  114. {
  115. *p = c & 0x7f;
  116. do
  117. {
  118. if( cmFileReadUChar(mfp->fh,&c,1) != kOkFileRC )
  119. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI read variable length integer failed.");
  120. *p = (*p << 7) + (c & 0x7f);
  121. }while( c & 0x80 );
  122. }
  123. return kOkMfRC;
  124. }
  125. cmMidiTrackMsg_t* _cmMidiFileAllocMsg( _cmMidiFile_t* mfp, unsigned short trkIdx, unsigned dtick, cmMidiByte_t status )
  126. {
  127. cmMidiTrackMsg_t* tmp = (cmMidiTrackMsg_t*)_cmMidiFileMalloc(mfp, sizeof(cmMidiTrackMsg_t) );
  128. // set the generic track record fields
  129. tmp->dtick = dtick;
  130. tmp->status = status;
  131. tmp->metaId = kInvalidMetaMdId;
  132. tmp->trkIdx = trkIdx;
  133. tmp->byteCnt = 0;
  134. tmp->uid = mfp->nextUid++;
  135. return tmp;
  136. }
  137. cmMfRC_t _cmMidiFileAppendTrackMsg( _cmMidiFile_t* mfp, unsigned short trkIdx, unsigned dtick, cmMidiByte_t status, cmMidiTrackMsg_t** trkMsgPtrPtr )
  138. {
  139. cmMidiTrackMsg_t* tmp = _cmMidiFileAllocMsg( mfp, trkIdx, dtick, status );
  140. // link new record onto track record chain
  141. if( mfp->trkV[trkIdx].base == NULL )
  142. mfp->trkV[trkIdx].base = tmp;
  143. else
  144. mfp->trkV[trkIdx].last->link = tmp;
  145. mfp->trkV[trkIdx].last = tmp;
  146. mfp->trkV[trkIdx].cnt++;
  147. *trkMsgPtrPtr = tmp;
  148. return kOkMfRC;
  149. }
  150. cmMfRC_t _cmMidiFileReadSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp, unsigned byteN )
  151. {
  152. cmMfRC_t rc = kOkMfRC;
  153. cmMidiByte_t b = 0;
  154. if( byteN == cmInvalidCnt )
  155. {
  156. long offs;
  157. if( cmFileTell(mfp->fh,&offs) != kOkFileRC )
  158. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI File 'tell' failed.");
  159. byteN = 0;
  160. // get the length of the sys-ex msg
  161. while( !cmFileEof(mfp->fh) && (b != kSysComEoxMdId) )
  162. {
  163. if((rc = _cmMidiFileRead8(mfp,&b)) != kOkMfRC )
  164. return rc;
  165. ++byteN;
  166. }
  167. // verify that the EOX byte was found
  168. if( b != kSysComEoxMdId )
  169. return cmErrMsg(&mfp->err,kMissingEoxMfRC,"MIDI file missing 'end-of-sys-ex'.");
  170. // rewind to the beginning of the msg
  171. if( cmFileSeek(mfp->fh,kBeginFileFl,offs) != kOkFileRC )
  172. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file seek failed on sys-ex read.");
  173. }
  174. // allocate memory to hold the sys-ex msg
  175. cmMidiByte_t* mp = (cmMidiByte_t *)_cmMidiFileMalloc(mfp, byteN );
  176. // read the sys-ex msg from the file into msg memory
  177. if( cmFileReadUChar(mfp->fh,mp,byteN) != kOkFileRC )
  178. return cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI sys-ex read failed.");
  179. tmp->byteCnt = byteN;
  180. tmp->u.sysExPtr = mp;
  181. return rc;
  182. }
  183. cmMfRC_t _cmMidiFileReadChannelMsg( _cmMidiFile_t* mfp, cmMidiByte_t* rsPtr, cmMidiByte_t status, cmMidiTrackMsg_t* tmp )
  184. {
  185. cmMfRC_t rc = kOkMfRC;
  186. cmMidiChMsg_t* p = (cmMidiChMsg_t*)_cmMidiFileMalloc(mfp,sizeof(cmMidiChMsg_t));
  187. unsigned useRsFl = status <= 0x7f;
  188. cmMidiByte_t statusCh = useRsFl ? *rsPtr : status;
  189. if( useRsFl )
  190. p->d0 = status;
  191. else
  192. *rsPtr = status;
  193. tmp->byteCnt = sizeof(cmMidiChMsg_t);
  194. tmp->status = statusCh & 0xf0;
  195. p->ch = statusCh & 0x0f;
  196. p->durMicros = 0;
  197. unsigned byteN = cmMidiStatusToByteCount(tmp->status);
  198. if( byteN==kInvalidMidiByte || byteN > 2 )
  199. return cmErrMsg(&mfp->err,kInvalidStatusMfRC,"Invalid status:0x%x %i.",tmp->status,tmp->status);
  200. unsigned i;
  201. for(i=useRsFl; i<byteN; ++i)
  202. {
  203. cmMidiByte_t* b = i==0 ? &p->d0 : &p->d1;
  204. if((rc = _cmMidiFileRead8(mfp,b)) != kOkMfRC )
  205. return rc;
  206. }
  207. // convert note-on velocity=0 to note off
  208. if( tmp->status == kNoteOnMdId && p->d1==0 )
  209. tmp->status = kNoteOffMdId;
  210. tmp->u.chMsgPtr = p;
  211. return rc;
  212. }
  213. cmMfRC_t _cmMidiFileReadMetaMsg( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp )
  214. {
  215. cmMidiByte_t metaId;
  216. cmMfRC_t rc;
  217. unsigned byteN = 0;
  218. if((rc = _cmMidiFileRead8(mfp,&metaId)) != kOkMfRC )
  219. return rc;
  220. if((rc = _cmMidiFileReadVarLen(mfp,&byteN)) != kOkMfRC )
  221. return rc;
  222. //printf("mt: %i 0x%x n:%i\n",metaId,metaId,byteN);
  223. switch( metaId )
  224. {
  225. case kSeqNumbMdId: rc = _cmMidiFileRead16(mfp,&tmp->u.sVal); break;
  226. case kTextMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  227. case kCopyMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  228. case kTrkNameMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  229. case kInstrNameMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  230. case kLyricsMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  231. case kMarkerMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  232. case kCuePointMdId: rc = _cmMidiFileReadText(mfp,tmp,byteN); break;
  233. case kMidiChMdId: rc = _cmMidiFileRead8(mfp,&tmp->u.bVal); break;
  234. case kEndOfTrkMdId: break;
  235. case kTempoMdId: rc = _cmMidiFileRead24(mfp,&tmp->u.iVal); break;
  236. case kSmpteMdId: rc = _cmMidiFileReadRecd(mfp,tmp,sizeof(cmMidiSmpte_t)); break;
  237. case kTimeSigMdId: rc = _cmMidiFileReadRecd(mfp,tmp,sizeof(cmMidiTimeSig_t)); break;
  238. case kKeySigMdId: rc = _cmMidiFileReadRecd(mfp,tmp,sizeof(cmMidiKeySig_t)); break;
  239. case kSeqSpecMdId: rc = _cmMidiFileReadSysEx(mfp,tmp,byteN); break;
  240. default:
  241. cmFileSeek(mfp->fh,kCurFileFl,byteN);
  242. rc = cmErrMsg(&mfp->err,kUnknownMetaIdMfRC,"Unknown meta status:0x%x %i.",metaId,metaId);
  243. }
  244. tmp->metaId = metaId;
  245. return rc;
  246. }
  247. cmMfRC_t _cmMidiFileReadTrack( _cmMidiFile_t* mfp, unsigned short trkIdx )
  248. {
  249. cmMfRC_t rc = kOkMfRC;
  250. unsigned dticks = 0;
  251. cmMidiByte_t status;
  252. cmMidiByte_t runstatus = 0;
  253. bool contFl = true;
  254. while( contFl && (rc==kOkMfRC))
  255. {
  256. cmMidiTrackMsg_t* tmp = NULL;
  257. // read the tick count
  258. if((rc = _cmMidiFileReadVarLen(mfp,&dticks)) != kOkMfRC )
  259. return rc;
  260. // read the status byte
  261. if((rc = _cmMidiFileRead8(mfp,&status)) != kOkMfRC )
  262. return rc;
  263. //printf("st:%i 0x%x\n",status,status);
  264. // append a track msg
  265. if((rc = _cmMidiFileAppendTrackMsg( mfp, trkIdx, dticks, status, &tmp )) != kOkMfRC )
  266. return rc;
  267. // switch on status
  268. switch( status )
  269. {
  270. // handle sys-ex msg
  271. case kSysExMdId:
  272. rc = _cmMidiFileReadSysEx(mfp,tmp,cmInvalidCnt);
  273. break;
  274. // handle meta msg
  275. case kMetaStId:
  276. rc = _cmMidiFileReadMetaMsg(mfp,tmp);
  277. // ignore unknown meta messages
  278. if( rc == kUnknownMetaIdMfRC )
  279. rc = kOkMfRC;
  280. contFl = tmp->metaId != kEndOfTrkMdId;
  281. break;
  282. default:
  283. // handle channel msg
  284. rc = _cmMidiFileReadChannelMsg(mfp,&runstatus,status,tmp);
  285. }
  286. }
  287. return rc;
  288. }
  289. cmMfRC_t _cmMidiFileReadHdr( _cmMidiFile_t* mfp )
  290. {
  291. cmMfRC_t rc;
  292. unsigned fileId;
  293. unsigned chunkByteN;
  294. // read the file id
  295. if((rc = _cmMidiFileRead32(mfp,&fileId)) != kOkMfRC )
  296. return rc;
  297. // verify the file id
  298. if( fileId != 'MThd' )
  299. return cmErrMsg(&mfp->err,kNotAMidiFileMfRC,"");
  300. // read the file chunk byte count
  301. if((rc = _cmMidiFileRead32(mfp,&chunkByteN)) != kOkMfRC )
  302. return rc;
  303. // read the format id
  304. if((rc = _cmMidiFileRead16(mfp,&mfp->fmtId)) != kOkMfRC )
  305. return rc;
  306. // read the track count
  307. if((rc = _cmMidiFileRead16(mfp,&mfp->trkN)) != kOkMfRC )
  308. return rc;
  309. // read the ticks per quarter note
  310. if((rc = _cmMidiFileRead16(mfp,&mfp->ticksPerQN)) != kOkMfRC )
  311. return rc;
  312. // if the division field was given in smpte
  313. if( mfp->ticksPerQN & 0x8000 )
  314. {
  315. mfp->smpteFmtId = (mfp->ticksPerQN & 0x7f00) >> 8;
  316. mfp->smpteTicksPerFrame = (mfp->ticksPerQN & 0xFF);
  317. mfp->ticksPerQN = 0;
  318. }
  319. // allocate and zero the track array
  320. if( mfp->trkN )
  321. mfp->trkV = _cmMidiFileMalloc( mfp, sizeof(_cmMidiTrack_t)*mfp->trkN);
  322. return rc;
  323. }
  324. int _cmMidiFileSortFunc( const void *p0, const void* p1 )
  325. {
  326. if( (*(cmMidiTrackMsg_t**)p0)->atick == (*(cmMidiTrackMsg_t**)p1)->atick )
  327. return 0;
  328. return (*(cmMidiTrackMsg_t**)p0)->atick < (*(cmMidiTrackMsg_t**)p1)->atick ? -1 : 1;
  329. }
  330. // Set the absolute accumulated ticks (atick) value of each track message.
  331. // The absolute accumulated ticks gives a global time ordering for all
  332. // messages in the file.
  333. void _cmMidiFileSetAccumulateTicks( _cmMidiFile_t* p )
  334. {
  335. cmMidiTrackMsg_t* nextTrkMsg[ p->trkN ]; // next msg in each track
  336. unsigned long long atick = 0;
  337. unsigned i;
  338. bool fl = true;
  339. // iniitalize nextTrkTick[] and nextTrkMsg[].
  340. for(i=0; i<p->trkN; ++i)
  341. if((nextTrkMsg[i] = p->trkV[i].base) != NULL )
  342. nextTrkMsg[i]->atick = nextTrkMsg[i]->dtick;
  343. while(1)
  344. {
  345. unsigned k = cmInvalidIdx;
  346. // find the trk which has the next msg (min atick time)
  347. for(i=0; i<p->trkN; ++i)
  348. if( nextTrkMsg[i]!=NULL && (k==cmInvalidIdx || nextTrkMsg[i]->atick < nextTrkMsg[k]->atick) )
  349. k = i;
  350. // no next msg was found - we're done
  351. if( k == cmInvalidIdx )
  352. break;
  353. if( fl && nextTrkMsg[k]->dtick > 0 )
  354. {
  355. fl = false;
  356. nextTrkMsg[k]->dtick = 1;
  357. nextTrkMsg[k]->atick = 1;
  358. }
  359. // store the current atick
  360. atick = nextTrkMsg[k]->atick;
  361. // advance the selected track to it's next message
  362. nextTrkMsg[k] = nextTrkMsg[k]->link;
  363. // set the selected tracks next atick time
  364. if( nextTrkMsg[k] != NULL )
  365. nextTrkMsg[k]->atick = atick + nextTrkMsg[k]->dtick;
  366. }
  367. }
  368. void _cmMidiFileSetAbsoluteTime( _cmMidiFile_t* mfp )
  369. {
  370. double microsPerQN = 60000000/120; // default tempo;
  371. double microsPerTick = microsPerQN / mfp->ticksPerQN;
  372. unsigned long long amicro = 0;
  373. unsigned i;
  374. for(i=0; i<mfp->msgN; ++i)
  375. {
  376. cmMidiTrackMsg_t* mp = mfp->msgV[i];
  377. unsigned dtick = 0;
  378. if( i > 0 )
  379. {
  380. // atick must have already been set and sorted
  381. assert( mp->atick >= mfp->msgV[i-1]->atick );
  382. dtick = mp->atick - mfp->msgV[i-1]->atick;
  383. }
  384. amicro += microsPerTick * dtick;
  385. mp->amicro = amicro;
  386. // track tempo changes
  387. if( mp->status == kMetaStId && mp->metaId == kTempoMdId )
  388. microsPerTick = mp->u.iVal / mfp->ticksPerQN;
  389. }
  390. }
  391. cmMfRC_t _cmMidiFileClose( _cmMidiFile_t* mfp )
  392. {
  393. cmMfRC_t rc = kOkMfRC;
  394. if( mfp == NULL )
  395. return rc;
  396. cmMemPtrFree(&mfp->msgV);
  397. if( cmFileIsValid( mfp->fh ) )
  398. if( cmFileClose( &mfp->fh ) != kOkFileRC )
  399. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file close failed.");
  400. if( cmLHeapIsValid( mfp->lhH ) )
  401. cmLHeapDestroy(&mfp->lhH);
  402. cmMemPtrFree(&mfp);
  403. return rc;
  404. }
  405. void _cmMidiFileLinearize( _cmMidiFile_t* mfp )
  406. {
  407. unsigned trkIdx,i,j;
  408. // get the total trk msg count
  409. mfp->msgN = 0;
  410. for(trkIdx=0; trkIdx<mfp->trkN; ++trkIdx)
  411. mfp->msgN += mfp->trkV[ trkIdx ].cnt;
  412. // allocate the trk msg index vector: msgV[]
  413. mfp->msgV = cmMemResizeZ(cmMidiTrackMsg_t*, mfp->msgV, mfp->msgN);
  414. // store a pointer to every trk msg in msgV[]
  415. for(i=0,j=0; i<mfp->trkN; ++i)
  416. {
  417. cmMidiTrackMsg_t* m = mfp->trkV[i].base;
  418. for(; m!=NULL; m=m->link)
  419. {
  420. assert( j < mfp->msgN );
  421. mfp->msgV[j++] = m;
  422. }
  423. }
  424. // set the atick value in each msg
  425. _cmMidiFileSetAccumulateTicks(mfp);
  426. // sort msgV[] in ascending order on atick
  427. qsort( mfp->msgV, mfp->msgN, sizeof(cmMidiTrackMsg_t*), _cmMidiFileSortFunc );
  428. // set the amicro value in each msg
  429. _cmMidiFileSetAbsoluteTime(mfp);
  430. }
  431. cmMfRC_t cmMidiFileOpen( cmCtx_t* ctx, cmMidiFileH_t* hPtr, const char* fn )
  432. {
  433. cmMfRC_t rc = kOkMfRC;
  434. _cmMidiFile_t* mfp = NULL;
  435. unsigned short trkIdx = 0;
  436. cmErr_t err;
  437. if( cmMidiFileIsValid(*hPtr) )
  438. if((rc = _cmMidiFileClose(_cmMidiFileHandleToPtr(*hPtr))) != kOkMfRC )
  439. return rc;
  440. cmErrSetup(&err,&ctx->rpt,"MIDI File");
  441. // allocate the midi file object
  442. if(( mfp = cmMemAllocZ( _cmMidiFile_t, 1)) == NULL )
  443. return rc = cmErrMsg(&err,kMemAllocFailMfRC,"MIDI file memory allocation failed.");
  444. cmErrClone(&mfp->err,&err);
  445. // allocate the linked heap
  446. if( cmLHeapIsValid( mfp->lhH = cmLHeapCreate( 1024, ctx )) == false )
  447. {
  448. rc = cmErrMsg(&err,kMemAllocFailMfRC,"MIDI heap allocation failed.");
  449. goto errLabel;
  450. }
  451. // open the file
  452. if(cmFileOpen(&mfp->fh,fn,kReadFileFl | kBinaryFileFl,mfp->err.rpt) != kOkFileRC )
  453. {
  454. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file open failed.");
  455. goto errLabel;
  456. }
  457. // read header and setup track array
  458. if(( rc = _cmMidiFileReadHdr(mfp)) != kOkMfRC )
  459. goto errLabel;
  460. while( !cmFileEof(mfp->fh) && trkIdx < mfp->trkN )
  461. {
  462. unsigned chkId = 0,chkN=0;
  463. // read the chunk id
  464. if((rc = _cmMidiFileRead32(mfp,&chkId)) != kOkMfRC )
  465. goto errLabel;
  466. // read the chunk size
  467. if((rc = _cmMidiFileRead32(mfp,&chkN)) != kOkMfRC )
  468. goto errLabel;
  469. // if this is not a trk chunk then skip it
  470. if( chkId != (unsigned)'MTrk')
  471. {
  472. //if( fseek( mfp->fp, chkN, SEEK_CUR) != 0 )
  473. if( cmFileSeek(mfp->fh,kCurFileFl,chkN) != kOkFileRC )
  474. {
  475. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file seek failed.");
  476. goto errLabel;
  477. }
  478. }
  479. else
  480. {
  481. if((rc = _cmMidiFileReadTrack(mfp,trkIdx)) != kOkMfRC )
  482. goto errLabel;
  483. ++trkIdx;
  484. }
  485. }
  486. // store the file name
  487. mfp->fn = _cmMidiFileMalloc(mfp,strlen(fn)+1);
  488. assert( mfp->fn != NULL );
  489. strcpy(mfp->fn,fn);
  490. _cmMidiFileLinearize(mfp);
  491. hPtr->h = mfp;
  492. errLabel:
  493. if( cmFileClose(&mfp->fh) != kOkFileRC )
  494. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file close failed.");
  495. if( rc != kOkMfRC )
  496. _cmMidiFileClose(mfp);
  497. return rc;
  498. }
  499. cmMfRC_t cmMidiFileClose( cmMidiFileH_t* h )
  500. {
  501. cmMfRC_t rc;
  502. if( cmMidiFileIsNull(*h) )
  503. return kOkMfRC;
  504. if((rc = _cmMidiFileClose(_cmMidiFileHandleToPtr(*h))) == kOkMfRC )
  505. return rc;
  506. h->h = NULL;
  507. return rc;
  508. }
  509. cmMfRC_t _cmMidiFileWrite8( _cmMidiFile_t* mfp, unsigned char v )
  510. {
  511. cmMfRC_t rc = kOkMfRC;
  512. if( cmFileWriteUChar(mfp->fh,&v,1) != kOkFileRC )
  513. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file byte write failed.");
  514. return rc;
  515. }
  516. cmMfRC_t _cmMidiFileWrite16( _cmMidiFile_t* mfp, unsigned short v )
  517. {
  518. cmMfRC_t rc = kOkMfRC;
  519. v = mfSwap16(v);
  520. if( cmFileWriteUShort(mfp->fh,&v,1) != kOkFileRC )
  521. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file short integer write failed.");
  522. return rc;
  523. }
  524. cmMfRC_t _cmMidiFileWrite24( _cmMidiFile_t* mfp, unsigned v )
  525. {
  526. cmMfRC_t rc = kOkMfRC;
  527. unsigned mask = 0xff0000;
  528. int i;
  529. for(i = 2; i>=0; --i)
  530. {
  531. unsigned char c = (v & mask) >> (i*8);
  532. mask >>= 8;
  533. if( cmFileWriteUChar(mfp->fh,&c,1) != kOkFileRC )
  534. {
  535. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file 24 bit integer write failed.");
  536. goto errLabel;
  537. }
  538. }
  539. errLabel:
  540. return rc;
  541. }
  542. cmMfRC_t _cmMidiFileWrite32( _cmMidiFile_t* mfp, unsigned v )
  543. {
  544. cmMfRC_t rc = kOkMfRC;
  545. v = mfSwap32(v);
  546. if( cmFileWriteUInt(mfp->fh,&v,1) != kOkFileRC )
  547. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file integer write failed.");
  548. return rc;
  549. }
  550. cmMfRC_t _cmMidiFileWriteRecd( _cmMidiFile_t* mfp, const void* v, unsigned byteCnt )
  551. {
  552. cmMfRC_t rc = kOkMfRC;
  553. if( cmFileWriteChar(mfp->fh,v,byteCnt) != kOkFileRC )
  554. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file write record failed.");
  555. return rc;
  556. }
  557. cmMfRC_t _cmMidiFileWriteVarLen( _cmMidiFile_t* mfp, unsigned v )
  558. {
  559. cmMfRC_t rc = kOkMfRC;
  560. unsigned buf = v & 0x7f;
  561. while((v >>= 7) > 0 )
  562. {
  563. buf <<= 8;
  564. buf |= 0x80;
  565. buf += (v & 0x7f);
  566. }
  567. while(1)
  568. {
  569. unsigned char c = (unsigned char)(buf & 0xff);
  570. if( cmFileWriteUChar(mfp->fh,&c,1) != kOkFileRC )
  571. {
  572. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"MIDI file variable length integer write failed.");
  573. goto errLabel;
  574. }
  575. if( buf & 0x80 )
  576. buf >>= 8;
  577. else
  578. break;
  579. }
  580. errLabel:
  581. return rc;
  582. }
  583. cmMfRC_t _cmMidiFileWriteHdr( _cmMidiFile_t* mfp )
  584. {
  585. cmMfRC_t rc;
  586. unsigned fileId = 'MThd';
  587. unsigned chunkByteN = 6;
  588. // write the file id ('MThd')
  589. if((rc = _cmMidiFileWrite32(mfp,fileId)) != kOkMfRC )
  590. return rc;
  591. // write the file chunk byte count (always 6)
  592. if((rc = _cmMidiFileWrite32(mfp,chunkByteN)) != kOkMfRC )
  593. return rc;
  594. // write the MIDI file format id (0,1,2)
  595. if((rc = _cmMidiFileWrite16(mfp,mfp->fmtId)) != kOkMfRC )
  596. return rc;
  597. // write the track count
  598. if((rc = _cmMidiFileWrite16(mfp,mfp->trkN)) != kOkMfRC )
  599. return rc;
  600. unsigned short v = 0;
  601. // if the ticks per quarter note field is valid ...
  602. if( mfp->ticksPerQN )
  603. v = mfp->ticksPerQN;
  604. else
  605. {
  606. // ... otherwise the division field was given in smpte
  607. v = mfp->smpteFmtId << 8;
  608. v += mfp->smpteTicksPerFrame;
  609. }
  610. if((rc = _cmMidiFileWrite16(mfp,v)) != kOkMfRC )
  611. return rc;
  612. return rc;
  613. }
  614. cmMfRC_t _cmMidiFileWriteSysEx( _cmMidiFile_t* mfp, cmMidiTrackMsg_t* tmp )
  615. {
  616. cmMfRC_t rc = kOkMfRC;
  617. if((rc = _cmMidiFileWrite8(mfp,kSysExMdId)) != kOkMfRC )
  618. goto errLabel;
  619. if( cmFileWriteUChar(mfp->fh,tmp->u.sysExPtr,tmp->byteCnt) != kOkFileRC )
  620. rc = cmErrMsg(&mfp->err,kFileFailMfRC,"Sys-ex msg write failed.");
  621. errLabel:
  622. return rc;
  623. }
  624. cmMfRC_t _cmMidiFileWriteChannelMsg( _cmMidiFile_t* mfp, const cmMidiTrackMsg_t* tmp, cmMidiByte_t* runStatus )
  625. {
  626. cmMfRC_t rc = kOkMfRC;
  627. unsigned byteN = cmMidiStatusToByteCount(tmp->status);
  628. cmMidiByte_t status = tmp->status + tmp->u.chMsgPtr->ch;
  629. if( status != *runStatus )
  630. {
  631. *runStatus = status;
  632. if((rc = _cmMidiFileWrite8(mfp,status)) != kOkMfRC )
  633. goto errLabel;
  634. }
  635. if(byteN>=1)
  636. if((rc = _cmMidiFileWrite8(mfp,tmp->u.chMsgPtr->d0)) != kOkMfRC )
  637. goto errLabel;
  638. if(byteN>=2)
  639. if((rc = _cmMidiFileWrite8(mfp,tmp->u.chMsgPtr->d1)) != kOkMfRC )
  640. goto errLabel;
  641. errLabel:
  642. return rc;
  643. }
  644. cmMfRC_t _cmMidiFileWriteMetaMsg( _cmMidiFile_t* mfp, const cmMidiTrackMsg_t* tmp )
  645. {
  646. cmMfRC_t rc;
  647. if((rc = _cmMidiFileWrite8(mfp,kMetaStId)) != kOkMfRC )
  648. return rc;
  649. if((rc = _cmMidiFileWrite8(mfp,tmp->metaId)) != kOkMfRC )
  650. return rc;
  651. switch( tmp->metaId )
  652. {
  653. case kSeqNumbMdId:
  654. if((rc = _cmMidiFileWrite8(mfp,sizeof(tmp->u.sVal))) == kOkMfRC )
  655. rc = _cmMidiFileWrite16(mfp,tmp->u.sVal);
  656. break;
  657. case kTempoMdId:
  658. if((rc = _cmMidiFileWrite8(mfp,3)) == kOkMfRC )
  659. rc = _cmMidiFileWrite24(mfp,tmp->u.iVal);
  660. break;
  661. case kSmpteMdId:
  662. if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiSmpte_t))) == kOkMfRC )
  663. rc = _cmMidiFileWriteRecd(mfp,tmp->u.smptePtr,sizeof(cmMidiSmpte_t));
  664. break;
  665. case kTimeSigMdId:
  666. if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiTimeSig_t))) == kOkMfRC )
  667. rc = _cmMidiFileWriteRecd(mfp,tmp->u.timeSigPtr,sizeof(cmMidiTimeSig_t));
  668. break;
  669. case kKeySigMdId:
  670. if((rc = _cmMidiFileWrite8(mfp,sizeof(cmMidiKeySig_t))) == kOkMfRC )
  671. rc = _cmMidiFileWriteRecd(mfp,tmp->u.keySigPtr,sizeof(cmMidiKeySig_t));
  672. break;
  673. case kSeqSpecMdId:
  674. if((rc = _cmMidiFileWriteVarLen(mfp,sizeof(tmp->byteCnt))) == kOkMfRC )
  675. rc = _cmMidiFileWriteRecd(mfp,tmp->u.sysExPtr,tmp->byteCnt);
  676. break;
  677. case kMidiChMdId:
  678. if((rc = _cmMidiFileWrite8(mfp,sizeof(tmp->u.bVal))) == kOkMfRC )
  679. rc = _cmMidiFileWrite8(mfp,tmp->u.bVal);
  680. break;
  681. case kEndOfTrkMdId:
  682. rc = _cmMidiFileWrite8(mfp,0);
  683. break;
  684. case kTextMdId:
  685. case kCopyMdId:
  686. case kTrkNameMdId:
  687. case kInstrNameMdId:
  688. case kLyricsMdId:
  689. case kMarkerMdId:
  690. case kCuePointMdId:
  691. {
  692. unsigned n = tmp->u.text==NULL ? 0 : strlen(tmp->u.text);
  693. if((rc = _cmMidiFileWriteVarLen(mfp,n)) == kOkMfRC && n>0 )
  694. rc = _cmMidiFileWriteRecd(mfp,tmp->u.text,n);
  695. }
  696. break;
  697. default:
  698. {
  699. // ignore unknown meta messages
  700. }
  701. }
  702. return rc;
  703. }
  704. cmMfRC_t _cmMidiFileWriteTrack( _cmMidiFile_t* mfp, unsigned trkIdx )
  705. {
  706. cmMfRC_t rc = kOkMfRC;
  707. cmMidiTrackMsg_t* tmp = mfp->trkV[trkIdx].base;
  708. cmMidiByte_t runStatus = 0;
  709. for(; tmp != NULL; tmp=tmp->link)
  710. {
  711. // write the msg tick count
  712. if((rc = _cmMidiFileWriteVarLen(mfp,tmp->dtick)) != kOkMfRC )
  713. return rc;
  714. // switch on status
  715. switch( tmp->status )
  716. {
  717. // handle sys-ex msg
  718. case kSysExMdId:
  719. rc = _cmMidiFileWriteSysEx(mfp,tmp);
  720. break;
  721. // handle meta msg
  722. case kMetaStId:
  723. rc = _cmMidiFileWriteMetaMsg(mfp,tmp);
  724. break;
  725. default:
  726. // handle channel msg
  727. rc = _cmMidiFileWriteChannelMsg(mfp,tmp,&runStatus);
  728. }
  729. }
  730. return rc;
  731. }
  732. cmMfRC_t cmMidiFileWrite( cmMidiFileH_t h, const char* fn )
  733. {
  734. cmMfRC_t rc = kOkMfRC;
  735. _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  736. unsigned i;
  737. // create the output file
  738. if( cmFileOpen(&mfp->fh,fn,kWriteFileFl,mfp->err.rpt) != kOkFileRC )
  739. return cmErrMsg(&mfp->err,kFileFailMfRC,"The MIDI file '%s' could not be created.",cmStringNullGuard(fn));
  740. // write the file header
  741. if((rc = _cmMidiFileWriteHdr(mfp)) != kOkMfRC )
  742. {
  743. rc = cmErrMsg(&mfp->err,rc,"The file header write failed on the MIDI file '%s'.",cmStringNullGuard(fn));
  744. goto errLabel;
  745. }
  746. for(i=0; i < mfp->trkN; ++i )
  747. {
  748. unsigned chkId = 'MTrk';
  749. long offs0,offs1;
  750. // write the track chunk id ('MTrk')
  751. if((rc = _cmMidiFileWrite32(mfp,chkId)) != kOkMfRC )
  752. goto errLabel;
  753. cmFileTell(mfp->fh,&offs0);
  754. // write the track chunk size as zero
  755. if((rc = _cmMidiFileWrite32(mfp,0)) != kOkMfRC )
  756. goto errLabel;
  757. if((rc = _cmMidiFileWriteTrack(mfp,i)) != kOkMfRC )
  758. goto errLabel;
  759. cmFileTell(mfp->fh,&offs1);
  760. cmFileSeek(mfp->fh,kBeginFileFl,offs0);
  761. _cmMidiFileWrite32(mfp,offs1-offs0-4);
  762. cmFileSeek(mfp->fh,kBeginFileFl,offs1);
  763. }
  764. errLabel:
  765. cmFileClose(&mfp->fh);
  766. return rc;
  767. }
  768. bool cmMidiFileIsValid( cmMidiFileH_t h )
  769. { return !cmMidiFileIsNull(h); }
  770. unsigned cmMidiFileTrackCount( cmMidiFileH_t h )
  771. {
  772. _cmMidiFile_t* mfp;
  773. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  774. return cmInvalidCnt;
  775. return mfp->trkN;
  776. }
  777. unsigned cmMidiFileType( cmMidiFileH_t h )
  778. {
  779. _cmMidiFile_t* mfp;
  780. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  781. return cmInvalidId;
  782. return mfp->fmtId;
  783. }
  784. const char* cmMidiFileName( cmMidiFileH_t h )
  785. {
  786. _cmMidiFile_t* mfp;
  787. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  788. return NULL;
  789. return mfp->fn;
  790. }
  791. unsigned cmMidiFileTicksPerQN( cmMidiFileH_t h )
  792. {
  793. _cmMidiFile_t* mfp;
  794. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  795. return cmInvalidCnt;
  796. return mfp->ticksPerQN;
  797. }
  798. cmMidiByte_t cmMidiFileTicksPerSmpteFrame( cmMidiFileH_t h )
  799. {
  800. _cmMidiFile_t* mfp;
  801. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  802. return kInvalidMidiByte;
  803. if( mfp->ticksPerQN != 0 )
  804. return 0;
  805. return mfp->smpteTicksPerFrame;
  806. }
  807. cmMidiByte_t cmMidiFileSmpteFormatId( cmMidiFileH_t h )
  808. {
  809. _cmMidiFile_t* mfp;
  810. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  811. return kInvalidMidiByte;
  812. if( mfp->ticksPerQN != 0 )
  813. return 0;
  814. return mfp->smpteFmtId;
  815. }
  816. unsigned cmMidiFileTrackMsgCount( cmMidiFileH_t h, unsigned trackIdx )
  817. {
  818. _cmMidiFile_t* mfp;
  819. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  820. return cmInvalidCnt;
  821. return mfp->trkV[trackIdx].cnt;
  822. }
  823. const cmMidiTrackMsg_t* cmMidiFileTrackMsg( cmMidiFileH_t h, unsigned trackIdx )
  824. {
  825. _cmMidiFile_t* mfp;
  826. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  827. return NULL;
  828. return mfp->trkV[trackIdx].base;
  829. }
  830. unsigned cmMidiFileMsgCount( cmMidiFileH_t h )
  831. {
  832. _cmMidiFile_t* mfp;
  833. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  834. return cmInvalidCnt;
  835. return mfp->msgN;
  836. }
  837. const cmMidiTrackMsg_t** cmMidiFileMsgArray( cmMidiFileH_t h )
  838. {
  839. _cmMidiFile_t* mfp;
  840. if((mfp = _cmMidiFileHandleToPtr(h)) == NULL )
  841. return NULL;
  842. // this cast is needed to eliminate an apparently needless 'incompatible type' warning
  843. return (const cmMidiTrackMsg_t**)mfp->msgV;
  844. }
  845. cmMidiTrackMsg_t* _cmMidiFileUidToMsg( _cmMidiFile_t* mfp, unsigned uid )
  846. {
  847. unsigned i;
  848. for(i=0; i<mfp->msgN; ++i)
  849. if( mfp->msgV[i]->uid == uid )
  850. return mfp->msgV[i];
  851. return NULL;
  852. }
  853. cmMfRC_t cmMidiFileSetVelocity( cmMidiFileH_t h, unsigned uid, cmMidiByte_t vel )
  854. {
  855. cmMidiTrackMsg_t* r;
  856. _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  857. assert( mfp != NULL );
  858. if((r = _cmMidiFileUidToMsg(mfp,uid)) == NULL )
  859. return cmErrMsg(&mfp->err,kUidNotFoundMfRC,"The MIDI file uid %i could not be found.",uid);
  860. if( cmMidiIsNoteOn(r->status) == false && cmMidiIsNoteOff(r->status,0)==false )
  861. return cmErrMsg(&mfp->err,kUidNotANoteMsgMfRC,"Cannot set velocity on a non-Note-On/Off msg.");
  862. cmMidiChMsg_t* chm = (cmMidiChMsg_t*)r->u.chMsgPtr;
  863. chm->d1 = vel;
  864. return kOkMfRC;
  865. }
  866. // Returns NULL if uid is not found or if it the first msg on the track.
  867. cmMidiTrackMsg_t* _cmMidiFileMsgBeforeUid( _cmMidiFile_t* p, unsigned uid )
  868. {
  869. cmMidiTrackMsg_t* m;
  870. if((m = _cmMidiFileUidToMsg(p,uid)) == NULL )
  871. return NULL;
  872. assert( m->trkIdx < p->trkN );
  873. cmMidiTrackMsg_t* m0 = NULL;
  874. cmMidiTrackMsg_t* m1 = p->trkV[ m->trkIdx ].base;
  875. for(; m1!=NULL; m1 = m1->link)
  876. {
  877. if( m1->uid == uid )
  878. break;
  879. m0 = m1;
  880. }
  881. return m0;
  882. }
  883. unsigned _cmMidiFileIsMsgFirstOnTrack( _cmMidiFile_t* p, unsigned uid )
  884. {
  885. unsigned i;
  886. for(i=0; i<p->trkN; ++i)
  887. if( p->trkV[i].base!=NULL && p->trkV[i].base->uid == uid )
  888. return i;
  889. return cmInvalidIdx;
  890. }
  891. cmMfRC_t cmMidiFileInsertMsg( cmMidiFileH_t h, unsigned uid, int dtick, cmMidiByte_t ch, cmMidiByte_t status, cmMidiByte_t d0, cmMidiByte_t d1 )
  892. {
  893. _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  894. assert( mfp != NULL );
  895. cmMidiTrackMsg_t* ref = NULL;
  896. unsigned trkIdx = cmInvalidIdx;
  897. // if dtick is positive ...
  898. if( dtick >= 0 )
  899. {
  900. ref = _cmMidiFileUidToMsg(mfp,uid); // ... then get the ref. msg.
  901. trkIdx = ref->trkIdx;
  902. }
  903. else // if dtick is negative ...
  904. {
  905. // ... get get the msg before the ref. msg.
  906. if((ref = _cmMidiFileMsgBeforeUid(mfp,uid)) != NULL )
  907. trkIdx = ref->trkIdx;
  908. else
  909. {
  910. // ... the ref. msg was first in the track so there is no msg before it
  911. trkIdx = _cmMidiFileIsMsgFirstOnTrack(mfp,uid);
  912. }
  913. }
  914. // verify that the reference msg was found
  915. if( trkIdx == cmInvalidIdx )
  916. return cmErrMsg(&mfp->err,kUidNotFoundMfRC,"The UID (%i) reference note could not be located.",uid);
  917. assert( trkIdx < mfp->trkN );
  918. // complete the msg setup
  919. _cmMidiTrack_t* trk = mfp->trkV + trkIdx;
  920. cmMidiTrackMsg_t* m = _cmMidiFileAllocMsg(mfp, trkIdx, abs(dtick), status );
  921. cmMidiChMsg_t* c = (cmMidiChMsg_t*)_cmMidiFileMalloc(mfp,sizeof(cmMidiChMsg_t));
  922. m->u.chMsgPtr = c;
  923. c->ch = ch;
  924. c->d0 = d0;
  925. c->d1 = d1;
  926. // if 'm' is prior to the first msg in the track
  927. if( ref == NULL )
  928. {
  929. // ... then make 'm' the first msg in the first msg
  930. m->link = trk->base;
  931. trk->base = m;
  932. // 'm' is before ref and the track cannot be empty (because ref is in it) 'm'
  933. // can never be the last msg in the list
  934. }
  935. else // ref is the msg before 'm'
  936. {
  937. m->link = ref->link;
  938. ref->link = m;
  939. // if ref was the last msg in the trk ...
  940. if( trk->last == ref )
  941. trk->last = m; //... then 'm' is now the last msg in the trk
  942. }
  943. trk->cnt += 1;
  944. _cmMidiFileLinearize(mfp);
  945. return kOkMfRC;
  946. }
  947. unsigned cmMidiFileSeekUsecs( cmMidiFileH_t h, unsigned long long offsUSecs, unsigned* msgUsecsPtr, unsigned* microsPerTickPtr )
  948. {
  949. _cmMidiFile_t* p;
  950. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  951. return cmInvalidIdx;
  952. if( p->msgN == 0 )
  953. return cmInvalidIdx;
  954. unsigned mi;
  955. double microsPerQN = 60000000.0/120.0;
  956. double microsPerTick = microsPerQN / p->ticksPerQN;
  957. double accUSecs = 0;
  958. for(mi=0; mi<p->msgN; ++mi)
  959. {
  960. const cmMidiTrackMsg_t* mp = p->msgV[mi];
  961. if( mp->amicro >= offsUSecs )
  962. break;
  963. }
  964. if( mi == p->msgN )
  965. return cmInvalidIdx;
  966. if( msgUsecsPtr != NULL )
  967. *msgUsecsPtr = round(accUSecs - offsUSecs);
  968. if( microsPerTickPtr != NULL )
  969. *microsPerTickPtr = round(microsPerTick);
  970. return mi;
  971. }
  972. double cmMidiFileDurSecs( cmMidiFileH_t h )
  973. {
  974. _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  975. if( mfp->msgN == 0 )
  976. return 0;
  977. return mfp->msgV[ mfp->msgN-1 ]->amicro / 1000000.0;
  978. }
  979. typedef struct _cmMidiVoice_str
  980. {
  981. const cmMidiTrackMsg_t* mp;
  982. unsigned durMicros;
  983. bool sustainFl;
  984. struct _cmMidiVoice_str* link;
  985. } _cmMidiVoice_t;
  986. void _cmMidiFileSetDur( cmMidiTrackMsg_t* m0, cmMidiTrackMsg_t* m1 )
  987. {
  988. // calculate the duration of the sounding note
  989. ((cmMidiChMsg_t*)m0->u.chMsgPtr)->durMicros = m1->amicro - m0->amicro;
  990. // set the note-off msg pointer
  991. ((cmMidiChMsg_t*)m0->u.chMsgPtr)->end = m1;
  992. }
  993. bool _cmMidiFileCalcNoteDur( cmMidiTrackMsg_t* m0, cmMidiTrackMsg_t* m1, int noteGateFl, int sustainGateFl, bool sostGateFl )
  994. {
  995. // if the note is being kept sounding because the key is still depressed,
  996. // the sustain pedal is down or it is being held by the sostenuto pedal ....
  997. if( noteGateFl>0 || sustainGateFl>0 || sostGateFl )
  998. return false; // ... do nothing
  999. _cmMidiFileSetDur(m0,m1);
  1000. return true;
  1001. }
  1002. void cmMidiFileCalcNoteDurations( cmMidiFileH_t h )
  1003. {
  1004. _cmMidiFile_t* p;
  1005. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  1006. return;
  1007. if( p->msgN == 0 )
  1008. return;
  1009. unsigned mi = cmInvalidId;
  1010. cmMidiTrackMsg_t* noteM[ kMidiNoteCnt * kMidiChCnt ]; // ptr to note-on or NULL if the note is not sounding
  1011. cmMidiTrackMsg_t* sustV[ kMidiChCnt ];
  1012. cmMidiTrackMsg_t* sostV[ kMidiChCnt ];
  1013. int noteGateM[ kMidiNoteCnt * kMidiChCnt ]; // true if the associated note key is depressed
  1014. bool sostGateM[ kMidiNoteCnt * kMidiChCnt ]; // true if the associated note was active when the sost. pedal went down
  1015. int sustGateV[ kMidiChCnt]; // true if the associated sustain pedal is down
  1016. int sostGateV[ kMidiChCnt]; // true if the associated sostenuto pedal is down
  1017. unsigned i,j;
  1018. // initialize the state tracking variables
  1019. for(i=0; i<kMidiChCnt; ++i)
  1020. {
  1021. sustV[i] = NULL;
  1022. sustGateV[i] = 0;
  1023. sostV[i] = NULL;
  1024. sostGateV[i] = 0;
  1025. for(j=0; j<kMidiNoteCnt; ++j)
  1026. {
  1027. noteM[ i*kMidiNoteCnt + j ] = NULL;
  1028. noteGateM[ i*kMidiNoteCnt + j ] = 0;
  1029. sostGateM[ i*kMidiNoteCnt + j ] = false;
  1030. }
  1031. }
  1032. // for each midi event
  1033. for(mi=0; mi<p->msgN; ++mi)
  1034. {
  1035. cmMidiTrackMsg_t* m = p->msgV[mi];
  1036. // verify that time is also incrementing
  1037. assert( mi==0 || (mi>0 && m->amicro >= p->msgV[mi-1]->amicro) );
  1038. // ignore all non-channel messages
  1039. if( !cmMidiIsChStatus( m->status ) )
  1040. continue;
  1041. cmMidiByte_t ch = m->u.chMsgPtr->ch; // get the midi msg channel
  1042. cmMidiByte_t d0 = m->u.chMsgPtr->d0; // get the midi msg data value
  1043. // if this is a note-on msg
  1044. if( cmMidiFileIsNoteOn(m) )
  1045. {
  1046. unsigned k = ch*kMidiNoteCnt + d0;
  1047. // there should be no existing sounding note instance for this pitch
  1048. //if( noteGateM[k] == 0 && noteM[k] != NULL )
  1049. // cmErrWarnMsg(&p->err,kMissingNoteOffMfRC,"%i : Missing note-off instance for note on:%s",m->uid,cmMidiToSciPitch(d0,NULL,0));
  1050. if( noteM[k] != NULL )
  1051. noteGateM[k] += 1;
  1052. else
  1053. {
  1054. noteM[k] = m;
  1055. noteGateM[k] = 1;
  1056. }
  1057. }
  1058. else
  1059. // if this is a note-off msg
  1060. if( cmMidiFileIsNoteOff(m) )
  1061. {
  1062. unsigned k = ch*kMidiNoteCnt + d0;
  1063. cmMidiTrackMsg_t* m0 = noteM[k];
  1064. if( m0 == NULL )
  1065. cmErrWarnMsg(&p->err,kMissingNoteOffMfRC,"%i : Missing note-on instance for note-off:%s",m->uid,cmMidiToSciPitch(d0,NULL,0));
  1066. else
  1067. {
  1068. // a key was released - so it should not already be up
  1069. if( noteGateM[k]==0 )
  1070. cmErrWarnMsg(&p->err,kMissingNoteOffMfRC,"%i : Missing note-on for note-off:%s",m->uid,cmMidiToSciPitch(d0,NULL,0));
  1071. else
  1072. {
  1073. noteGateM[k] -= 1; // update the note gate state
  1074. // update the sounding note status
  1075. if( _cmMidiFileCalcNoteDur(m0, m, noteGateM[k], sustGateV[ch], sostGateM[k]) )
  1076. noteM[k] = NULL;
  1077. }
  1078. }
  1079. }
  1080. else
  1081. // This is a sustain-pedal down msg
  1082. if( cmMidiFileIsSustainPedalDown(m) )
  1083. {
  1084. // if the sustain channel is already down
  1085. //if( sustGateV[ch] )
  1086. // cmErrWarnMsg(&p->err,kSustainPedalMfRC,"%i : The sustain pedal went down twice with no intervening release.",m->uid);
  1087. sustGateV[ch] += 1;
  1088. if( sustV[ch] == NULL )
  1089. sustV[ch] = m;
  1090. }
  1091. else
  1092. // This is a sustain-pedal up msg
  1093. if( cmMidiFileIsSustainPedalUp(m) )
  1094. {
  1095. // if the sustain channel is already up
  1096. if( sustGateV[ch]==0 )
  1097. cmErrWarnMsg(&p->err,kSustainPedalMfRC,"%i : The sustain pedal release message was received with no previous pedal down.",m->uid);
  1098. if( sustGateV[ch] >= 1 )
  1099. {
  1100. sustGateV[ch] -= 1;
  1101. if( sustGateV[ch] == 0 )
  1102. {
  1103. unsigned k = ch*kMidiNoteCnt;
  1104. // for each sounding note on this channel
  1105. for(; k<ch*kMidiNoteCnt+kMidiNoteCnt; ++k)
  1106. if( noteM[k]!=NULL && _cmMidiFileCalcNoteDur(noteM[k], m, noteGateM[k], sustGateV[ch], sostGateM[k]) )
  1107. noteM[k] = NULL;
  1108. if( sustV[ch] != NULL )
  1109. {
  1110. _cmMidiFileSetDur(sustV[ch],m);
  1111. ((cmMidiChMsg_t*)sustV[ch]->u.chMsgPtr)->end = m; // set the pedal-up msg ptr. in the pedal-down msg.
  1112. sustV[ch] = NULL;
  1113. }
  1114. }
  1115. }
  1116. }
  1117. else
  1118. // This is a sostenuto pedal-down msg
  1119. if( cmMidiFileIsSostenutoPedalDown(m) )
  1120. {
  1121. // if the sustain channel is already down
  1122. //if( sostGateV[ch] )
  1123. // cmErrWarnMsg(&p->err,kSostenutoPedalMfRC,"%i : The sostenuto pedal went down twice with no intervening release.",m->uid);
  1124. // record the notes that are active when the sostenuto pedal went down
  1125. unsigned k = ch * kMidiNoteCnt;
  1126. for(i=0; i<kMidiNoteCnt; ++i)
  1127. sostGateM[k+i] = noteGateM[k+i] > 0;
  1128. sostGateV[ch] += 1;
  1129. }
  1130. else
  1131. // This is a sostenuto pedal-up msg
  1132. if( cmMidiFileIsSostenutoPedalUp(m) )
  1133. {
  1134. // if the sustain channel is already up
  1135. if( sostGateV[ch]==0 )
  1136. cmErrWarnMsg(&p->err,kSostenutoPedalMfRC,"%i : The sostenuto pedal release message was received with no previous pedal down.",m->uid);
  1137. if( sostGateV[ch] >= 1 )
  1138. {
  1139. sostGateV[ch] -= 1;
  1140. if( sostGateV[ch] == 0 )
  1141. {
  1142. unsigned k = ch*kMidiNoteCnt;
  1143. // for each note on this channel
  1144. for(; k<ch*kMidiNoteCnt+kMidiNoteCnt; ++k)
  1145. {
  1146. sostGateM[k] = false;
  1147. if( noteM[k]!=NULL && _cmMidiFileCalcNoteDur(noteM[k], m, noteGateM[k], sustGateV[ch], sostGateM[k]) )
  1148. noteM[k] = NULL;
  1149. }
  1150. if( sostV[ch] != NULL )
  1151. {
  1152. _cmMidiFileSetDur(sostV[ch],m);
  1153. ((cmMidiChMsg_t*)sostV[ch]->u.chMsgPtr)->end = m; // set the pedal-up msg ptr. in the pedal-down msg.
  1154. sostV[ch] = NULL;
  1155. }
  1156. }
  1157. }
  1158. }
  1159. } // for each midi file event
  1160. }
  1161. void cmMidiFileSetDelay( cmMidiFileH_t h, unsigned ticks )
  1162. {
  1163. _cmMidiFile_t* p;
  1164. unsigned mi;
  1165. if((p = _cmMidiFileHandleToPtr(h)) == NULL )
  1166. return;
  1167. if( p->msgN == 0 )
  1168. return;
  1169. for(mi=0; mi<p->msgN; ++mi)
  1170. {
  1171. cmMidiTrackMsg_t* mp = p->msgV[mi];
  1172. // locate the first msg which has a non-zero delta tick
  1173. if( mp->dtick > 0 )
  1174. {
  1175. mp->dtick = ticks;
  1176. break;
  1177. }
  1178. }
  1179. }
  1180. unsigned cmMidiFilePackTrackMsgBufByteCount( const cmMidiTrackMsg_t* m )
  1181. { return sizeof(cmMidiTrackMsg_t) + m->byteCnt; }
  1182. cmMidiTrackMsg_t* cmMidiFilePackTrackMsg( const cmMidiTrackMsg_t* m, void* buf, unsigned bufByteCnt )
  1183. {
  1184. unsigned n = sizeof(cmMidiTrackMsg_t) + m->byteCnt;
  1185. if( n < bufByteCnt )
  1186. {
  1187. assert(0);
  1188. return NULL;
  1189. }
  1190. // copy the cmMidiTrackMsg_t into the buffer
  1191. memcpy(buf, m, sizeof(cmMidiTrackMsg_t));
  1192. if( m->byteCnt > 0 )
  1193. {
  1194. // copy any linked data into the buffer
  1195. memcpy(buf + sizeof(cmMidiTrackMsg_t), m->u.voidPtr, m->byteCnt );
  1196. // fixup the linked data ptr
  1197. cmMidiTrackMsg_t* mp = (cmMidiTrackMsg_t*)buf;
  1198. mp->u.voidPtr = buf + sizeof(cmMidiTrackMsg_t);
  1199. }
  1200. return (cmMidiTrackMsg_t*)buf;
  1201. }
  1202. void _cmMidiFilePrintHdr( const _cmMidiFile_t* mfp, cmRpt_t* rpt )
  1203. {
  1204. if( mfp->fn != NULL )
  1205. cmRptPrintf(rpt,"%s ",mfp->fn);
  1206. cmRptPrintf(rpt,"fmt:%i ticksPerQN:%i tracks:%i\n",mfp->fmtId,mfp->ticksPerQN,mfp->trkN);
  1207. cmRptPrintf(rpt," UID dtick atick amicro type ch D0 D1\n");
  1208. cmRptPrintf(rpt,"----- ---------- ---------- ---------- : ---- --- --- ---\n");
  1209. }
  1210. void _cmMidiFilePrintMsg( cmRpt_t* rpt, const cmMidiTrackMsg_t* tmp )
  1211. {
  1212. cmRptPrintf(rpt,"%5i %10u %10llu %10llu : ",
  1213. tmp->uid,
  1214. tmp->dtick,
  1215. tmp->atick,
  1216. tmp->amicro );
  1217. if( tmp->status == kMetaStId )
  1218. {
  1219. cmRptPrintf(rpt,"%s ", cmMidiMetaStatusToLabel(tmp->metaId));
  1220. }
  1221. else
  1222. {
  1223. cmRptPrintf(rpt,"%4s %3i %3i %3i",
  1224. cmMidiStatusToLabel(tmp->status),
  1225. tmp->u.chMsgPtr->ch,
  1226. tmp->u.chMsgPtr->d0,
  1227. tmp->u.chMsgPtr->d1);
  1228. }
  1229. if( cmMidiIsChStatus(tmp->status) && cmMidiIsNoteOn(tmp->status) && (tmp->u.chMsgPtr->d1>0) )
  1230. cmRptPrintf(rpt," %4s ",cmMidiToSciPitch(tmp->u.chMsgPtr->d0,NULL,0));
  1231. cmRptPrintf(rpt,"\n");
  1232. }
  1233. void cmMidiFilePrintMsgs( cmMidiFileH_t h, cmRpt_t* rpt )
  1234. {
  1235. const _cmMidiFile_t* p = _cmMidiFileHandleToPtr(h);
  1236. unsigned mi;
  1237. _cmMidiFilePrintHdr(p,rpt);
  1238. for(mi=0; mi<p->msgN; ++mi)
  1239. {
  1240. cmMidiTrackMsg_t* mp = p->msgV[mi];
  1241. if( mp != NULL )
  1242. _cmMidiFilePrintMsg(rpt,mp);
  1243. }
  1244. }
  1245. void cmMidiFilePrintTracks( cmMidiFileH_t h, unsigned trkIdx, cmRpt_t* rpt )
  1246. {
  1247. const _cmMidiFile_t* mfp = _cmMidiFileHandleToPtr(h);
  1248. _cmMidiFilePrintHdr(mfp,rpt);
  1249. int i = trkIdx == cmInvalidIdx ? 0 : trkIdx;
  1250. int n = trkIdx == cmInvalidIdx ? mfp->trkN : trkIdx+1;
  1251. for(; i<n; ++i)
  1252. {
  1253. cmRptPrintf(rpt,"Track:%i\n",i);
  1254. cmMidiTrackMsg_t* tmp = mfp->trkV[i].base;
  1255. while( tmp != NULL )
  1256. {
  1257. _cmMidiFilePrintMsg(rpt,tmp);
  1258. tmp = tmp->link;
  1259. }
  1260. }
  1261. }
  1262. bool cmMidiFileIsNull( cmMidiFileH_t h )
  1263. { return (_cmMidiFile_t*)h.h == NULL; }
  1264. void cmMidiFileTestPrint( void* printDataPtr, const char* fmt, va_list vl )
  1265. { vprintf(fmt,vl); }
  1266. cmMfRC_t cmMidiFileGenPlotFile( cmCtx_t* ctx, const cmChar_t* midiFn, const cmChar_t* outFn )
  1267. {
  1268. cmMfRC_t rc = kOkMfRC;
  1269. cmMidiFileH_t mfH = cmMidiFileNullHandle;
  1270. cmFileH_t fH = cmFileNullHandle;
  1271. unsigned i = 0;
  1272. const cmMidiTrackMsg_t** m = NULL;
  1273. unsigned mN = 0;
  1274. if((rc = cmMidiFileOpen(ctx, &mfH, midiFn )) != kOkMfRC )
  1275. return cmErrMsg(&ctx->err,rc,"The MIDI file object could not be opened from '%s'.",cmStringNullGuard(midiFn));
  1276. _cmMidiFile_t* p = _cmMidiFileHandleToPtr(mfH);
  1277. if( (m = cmMidiFileMsgArray(mfH)) == NULL || (mN = cmMidiFileMsgCount(mfH)) == 0 )
  1278. {
  1279. rc = cmErrMsg(&p->err,kFileFailMfRC,"The MIDI file object appears to be empty.");
  1280. goto errLabel;
  1281. }
  1282. cmMidiFileCalcNoteDurations( mfH );
  1283. if( cmFileOpen(&fH,outFn,kWriteFileFl,p->err.rpt) != kOkFileRC )
  1284. return cmErrMsg(&p->err,kFileFailMfRC,"Unable to create the file '%s'.",cmStringNullGuard(outFn));
  1285. for(i=0; i<mN; ++i)
  1286. if( (m[i]!=NULL) && cmMidiIsChStatus(m[i]->status) && cmMidiIsNoteOn(m[i]->status) && (m[i]->u.chMsgPtr->d1>0) )
  1287. cmFilePrintf(fH,"n %f %f %i %s\n",m[i]->amicro/1000000.0,m[i]->u.chMsgPtr->durMicros/1000000.0,m[i]->uid,cmMidiToSciPitch(m[i]->u.chMsgPtr->d0,NULL,0));
  1288. errLabel:
  1289. cmMidiFileClose(&mfH);
  1290. cmFileClose(&fH);
  1291. return rc;
  1292. }
  1293. void cmMidiFilePrintControlNumbers( cmCtx_t* ctx, const char* fn )
  1294. {
  1295. cmMidiFileH_t h = cmMidiFileNullHandle;
  1296. cmMfRC_t rc;
  1297. if((rc = cmMidiFileOpen(ctx, &h, fn )) != kOkMfRC )
  1298. {
  1299. cmErrMsg(&ctx->err,rc,"MIDI file open failed on '%s'.",fn);
  1300. goto errLabel;
  1301. }
  1302. const cmMidiTrackMsg_t** mm;
  1303. unsigned n = cmMidiFileMsgCount(h);
  1304. if((mm = cmMidiFileMsgArray(h)) != NULL )
  1305. {
  1306. unsigned j;
  1307. for(j=0; j<n; ++j)
  1308. {
  1309. const cmMidiTrackMsg_t* m = mm[j];
  1310. if( m->status == kCtlMdId && m->u.chMsgPtr->d0==66 )
  1311. printf("%i %i\n",m->u.chMsgPtr->d0,m->u.chMsgPtr->d1);
  1312. }
  1313. }
  1314. errLabel:
  1315. cmMidiFileClose(&h);
  1316. }
  1317. void cmMidiFileTest( const char* fn, cmCtx_t* ctx )
  1318. {
  1319. cmMfRC_t rc;
  1320. cmMidiFileH_t h = cmMidiFileNullHandle;
  1321. if((rc = cmMidiFileOpen(ctx,&h,fn)) != kOkMfRC )
  1322. {
  1323. printf("Error:%i Unable to open the cmMidi file: %s\n",rc,fn);
  1324. return;
  1325. }
  1326. cmMidiFileCalcNoteDurations( h );
  1327. if( 1 )
  1328. {
  1329. //cmMidiFileTickToMicros( h );
  1330. //cmMidiFileTickToSamples(h,96000,false);
  1331. cmMidiFilePrintMsgs(h,&ctx->rpt);
  1332. }
  1333. if( 0 )
  1334. {
  1335. //cmMidiFilePrint(h,cmMidiFileTrackCount(h)-1,&ctx->rpt);
  1336. //cmMidiFilePrint(h,cmInvalidIdx,&ctx->rpt);
  1337. cmMidiFilePrintControlNumbers(ctx, fn );
  1338. }
  1339. if( 0 )
  1340. {
  1341. printf("Tracks:%i\n",cmMidiFileTrackCount(h));
  1342. unsigned i = 0;
  1343. for(i=0; i<cmMidiFileMsgCount(h); ++i)
  1344. {
  1345. cmMidiTrackMsg_t* tmp = (cmMidiTrackMsg_t*)cmMidiFileMsgArray(h)[i];
  1346. if( tmp->status==kMetaStId && tmp->metaId == kTempoMdId )
  1347. {
  1348. double bpm = 60000000.0/tmp->u.iVal;
  1349. printf("Tempo:%i %f\n",tmp->u.iVal,bpm);
  1350. tmp->u.iVal = floor( 60000000.0/69.0 );
  1351. break;
  1352. }
  1353. }
  1354. cmMidiFileWrite(h,"/home/kevin/temp/test0.mid");
  1355. }
  1356. cmMidiFileClose(&h);
  1357. }