summaryrefslogtreecommitdiffstats
path: root/libtdemid/player.cc
diff options
context:
space:
mode:
authorMichele Calgaro <michele.calgaro@yahoo.it>2020-12-06 21:23:48 +0900
committerMichele Calgaro <michele.calgaro@yahoo.it>2020-12-06 21:34:48 +0900
commit84498d97e27f79e7e919b42bbe54208a02856aaf (patch)
tree8a66f6e1a88bc2304b453796663ae75f20425490 /libtdemid/player.cc
parent8bc0bc7fc67437fbf757283604104e998ad2fda7 (diff)
downloadtdelibs-84498d97e27f79e7e919b42bbe54208a02856aaf.tar.gz
tdelibs-84498d97e27f79e7e919b42bbe54208a02856aaf.zip
Renaming of files in preparation for code style tools.
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it> (cherry picked from commit 4f99f868f09bbffa2e15733b8b7c78eba07a199e)
Diffstat (limited to 'libtdemid/player.cc')
-rw-r--r--libtdemid/player.cc959
1 files changed, 0 insertions, 959 deletions
diff --git a/libtdemid/player.cc b/libtdemid/player.cc
deleted file mode 100644
index ff7093496..000000000
--- a/libtdemid/player.cc
+++ /dev/null
@@ -1,959 +0,0 @@
-/**************************************************************************
-
- player.cc - class MidiPlayer. Plays a set of tracks
- This file is part of LibKMid 0.9.5
- Copyright (C) 1997,98,99,2000 Antonio Larrosa Jimenez
- LibKMid's homepage : http://www.arrakis.es/~rlarrosa/libtdemid.html
-
- This library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Library General Public
- License as published by the Free Software Foundation; either
- version 2 of the License, or (at your option) any later version.
-
- This library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Library General Public License for more details.
-
- You should have received a copy of the GNU Library General Public License
- along with this library; see the file COPYING.LIB. If not, write to
- the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
- Boston, MA 02110-1301, USA.
-
- $Id$
-
- Send comments and bug fixes to Antonio Larrosa <larrosa@kde.org>
-
-***************************************************************************/
-#include "player.h"
-#include "sndcard.h"
-#include "midispec.h"
-#include <string.h>
-#include <unistd.h>
-#include <sys/time.h>
-#include "midistat.h"
-#include "mt32togm.h"
-
-//#define PLAYERDEBUG
-//#define GENERAL_DEBUG_MESSAGES
-
-#define T2MS(ticks) (((double)ticks)*(double)60000L)/((double)tempoToMetronomeTempo(tempo)*(double)info->ticksPerCuarterNote)
-
-#define MS2T(ms) (((ms)*(double)tempoToMetronomeTempo(tempo)*(double)info->ticksPerCuarterNote)/((double)60000L))
-
-#define REMOVEDUPSTRINGS
-
-MidiPlayer::MidiPlayer(DeviceManager *midi_,PlayerController *pctl)
-{
- midi=midi_;
- info=NULL;
- tracks=NULL;
- songLoaded=0;
- ctl=pctl;
- spev=NULL;
- na=NULL;
- parsesong=true;
- generatebeats=false;
-}
-
-MidiPlayer::~MidiPlayer()
-{
- removeSpecialEvents();
- removeSong();
-}
-
-void MidiPlayer::removeSong(void)
-{
- if ((songLoaded)&&(tracks!=NULL))
- {
-#ifdef PLAYERDEBUG
- printf("Removing song from memory\n");
-#endif
- int i=0;
- while (i<info->ntracks)
- {
- if (tracks[i]!=NULL) delete tracks[i];
- i++;
- }
- delete tracks;
- tracks=NULL;
- if (info!=NULL)
- {
- delete info;
- info=NULL;
- }
- }
- songLoaded=0;
-}
-
-int MidiPlayer::loadSong(const char *filename)
-{
- removeSong();
-#ifdef PLAYERDEBUG
- printf("Loading Song : %s\n",filename);
-#endif
- info=new MidiFileInfo;
- int ok;
- tracks=readMidiFile(filename,info,ok);
- if (ok<0) return ok;
- if (tracks==NULL) return -4;
-
- parseInfoData(info,tracks,ctl->ratioTempo);
-
- if (parsesong)
- {
- parseSpecialEvents();
- if (generatebeats) generateBeats();
- }
-
- songLoaded=1;
- return 0;
-}
-
-void MidiPlayer::insertBeat(SpecialEvent *ev,ulong ms,int num,int den)
-{
- SpecialEvent *beat=new SpecialEvent;
- beat->next=ev->next;
- ev->next=beat;
- beat->id=1;
- beat->type=7;
- beat->absmilliseconds=ms;
- beat->num=num;
- beat->den=den;
-}
-
-
-void MidiPlayer::generateBeats(void)
-{
-#ifdef PLAYERDEBUG
- printf("player::Generating Beats...\n");
-#endif
-
- if (spev==NULL) return;
- SpecialEvent *ev=spev;
- SpecialEvent *nextev=ev->next;
- ulong tempo=(ulong)(500000 * ctl->ratioTempo);
- int i=1;
- int num=4;
- int den=4;
- // ulong beatstep=((double)tempo*4/(den*1000));
- // ulong beatstep=T2MS(info->ticksPerCuarterNote*(4/den));
- double ticksleft=(((double)info->ticksPerCuarterNote*4)/den);
-
- double beatstep=T2MS(ticksleft);
- double nextbeatms=0;
- double lastbeatms=0;
- double measurems=0;
-
- while (nextev!=NULL)
- {
- switch (ev->type)
- {
- case (0): // End of list
- {
- };break;
- case (1): // Text
- case (2): // Lyrics
- {
- };break;
- case (3): // Change Tempo
- {
- lastbeatms=ev->absmilliseconds;
- ticksleft=MS2T(nextbeatms-lastbeatms);
- tempo=ev->tempo;
- nextbeatms=lastbeatms+T2MS(ticksleft);
- // printf("Change at %lu to %d\n",ev->absmilliseconds,ev->tempo);
- // beatstep=((double)tempo*4/(den*1000));
- beatstep=T2MS(((static_cast<double>(info->ticksPerCuarterNote)*4)/den));
- };break;
- case (6): // Change number of beats per measure
- {
- num=ev->num;
- i=1;
- den=ev->den;
- // printf("Change at %lu to %d/%d\n",ev->absmilliseconds,num,den);
- // beatstep=((double)tempo*4/(den*1000));
- // beatstep=T2MS(info->ticksPerCuarterNote*(4/den));
- beatstep=T2MS((((double)info->ticksPerCuarterNote*4)/den));
- nextbeatms=ev->absmilliseconds;
- };break;
- };
- if (nextev->absmilliseconds>nextbeatms)
- {
- //printf("Adding %d,%d\n",num,tot);
- //printf("beat at %g , %d/%d\n",nextbeatms,i,num);
- //printf(" %ld %d\n",nextev->absmilliseconds,nextev->type);
- if (i == 1) {
- measurems=nextbeatms;
- }
- insertBeat(ev, static_cast<unsigned long>(nextbeatms), i++, num);
- if (i > num) {
- i=1;
- }
- lastbeatms=nextbeatms;
- nextbeatms+=beatstep;
- // nextbeatms=measurems+beatstep*i;
-
- ticksleft = ( (static_cast<double>(info->ticksPerCuarterNote)*4) / den);
-
- }
-
- ev=ev->next;
- nextev=ev->next;
- }
-
- /* ev==NULL doesn't indicate the end of the song, so continue generating beats */
-
- if (ev!=NULL)
- {
- if (ev->type==0)
- {
- ev=spev;
- /* Looking if ev->next is NULL is not needed because
- we are sure that a ev->type == 0 exists, we just have
- to assure that the first spev is not the only one */
- if (ev->next!=NULL)
- while (ev->next->type!=0) ev=ev->next;
- }
- while (nextbeatms<info->millisecsTotal)
- {
- // printf("beat2 at %g , %d/%d\n",nextbeatms,i,num);
- if (i==1) measurems=nextbeatms;
- insertBeat(ev, static_cast<unsigned long>(nextbeatms), i++, num);
- if (i>num) i=1;
- nextbeatms+=beatstep;
- ev=ev->next;
- }
- }
-
- /* Regenerate IDs */
-
- ev=spev;
- i=1;
- while (ev!=NULL)
- {
- ev->id=i++;
- ev=ev->next;
- }
-
-
-#ifdef PLAYERDEBUG
- printf("player::Beats Generated\n");
-#endif
-
-}
-
-void MidiPlayer::removeSpecialEvents(void)
-{
- SpecialEvent * ev=spev;
- while (spev!=NULL)
- {
- ev=spev->next;
- delete spev;
- spev=ev;
- }
- delete na;
- na=0;
-}
-
-void MidiPlayer::parseSpecialEvents(void)
-{
-#ifdef PLAYERDEBUG
- printf("player::Parsing...\n");
-#endif
- removeSpecialEvents();
- spev=new SpecialEvent;
- if (spev==NULL) return;
- SpecialEvent *pspev=spev;
- pspev->type=0;
- pspev->ticks=0;
- if (na) delete na;
- na=new NoteArray();
- if (!na) { delete spev; spev=0L; return; };
- int trk;
- int minTrk;
- double minTime=0;
- double maxTime;
- ulong tempo=(ulong)(500000 * (ctl->ratioTempo));
- ulong firsttempo=0;
- for (int i=0;i<info->ntracks;i++)
- {
- tracks[i]->init();
- tracks[i]->changeTempo(tempo);
- }
- MidiEvent *ev=new MidiEvent;
- //ulong mspass;
- double prevms=0;
- int spev_id=1;
- int j;
- int parsing=1;
-#ifdef REMOVEDUPSTRINGS
- char lasttext[1024];
- ulong lasttexttime=0;
- lasttext[0]=0;
- int lasttexttype=0;
-#endif
- while (parsing)
- {
- prevms=minTime;
- trk=0;
- minTrk=0;
- maxTime=minTime + 2 * 60000L;
- minTime=maxTime;
- parsing=0;
- while (trk<info->ntracks)
- {
- if (tracks[trk]->absMsOfNextEvent()<minTime)
- {
- minTrk=trk;
- minTime=tracks[minTrk]->absMsOfNextEvent();
- parsing=1;
- }
- trk++;
- }
- // if ((minTime==maxTime))
- if (parsing==0)
- {
- // parsing=0;
-#ifdef PLAYERDEBUG
- printf("END of parsing\n");
-#endif
- }
- else
- {
- // mspass=(ulong)(minTime-prevms);
- trk=0;
- while (trk<info->ntracks)
- {
- tracks[trk]->currentMs(minTime);
- trk++;
- }
- }
- trk=minTrk;
- tracks[trk]->readEvent(ev);
- switch (ev->command)
- {
- case (MIDI_NOTEON) :
- if (ev->vel==0) na->add((ulong)minTime,ev->chn,0, ev->note);
- else na->add((ulong)minTime,ev->chn,1,ev->note);
- break;
- case (MIDI_NOTEOFF) :
- na->add((ulong)minTime,ev->chn,0, ev->note);
- break;
- case (MIDI_PGM_CHANGE) :
- na->add((ulong)minTime,ev->chn, 2,ev->patch);
- break;
- case (MIDI_SYSTEM_PREFIX) :
- {
- if ((ev->command|ev->chn)==META_EVENT)
- {
- switch (ev->d1)
- {
- case (1) :
- case (5) :
- {
- if (pspev!=NULL)
- {
- pspev->absmilliseconds=(ulong)minTime;
- pspev->type=ev->d1;
- pspev->id=spev_id++;
-#ifdef PLAYERDEBUG
- printf("ev->length %ld\n",ev->length);
-
-#endif
- strncpy(pspev->text,(char *)ev->data,
- (ev->length>= sizeof(lasttext))? sizeof(lasttext)-1 : (ev->length) );
- pspev->text[(ev->length>= sizeof(lasttext))? sizeof(lasttext)-1:(ev->length)]=0;
-#ifdef PLAYERDEBUG
- printf("(%s)(%s)\n",pspev->text,lasttext);
-#endif
-#ifdef REMOVEDUPSTRINGS
- if ((strcmp(pspev->text,lasttext)!=0)||(pspev->absmilliseconds!=lasttexttime)||(pspev->type!=lasttexttype))
- {
- lasttexttime=pspev->absmilliseconds;
- lasttexttype=pspev->type;
- strncpy(lasttext, pspev->text, 1024);
- lasttext[sizeof(lasttext)-1] = 0;
-#endif
- pspev->next=new SpecialEvent;
-#ifdef PLAYERDEBUG
- if (pspev->next==NULL) printf("pspev->next=NULL\n");
-#endif
- pspev=pspev->next;
-#ifdef REMOVEDUPSTRINGS
- }
-#endif
- }
- }
- break;
- case (ME_SET_TEMPO) :
- {
- if (pspev!=NULL)
- {
- pspev->absmilliseconds=(ulong)minTime;
- pspev->type=3;
- pspev->id=spev_id++;
- tempo=(ulong)(((ev->data[0]<<16)|(ev->data[1]<<8)|(ev->data[2])) * ctl->ratioTempo);
- pspev->tempo=tempo;
- if (firsttempo==0) firsttempo=tempo;
- for (j=0;j<info->ntracks;j++)
- {
- tracks[j]->changeTempo(tempo);
- }
- pspev->next=new SpecialEvent;
- pspev=pspev->next;
- }
- }
- break;
- case (ME_TIME_SIGNATURE) :
- {
- if (pspev!=NULL)
- {
- pspev->absmilliseconds=(ulong)minTime;
- pspev->type=6;
- pspev->id=spev_id++;
- pspev->num=ev->d2;
- pspev->den=ev->d3;
- pspev->next=new SpecialEvent;
- pspev=pspev->next;
- }
- }
- break;
- }
- }
- }
- break;
- }
- }
-
- delete ev;
- pspev->type=0;
- pspev->absmilliseconds=(ulong)prevms;
- pspev->next=NULL;
- if (firsttempo==0) firsttempo=tempo;
- ctl->tempo=firsttempo;
-
- //writeSPEV();
- for (int i=0;i<info->ntracks;i++)
- {
- tracks[i]->init();
- }
-}
-
-/*
-NoteArray *MidiPlayer::parseNotes(void)
-{
-#ifdef PLAYERDEBUG
- printf("player::Parsing Notes...\n");
-#endif
- NoteArray *na=new NoteArray();
- int trk;
- int minTrk;
- double minTime=0;
- double maxTime;
- for (int i=0;i<info->ntracks;i++)
- {
- tracks[i]->init();
- };
- ulong tempo=1000000;
- ulong tmp;
- Midi_event *ev=new Midi_event;
- //ulong mspass;
- double prevms=0;
- int j;
- int parsing=1;
- while (parsing)
- {
- prevms=minTime;
- trk=0;
- minTrk=0;
- maxTime=minTime + 2 * 60000L;
- minTime=maxTime;
- while (trk<info->ntracks)
- {
- if (tracks[trk]->absMsOfNextEvent()<minTime)
- {
- minTrk=trk;
- minTime=tracks[minTrk]->absMsOfNextEvent();
- };
- trk++;
- };
- if ((minTime==maxTime))
- {
- parsing=0;
-#ifdef PLAYERDEBUG
- printf("END of parsing\n");
-#endif
- }
- else
- {
- // mspass=(ulong)(minTime-prevms);
- trk=0;
- while (trk<info->ntracks)
- {
- tracks[trk]->currentMs(minTime);
- trk++;
- };
- };
- trk=minTrk;
- tracks[trk]->readEvent(ev);
- if (ev->command==MIDI_NOTEON)
- {
- if (ev->vel==0) {printf("note off at %g\n",minTime);na->add((ulong)minTime,ev->chn,0, ev->note);}
- else {printf("note on at %g\n",minTime);na->add((ulong)minTime,ev->chn,1,ev->note);}
- }
- else
- if (ev->command==MIDI_NOTEOFF) na->add((ulong)minTime,ev->chn,0, ev->note);
- if (ev->command==MIDI_PGM_CHANGE) na->add((ulong)minTime,ev->chn, 2,ev->patch);
- if (ev->command==MIDI_SYSTEM_PREFIX)
- {
- if (((ev->command|ev->chn)==META_EVENT)&&(ev->d1==ME_SET_TEMPO))
- {
- tempo=(ev->data[0]<<16)|(ev->data[1]<<8)|(ev->data[2]);
- for (j=0;j<info->ntracks;j++)
- {
- tracks[j]->changeTempo(tempo);
- };
- };
- };
-
- };
-
- delete ev;
- for (int i=0;i<info->ntracks;i++)
- {
- tracks[i]->init();
- };
- return na;
-};
-*/
-
-void MidiPlayer::play(bool calloutput,void output(void))
-{
-#ifdef PLAYERDEBUG
- printf("Playing...\n");
-#endif
-
- if (midi->midiPorts()+midi->synthDevices()==0)
- {
- fprintf(stderr,"Player :: There are no midi ports !\n");
- ctl->error=1;
- return;
- }
-
- midi->openDev();
- if (midi->ok()==0)
- {
- fprintf(stderr,"Player :: Couldn't play !\n");
- ctl->error=1;
- return;
- }
- midi->setVolumePercentage(ctl->volumepercentage);
- midi->initDev();
- // parsePatchesUsed(tracks,info,ctl->gm);
- midi->setPatchesToUse(info->patchesUsed);
-
- int trk;
- int minTrk;
- double minTime=0;
- double maxTime;
- int i;
- ulong tempo=(ulong)(500000 * ctl->ratioTempo);
- for (i=0;i<info->ntracks;i++)
- {
- tracks[i]->init();
- tracks[i]->changeTempo(tempo);
- }
-
- midi->tmrStart(info->ticksPerCuarterNote);
- MidiEvent *ev=new MidiEvent;
- ctl->ev=ev;
- ctl->ticksTotal=info->ticksTotal;
- ctl->ticksPlayed=0;
- //ctl->millisecsPlayed=0;
- ulong ticksplayed=0;
- double absTimeAtChangeTempo=0;
- double absTime=0;
- double diffTime=0;
- MidiStatus *midistat;
- //ulong mspass;
- double prevms=0;
- int j;
- int halt=0;
- ctl->tempo=tempo;
- ctl->num=4;
- ctl->den=4;
- int playing;
- ctl->paused=0;
- if ((ctl->message!=0)&&(ctl->message & PLAYER_SETPOS))
- {
- ctl->moving=1;
- ctl->message&=~PLAYER_SETPOS;
- midi->sync(1);
- midi->tmrStop();
- midi->closeDev();
- midistat = new MidiStatus();
- setPos(ctl->gotomsec,midistat);
- minTime=ctl->gotomsec;
- prevms=(ulong)minTime;
- midi->openDev();
- midi->tmrStart(info->ticksPerCuarterNote);
- diffTime=ctl->gotomsec;
- midistat->sendData(midi,ctl->gm);
- delete midistat;
- midi->setPatchesToUse(info->patchesUsed);
- ctl->moving=0;
- } else
- for (i=0;i<16;i++)
- {
- if (ctl->forcepgm[i])
- {
- midi->chnPatchChange(i, ctl->pgm[i]);
- }
- }
-
- timeval begintv;
- gettimeofday(&begintv, NULL);
- ctl->beginmillisec=begintv.tv_sec*1000+begintv.tv_usec/1000;
- ctl->OK=1;
- ctl->playing=playing=1;
-
- while (playing)
- {
- /*
- if (ctl->message!=0)
- {
- if (ctl->message & PLAYER_DOPAUSE)
- {
- diffTime=minTime;
- ctl->message&=~PLAYER_DOPAUSE;
- midi->sync(1);
- midi->tmrStop();
- ctl->paused=1;
- midi->closeDev();
- while ((ctl->paused)&&(!(ctl->message&PLAYER_DOSTOP))
- &&(!(ctl->message&PLAYER_HALT))) sleep(1);
- midi->openDev();
- midi->tmrStart();
- ctl->OK=1;
- printf("Continue playing ... \n");
- };
- if (ctl->message & PLAYER_DOSTOP)
- {
- ctl->message&=~PLAYER_DOSTOP;
- playing=0;
- };
- if (ctl->message & PLAYER_HALT)
- {
- ctl->message&=~PLAYER_HALT;
- playing=0;
- halt=1;
- };
- if (ctl->message & PLAYER_SETPOS)
- {
- ctl->moving=1;
- ctl->message&=~PLAYER_SETPOS;
- midi->sync(1);
- midi->tmrStop();
- midi->closeDev();
- midistat = new midiStat();
- SetPos(ctl->gotomsec,midistat);
- minTime=ctl->gotomsec;
- prevms=(ulong)minTime;
- midi->openDev();
- midi->tmrStart();
- diffTime=ctl->gotomsec;
- ctl->moving=0;
- midistat->sendData(midi,ctl->gm);
- delete midistat;
- ctl->OK=1;
- while (ctl->OK==1) ;
- ctl->moving=0;
- };
- };
- */
- prevms=minTime;
- // ctl->millisecsPlayed=minTime;
- trk=0;
- minTrk=0;
- maxTime=minTime + 120000L /* milliseconds */;
- minTime=maxTime;
- playing=0;
- while (trk<info->ntracks)
- {
- if (tracks[trk]->absMsOfNextEvent()<minTime)
- {
- minTrk=trk;
- minTime=tracks[minTrk]->absMsOfNextEvent();
- playing=1;
- }
- trk++;
- }
-#ifdef PLAYERDEBUG
- printf("minTime %g\n",minTime);
-#endif
- // if ((minTime==maxTime)/* || (minTicks> 60000L)*/)
- if (playing==0)
- {
- // playing=0;
-#ifdef PLAYERDEBUG
- printf("END of playing\n");
-#endif
- }
- else
- {
- // mspass=(ulong)(minTime-prevms);
- trk=0;
- while (trk<info->ntracks)
- {
- tracks[trk]->currentMs(minTime);
- trk++;
- }
- midi->wait(minTime-diffTime);
- }
- trk=minTrk;
- tracks[trk]->readEvent(ev);
- switch (ev->command)
- {
- case (MIDI_NOTEON) :
- midi->noteOn(ev->chn, ev->note, ev->vel);break;
- case (MIDI_NOTEOFF):
- midi->noteOff(ev->chn, ev->note, ev->vel);break;
- case (MIDI_KEY_PRESSURE) :
- midi->keyPressure(ev->chn, ev->note,ev->vel);break;
- case (MIDI_PGM_CHANGE) :
- if (!ctl->forcepgm[ev->chn])
- midi->chnPatchChange(ev->chn, (ctl->gm==1)?(ev->patch):(MT32toGM[ev->patch]));break;
- case (MIDI_CHN_PRESSURE) :
- midi->chnPressure(ev->chn, ev->vel);break;
- case (MIDI_PITCH_BEND) :
- midi->chnPitchBender(ev->chn, ev->d1,ev->d2);break;
- case (MIDI_CTL_CHANGE) :
- midi->chnController(ev->chn, ev->ctl,ev->d1);break;
- case (MIDI_SYSTEM_PREFIX) :
- if ((ev->command|ev->chn)==META_EVENT)
- {
- if ((ev->d1==5)||(ev->d1==1))
- {
- ctl->SPEVplayed++;
- }
- if (ev->d1==ME_SET_TEMPO)
- {
- absTimeAtChangeTempo=absTime;
- ticksplayed=0;
- ctl->SPEVplayed++;
- tempo=(ulong)(((ev->data[0]<<16)|(ev->data[1]<<8)|(ev->data[2]))*ctl->ratioTempo);
-#ifdef PLAYERDEBUG
- printf("Tempo : %ld %g (ratio : %g)\n",tempo,tempoToMetronomeTempo(tempo),ctl->ratioTempo);
-#endif
- midi->tmrSetTempo((int)tempoToMetronomeTempo(tempo));
- ctl->tempo=tempo;
- for (j=0;j<info->ntracks;j++)
- {
- tracks[j]->changeTempo(tempo);
- }
- }
- if (ev->d1==ME_TIME_SIGNATURE)
- {
- ctl->num=ev->d2;
- ctl->den=ev->d3;
- ctl->SPEVplayed++;
- }
- }
- break;
- }
- if (calloutput)
- {
- midi->sync();
- output();
- }
-
- }
- ctl->ev=NULL;
- delete ev;
-#ifdef PLAYERDEBUG
- printf("Syncronizing ...\n");
-#endif
- if (halt)
- midi->sync(1);
- else
- midi->sync();
-#ifdef PLAYERDEBUG
- printf("Closing device ...\n");
-#endif
- midi->allNotesOff();
- midi->closeDev();
- ctl->playing=0;
-#ifdef PLAYERDEBUG
- printf("Bye...\n");
-#endif
- ctl->OK=1;
- ctl->finished=1;
-}
-
-
-void MidiPlayer::setPos(ulong gotomsec,MidiStatus *midistat)
-{
- int trk,minTrk;
- ulong tempo=(ulong)(500000 * ctl->ratioTempo);
- double minTime=0,maxTime,prevms=0;
- int i,j,likeplaying=1;
-
- MidiEvent *ev=new MidiEvent;
- ctl->SPEVplayed=0;
- for (i=0;i<info->ntracks;i++)
- {
- tracks[i]->init();
- tracks[i]->changeTempo(tempo);
- }
-
- for (i=0;i<16;i++)
- {
- if (ctl->forcepgm[i]) midistat->chnPatchChange(i, ctl->pgm[i]);
- }
-
- while (likeplaying)
- {
- trk=0;
- minTrk=0;
- maxTime=minTime + 120000L; /*milliseconds (2 minutes)*/
- minTime=maxTime;
- while (trk<info->ntracks)
- {
- if (tracks[trk]->absMsOfNextEvent()<minTime)
- {
- minTrk=trk;
- minTime=tracks[minTrk]->absMsOfNextEvent();
- }
- trk++;
- }
- if (minTime==maxTime)
- {
- likeplaying=0;
-#ifdef GENERAL_DEBUG_MESSAGES
- printf("END of likeplaying\n");
-#endif
- }
- else
- {
- if (minTime>=gotomsec)
- {
- prevms=gotomsec;
- likeplaying=0;
-#ifdef GENERAL_DEBUG_MESSAGES
- printf("Position reached !! \n");
-#endif
- minTime=gotomsec;
- }
- else
- {
- prevms=minTime;
- }
- trk=0;
- while (trk<info->ntracks)
- {
- tracks[trk]->currentMs(minTime);
- trk++;
- }
- }
-
- if (likeplaying)
- {
- trk=minTrk;
- tracks[trk]->readEvent(ev);
- switch (ev->command)
- {
- /* case (MIDI_NOTEON) :
- midistat->noteOn(ev->chn, ev->note, ev->vel);break;
- case (MIDI_NOTEOFF):
- midistat->noteOff(ev->chn, ev->note, ev->vel);break;
- case (MIDI_KEY_PRESSURE) :
- midistat->keyPressure(ev->chn, ev->note,ev->vel);break;
- */
- case (MIDI_PGM_CHANGE) :
- if (!ctl->forcepgm[ev->chn]) midistat->chnPatchChange(ev->chn, ev->patch);break;
- case (MIDI_CHN_PRESSURE) :
- midistat->chnPressure(ev->chn, ev->vel);break;
- case (MIDI_PITCH_BEND) :
- midistat->chnPitchBender(ev->chn, ev->d1,ev->d2);break;
- case (MIDI_CTL_CHANGE) :
- midistat->chnController(ev->chn, ev->ctl,ev->d1);break;
- case (MIDI_SYSTEM_PREFIX) :
- if ((ev->command|ev->chn)==META_EVENT)
- {
- if ((ev->d1==5)||(ev->d1==1))
- {
- ctl->SPEVplayed++;
- }
- if (ev->d1==ME_SET_TEMPO)
- {
- ctl->SPEVplayed++;
- tempo=(ulong)(((ev->data[0]<<16)|(ev->data[1]<<8)|(ev->data[2]))*ctl->ratioTempo);
-
- midistat->tmrSetTempo((int)tempoToMetronomeTempo(tempo));
- for (j=0;j<info->ntracks;j++)
- {
- tracks[j]->changeTempo(tempo);
- }
- }
- if (ev->d1==ME_TIME_SIGNATURE)
- {
- ctl->num=ev->d2;
- ctl->den=ev->d3;
- ctl->SPEVplayed++;
- }
- }
- break;
- }
- }
- }
- delete ev;
- ctl->tempo=tempo;
-}
-
-
-void MidiPlayer::debugSpecialEvents(void)
-{
- SpecialEvent *pspev=spev;
- printf("**************************************\n");
- while ((pspev!=NULL)&&(pspev->type!=0))
- {
- printf("t:%d ticks:%d diff:%ld abs:%ld s:%s tempo:%ld\n",pspev->type,pspev->ticks,pspev->diffmilliseconds,pspev->absmilliseconds,pspev->text,pspev->tempo);
- pspev=pspev->next;
- }
-
-}
-
-void MidiPlayer::setParseSong(bool b)
-{
- parsesong=b;
-}
-
-void MidiPlayer::setGenerateBeats(bool b)
-{
- generatebeats=b;
-}
-
-void MidiPlayer::setTempoRatio(double ratio)
-{
- if (songLoaded)
- {
- ctl->ratioTempo=ratio;
- parseInfoData(info,tracks,ctl->ratioTempo);
- if (parsesong)
- {
- parseSpecialEvents();
- if (generatebeats) generateBeats();
-
- }
- }
- else
- {
- ctl->tempo=(ulong)((ctl->tempo*ctl->ratioTempo)/ratio);
- ctl->ratioTempo=ratio;
- }
-
-}
-
-#undef T2MS
-#undef MS2T