|
|
|
|
@@ -18,7 +18,7 @@
|
|
|
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#define VERSION "0.72 August 31 2023 midistats"
|
|
|
|
|
#define VERSION "0.77 October 25 2023 midistats"
|
|
|
|
|
|
|
|
|
|
#include <limits.h>
|
|
|
|
|
/* Microsoft Visual C++ Version 6.0 or higher */
|
|
|
|
|
@@ -63,6 +63,7 @@ static FILE *F;
|
|
|
|
|
static FILE *outhandle; /* for producing the abc file */
|
|
|
|
|
|
|
|
|
|
int tracknum=0; /* track number */
|
|
|
|
|
int lasttrack = 0; /* lasttrack */
|
|
|
|
|
int division; /* pulses per quarter note defined in MIDI header */
|
|
|
|
|
int quietLimit; /* minimum number of pulses with no activity */
|
|
|
|
|
long tempo = 500000; /* the default tempo is 120 quarter notes/minute */
|
|
|
|
|
@@ -118,6 +119,7 @@ int notechan[2048],notechanvol[2048]; /*for linking on and off midi
|
|
|
|
|
int lastTick[2048]; /* for getting last pulse number for chan (0-15) and pitch (0-127) in MIDI file */
|
|
|
|
|
int last_on_tick[17]; /* for detecting chords [SS] 2019-08-02 */
|
|
|
|
|
int channel_active[17]; /* for dealing with chords [SS] 2023-08-30 */
|
|
|
|
|
int channel_used_in_track[17]; /* for dealing with quietTime [SS] 2023-09-06 */
|
|
|
|
|
|
|
|
|
|
int histogram[256];
|
|
|
|
|
unsigned char drumpat[8000];
|
|
|
|
|
@@ -147,6 +149,8 @@ struct trkstat {
|
|
|
|
|
int lastNoteOff[17];
|
|
|
|
|
int quietTime[17];
|
|
|
|
|
int rhythmpatterns[17];
|
|
|
|
|
int numberOfGaps[17];
|
|
|
|
|
float pitchEntropy[17];
|
|
|
|
|
} trkdata;
|
|
|
|
|
|
|
|
|
|
/* The trkstat references the individual channels in the midi file.
|
|
|
|
|
@@ -168,8 +172,10 @@ int pitchhistogram[12]; /* pitch distribution for non drum notes */
|
|
|
|
|
int channel2prog[17]; /* maps channel to program */
|
|
|
|
|
int channel2nnotes[17]; /*maps channel to note count */
|
|
|
|
|
int chnactivity[17]; /* [SS] 2018-02-02 */
|
|
|
|
|
int trkactivity[40]; /* [SS] 2023-10-25 */
|
|
|
|
|
int progactivity[128]; /* [SS] 2018-02-02 */
|
|
|
|
|
int pitchclass_activity[12]; /* [SS] 2018-02-02 */
|
|
|
|
|
int chanpitchhistogram[204]; /* [SS] 2023-09-13 */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* [SS] 2017-11-01 */
|
|
|
|
|
@@ -413,6 +419,7 @@ void stats_header (int format, int ntrks, int ldivision)
|
|
|
|
|
quietLimit = ldivision*8;
|
|
|
|
|
divisionsPerBar = division*beatsPerBar;
|
|
|
|
|
unitDivision = divisionsPerBar/24;
|
|
|
|
|
lasttrack = ntrks; /* [SS] 2023-10-25 */
|
|
|
|
|
printf("ntrks %d\n",ntrks);
|
|
|
|
|
printf("ppqn %d\n",ldivision);
|
|
|
|
|
chordthreshold = ldivision/16; /* [SS] 2018-01-21 */
|
|
|
|
|
@@ -425,6 +432,7 @@ void stats_header (int format, int ntrks, int ldivision)
|
|
|
|
|
trkdata.cntlparam[i] = 0; /* [SS] 2022-03-04 */
|
|
|
|
|
trkdata.pressure[i] = 0; /* [SS] 2022-03-04 */
|
|
|
|
|
trkdata.quietTime[i] = 0; /* [SS] 2022-08-22 */
|
|
|
|
|
trkdata.numberOfGaps[i] = 0; /* [SS] 2023-09-07 */
|
|
|
|
|
progcolor[i] = 0;
|
|
|
|
|
channel2prog[i] = 0; /* [SS] 2023-06-25-8/
|
|
|
|
|
channel2nnotes[i] = 0;
|
|
|
|
|
@@ -434,6 +442,7 @@ void stats_header (int format, int ntrks, int ldivision)
|
|
|
|
|
for (i=0;i<12;i++) pitchhistogram[i] = 0; /* [SS] 2017-11-01 */
|
|
|
|
|
for (i=0;i<12;i++) pitchclass_activity[i] = 0; /* [SS] 2018-02-02 */
|
|
|
|
|
for (i=0;i<128;i++) progactivity[i] = 0; /* [SS] 2018-02-02 */
|
|
|
|
|
for (i=0;i<40;i++) trkactivity[i]=0; /* [SS] 2023-10-25 */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void determine_progcolor ()
|
|
|
|
|
@@ -519,17 +528,12 @@ else
|
|
|
|
|
for (i=0;i<12;i++) printf("%5.2f ",(double) pitchclass_activity[i]);
|
|
|
|
|
printf("\nchnact "); /* [SS] 2018-02-08 */
|
|
|
|
|
if (npulses > 0)
|
|
|
|
|
for (i=1;i<17;i++) printf("%5.2f ",chnactivity[i]/(double) trkdata.npulses[0]);
|
|
|
|
|
for (i=1;i<17;i++) printf("%5.3f ",chnactivity[i]/(double) trkdata.npulses[0]);
|
|
|
|
|
else
|
|
|
|
|
for (i=0;i<17;i++) printf("%5.2f ",(double) chnactivity[i]);
|
|
|
|
|
printf("\nquietTime ");
|
|
|
|
|
for (i=1;i<17;i++) {
|
|
|
|
|
delta = trkdata.npulses[0] - trkdata.quietTime[i];
|
|
|
|
|
if (trkdata.quietTime[i] < quietLimit) delta = 0;
|
|
|
|
|
delta = delta / (double) trkdata.npulses[0];
|
|
|
|
|
/* printf (" %5.3f ", delta); */
|
|
|
|
|
printf (" %d ", trkdata.quietTime[i]);
|
|
|
|
|
}
|
|
|
|
|
for (i=0;i<17;i++) printf("%5.3f ",(double) chnactivity[i]);
|
|
|
|
|
printf("\ntrkact ");
|
|
|
|
|
lasttrack++;
|
|
|
|
|
for (i=0;i<lasttrack;i++) printf("% 5d",trkactivity[i]);
|
|
|
|
|
|
|
|
|
|
printf("\npitchentropy %f\n",histogram_entropy(pitchclass_activity,12));
|
|
|
|
|
printf("totalrhythmpatterns =%d\n",nrpatterns);
|
|
|
|
|
@@ -547,8 +551,10 @@ float histogram_entropy (int *histogram, int size)
|
|
|
|
|
float e,p;
|
|
|
|
|
total = 0;
|
|
|
|
|
entropy = 0.0;
|
|
|
|
|
//printf("\nhistogram_entropy of:");
|
|
|
|
|
for (i=0;i<size;i++) {
|
|
|
|
|
total += histogram[i];
|
|
|
|
|
//printf(" %d",histogram[i]);
|
|
|
|
|
}
|
|
|
|
|
for (i=0;i<size;i++) {
|
|
|
|
|
if (histogram[i] < 1) continue;
|
|
|
|
|
@@ -556,6 +562,7 @@ float histogram_entropy (int *histogram, int size)
|
|
|
|
|
e = p*log(p);
|
|
|
|
|
entropy = entropy + e;
|
|
|
|
|
}
|
|
|
|
|
//printf("\n");
|
|
|
|
|
return -entropy/log(2.0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -596,10 +603,12 @@ for (i=1;i<17;i++) {
|
|
|
|
|
printf("-1 0 ");
|
|
|
|
|
printf("%d %d ",trkdata.cntlparam[i],trkdata.pressure[i]); /* [SS] 2022-03-04 */
|
|
|
|
|
printf("%d %d ",trkdata.quietTime[i],trkdata.rhythmpatterns[i]);
|
|
|
|
|
if (i != 10) printf("%d %d %d %d",trkdata.notepitchmin[i], trkdata.notepitchmax[i] ,trkdata.notelengthmin[i], trkdata.notelengthmax[i]);
|
|
|
|
|
else
|
|
|
|
|
if (i != 10) {printf("%d %d %d %d %d",trkdata.notepitchmin[i], trkdata.notepitchmax[i] ,trkdata.notelengthmin[i], trkdata.notelengthmax[i], trkdata.numberOfGaps[i]);
|
|
|
|
|
printf(" %f",trkdata.pitchEntropy[i]);
|
|
|
|
|
} else
|
|
|
|
|
printf("-1 0");
|
|
|
|
|
trkdata.quietTime[i] = 0;
|
|
|
|
|
trkdata.quietTime[i] = 0; /* in case channel i is used in another track */
|
|
|
|
|
trkdata.numberOfGaps[i] = 0;
|
|
|
|
|
printf("\n");
|
|
|
|
|
|
|
|
|
|
channel2nnotes[i] += trkdata.notecount[i] + trkdata.chordcount[i];
|
|
|
|
|
@@ -629,12 +638,22 @@ void stats_trackstart()
|
|
|
|
|
printf("trk %d \n",tracknum);
|
|
|
|
|
|
|
|
|
|
for (i=0;i<2048;i++) lastTick[i] = -1;
|
|
|
|
|
for (i=0;i<17;i++) channel_used_in_track[i] = 0; /* [SS] 2023-09-06 */
|
|
|
|
|
for (i=0;i<204;i++) chanpitchhistogram[i] = 0; /* [SS] 2023-09-13 */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void stats_trackend()
|
|
|
|
|
{
|
|
|
|
|
trkdata.npulses[tracknum] = Mf_currtime;
|
|
|
|
|
int chan;
|
|
|
|
|
int i;
|
|
|
|
|
float entropy;
|
|
|
|
|
if (trkdata.npulses[0] < Mf_currtime) trkdata.npulses[0] = Mf_currtime;
|
|
|
|
|
for (chan = 1; chan < 17; chan++) /* [SS] 2023-09-06 */
|
|
|
|
|
if (channel_used_in_track[chan] > 0) trkdata.quietTime[chan] += (trkdata.npulses[0] - trkdata.lastNoteOff[chan]);
|
|
|
|
|
for (chan=0;chan<16;chan++) { /* 2023-09-13 */
|
|
|
|
|
if (chan == 9 || channel_used_in_track[chan+1] == 0) continue;
|
|
|
|
|
trkdata.pitchEntropy[chan+1] = histogram_entropy(chanpitchhistogram +chan*12,11);
|
|
|
|
|
}
|
|
|
|
|
output_track_summary();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -647,7 +666,10 @@ int chan, pitch, vol;
|
|
|
|
|
int barnum;
|
|
|
|
|
int unit;
|
|
|
|
|
int dithermargin; /* [SS] 2023-08-22 */
|
|
|
|
|
int cpitch; /* [SS] 2023-09-13 */
|
|
|
|
|
|
|
|
|
|
cpitch = pitch % 12;
|
|
|
|
|
channel_used_in_track[chan+1]++; /* [SS] 2023-09-06 */
|
|
|
|
|
dithermargin = unitDivision/2 - 1;
|
|
|
|
|
if (vol == 0) {
|
|
|
|
|
/* treat as noteoff */
|
|
|
|
|
@@ -660,9 +682,10 @@ int chan, pitch, vol;
|
|
|
|
|
trkdata.notepitchmin[chan+1] = min(trkdata.notepitchmin[chan+1],pitch);
|
|
|
|
|
if (trkdata.lastNoteOff[chan+1] >= 0) {
|
|
|
|
|
delta = Mf_currtime - trkdata.lastNoteOff[chan+1];
|
|
|
|
|
trkdata.lastNoteOff[chan+1] = -1; /* in case of chord */
|
|
|
|
|
if (delta > quietLimit) {
|
|
|
|
|
trkdata.quietTime[chan+1] += delta;
|
|
|
|
|
trkdata.numberOfGaps[chan+1]++;
|
|
|
|
|
trkdata.lastNoteOff[chan+1] = -1; /* in case of chord */
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -686,6 +709,7 @@ int chan, pitch, vol;
|
|
|
|
|
unit = ((Mf_currtime+dithermargin) % divisionsPerBar)/unitDivision;
|
|
|
|
|
//printf("unit = %d pattern = %d \n",unit,barChn[chan].rhythmPattern);
|
|
|
|
|
barChn[chan].rhythmPattern = barChn[chan].rhythmPattern |= (1UL << unit);
|
|
|
|
|
chanpitchhistogram[chan*12+cpitch]++; /* [SS] 2023-09-13 */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@@ -715,9 +739,10 @@ void stats_noteoff(int chan,int pitch,int vol)
|
|
|
|
|
trkdata.notelength[chan+1] += length;
|
|
|
|
|
trkdata.notelengthmax[chan+1] = max(trkdata.notelengthmax[chan+1],length);
|
|
|
|
|
trkdata.notelengthmin[chan+1] = min(trkdata.notelengthmin[chan+1],length);
|
|
|
|
|
if (length < 3) printf("chan = %d lasttick = %d currtime = %ld\n",chan,lastTick[chan*128+pitch],Mf_currtime);
|
|
|
|
|
//if (length < 3) printf("chan = %d lasttick = %d currtime = %ld\n",chan,lastTick[chan*128+pitch],Mf_currtime);
|
|
|
|
|
trkdata.lastNoteOff[chan+1] = Mf_currtime; /* [SS] 2022.08.22 */
|
|
|
|
|
chnactivity[chan+1] += length;
|
|
|
|
|
trkactivity[tracknum]++;
|
|
|
|
|
if (chan == 9) return; /* drum channel */
|
|
|
|
|
pitchclass_activity[pitch % 12] += length;
|
|
|
|
|
program = trkdata.program[chan+1];
|
|
|
|
|
|