← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/muse/oneiric

« back to all changes in this revision

Viewing changes to midi.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Kobras
  • Date: 2002-04-23 17:28:23 UTC
  • Revision ID: james.westby@ubuntu.com-20020423172823-w8yplzr81a759xa3
Tags: upstream-0.5.2
Import upstream version 0.5.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
midi.cpp
 
1
//=========================================================
 
2
//  MusE
 
3
//  Linux Music Editor
 
4
//  $Id: midi.cpp,v 1.2 2002/02/05 14:15:56 muse Exp $
 
5
//
 
6
//  (C) Copyright 1999/2000 Werner Schweer (ws@seh.de)
 
7
//=========================================================
 
8
 
 
9
#include <errno.h>
 
10
#include <values.h>
 
11
 
 
12
#include "song.h"
 
13
#include "midi.h"
 
14
#include "drummap.h"
 
15
#include "event.h"
 
16
#include "globals.h"
 
17
#include "midictrl.h"
 
18
#include "marker/marker.h"
 
19
#include "midiport.h"
 
20
#include "midictrl.h"
 
21
 
 
22
extern void dump(const unsigned char* p, int n);
 
23
 
 
24
unsigned const char gmOnMsg[] = { 0x7e, 0x7f, 0x09, 0x01 };
 
25
unsigned const char gsOnMsg[] = { 0x41, 0x10, 0x42, 0x12, 0x40, 0x00, 0x7f, 0x00, 0x41 };
 
26
unsigned const char xgOnMsg[] = { 0x43, 0x10, 0x4c, 0x00, 0x00, 0x7e, 0x00 };
 
27
unsigned const int  gmOnMsgLen = sizeof(gmOnMsg);
 
28
unsigned const int  gsOnMsgLen = sizeof(gsOnMsg);
 
29
unsigned const int  xgOnMsgLen = sizeof(xgOnMsg);
 
30
 
 
31
/*---------------------------------------------------------
 
32
 *    midi_meta_name
 
33
 *---------------------------------------------------------*/
 
34
 
 
35
QString midiMetaName(int meta)
 
36
      {
 
37
      const char* s = "";
 
38
      switch (meta) {
 
39
            case 0:     s = "Sequence Number"; break;
 
40
            case 1:     s = "Text Event"; break;
 
41
            case 2:     s = "Copyright"; break;
 
42
            case 3:     s = "Sequence/Track Name"; break;
 
43
            case 4:     s = "Instrument Name"; break;
 
44
            case 5:     s = "Lyric"; break;
 
45
            case 6:     s = "Marker"; break;
 
46
            case 7:     s = "Cue Point"; break;
 
47
            case 8:
 
48
            case 9:
 
49
            case 0x0a:
 
50
            case 0x0b:
 
51
            case 0x0c:
 
52
            case 0x0d:
 
53
            case 0x0e:
 
54
            case 0x0f:  s = "Text"; break;
 
55
            case 0x20:  s = "Channel Prefix"; break;
 
56
            case 0x21:  s = "Port Change"; break;
 
57
            case 0x2f:  s = "End of Track"; break;
 
58
            case 0x51:  s = "Set Tempo"; break;
 
59
            case 0x54:  s = "SMPTE Offset"; break;
 
60
            case 0x58:  s = "Time Signature"; break;
 
61
            case 0x59:  s = "Key Signature"; break;
 
62
            case 0x74:  s = "Sequencer-Specific1"; break;
 
63
            case 0x7f:  s = "Sequencer-Specific2"; break;
 
64
            default:
 
65
                  break;
 
66
            }
 
67
      return QString(s);
 
68
      }
 
69
 
 
70
//---------------------------------------------------------
 
71
//   QString nameSysex
 
72
//---------------------------------------------------------
 
73
 
 
74
QString nameSysex(unsigned int len, const unsigned char* buf)
 
75
      {
 
76
      QString s;
 
77
      switch(buf[0]) {
 
78
            case 0x00:
 
79
                  if (buf[1] == 0 && buf[2] == 0x41)
 
80
                        s = "Microsoft";
 
81
                  break;
 
82
            case 0x01:  s = "Sequential Circuits: "; break;
 
83
            case 0x02:  s = "Big Briar: "; break;
 
84
            case 0x03:  s = "Octave / Plateau: "; break;
 
85
            case 0x04:  s = "Moog: "; break;
 
86
            case 0x05:  s = "Passport Designs: "; break;
 
87
            case 0x06:  s = "Lexicon: "; break;
 
88
            case 0x07:  s = "Kurzweil"; break;
 
89
            case 0x08:  s = "Fender"; break;
 
90
            case 0x09:  s = "Gulbransen"; break;
 
91
            case 0x0a:  s = "Delta Labas"; break;
 
92
            case 0x0b:  s = "Sound Comp."; break;
 
93
            case 0x0c:  s = "General Electro"; break;
 
94
            case 0x0d:  s = "Techmar"; break;
 
95
            case 0x0e:  s = "Matthews Research"; break;
 
96
            case 0x10:  s = "Oberheim"; break;
 
97
            case 0x11:  s = "PAIA: "; break;
 
98
            case 0x12:  s = "Simmons: "; break;
 
99
            case 0x13:  s = "DigiDesign"; break;
 
100
            case 0x14:  s = "Fairlight: "; break;
 
101
            case 0x15:  s = "JL Cooper"; break;
 
102
            case 0x16:  s = "Lowery"; break;
 
103
            case 0x17:  s = "Lin"; break;
 
104
            case 0x18:  s = "Emu"; break;
 
105
            case 0x1b:  s = "Peavy"; break;
 
106
            case 0x20:  s = "Bon Tempi: "; break;
 
107
            case 0x21:  s = "S.I.E.L: "; break;
 
108
            case 0x23:  s = "SyntheAxe: "; break;
 
109
            case 0x24:  s = "Hohner"; break;
 
110
            case 0x25:  s = "Crumar"; break;
 
111
            case 0x26:  s = "Solton"; break;
 
112
            case 0x27:  s = "Jellinghaus Ms"; break;
 
113
            case 0x28:  s = "CTS"; break;
 
114
            case 0x29:  s = "PPG"; break;
 
115
            case 0x2f:  s = "Elka"; break;
 
116
            case 0x36:  s = "Cheetah"; break;
 
117
            case 0x3e:  s = "Waldorf"; break;
 
118
            case 0x40:  s = "Kawai: "; break;
 
119
            case 0x41:  s = "Roland: "; break;
 
120
            case 0x42:  s = "Korg: "; break;
 
121
            case 0x43:  s = "Yamaha: "; break;
 
122
            case 0x44:  s = "Casio"; break;
 
123
            case 0x45:  s = "Akai"; break;
 
124
            case 0x7c:  s = "MusE Soft Synth"; break;
 
125
            case 0x7d:  s = "Educational Use"; break;
 
126
            case 0x7e:  s = "Universal: Non Real Time"; break;
 
127
            case 0x7f:  s = "Universal: Real Time"; break;
 
128
            default:    s = "??: "; break;
 
129
            }
 
130
      //
 
131
      // following messages should not show up in event list
 
132
      // they are filtered while importing midi files
 
133
      //
 
134
      if ((len == gmOnMsgLen) && memcmp(buf, gmOnMsg, gmOnMsgLen) == 0)
 
135
            s += "GM-ON";
 
136
      else if ((len == gsOnMsgLen) && memcmp(buf, gsOnMsg, gsOnMsgLen) == 0)
 
137
            s += "GS-ON";
 
138
      else if ((len == xgOnMsgLen) && memcmp(buf, xgOnMsg, xgOnMsgLen) == 0)
 
139
            s += "XG-ON";
 
140
      return s;
 
141
      }
 
142
 
 
143
//---------------------------------------------------------
 
144
//   MidiFile
 
145
//---------------------------------------------------------
 
146
 
 
147
MidiFile::MidiFile(FILE* f)
 
148
      {
 
149
      fp        = f;
 
150
      error     = 0;
 
151
      timesig_z = 4;
 
152
      timesig_n = 4;
 
153
      curPos    = 0;
 
154
      }
 
155
 
 
156
/*---------------------------------------------------------
 
157
 *    read
 
158
 *    write
 
159
 *---------------------------------------------------------*/
 
160
 
 
161
bool MidiFile::read(void* p, size_t len)
 
162
      {
 
163
      for (;;) {
 
164
            curPos += len;
 
165
            size_t rv = fread(p, 1, len, fp);
 
166
            if (rv == len)
 
167
                  return false;
 
168
            if (feof(fp)) {
 
169
                  error = EIO;
 
170
                  return true;
 
171
                  }
 
172
            error = errno;
 
173
            return true;
 
174
            }
 
175
      return false;
 
176
      }
 
177
 
 
178
//---------------------------------------------------------
 
179
//   write
 
180
//---------------------------------------------------------
 
181
 
 
182
bool MidiFile::write(const void* p, size_t len)
 
183
      {
 
184
      size_t rv = fwrite(p, 1, len, fp);
 
185
      if (rv == len)
 
186
            return false;
 
187
      printf("write midifile failed: %s\n", strerror(errno));
 
188
      error = errno;
 
189
      return true;
 
190
      }
 
191
 
 
192
//---------------------------------------------------------
 
193
//   readShort
 
194
//---------------------------------------------------------
 
195
 
 
196
int MidiFile::readShort()
 
197
      {
 
198
      short format;
 
199
      read(&format, 2);
 
200
      return BE_SHORT(format);
 
201
      }
 
202
 
 
203
//---------------------------------------------------------
 
204
//   writeShort
 
205
//---------------------------------------------------------
 
206
 
 
207
void MidiFile::writeShort(int i)
 
208
      {
 
209
      int format = BE_SHORT(i);
 
210
      write(&format, 2);
 
211
      }
 
212
 
 
213
//---------------------------------------------------------
 
214
//   readLong
 
215
//   writeLong
 
216
//---------------------------------------------------------
 
217
 
 
218
int MidiFile::readLong()
 
219
      {
 
220
      int format;
 
221
      read(&format, 4);
 
222
      return BE_LONG(format);
 
223
      }
 
224
 
 
225
//---------------------------------------------------------
 
226
//   writeLong
 
227
//---------------------------------------------------------
 
228
 
 
229
void MidiFile::writeLong(int i)
 
230
      {
 
231
      int format = BE_LONG(i);
 
232
      write(&format, 4);
 
233
      }
 
234
 
 
235
/*---------------------------------------------------------
 
236
 *    skip
 
237
 *    This is meant for skipping a few bytes in a
 
238
 *    file or fifo.
 
239
 *---------------------------------------------------------*/
 
240
 
 
241
bool MidiFile::skip(size_t len)
 
242
      {
 
243
      char tmp[len];
 
244
      return read(tmp, len);
 
245
      }
 
246
 
 
247
/*---------------------------------------------------------
 
248
 *    getvl
 
249
 *    Read variable-length number (7 bits per byte, MSB first)
 
250
 *---------------------------------------------------------*/
 
251
 
 
252
int MidiFile::getvl()
 
253
      {
 
254
      int l = 0;
 
255
      for (int i = 0;i < 16; i++) {
 
256
            uchar c;
 
257
            if (read(&c, 1))
 
258
                  return -1;
 
259
            l += (c & 0x7f);
 
260
            if (!(c & 0x80))
 
261
                  return l;
 
262
            l <<= 7;
 
263
            }
 
264
      return -1;
 
265
      }
 
266
 
 
267
/*---------------------------------------------------------
 
268
 *    putvl
 
269
 *    Write variable-length number (7 bits per byte, MSB first)
 
270
 *---------------------------------------------------------*/
 
271
 
 
272
void MidiFile::putvl(unsigned val)
 
273
      {
 
274
      unsigned long buf = val & 0x7f;
 
275
      while ((val >>= 7) > 0) {
 
276
            buf <<= 8;
 
277
            buf |= 0x80;
 
278
            buf += (val & 0x7f);
 
279
            }
 
280
      for (;;) {
 
281
            put(buf);
 
282
            if (buf & 0x80)
 
283
                  buf >>= 8;
 
284
            else
 
285
                  break;
 
286
            }
 
287
      }
 
288
 
 
289
//---------------------------------------------------------
 
290
//   writeEvent
 
291
//---------------------------------------------------------
 
292
 
 
293
void MidiFile::writeEvent(MidiEvent* event)
 
294
      {
 
295
      int c     = event->channel();
 
296
      int nstat = 0;
 
297
 
 
298
      switch (event->type()) {
 
299
            case MidiEvent::NoteOff: nstat = 0x80; break;
 
300
            case MidiEvent::Note:    nstat = 0x90; break;
 
301
            case MidiEvent::PAfter:  nstat = 0xa0; break;
 
302
            case MidiEvent::Ctrl7:   nstat = 0xb0; break;
 
303
            case MidiEvent::Program: nstat = 0xc0; break;
 
304
            case MidiEvent::CAfter:  nstat = 0xd0; break;
 
305
            case MidiEvent::Pitch:   nstat = 0xe0; break;
 
306
            case MidiEvent::Sysex:   nstat = 0xf0; break;
 
307
            case MidiEvent::Meta:    nstat = 0xff; break;
 
308
 
 
309
            case MidiEvent::NRPN:
 
310
            case MidiEvent::RPN:
 
311
            case MidiEvent::Ctrl14:
 
312
                  nstat = 0xb0;
 
313
                  break;
 
314
 
 
315
            case MidiEvent::NoEvent:
 
316
            case MidiEvent::Symbol:
 
317
            case MidiEvent::Clock:
 
318
            case MidiEvent::Quantize:
 
319
                  return;
 
320
            };
 
321
      nstat |= c;
 
322
      //
 
323
      //  running status; except for Sysex- and Meta Events
 
324
      //
 
325
      if (((nstat & 0xf0) != 0xf0) && (nstat != status)) {
 
326
            status = nstat;
 
327
            put(nstat);
 
328
            }
 
329
      switch (event->type()) {
 
330
            case MidiEvent::NoteOff:
 
331
                  put(event->pitch());
 
332
                  put(event->veloOff());
 
333
                  break;
 
334
            case MidiEvent::Note:
 
335
            case MidiEvent::PAfter:
 
336
            case MidiEvent::Ctrl7:
 
337
                  put(event->dataA());
 
338
                  put(event->dataB());
 
339
                  break;
 
340
            case MidiEvent::Pitch:
 
341
                  {
 
342
                  int lval = (event->dataA()-8192) & 0x7f;
 
343
                  int hval = ((event->dataA()-8192)>>7) & 0x7f;
 
344
                  put(lval);
 
345
                  put(hval);
 
346
                  }
 
347
                  break;
 
348
            case MidiEvent::Program:
 
349
            case MidiEvent::CAfter:
 
350
                  put(event->dataA());
 
351
                  break;
 
352
            case MidiEvent::Sysex:
 
353
                  put(0xf0);
 
354
                  putvl(event->dataLen()+1);  // 0xf7 ber�cksichtigen
 
355
                  write(event->data(), event->dataLen());
 
356
                  put(0xf7);
 
357
                  status = -1;      // invalidate running status
 
358
                  break;
 
359
            case MidiEvent::Meta:
 
360
                  put(0xff);
 
361
                  put(event->dataA());
 
362
                  putvl(event->dataLen());
 
363
                  write(event->data(), event->dataLen());
 
364
                  status = -1;
 
365
                  break;
 
366
 
 
367
            case MidiEvent::Ctrl14:
 
368
                  put(event->dataC());          // send least significant bits
 
369
                  put(event->dataB());
 
370
                  put(event->dataA());          // send msb
 
371
                  put(event->dataB() >> 7);
 
372
                  break;
 
373
 
 
374
            case MidiEvent::NRPN:               // TODO: support running status
 
375
                  put(CTRL_LDATA);
 
376
                  put(event->dataB());
 
377
 
 
378
                  put(CTRL_HDATA);
 
379
                  put(event->dataB() >> 7);
 
380
 
 
381
                  put(CTRL_LNRPN);
 
382
                  put(event->dataC());
 
383
 
 
384
                  put(CTRL_HNRPN);
 
385
                  put(event->dataA());
 
386
                  break;
 
387
 
 
388
            case MidiEvent::RPN:
 
389
                  put(CTRL_LDATA);
 
390
                  put(event->dataB());
 
391
 
 
392
                  put(CTRL_HDATA);
 
393
                  put(event->dataB() >> 7);
 
394
 
 
395
                  put(CTRL_LRPN);
 
396
                  put(event->dataC());
 
397
 
 
398
                  put(CTRL_HRPN);
 
399
                  put(event->dataA());
 
400
                  break;
 
401
 
 
402
            case MidiEvent::NoEvent:
 
403
            case MidiEvent::Symbol:
 
404
            case MidiEvent::Clock:
 
405
            case MidiEvent::Quantize:
 
406
                  break;
 
407
            };
 
408
      }
 
409
 
 
410
//---------------------------------------------------------
 
411
//   checkSysex
 
412
//    return false, if Sysex is detected and can be removed
 
413
//    from event list
 
414
//---------------------------------------------------------
 
415
 
 
416
bool MidiFile::checkSysex(MidiTrack* track, unsigned int len, unsigned char* buf)
 
417
      {
 
418
      if ((len == gmOnMsgLen) && memcmp(buf, gmOnMsg, gmOnMsgLen) == 0) {
 
419
            song->setMType(MT_GM);
 
420
            return false;
 
421
            }
 
422
      if ((len == gsOnMsgLen) && memcmp(buf, gsOnMsg, gsOnMsgLen) == 0) {
 
423
            song->setMType(MT_GS);
 
424
            return false;
 
425
            }
 
426
      if (buf[0] == 0x41) {   // Roland
 
427
            if (song->mtype() != MT_XG)
 
428
                  song->setMType(MT_GS);
 
429
            }
 
430
 
 
431
      else if (buf[0] == 0x43) {   // Yamaha
 
432
            song->setMType(MT_XG);
 
433
            int type   = buf[1] & 0xf0;
 
434
            switch (type) {
 
435
                  case 0x00:  // bulk dump
 
436
                        buf[1] = 0;
 
437
                        break;
 
438
                  case 0x10:
 
439
                        if (buf[1] != 0x10) {
 
440
// printf("SYSEX Device changed from %d(0x%x) to 1\n", (buf[1] & 0xf) + 1, buf[1]);
 
441
                              buf[1] = 0x10;    // fix to Device 1
 
442
                              }
 
443
                        if (len == 7 && buf[2] == 0x4c && buf[3] == 0x08 && buf[5] == 7) {
 
444
                              // part mode
 
445
                              // 0 - normal
 
446
                              // 1 - DRUM
 
447
                              // 2 - DRUM 1
 
448
                              // 3 - DRUM 2
 
449
                              // 4 - DRUM 3
 
450
                              // 5 - DRUM 4
 
451
                              printf("xg part mode channel %d to %d\n", buf[4], buf[6]);
 
452
                              if (buf[6] != 0)
 
453
                                    track->setType(Track::DRUM);
 
454
                              }
 
455
                        break;
 
456
                  case 0x20:
 
457
                        printf("YAMAHA DUMP REQUEST\n");
 
458
                        return true;
 
459
                  case 0x30:
 
460
                        printf("YAMAHA PARAMETER REQUEST\n");
 
461
                        return true;
 
462
                  default:
 
463
                        printf("YAMAHA unknown SYSEX: data[2]=%02x\n", buf[1]);
 
464
//                        dump(buf, len);
 
465
                        return true;
 
466
                  }
 
467
            }
 
468
      else if (buf[0] == 0x42) {   // Korg
 
469
//            int device = buf[1] & 0xf;
 
470
            if ((buf[1] & 0xf0) != 0x30) {
 
471
                  printf("KORG SYSEX??\n");
 
472
                  }
 
473
//            buf[1] &= 0xf;    // fest auf Device 1 klemmen
 
474
            fflush(stdout);
 
475
            }
 
476
      else if (buf[0] == 0x41) {   // Korg
 
477
//            int device = buf[1] & 0xf;
 
478
            if ((buf[1] & 0xf0) != 0x10) {
 
479
                  printf("GM SYSEX??\n");
 
480
                  }
 
481
//            buf[1] &= 0xf;    // fest auf Device 1 klemmen
 
482
            fflush(stdout);
 
483
            }
 
484
 
 
485
      if ((len == xgOnMsgLen) && memcmp(buf, xgOnMsg, xgOnMsgLen) == 0) {
 
486
            song->setMType(MT_XG);
 
487
            return false;
 
488
            }
 
489
      return true;
 
490
      }
 
491
 
 
492
//---------------------------------------------------------
 
493
//   readTrack
 
494
//    return true on error
 
495
//---------------------------------------------------------
 
496
 
 
497
bool MidiFile::readTrack(bool mergeChannels)
 
498
      {
 
499
      char tmp[4];
 
500
      read(tmp, 4);
 
501
      if (memcmp(tmp, "MTrk", 4)) {
 
502
            printf("BAD FILE, MTrk expected at track %d, error %d <%s>\n",
 
503
              -1, error, strerror(error));
 
504
            return true;
 
505
            }
 
506
      int len       = readLong();       // len
 
507
      int endPos    = curPos + len;
 
508
      status        = -1;
 
509
      sstatus       = -1;        // running status, der nicht bei meta oder sysex zur�ckgesetzt wird
 
510
      lastchan      = -1;
 
511
      lastport      = -1;
 
512
      channelprefix = -1;
 
513
      click         = 0;
 
514
      int channel   = -1;
 
515
      int port      = -1;
 
516
      MidiTrack* track  = new MidiTrack();
 
517
      song->tracks()->add(track);
 
518
      EventList* el = track->events();
 
519
 
 
520
      for (;;) {
 
521
            MidiEvent* event = readEvent(track);
 
522
            if (event == 0)
 
523
                  break;
 
524
            if (int(event) == -1)
 
525
                  continue;
 
526
            if (int(event) == -2)         // error
 
527
                  return true;
 
528
            if (lastchan == -1) {
 
529
                  el->add(event);         // kann kein channel event sein
 
530
                  event->setPort(track->outPort());
 
531
                  event->setChannel(track->outChannel());
 
532
                  continue;
 
533
                  }
 
534
            if (port == -1) {
 
535
                  if (lastport == -1) {
 
536
                        port = 0;
 
537
                        }
 
538
                  else {
 
539
                        port = lastport;
 
540
                        if (channel != -1) {
 
541
                              track->setOutPort(port);
 
542
                              }
 
543
                        }
 
544
                  }
 
545
            else {
 
546
                  if ((lastport != -1) && (lastport != port)) {
 
547
                        printf("PORT CHANGE in Midi File\n");
 
548
                        if (channel != -1) {
 
549
                              track->setOutPort(port);
 
550
                              }
 
551
                        }
 
552
                  }
 
553
            if (port >= MIDI_PORTS) {
 
554
                  printf("port %d >= %d, reset to 1\n", port, MIDI_PORTS);
 
555
                  port = 1;
 
556
                  }
 
557
            if (channel == -1) {
 
558
                  channel = lastchan;
 
559
                  track->setOutChannel(channel);
 
560
                  if (port != track->outPort())
 
561
                        printf("2 HALOOOO %d %d\n", port, track->outPort());
 
562
                  el->add(event);
 
563
                  event->setPort(track->outPort());
 
564
                  event->setChannel(track->outChannel());
 
565
                  continue;
 
566
                  }
 
567
            if (lastchan != channel) {
 
568
                  mergeChannels = true;   // DEBUG
 
569
                  if (!mergeChannels) {
 
570
                        //
 
571
                        // try to insert in approp track
 
572
                        //
 
573
                        TrackList* tl = song->tracks();
 
574
                        MidiTrack* mtrack;
 
575
                        iTrack t;
 
576
                        for (t = tl->begin(); t != tl->end(); ++t) {
 
577
                              mtrack = dynamic_cast<MidiTrack*>(*t);
 
578
                              if (mtrack == 0)
 
579
                                    continue;
 
580
                              if (mtrack->outChannel() == lastchan) {
 
581
                                    mtrack->events()->add(event);
 
582
                                    event->setPort(mtrack->outPort());
 
583
                                    event->setChannel(mtrack->outChannel());
 
584
                                    break;
 
585
                                    }
 
586
                              }
 
587
                        if (t == tl->end())
 
588
                              printf("no approp. track found\n");
 
589
                        }
 
590
                  else {
 
591
                        //
 
592
                        // event with new channel in track
 
593
                        //    try to find channel with appropr. track
 
594
                        //    or create new track
 
595
                        //
 
596
                        TrackList* tl = song->tracks();
 
597
                        iTrack t;
 
598
                        MidiTrack* mtrack = 0;
 
599
                        for (t = tl->begin(); t != tl->end(); ++t) {
 
600
                              mtrack = dynamic_cast<MidiTrack*>(*t);
 
601
                              if (mtrack == 0)
 
602
                                    continue;
 
603
                              if (mtrack->outChannel() == lastchan)
 
604
                                    break;
 
605
                              }
 
606
                        if (t == tl->end()) {
 
607
                              mtrack = new MidiTrack();
 
608
                              mtrack->setOutChannel(lastchan);
 
609
                              mtrack->setOutPort(port);
 
610
                              song->tracks()->add(mtrack);
 
611
                              }
 
612
                        track   = mtrack;
 
613
                        channel = lastchan;
 
614
                        el = track->events();
 
615
                        }
 
616
                  }
 
617
            event->setPort(track->outPort());
 
618
            event->setChannel(track->outChannel());
 
619
            el->add(event);
 
620
            }
 
621
      int end = curPos;
 
622
      if (end != endPos) {
 
623
            printf("TRACKLAENGE pass nicht %d+%d != %d, %d zu viel\n",
 
624
               endPos-len, len, end, endPos-end);
 
625
            if (end < endPos)
 
626
                  skip(endPos - end);
 
627
            }
 
628
      return false;
 
629
      }
 
630
 
 
631
//---------------------------------------------------------
 
632
//   printKaraoke
 
633
//---------------------------------------------------------
 
634
 
 
635
#if 0
 
636
static void printKaraoke(char* p)
 
637
      {
 
638
      if (*p == '\\') {
 
639
            printf("\n\n");
 
640
            ++p;
 
641
            }
 
642
      else if (*p == '/') {
 
643
            printf("\n");
 
644
            ++p;
 
645
            }
 
646
      else if (*p == '@')
 
647
            return;
 
648
      printf("%s", p);
 
649
      fflush(stdout);
 
650
      }
 
651
#endif
 
652
 
 
653
//---------------------------------------------------------
 
654
//   readEvent
 
655
//    returns:
 
656
//          0     End of track
 
657
//          -1    Event filtered
 
658
//          -2    Error
 
659
//---------------------------------------------------------
 
660
 
 
661
MidiEvent* MidiFile::readEvent(MidiTrack* track)
 
662
      {
 
663
      uchar me, type, a, b;
 
664
 
 
665
      int nclick = getvl();
 
666
      if (nclick == -1) {
 
667
            printf("readEvent: error 1\n");
 
668
            return 0;
 
669
            }
 
670
      click += nclick;
 
671
      for (;;) {
 
672
            if (read(&me, 1)) {
 
673
                  printf("readEvent: error 2\n");
 
674
                  return 0;
 
675
                  }
 
676
            //    0xf8  timing clock
 
677
            //    0xf9  undefined
 
678
            //    0xfa  start
 
679
            //    0xfb  continue
 
680
            //    0xfc  stop
 
681
            //    0xfd  undefined
 
682
            //    0xfe  active sensing
 
683
 
 
684
            if (me >= 0xf8 && me <= 0xfe) {
 
685
                  printf("Midi: Real Time Message 0x%02x\n", me & 0xff);
 
686
                  }
 
687
            else
 
688
                  break;
 
689
            }
 
690
 
 
691
      int t = (click * ::division + division/2) / division;
 
692
      MidiEvent* event = new MidiEvent;
 
693
      event->setPosTick(t);
 
694
 
 
695
      int len;
 
696
      uchar* buffer;
 
697
 
 
698
      switch (me) {
 
699
            case 0xf1:        // undefined
 
700
            case 0xf2:        // song position, 2 - 14 bit value, least significant byte first
 
701
            case 0xf3:        // song select          1 - song number
 
702
            case 0xf4:        // undefined
 
703
            case 0xf5:        // Device Select + Parameter 0, 1, 2, 3
 
704
            case 0xf6:        // tune request         0
 
705
                  printf("Midi: unknown Message 0x%02x\n", me & 0xff);
 
706
                  break;
 
707
            case ME_SYSEX:    // 0xf0
 
708
            case 0xf7:        // EOX
 
709
                  status = -1;                  // no running status
 
710
                  len = getvl();
 
711
                  if (len == -1) {
 
712
                        printf("readEvent: error 3\n");
 
713
                        delete event;
 
714
                        return (MidiEvent*)-2;
 
715
                        }
 
716
                  buffer = new uchar[len];
 
717
                  if (read(buffer, len)) {
 
718
                        printf("readEvent: error 4\n");
 
719
                        delete event;
 
720
                        delete buffer;
 
721
                        return (MidiEvent*)-2;
 
722
                        }
 
723
                  if (buffer[len-1] != 0xf7) {
 
724
                        printf("SYSEX endet nicht mit 0xf7!\n");
 
725
                        // Forstsetzung folgt?
 
726
                        }
 
727
                  else
 
728
                        --len;      // don't count 0xf7
 
729
                  if (checkSysex(track, len, buffer)) {
 
730
                        event->setType(MidiEvent::Sysex);
 
731
                        event->setDataLen(len);
 
732
                        event->setData(buffer);
 
733
                        }
 
734
                  else {
 
735
                        delete buffer;
 
736
                        delete event;
 
737
                        return (MidiEvent*)-1;
 
738
                        }
 
739
                  break;
 
740
            case ME_META:     // 0xff
 
741
                  status = -1;                  // no running status
 
742
                  if (read(&type, 1)) {            // read type
 
743
                        printf("readEvent: error 5\n");
 
744
                        delete event;
 
745
                        return (MidiEvent*)-2;
 
746
                        }
 
747
                  len = getvl();                // read len
 
748
                  if (len == -1) {
 
749
                        printf("readEvent: error 6\n");
 
750
                        delete event;
 
751
                        return (MidiEvent*)-2;
 
752
                        }
 
753
                  buffer = new uchar[len+1];
 
754
                  if (len) {
 
755
                        if (read(buffer, len)) {
 
756
                              printf("readEvent: error 7\n");
 
757
                              delete event;
 
758
                              delete buffer;
 
759
                              return (MidiEvent*)-2;
 
760
                              }
 
761
                        }
 
762
                  buffer[len] = 0;
 
763
                  if (type == 0x2f) {           // End of Track
 
764
                        delete event;
 
765
                        delete buffer;
 
766
                        return 0;
 
767
                        }
 
768
                  switch (type) {
 
769
                        case 0x03:        // Sequence-/TrackName
 
770
                              {
 
771
                              QString s((char*)buffer);
 
772
                              track->setTName(s);
 
773
                              delete buffer;
 
774
                              delete event;
 
775
                              }
 
776
                              return (MidiEvent*)-1;  // DEBUG: eigentlich n�chsten Event lesen
 
777
                        case 0x0f:        // Track Comment
 
778
                              {
 
779
                              QString s((char*)buffer);
 
780
                              track->setComment(s);
 
781
                              delete buffer;
 
782
                              delete event;
 
783
                              }
 
784
                              return (MidiEvent*)-1;  // DEBUG: eigentlich n�chsten Event lesen
 
785
                        case 0x22:        // Channel Prefix
 
786
                              if (len == 1) {
 
787
                                    channelprefix = buffer[0];
 
788
                                    delete buffer;
 
789
                                    delete event;
 
790
                                    return (MidiEvent*)-1;
 
791
                                    }
 
792
                              goto rest;
 
793
                        case 0x21:        // Port Change
 
794
                              if (len == 1) {
 
795
                                    lastport = buffer[0];
 
796
                                    if (lastport == 10)
 
797
                                          lastport = 1;
 
798
                                    delete buffer;
 
799
                                    delete event;
 
800
                                    return (MidiEvent*)-1;
 
801
                                    }
 
802
                              goto rest;
 
803
                        case 0x51:        // Tempo
 
804
                              {
 
805
                              int tempo = buffer[2] + (buffer[1] << 8) + (buffer[0] <<16);
 
806
                              tempomap.addTempo(t, tempo);
 
807
                              delete buffer;
 
808
                              delete event;
 
809
                              }
 
810
                              return (MidiEvent*)-1;  // DEBUG: eigentlich n�chsten Event lesen
 
811
                        case 0x58:        // Time Signature
 
812
                              {
 
813
                              timesig_z = buffer[0];
 
814
                              int n = buffer[1];
 
815
                              timesig_n = 1;
 
816
                              for (int i = 0; i < n; i++)
 
817
                                    timesig_n *= 2;
 
818
                              sigmap.add(t, timesig_z, timesig_n);
 
819
                              delete event;
 
820
                              delete buffer;
 
821
                              }
 
822
                              return (MidiEvent*)-1;  // DEBUG: eigentlich n�chsten Event lesen
 
823
                        case 0x59:  // Key Signature
 
824
                              {
 
825
                              track->scale.set(buffer[0]);
 
826
                              track->scale.setMajorMinor(buffer[1]);
 
827
                              delete event;
 
828
                              delete buffer;
 
829
                              }
 
830
                              return (MidiEvent*)-1;  // DEBUG: eigentlich n�chsten Event lesen
 
831
                        case 0x6:   // Marker
 
832
                              song->addMarker(QString((const char*)(buffer)), event->posTick(), false);
 
833
                              delete event;
 
834
                              delete buffer;
 
835
                              return (MidiEvent*)-1;  // DEBUG: eigentlich n�chsten Event lesen
 
836
 
 
837
                        case 0:     // Sequence Number
 
838
                        case 1:     // Text Event
 
839
                        case 2:     // Copyright
 
840
                        case 4:     // Instrument Name
 
841
                        case 5:     // Lyric
 
842
                        case 7:     // Cue Point
 
843
                        case 0x20:  // Channel Prefix
 
844
                        case 0x54:  // SMPTE Offset
 
845
                        case 0x74:  // Seq. Spezific 1
 
846
                        case 0x7f:  // Seq. Spezific 1
 
847
rest:
 
848
                        default:
 
849
                              event->setType(MidiEvent::Meta);
 
850
                              event->setDataLen(len+1);
 
851
                              event->setData(buffer);
 
852
                              event->setA(type);
 
853
                              break;
 
854
                        }
 
855
                  break;
 
856
            default:
 
857
                  if (me & 0x80) {                     // status byte
 
858
                        lastchan = me & 0x0f;
 
859
                        status   = me & 0xf0;
 
860
                        sstatus  = status;
 
861
                        if (read(&a, 1)) {
 
862
                              printf("readEvent: error 9\n");
 
863
                              delete event;
 
864
                              return (MidiEvent*)-2;
 
865
                              }
 
866
                        a &= 0x7F;
 
867
                        }
 
868
                  else {
 
869
                        if (status == -1) {
 
870
                              printf("readEvent: no running status, read 0x%02x\n", me);
 
871
                              printf("sstatus ist 0x%02x\n", sstatus);
 
872
                              if (sstatus == -1) {
 
873
                                    delete event;
 
874
                                    return (MidiEvent*)-1;
 
875
                                    }
 
876
                              status = sstatus;
 
877
                              }
 
878
                        a = me;
 
879
                        }
 
880
                  b = 0;
 
881
                  switch (status & 0xf0) {
 
882
                        case 0x80:        // Taste loslassen
 
883
                        case 0x90:        // Taste anschlagen
 
884
                        case 0xa0:        // Polyphoner Aftertouch
 
885
                        case 0xb0:        // Controller
 
886
                        case 0xe0:        // Pitch Bender
 
887
                              if (read(&b, 1)) {
 
888
                                    printf("readEvent: error 15\n");
 
889
                                    delete event;
 
890
                                    return (MidiEvent*)-2;
 
891
                                    }
 
892
                              if ((status & 0xf0) == 0xe0)
 
893
                                    event->setA(((((b & 0x80) ? 0 : b) << 7) + a) - 8192);
 
894
                              else
 
895
                                    event->setB(b & 0x80 ? 0 : b);
 
896
                              break;
 
897
                        case 0xc0:        // Program Change
 
898
                        case 0xd0:        // Channel Aftertouch
 
899
                              break;
 
900
                        default:          // f1 f2 f3 f4 f5 f6 f7 f8 f9
 
901
                              printf("BAD STATUS 0x%02x, me 0x%02x\n", status, me);
 
902
                              delete event;
 
903
                              return (MidiEvent*)-2;
 
904
                        }
 
905
                  event->setA(a);
 
906
                  switch (status & 0xf0) {
 
907
                        case 0x80:        // Taste loslassen
 
908
                              event->setType(MidiEvent::NoteOff);
 
909
                              break;
 
910
                        case 0x90:        // Taste anschlagen
 
911
                              event->setType(event->velo() == 0 ? MidiEvent::NoteOff : MidiEvent::Note);
 
912
                              break;
 
913
                        case 0xa0:        // Polyphoner Aftertouch
 
914
                              event->setType(MidiEvent::PAfter);
 
915
                              break;
 
916
                        case 0xb0:        // Controller
 
917
                              event->setType(MidiEvent::Ctrl7);
 
918
                              break;
 
919
                        case 0xc0:        // Program Change
 
920
                              event->setType(MidiEvent::Program);
 
921
                              break;
 
922
                        case 0xd0:        // Channel Aftertouch
 
923
                              event->setType(MidiEvent::CAfter);
 
924
                              break;
 
925
                        case 0xe0:        // Pitch Bender
 
926
                              event->setType(MidiEvent::Pitch);
 
927
                              break;
 
928
                        default:
 
929
                              assert(false);
 
930
                              break;
 
931
                        }
 
932
                  if ((a & 0x80) || (b & 0x80)) {
 
933
                        printf("8'tes Bit in Daten(%02x %02x): tick %d read 0x%02x  status:0x%02x channel:0x%02x\n",
 
934
                          a & 0xff, b & 0xff, click, me, status, lastchan);
 
935
                        printf("readEvent: error 16\n");
 
936
                        if (b & 0x80) {
 
937
                              // Try to fix: interpret as channel byte
 
938
                              lastchan = b & 0x0f;
 
939
                              status   = b & 0xf0;
 
940
                              sstatus  = status;
 
941
                              return event;
 
942
                              }
 
943
                        delete event;
 
944
                        return (MidiEvent*)-1;
 
945
                        }
 
946
                  break;
 
947
            }
 
948
      return event;
 
949
      }
 
950
 
 
951
//---------------------------------------------------------
 
952
//   writeTrack
 
953
//---------------------------------------------------------
 
954
 
 
955
bool MidiFile::writeTrack(MidiTrack* track)
 
956
      {
 
957
      write("MTrk", 4);
 
958
      int lenpos = ftell(fp);
 
959
      writeLong(0);                 // dummy len
 
960
 
 
961
      int port    = track->outPort();
 
962
      int channel = track->outChannel();
 
963
 
 
964
      EventList* events = new EventList;
 
965
 
 
966
      //-------------------------------------------------------------
 
967
      //    Setup Measure:
 
968
      //    Trackname, Comment, Instrument, Volume, Pan
 
969
      //
 
970
      if (!track->tname().isEmpty()) {
 
971
            const char* name = track->tname().latin1();
 
972
            int len = strlen(name);
 
973
            MidiEvent* ev = new MidiEvent(port, channel, 0, MidiEvent::Meta, len, (unsigned char*)name);
 
974
            ev->setA(0x3);    // Meta Sequence/Track Name
 
975
            events->add(ev);
 
976
            }
 
977
      if (!track->comment().isEmpty()) {
 
978
            const char* comment = track->comment().latin1();
 
979
            int len = strlen(comment);
 
980
            MidiEvent* ev = new MidiEvent(port, channel, 0, MidiEvent::Meta, len, (unsigned char*)comment);
 
981
            ev->setA(0x0f);   // Meta Text
 
982
            events->add(ev);
 
983
            }
 
984
 
 
985
      ChannelState* state = midiPorts[port].iState(track->outChannel());    // Initial State
 
986
 
 
987
      int tick = 300;
 
988
      if (state->controller[CTRL_HBANK] != -1) {
 
989
            events->add(new MidiEvent(port, channel, tick, MidiEvent::Ctrl7, CTRL_HBANK,
 
990
               state->controller[CTRL_HBANK], 0, 0));
 
991
            tick += 10;
 
992
            }
 
993
      if (state->controller[CTRL_LBANK] != -1) {
 
994
            events->add(new MidiEvent(port, channel, tick, MidiEvent::Ctrl7, CTRL_LBANK,
 
995
               state->controller[CTRL_LBANK], 0, 0));
 
996
            tick += 10;
 
997
            }
 
998
      if (state->program != -1) {
 
999
            events->add(new MidiEvent(port, channel, tick, MidiEvent::Program, state->program,
 
1000
               0, 0, 0));
 
1001
            tick += 10;
 
1002
            }
 
1003
      if (state->controller[CTRL_VOLUME] != -1) {
 
1004
            events->add(new MidiEvent(port, channel, tick, MidiEvent::Ctrl7, CTRL_VOLUME,
 
1005
               state->controller[CTRL_VOLUME], 0, 0));
 
1006
            tick += 10;
 
1007
            }
 
1008
      if (state->controller[CTRL_PANPOT] != -1) {
 
1009
            events->add(new MidiEvent(port, channel, tick, MidiEvent::Ctrl7, CTRL_PANPOT,
 
1010
               state->controller[CTRL_PANPOT], 0, 0));
 
1011
            tick += 10;
 
1012
            }
 
1013
 
 
1014
      //---------------------------------------------------
 
1015
      //    generate Note Off Events
 
1016
      //
 
1017
 
 
1018
      PartList* parts = track->parts();
 
1019
      for (iPart p = parts->begin(); p != parts->end(); ++p) {
 
1020
            MidiPart* part    = (MidiPart*) (p->second);
 
1021
            EventList* evlist = part->events();
 
1022
            for (iEvent i = evlist->begin(); i != evlist->end(); ++i) {
 
1023
                  MidiEvent* ev = (MidiEvent*)i->second;
 
1024
                  if (ev->isNote()) {
 
1025
                        if (ev->velo() == 0) {
 
1026
                              printf("Warning: midi note has velocity 0, (ignored)\n");
 
1027
                              continue;
 
1028
                              }
 
1029
                        MidiEvent* event = new MidiEvent(*ev);
 
1030
                        int len   = ev->lenTick();
 
1031
 
 
1032
                        //---------------------------------------
 
1033
                        //   apply trackinfo values
 
1034
                        //---------------------------------------
 
1035
 
 
1036
                        if (track->transposition
 
1037
                           || track->velocity
 
1038
                           || track->compression != 100
 
1039
                           || track->len != 100) {
 
1040
                              int pitch = ev->pitch();
 
1041
                              int velo  = ev->velo();
 
1042
                              pitch += track->transposition;
 
1043
                              if (pitch > 127)
 
1044
                                    pitch = 127;
 
1045
                              if (pitch < 0)
 
1046
                                    pitch = 0;
 
1047
 
 
1048
                              velo += track->velocity;
 
1049
                              velo = (velo * track->compression) / 100;
 
1050
                              if (velo > 127)
 
1051
                                    velo = 127;
 
1052
                              if (velo < 1)           // no off event
 
1053
                                    velo = 1;
 
1054
 
 
1055
                              len = (len *  track->len) / 100;
 
1056
                              event->setPitch(pitch);
 
1057
                              event->setVelo(velo);
 
1058
                              }
 
1059
                        events->add(event);
 
1060
                        MidiEvent* off = new MidiEvent(*event);
 
1061
                        int tick = off->posTick();
 
1062
                        if (len <= 0)
 
1063
                              len = 1;
 
1064
                        off->setPosTick(tick + len);
 
1065
                        off->setVelo(0);
 
1066
                        if (off->veloOff()) {
 
1067
                              // this is a "real" note off event
 
1068
                              off->setType(MidiEvent::NoteOff);
 
1069
                              off->setVelo(off->veloOff());
 
1070
                              }
 
1071
                        events->add(off);
 
1072
                        }
 
1073
                  else
 
1074
                        events->add(ev);
 
1075
                  }
 
1076
            }
 
1077
 
 
1078
      //---------------------------------------------------
 
1079
      //    only first midi track contains
 
1080
      //          - Track Marker
 
1081
      //          - copyright
 
1082
      //          - time signature
 
1083
      //          - tempo map
 
1084
      //          - GM/GS/XG Initialization
 
1085
 
 
1086
      for (iTrack i = song->tracks()->begin(); i != song->tracks()->end(); ++i) {
 
1087
            MidiTrack* t = dynamic_cast<MidiTrack*>(*i);
 
1088
            if (t == 0)
 
1089
                  continue;
 
1090
            if (track != t)
 
1091
                  break;
 
1092
 
 
1093
            //---------------------------------------------------
 
1094
            //    Write Track Marker
 
1095
            //
 
1096
            MarkerList* ml = song->marker();
 
1097
            for (ciMarker m = ml->begin(); m != ml->end(); ++m) {
 
1098
                  const char* name = m->second.name().latin1();
 
1099
                  int len = strlen(name);
 
1100
                  MidiEvent* ev = new MidiEvent(port, channel,
 
1101
                     m->first, MidiEvent::Meta,
 
1102
                     len, (unsigned char*)name);
 
1103
                  ev->setA(0x6);
 
1104
                  events->add(ev);
 
1105
                  }
 
1106
 
 
1107
            //---------------------------------------------------
 
1108
            //    Write Copyright
 
1109
            //
 
1110
            const char* copyright = song->copyright().latin1();
 
1111
            if (copyright && *copyright) {
 
1112
                  int len = strlen(copyright);
 
1113
                  MidiEvent* ev = new MidiEvent(port, channel, 0, MidiEvent::Meta,
 
1114
                     len, (unsigned char*)copyright);
 
1115
                  ev->setA(0x2);
 
1116
                  events->add(ev);
 
1117
                  }
 
1118
            //---------------------------------------------------
 
1119
            //    Write Songtype SYSEX: GM/GS/XG
 
1120
            //
 
1121
            switch(song->mtype()) {
 
1122
                  case MT_GM:
 
1123
                        events->add(new MidiEvent(port, channel, 0, MidiEvent::Sysex, gmOnMsgLen, gmOnMsg));
 
1124
                        break;
 
1125
                  case MT_GS:
 
1126
                        events->add(new MidiEvent(port, channel, 0, MidiEvent::Sysex, gmOnMsgLen, gmOnMsg));
 
1127
                        events->add(new MidiEvent(port, channel, 250, MidiEvent::Sysex, gsOnMsgLen, gsOnMsg));
 
1128
                        break;
 
1129
                  case MT_XG:
 
1130
                        events->add(new MidiEvent(port, channel, 0, MidiEvent::Sysex, gmOnMsgLen, gmOnMsg));
 
1131
                        events->add(new MidiEvent(port, channel, 250, MidiEvent::Sysex, xgOnMsgLen, xgOnMsg));
 
1132
                        break;
 
1133
                  case MT_UNKNOWN:
 
1134
                        break;
 
1135
                  }
 
1136
            //---------------------------------------------------
 
1137
            //    Write Tempomap
 
1138
            //
 
1139
            TempoList* tl = &tempomap;
 
1140
            for (ciTEvent e = tl->begin(); e != tl->end(); ++e) {
 
1141
                  TEvent* event = e->second;
 
1142
                  unsigned char data[3];
 
1143
                  int tempo = event->tempo;
 
1144
                  data[2] = tempo & 0xff;
 
1145
                  data[1] = (tempo >> 8) & 0xff;
 
1146
                  data[0] = (tempo >> 16) & 0xff;
 
1147
                  MidiEvent* ev = new MidiEvent(
 
1148
                     port, channel,
 
1149
                     event->tick, MidiEvent::Meta, 3, data);
 
1150
                  ev->setA(0x51);
 
1151
                  events->add(ev);
 
1152
                  }
 
1153
            //---------------------------------------------------
 
1154
            //    Write Signatures
 
1155
            //
 
1156
            const SigList* sl = &sigmap;
 
1157
            for (ciSigEvent e = sl->begin(); e != sl->end(); ++e) {
 
1158
                  SigEvent* event = e->second;
 
1159
                  unsigned char data[2];
 
1160
                  data[0] = event->z;
 
1161
                  switch(event->n) {
 
1162
                        case 1:  data[1] = 0; break;
 
1163
                        case 2:  data[1] = 1; break;
 
1164
                        case 4:  data[1] = 2; break;
 
1165
                        case 8:  data[1] = 3; break;
 
1166
                        case 16: data[1] = 4; break;
 
1167
                        case 32: data[1] = 5; break;
 
1168
                        case 64: data[1] = 6; break;
 
1169
                        default:
 
1170
                              fprintf(stderr, "falsche Signatur; nenner %d\n", event->n);
 
1171
                              break;
 
1172
                        }
 
1173
                  MidiEvent* ev = new MidiEvent(
 
1174
                     port, channel,
 
1175
                     event->tick, MidiEvent::Meta, 2, data);
 
1176
                  ev->setA(0x58);
 
1177
                  events->add(ev);
 
1178
                  printf("write meta %d/%d\n", data[0], data[1]);
 
1179
                  }
 
1180
            }
 
1181
 
 
1182
      //---------------------------------------------------
 
1183
      //    write Events to file
 
1184
      //
 
1185
 
 
1186
      status = -1;
 
1187
      tick = 0;
 
1188
      for (iEvent i = events->begin(); i != events->end(); ++i) {
 
1189
            putvl(((i->first-tick) * midiDivision + ::division/2)/::division);
 
1190
            tick = i->first;
 
1191
            writeEvent((MidiEvent*)i->second);
 
1192
            }
 
1193
      delete events;
 
1194
 
 
1195
      //---------------------------------------------------
 
1196
      //    write "End Of Track" Meta
 
1197
      //    write Track Len
 
1198
      //
 
1199
 
 
1200
      putvl(0);
 
1201
      put(0xff);        // Meta
 
1202
      put(0x2f);        // EOT
 
1203
      putvl(0);         // len 0
 
1204
      int endpos = ftell(fp);
 
1205
      fseek(fp, lenpos, SEEK_SET);
 
1206
      writeLong(endpos-lenpos-4);   // tracklen
 
1207
      fseek(fp, endpos, SEEK_SET);
 
1208
      return false;
 
1209
      }
 
1210
 
 
1211
//---------------------------------------------------------
 
1212
//   save
 
1213
//---------------------------------------------------------
 
1214
 
 
1215
bool MidiFile::save()
 
1216
      {
 
1217
      division = midiDivision;
 
1218
      write("MThd", 4);
 
1219
      writeLong(6);                 // header len
 
1220
      writeShort(1);                // format
 
1221
      TrackList* tracks = song->tracks();
 
1222
      writeShort(tracks->size());
 
1223
      writeShort(division);
 
1224
 
 
1225
      for (iTrack i = tracks->begin(); i != tracks->end(); ++i) {
 
1226
            MidiTrack* track = dynamic_cast<MidiTrack*>(*i);
 
1227
            if (track == 0)
 
1228
                  continue;
 
1229
            writeTrack(track);
 
1230
            }
 
1231
      return false;
 
1232
      }
 
1233
 
 
1234
//---------------------------------------------------------
 
1235
//   processTrack
 
1236
//---------------------------------------------------------
 
1237
 
 
1238
void MidiFile::processTrack1(MidiTrack* track)
 
1239
      {
 
1240
      if (track->outChannel() == 9 && song->mtype() != MT_UNKNOWN)
 
1241
            track->setType(Track::DRUM);
 
1242
 
 
1243
      MidiPort* port = &midiPorts[track->outPort()];
 
1244
      int channel = track->outChannel();
 
1245
      port->resetIstate(channel, false);
 
1246
 
 
1247
      int trackno  = song->tracks()->index(track);
 
1248
      bool karaoke = song->karaokeFlag();
 
1249
 
 
1250
      //---------------------------------------------------
 
1251
      //    get initial controller state
 
1252
      //---------------------------------------------------
 
1253
 
 
1254
      int karaokeState = 0;
 
1255
      EventList* tevents = track->events();
 
1256
 
 
1257
      for (iEvent i = tevents->begin(); i != tevents->end();) {
 
1258
            iEvent ie = i;
 
1259
            ++ie;
 
1260
            MidiEvent* ev  = (MidiEvent*)i->second;
 
1261
            switch(ev->type()) {
 
1262
                  case MidiEvent::Note:
 
1263
                        break;
 
1264
                  case MidiEvent::Program:
 
1265
                        if (port->iState(channel)->program == -1) {
 
1266
                              port->iState(channel)->program = ev->program();
 
1267
                              tevents->erase(i);
 
1268
                              }
 
1269
                        break;
 
1270
                  case MidiEvent::Ctrl7:
 
1271
                        switch(ev->cntrl()) {
 
1272
                              case CTRL_LDATA:
 
1273
                              case CTRL_HDATA:
 
1274
                              case CTRL_LNRPN:
 
1275
                              case CTRL_HNRPN:
 
1276
                              case CTRL_LRPN:
 
1277
                              case CTRL_HRPN:
 
1278
                                    break;
 
1279
                              default:
 
1280
                                    if (port->iState(channel)->controller[ev->cntrl()] == -1) {
 
1281
                                          port->iState(channel)->controller[ev->cntrl()] = ev->cntrlVal();
 
1282
                                          // add to controller list
 
1283
                                          addMidiController(MidiController::Controller7, ev->cntrl(), 0);
 
1284
                                          tevents->erase(i);
 
1285
                                          }
 
1286
                                    break;
 
1287
                              }
 
1288
                        break;
 
1289
                  case MidiEvent::Meta:
 
1290
                        switch(ev->dataA()) {
 
1291
                              case 0x1:        // text event
 
1292
                                    if (trackno == 1 && memcmp(ev->data(), "@KMID", 5) == 0) {
 
1293
                                          karaoke = true;
 
1294
                                          song->setKaraokeFlag(true);
 
1295
                                          song->setKaraokeChannel(ev->channel());
 
1296
                                          tevents->erase(i);
 
1297
                                          }
 
1298
                                    if ((trackno == 2) && karaoke) {
 
1299
                                          char* p = (char*)(ev->data());
 
1300
//                                          printKaraoke(p);
 
1301
                                          if (*p == '@') {
 
1302
                                                switch(karaokeState) {
 
1303
                                                      case 0:     // expect language
 
1304
                                                            ++karaokeState;
 
1305
                                                            break;
 
1306
                                                      case 1:     // expect titel
 
1307
                                                            ++karaokeState;  // language
 
1308
                                                            song->setName(p+2);
 
1309
                                                            break;
 
1310
                                                      case 2:     // expect interpret
 
1311
                                                            ++karaokeState;
 
1312
                                                            song->setKomponist1(p+2);
 
1313
                                                            break;
 
1314
                                                      default:
 
1315
                                                            printf("unexpected @ in karaoke\n");
 
1316
                                                            break;
 
1317
                                                      }
 
1318
                                                }
 
1319
                                          else if (karaokeState == 3) {
 
1320
                                                // text sammeln
 
1321
                                                song->karaoke()->add(ev);
 
1322
                                                }
 
1323
                                          tevents->erase(i);
 
1324
                                          }
 
1325
                                    break;
 
1326
                              case 0x2:         // Copyright
 
1327
                                    song->setCopyright(QString((const char*)(ev->data())));
 
1328
                                    tevents->erase(i);
 
1329
                                    break;
 
1330
 
 
1331
                              default:
 
1332
                                    break;
 
1333
                              }
 
1334
                        break;
 
1335
                  default:
 
1336
                        break;
 
1337
                  }
 
1338
            i = ie;
 
1339
            }
 
1340
 
 
1341
      //---------------------------------------------------
 
1342
      //    NoteOff Events aufl�sen
 
1343
      //---------------------------------------------------
 
1344
 
 
1345
      for (iEvent i = tevents->begin(); i != tevents->end(); ++i) {
 
1346
            MidiEvent* event = (MidiEvent*)i->second;
 
1347
            if (event->isNote())
 
1348
                  event->setLenTick(-1);
 
1349
            }
 
1350
 
 
1351
      for (iEvent i = tevents->begin(); i != tevents->end(); ++i) {
 
1352
            MidiEvent* ev  = (MidiEvent*)i->second;
 
1353
            if (ev->isNote()) {
 
1354
                  if (ev->isNoteOff()) {
 
1355
                        printf("NOTE OFF without Note ON\n");
 
1356
                        }
 
1357
                  iEvent k;
 
1358
                  for (k = tevents->lower_bound(ev->posTick()); k != tevents->end(); ++k) {
 
1359
                        MidiEvent* event = (MidiEvent*)k->second;
 
1360
                        if (ev->isNoteOff(event)) {
 
1361
                              int t = k->first - i->first;
 
1362
                              if (t <= 0) {
 
1363
                                    if (debugMsg) {
 
1364
                                          printf("Note len is (%d-%d)=%d, set to 1\n",
 
1365
                                            k->first, i->first, k->first - i->first);
 
1366
                                          ev->dump();
 
1367
                                          event->dump();
 
1368
                                          }
 
1369
                                    t = 1;
 
1370
                                    }
 
1371
                              ev->setLenTick(t);
 
1372
                              ev->setVeloOff(event->veloOff());
 
1373
                              break;
 
1374
                              }
 
1375
                        }
 
1376
                  if (k == tevents->end()) {
 
1377
                        printf("-kein note-off! %d channel %d pitch %d velo %d\n",
 
1378
                           i->first, ev->channel(), ev->pitch(), ev->velo());
 
1379
                        //
 
1380
                        // ton am Taktende abschalten
 
1381
                        //
 
1382
                        int endTick = song->roundUpBar(ev->posTick()+1);
 
1383
                        ev->setLenTick(endTick-ev->posTick());
 
1384
                        }
 
1385
                  else {
 
1386
                        tevents->erase(k);
 
1387
                        }
 
1388
                  }
 
1389
            }
 
1390
 
 
1391
// DEBUG: any note offs left?
 
1392
 
 
1393
      for (iEvent i = tevents->begin(); i != tevents->end(); ++i) {
 
1394
            MidiEvent* ev  = (MidiEvent*)i->second;
 
1395
            if (ev->isNoteOff()) {
 
1396
                  printf("+extra note-off! %d channel %d pitch %d velo %d\n",
 
1397
                           i->first, ev->channel(), ev->pitch(), ev->velo());
 
1398
//                  ev->dump();
 
1399
                  }
 
1400
            }
 
1401
      }
 
1402
 
 
1403
//---------------------------------------------------------
 
1404
//   processTrack
 
1405
//    divide events into parts
 
1406
//---------------------------------------------------------
 
1407
 
 
1408
void MidiFile::processTrack2(MidiTrack* track)
 
1409
      {
 
1410
      EventList* tevents = track->events();
 
1411
      if (tevents->empty())
 
1412
            return;
 
1413
 
 
1414
      //---------------------------------------------------
 
1415
      //    Parts ermitteln
 
1416
      //    die Midi-Spuren werden in Parts aufgebrochen;
 
1417
      //    ein neuer Part wird bei einer L�cke von einem
 
1418
      //    Takt gebildet; die L�nge wird jeweils auf
 
1419
      //    Takte aufgerundet und aligned
 
1420
      //---------------------------------------------------
 
1421
 
 
1422
      PartList* pl = track->parts();
 
1423
 
 
1424
      int lastTick = 0;
 
1425
      for (iEvent i = tevents->begin(); i != tevents->end(); ++i) {
 
1426
            Event* event = i->second;
 
1427
            int epos = event->posTick() + event->lenTick();
 
1428
            if (epos > lastTick)
 
1429
                  lastTick = epos;
 
1430
            }
 
1431
 
 
1432
      int len = song->roundUpBar(lastTick+1);
 
1433
      int bar2, beat, tick;
 
1434
      sigmap.tickValues(len, &bar2, &beat, &tick);
 
1435
 
 
1436
      QString partname = track->name();
 
1437
 
 
1438
      int lastOff = 0;
 
1439
      int st = -1;      // start tick current part
 
1440
      int x1 = 0;       // start tick current measure
 
1441
      int x2 = 0;       // end tick current measure
 
1442
 
 
1443
      for (int bar = 0; bar < bar2; ++bar, x1 = x2) {
 
1444
            x2 = sigmap.bar2tick(bar+1, 0, 0);
 
1445
            if (lastOff > x2) {
 
1446
                  // this measure is busy!
 
1447
                  continue;
 
1448
                  }
 
1449
            iEvent i1 = tevents->lower_bound(x1);
 
1450
            iEvent i2 = tevents->lower_bound(x2);
 
1451
 
 
1452
            if (i1 == i2) {   // empty?
 
1453
                  if (st != -1) {
 
1454
                        MidiPart* part = new MidiPart(track);
 
1455
                        part->setPosTick(st);
 
1456
                        part->setLenTick(x1-st);
 
1457
                        part->setName(partname);
 
1458
                        pl->add(part);
 
1459
                        st = -1;
 
1460
                        }
 
1461
                  }
 
1462
            else {
 
1463
                  if (st == -1)
 
1464
                        st = x1;    // begin new  part
 
1465
                  //HACK:
 
1466
                  //lastOff:
 
1467
                  for (iEvent i = i1; i != i2; ++i) {
 
1468
                        MidiEvent* event = (MidiEvent*)i->second;
 
1469
                        if (event->type() == MidiEvent::Note) {
 
1470
                              int off = event->posTick() + event->lenTick();
 
1471
                              if (off > lastOff)
 
1472
                                    lastOff = off;
 
1473
                              }
 
1474
                        }
 
1475
                  }
 
1476
            }
 
1477
      if (st != -1) {
 
1478
            MidiPart* part = new MidiPart(track);
 
1479
            part->setPosTick(st);
 
1480
            part->setLenTick(x2-st);
 
1481
            part->setName(partname);
 
1482
            pl->add(part);
 
1483
            }
 
1484
 
 
1485
      //-------------------------------------------------------------
 
1486
      //    assign events to parts
 
1487
      //-------------------------------------------------------------
 
1488
 
 
1489
      for (iPart p = pl->begin(); p != pl->end(); ++p) {
 
1490
            MidiPart* part = (MidiPart*)(p->second);
 
1491
            int stick = part->posTick();
 
1492
            int etick = part->posTick() + part->lenTick();
 
1493
            iEvent r1 = tevents->lower_bound(stick);
 
1494
            iEvent r2 = tevents->lower_bound(etick);
 
1495
            part->events()->insert(r1, r2);
 
1496
            tevents->erase(r1, r2);
 
1497
            }
 
1498
 
 
1499
      if (tevents->size())
 
1500
            printf("-----------events left: %d\n", tevents->size());
 
1501
      for (iEvent i = tevents->begin(); i != tevents->end(); ++i) {
 
1502
            printf("%d===\n", i->first);
 
1503
            i->second->dump();
 
1504
            }
 
1505
      // all events should be processed:
 
1506
      assert(tevents->empty());
 
1507
      }
 
1508
 
 
1509
//---------------------------------------------------------
 
1510
//   readMidi
 
1511
//    returns true on error
 
1512
//---------------------------------------------------------
 
1513
 
 
1514
bool MidiFile::read()
 
1515
      {
 
1516
      int i;
 
1517
      char tmp[4];
 
1518
 
 
1519
      read(tmp, 4);
 
1520
      int len = readLong();
 
1521
      if (memcmp(tmp, "MThd", 4) || len < 6) {
 
1522
            fprintf(stderr, "bad Midifile: MThd expected\n");
 
1523
            return true;
 
1524
            }
 
1525
 
 
1526
      int format = readShort();
 
1527
      ntracks    = readShort();
 
1528
      division   = readShort();
 
1529
 
 
1530
      if (division < 0)
 
1531
            division = (-(division/256)) * (division & 0xff);
 
1532
      if (len > 6)
 
1533
            skip(len-6); // skip the excess
 
1534
 
 
1535
      // reset midi ports to "unknown state"
 
1536
      for (int i = 0; i < MIDI_PORTS; ++i) {
 
1537
            for (int k = 0; k < MIDI_CHANNELS; ++k) {
 
1538
                  midiPorts[i].resetIstate(k, false);
 
1539
                  }
 
1540
            }
 
1541
      switch (format) {
 
1542
            case 0:
 
1543
                  if (readTrack(true)) {
 
1544
                        printf("read midifile failed at pos %d: %s\n", curPos, strerror(error));
 
1545
                        return true;
 
1546
                        }
 
1547
                  break;
 
1548
            case 1:
 
1549
                  for (i = 0; i < ntracks; i++) {
 
1550
                        if (readTrack(false)) {
 
1551
                              printf("read midifile failed at pos %d: %s\n", curPos, strerror(error));
 
1552
                              return true;
 
1553
                              }
 
1554
                        }
 
1555
                  break;
 
1556
            default:
 
1557
            case 2:
 
1558
                  printf("midi fileformat %d not implemented!\n", format);
 
1559
                  return true;
 
1560
            }
 
1561
 
 
1562
      TrackList* tl = song->tracks();
 
1563
      for (iTrack t = tl->begin(); t != tl->end(); ++t) {
 
1564
            MidiTrack* track = dynamic_cast<MidiTrack*>(*t);
 
1565
            if (track == 0)
 
1566
                  continue;
 
1567
            processTrack1(track);
 
1568
            }
 
1569
 
 
1570
      //-------------------------------------------------------------
 
1571
      // calculate tick offset
 
1572
      //
 
1573
      int tickOffset = MAXINT;
 
1574
      for (iTrack t = tl->begin(); t != tl->end(); ++t) {
 
1575
            MidiTrack* track = dynamic_cast<MidiTrack*>(*t);
 
1576
            if (track == 0)
 
1577
                  continue;
 
1578
            EventList* events = track->events();
 
1579
            if (!events->empty()) {
 
1580
                  MidiEvent* event = (MidiEvent*)events->begin()->second;
 
1581
                  int tick = event->posTick();
 
1582
                  if (tick < tickOffset)
 
1583
                        tickOffset = tick;
 
1584
                  }
 
1585
            }
 
1586
//      printf("OFFSET %d %d\n", tickOffset, tickOffset/::division);
 
1587
 
 
1588
      for (iTrack t = tl->begin(); t != tl->end(); ++t) {
 
1589
            MidiTrack* track = dynamic_cast<MidiTrack*>(*t);
 
1590
            if (track == 0)
 
1591
                  continue;
 
1592
            processTrack2(track);
 
1593
            }
 
1594
 
 
1595
      if (song->karaokeFlag()) {
 
1596
            for (iTrack t = tl->begin(); t != tl->end(); ++t) {
 
1597
                  MidiTrack* track = dynamic_cast<MidiTrack*>(*t);
 
1598
                  if (track == 0)
 
1599
                        continue;
 
1600
                  if (track->outChannel() == song->karaokeChannel()) {
 
1601
                        addKaraoke(track);
 
1602
                        }
 
1603
                  }
 
1604
            }
 
1605
 
 
1606
      return false;
 
1607
      }
 
1608
 
 
1609
//---------------------------------------------------------
 
1610
//   addKaraoke
 
1611
//---------------------------------------------------------
 
1612
 
 
1613
void MidiFile::addKaraoke(MidiTrack*)
 
1614
      {
 
1615
#if 0
 
1616
      EventList* el = song->karaoke();
 
1617
      for (iEvent i = el->begin(); i != el->end(); ++i) {
 
1618
            MidiEvent* event = (MidiEvent*)i->second;
 
1619
            char* p = (char*)(event->data());
 
1620
            if (*p == '\\' || *p ==  '/')
 
1621
                  ++p;
 
1622
            while (*p == ' ')
 
1623
                  ++p;
 
1624
            PartList* pl = track->parts();
 
1625
            for (iPart ip = pl->begin(); ip != pl->end(); ++ip) {
 
1626
                  EventList* nel = ((MidiPart*)*ip)->events();
 
1627
                  }
 
1628
            }
 
1629
#endif
 
1630
      }
 
1631