dmlib: minijss/jssplr.c annotate

annotate minijss/jssplr.c @ 1163:aa3738b121d1

Bump copyright years.

author	Matti Hamalainen <ccr@tnsp.org>
date	Thu, 05 Mar 2015 07:19:05 +0200
parents	d0898867ec4c
children	848a88ce7a57

rev	line source
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 /*
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 * miniJSS - Module playing routines
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	3 * Programmed and designed by Matti 'ccr' Hamalainen
1163 aa3738b121d1 Bump copyright years. Matti Hamalainen <ccr@tnsp.org> parents: 1134 diff changeset	4 * (C) Copyright 2006-2015 Tecnic Software productions (TNSP)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 #include "jssplr.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7
779 954b1b392c8b Restore old note frequency calculation for now. Matti Hamalainen <ccr@tnsp.org> parents: 776 diff changeset	8 #include <math.h>
954b1b392c8b Restore old note frequency calculation for now. Matti Hamalainen <ccr@tnsp.org> parents: 776 diff changeset	9
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 /* Miscellaneous tables
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 */
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	12 static const Uint8 jmpSineTab[32] =
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	13 {
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	14 0, 24, 49, 74, 97, 120, 141, 161,
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	15 180, 197, 212, 224, 235, 244, 250, 253,
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	16 255, 253, 250, 244, 235, 224, 212, 197,
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	17 180, 161, 141, 120, 97, 74, 49, 24
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	18 };
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	19
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	21 static const Sint16 jmpXMAmigaPeriodTab[13 * 8] = {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	22 907, 900, 894, 887, 881, 875, 868, 862, 856, 850, 844, 838,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	23 832, 826, 820, 814, 808, 802, 796, 791, 785, 779, 774, 768,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	24 762, 757, 752, 746, 741, 736, 730, 725, 720, 715, 709, 704,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	25 699, 694, 689, 684, 678, 675, 670, 665, 660, 655, 651, 646,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	26 640, 636, 632, 628, 623, 619, 614, 610, 604, 601, 597, 592,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	27 588, 584, 580, 575, 570, 567, 563, 559, 555, 551, 547, 543,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	28 538, 535, 532, 528, 524, 520, 516, 513, 508, 505, 502, 498,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	29 494, 491, 487, 484, 480, 477, 474, 470, 467, 463, 460, 457,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	30
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	31 453, 450, 447, 443, 440, 437, 434, 431
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	32 };
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	33
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	34
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	35 #define jmpNMODEffectTable (36)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	36 static const char jmpMODEffectTable[jmpNMODEffectTable] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	37
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	38
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	39 /* Helper functions
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	40 */
136 8ac24d753304 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 135 diff changeset	41 static int jmpNoteToAmigaPeriod(int note, int finetune)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	42 {
154 969cefb2f8c3 Use dmClamp(). Matti Hamalainen <ccr@tnsp.org> parents: 146 diff changeset	43 int tmp = dmClamp(note + finetune + 8, 0, 103);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	44 return jmpXMAmigaPeriodTab[tmp];
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	45 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	46
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	47
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48 static int jmpGetPeriodFromNote(JSSPlayer *mp, int note, int finetune)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	49 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	50 int res;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	51
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	52 if (JMPGETMODFLAGS(mp, jmdfAmigaPeriods))
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	53 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	54 int mfinetune = finetune / 16,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	55 mnote = (note % 12) * 8,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	56 moctave = note / 12,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	57 period1, period2;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	58
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	59 period1 = jmpNoteToAmigaPeriod(mnote, mfinetune);
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	60
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	61 if (finetune < 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	62 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	63 mfinetune--;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64 finetune = -finetune;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	65 } else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	66 mfinetune++;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	67
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	68 period2 = jmpNoteToAmigaPeriod(mnote, mfinetune);
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	69
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	70 mfinetune = finetune & 15;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	71 period1 *= (16 - mfinetune);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	72 period2 *= mfinetune;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	73
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	74 res = ((period1 + period2) * 2) >> moctave;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	75
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	76 //fprintf(stderr, "jmpGetAmigaPeriod(%d, %d) = %d\n", note, finetune, res);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	77 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	78 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	79 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	80 //fprintf(stderr, "jmpGetLinearPeriod(%d, %d) = %d\n", note, finetune, res);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	81 //res = ((120 - note) << 6) - (finetune / 2);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82 res = 7680 - (note * 64) - (finetune / 2);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	83 if (res < 1) res = 1;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	84 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	85
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	86 return res;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	87 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	88
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89
193 b778cc2fe7c8 Create a separate new frequency flag (vs. new pitch), for future changes. Matti Hamalainen <ccr@tnsp.org> parents: 189 diff changeset	90 static void jmpCSetPitch(JSSPlayer mp, JSSPlayerChannel chn, int value)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	91 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	92 if (value > 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	93 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	94 if (JMPGETMODFLAGS(mp, jmdfAmigaPeriods))
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	95 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	96 // Frequency = 8363*1712 / Period
193 b778cc2fe7c8 Create a separate new frequency flag (vs. new pitch), for future changes. Matti Hamalainen <ccr@tnsp.org> parents: 189 diff changeset	97 chn->cfreq = chn->freq = 14317456 / value;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	98 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	99 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	100 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	101 // Frequency = Frequency = 83632^((612164 - Period) / (12164))
779 954b1b392c8b Restore old note frequency calculation for now. Matti Hamalainen <ccr@tnsp.org> parents: 776 diff changeset	102 chn->cfreq = chn->freq = 8363.0f * pow(2.0f, (4608.0f - (double) value) / 768.0f);
954b1b392c8b Restore old note frequency calculation for now. Matti Hamalainen <ccr@tnsp.org> parents: 776 diff changeset	103 //chn->cfreq = chn->freq = 8363 * (1 << ((4608 - value) / 768));
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	104 }
218 c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	105
c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	106 JMPSETNDFLAGS(cdfNewFreq);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	107 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	108 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	109
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	110
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	111 static void jmpCSetVolume(JSSPlayerChannel *chn, int channel, int volume)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	112 {
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	113 (void) channel;
157 4727db27e85d Remove dead code. Matti Hamalainen <ccr@tnsp.org> parents: 155 diff changeset	114
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	115 chn->volume = dmClamp(volume, mpMinVol, mpMaxVol);
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	116 JMPSETNDFLAGS(cdfNewVolume);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	117 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	118
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	119
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	120 static BOOL jmpExecEnvelope(JSSEnvelope env, JSSPlayerEnvelope pe, BOOL keyOff)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	121 {
220 b0407a4c0a11 Simplify frame finding in envelope update function. Matti Hamalainen <ccr@tnsp.org> parents: 219 diff changeset	122 int point;
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	123
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	124 if (!pe->exec)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	125 return FALSE;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	126
189 06da4e365dc9 Add few comments. Matti Hamalainen <ccr@tnsp.org> parents: 188 diff changeset	127 // Find current point, if not last point
220 b0407a4c0a11 Simplify frame finding in envelope update function. Matti Hamalainen <ccr@tnsp.org> parents: 219 diff changeset	128 for (point = 0; point < env->npoints - 1; point++)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	129 {
220 b0407a4c0a11 Simplify frame finding in envelope update function. Matti Hamalainen <ccr@tnsp.org> parents: 219 diff changeset	130 if (pe->frame < env->points[point + 1].frame)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	131 break;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	132 }
189 06da4e365dc9 Add few comments. Matti Hamalainen <ccr@tnsp.org> parents: 188 diff changeset	133
219 b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	134 if (env->flags & jenvfLooped && pe->frame >= env->points[env->loopE].frame)
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	135 {
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	136 point = env->loopS;
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	137 pe->frame = env->points[env->loopS].frame;
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	138 pe->value = env->points[point].value;
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	139 }
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	140
189 06da4e365dc9 Add few comments. Matti Hamalainen <ccr@tnsp.org> parents: 188 diff changeset	141 // Check for last point
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	142 if (pe->frame >= env->points[env->npoints - 1].frame)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	143 {
219 b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	144 point = env->npoints - 1;
b4eb9b59fef3 Fix envelope loops. Matti Hamalainen <ccr@tnsp.org> parents: 218 diff changeset	145 pe->exec = FALSE;
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	146 pe->value = env->points[point].value;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	147 }
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	148 else
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	149 {
189 06da4e365dc9 Add few comments. Matti Hamalainen <ccr@tnsp.org> parents: 188 diff changeset	150 // Linearly interpolate the value between current and next point
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	151 JSSEnvelopePoint
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	152 *ep1 = &env->points[point],
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	153 *ep2 = &env->points[point + 1];
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	154
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	155 int delta = ep2->frame - ep1->frame;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	156 if (delta > 0)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	157 pe->value = ep1->value + ((ep2->value - ep1->value) * (pe->frame - ep1->frame)) / delta;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	158 else
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	159 pe->value = ep1->value;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	160 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	161
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	162 if (pe->exec)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	164 // The frame counter IS processed even if the envelope is not!
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	165 if ((env->flags & jenvfSustain) && point == env->sustain &&
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	166 env->points[point].frame == env->points[env->sustain].frame)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	167 {
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	168 if (keyOff)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	169 pe->frame++;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	170 } else
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	171 pe->frame++;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	172 }
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	173
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	174 return TRUE;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	175 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	176
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	177
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	178 static void jmpProcessExtInstrument(JSSPlayerChannel *chn, int channel)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	180 JSSExtInstrument *inst = chn->extInstrument;
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	181 (void) channel;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	182
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	183 // Get the instrument for envelope data
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	184 if (!inst) return;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	185
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186 // Process the autovibrato
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	187 /*
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188 FIXME fix me FIX me!!! todo.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	190
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	191 if (inst->volumeEnv.flags & jenvfUsed)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	192 {
169 13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	193 // Process the instrument volume fadeout
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	194 if (chn->keyOff && chn->fadeOutVol > 0 && inst->fadeOut > 0)
169 13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	195 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	196 int tmp = chn->fadeOutVol - inst->fadeOut;
169 13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	197 if (tmp < 0) tmp = 0;
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	198 chn->fadeOutVol = tmp;
169 13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	199
13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	200 JMPSETNDFLAGS(cdfNewVolume);
13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	201 }
13f27b9882bc Backed out changeset 21f54947eb18. No, it isn't. :( Matti Hamalainen <ccr@tnsp.org> parents: 168 diff changeset	202
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	203 // Execute the volume envelope
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	204 if (jmpExecEnvelope(&inst->volumeEnv, &chn->volumeEnv, chn->keyOff))
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205 JMPSETNDFLAGS(cdfNewVolume);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	207 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	208 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	209 // If the envelope is not used, set max volume
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	210 chn->volumeEnv.value = mpMaxVol;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	211 chn->fadeOutVol = chn->keyOff ? 0 : mpMaxFadeoutVol;
174 520c18f581c7 Fix handling of fadeouts when volume envelope is not enabled. Matti Hamalainen <ccr@tnsp.org> parents: 172 diff changeset	212 JMPSETNDFLAGS(cdfNewVolume);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	213 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	214
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	215 if (inst->panningEnv.flags & jenvfUsed)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	216 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	217 // Process the panning envelope
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	218 if (jmpExecEnvelope(&inst->panningEnv, &chn->panningEnv, chn->keyOff))
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	219 JMPSETNDFLAGS(cdfNewPanPos);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	222 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223 // If the envelope is not used, set center panning
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	224 if (chn->panningEnv.value != mpPanCenter)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	225 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	226 chn->panningEnv.value = mpPanCenter;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227 JMPSETNDFLAGS(cdfNewPanPos);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	230 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	231
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	232
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	233 /*
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	234 * The player
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	235 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	236 JSSPlayer jmpInit(JSSMixer pDevice)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	237 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	238 JSSPlayer *mp;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	239
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	240 // Allocate a player structure
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	241 mp = dmMalloc0(sizeof(JSSPlayer));
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	242 if (mp == NULL)
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	243 JSSERROR(DMERR_MALLOC, NULL, "Could not allocate memory for player structure.\n");
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	244
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	245 // Set variables
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	246 mp->device = pDevice;
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	247
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	248 #ifdef JSS_SUP_THREADS
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	249 mp->mutex = dmCreateMutex();
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	250 #endif
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	251
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	252 return mp;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	253 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	254
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	255
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	256 int jmpClose(JSSPlayer * mp)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	257 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	258 if (mp == NULL)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	259 return DMERR_NULLPTR;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	261 // Stop player
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	262 jmpStop(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	263
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	264 // Deallocate resources
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	265 #ifdef JSS_SUP_THREADS
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	266 dmDestroyMutex(mp->mutex);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	267 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	268
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	269 // Clear structure
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	270 memset(mp, 0, sizeof(JSSPlayer));
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	271 dmFree(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	272
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	273 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	274 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	275
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	276
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	277 /* Reset the envelopes for given channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	278 */
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	279 static void jmpResetEnvelope(JSSPlayerEnvelope *env)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	280 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	281 env->frame = env->value = 0;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	282 env->exec = TRUE;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	283 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	284
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	285
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	286 /* Clear module player structure
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	287 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	288 void jmpClearChannel(JSSPlayerChannel *chn)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	289 {
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	290 memset(chn, 0, sizeof(JSSPlayerChannel));
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	291
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	292 chn->note = jsetNotSet;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	293 chn->ninstrument = jsetNotSet;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	294 chn->nextInstrument = jsetNotSet;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	295 chn->panning = mpPanCenter;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	296 chn->panningEnv.value = mpPanCenter;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	297 }
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	298
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	299
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	300 void jmpClearPlayer(JSSPlayer * mp)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	301 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	302 int i;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	303 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	304 JSS_LOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	305
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	306 // Initialize general variables
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	307 mp->patternDelay = 0;
170 fb95285c3ed9 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	308 mp->newRowSet = FALSE;
fb95285c3ed9 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	309 mp->newOrderSet = FALSE;
fb95285c3ed9 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	310 mp->tick = jsetNotSet;
fb95285c3ed9 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	311 mp->row = 0;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	312 mp->lastPatLoopRow = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	313
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	314 // Initialize channel data
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	315 for (i = 0; i < jsetNChannels; i++)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	316 jmpClearChannel(&mp->channels[i]);
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	317
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	318 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	319 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	320
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	321
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	322 /* Set module
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	323 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	324 void jmpSetModule(JSSPlayer * mp, JSSModule * module)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	325 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	326 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	327 JSS_LOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	328
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	329 jmpStop(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	330 jmpClearPlayer(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	331
188 47c327fb321a Another cleanup, remove the "future player" data prediction hack, it is not needed. Matti Hamalainen <ccr@tnsp.org> parents: 187 diff changeset	332 mp->module = module;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	333
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	334 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	335 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	336
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	337
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	338 /* Stop playing
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	339 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	340 void jmpStop(JSSPlayer * mp)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	341 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	342 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	343 JSS_LOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	344
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	345 if (mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	346 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	347 jvmRemoveCallback(mp->device);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	348 mp->isPlaying = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	349 }
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	350
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	351 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	352 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	353
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	354
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	355 /* Resume playing
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	356 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	357 void jmpResume(JSSPlayer * mp)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	358 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	359 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	360 JSS_LOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	361
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	362 if (!mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	363 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	364 int result = jvmSetCallback(mp->device, jmpExec, (void *) mp);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	365 if (result != DMERR_OK)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	366 JSSERROR(result,, "Could not initialize callback for player.\n");
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	367
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	368 mp->isPlaying = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	369 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	370
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	371 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	372 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	373
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	374
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	375 /* Sets new order using given value as reference.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	376 * Jumps over skip-points and invalid values, loops
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	377 * to first order if enabled.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	378 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	379 static void jmpSetNewOrder(JSSPlayer * mp, int order)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	380 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	381 BOOL orderOK;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	382 mp->order = jsetNotSet;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	383 orderOK = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	384
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	385 while (!orderOK)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	386 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	387 if (order < 0 \|\| order >= mp->module->norders)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	388 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	389 jmpStop(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	390 orderOK = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	391 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	392 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	393 {
1134 d0898867ec4c Various fixes for issues reported by clang static analyzer. Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	394 int pattern = mp->module->orderList[order];
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	395 if (pattern == jsetOrderSkip)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	396 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	397 order++;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	398 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	399 else
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	400 if (pattern >= mp->module->npatterns \|\| pattern == jsetOrderEnd)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	401 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	402 jmpStop(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	403 orderOK = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	404 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	405 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	406 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	407 // All OK
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	408 orderOK = TRUE;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	409 mp->pattern = mp->module->patterns[pattern];
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	410 mp->npattern = pattern;
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	411 mp->order = order;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	412 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	413 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	414 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	415 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	416
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	417
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	418 /* Set new tempo-value of the player.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	419 */
136 8ac24d753304 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 135 diff changeset	420 static void jmpSetTempo(JSSPlayer * mp, int tempo)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	421 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	422 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	423 JSS_LOCK(mp);
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	424 assert(mp->device != NULL);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	425
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	426 mp->tempo = tempo;
186 dc22e3f77c9a Fix tempo (callback frequency) calculation. Matti Hamalainen <ccr@tnsp.org> parents: 183 diff changeset	427 jvmSetCallbackFreq(mp->device, (mp->device->outFreq * 5) / (tempo * 2));
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	428 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	429 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	430
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	431
136 8ac24d753304 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 135 diff changeset	432 static void jmpClearChannels(JSSPlayer * mp)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	433 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	434 int i;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	435 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	436 JSS_LOCK(mp);
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	437 assert(mp->device != NULL);
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	438 assert(mp->module != NULL);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	439
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	440 for (i = 0; i < mp->module->nchannels; i++)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	441 jvmStop(mp->device, i);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	442
172 cfb087000db3 Clear player channel data as well in here. Matti Hamalainen <ccr@tnsp.org> parents: 171 diff changeset	443 // Initialize channel data
cfb087000db3 Clear player channel data as well in here. Matti Hamalainen <ccr@tnsp.org> parents: 171 diff changeset	444 for (i = 0; i < jsetNChannels; i++)
cfb087000db3 Clear player channel data as well in here. Matti Hamalainen <ccr@tnsp.org> parents: 171 diff changeset	445 jmpClearChannel(&mp->channels[i]);
cfb087000db3 Clear player channel data as well in here. Matti Hamalainen <ccr@tnsp.org> parents: 171 diff changeset	446
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	447 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	448 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	449
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	450
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	451 /* Starts playing module from a given ORDER.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	452 */
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	453 static int jmpPlayStart(JSSPlayer *mp)
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	454 {
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	455 int result;
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	456
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	457 mp->speed = mp->module->defSpeed;
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	458 jmpSetTempo(mp, mp->module->defTempo);
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	459
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	460 result = jvmSetCallback(mp->device, jmpExec, (void *) mp);
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	461 if (result != DMERR_OK)
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	462 {
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	463 JSSERROR(result, result, "Could not initialize callback for player.\n");
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	464 }
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	465
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	466 mp->isPlaying = TRUE;
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	467 return DMERR_OK;
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	468 }
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	469
879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	470
182 9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	471 int jmpChangeOrder(JSSPlayer *mp, int order)
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	472 {
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	473 assert(mp != NULL);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	474
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	475 JSS_LOCK(mp);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	476 assert(mp->module != NULL);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	477
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	478 jmpClearChannels(mp);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	479 jmpClearPlayer(mp);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	480
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	481 jmpSetNewOrder(mp, order);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	482 if (mp->order == jsetNotSet)
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	483 {
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	484 JSS_UNLOCK(mp);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	485 JSSERROR(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED,
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	486 "Could not start playing from given order #%i\n", order);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	487 }
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	488
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	489 JSS_UNLOCK(mp);
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	490 return DMERR_OK;
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	491 }
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	492
9024d249e47a Add a new function jmpChangeOrder() to change orderlist position "on fly", Matti Hamalainen <ccr@tnsp.org> parents: 181 diff changeset	493
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	494 int jmpPlayOrder(JSSPlayer * mp, int order)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	495 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	496 int result;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	497 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	498
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	499 JSS_LOCK(mp);
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	500 assert(mp->module != NULL);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	501
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	502 // Stop if already playing
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	503 jmpStop(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	504 jmpClearChannels(mp);
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	505 jmpClearPlayer(mp);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	506
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	507 // Check starting order
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	508 jmpSetNewOrder(mp, order);
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	509 if (mp->order == jsetNotSet)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	510 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	511 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	512 JSSERROR(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED,
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	513 "Could not start playing from given order #%i\n", order);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	514 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	515
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	516 if ((result = jmpPlayStart(mp)) != DMERR_OK)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	517 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	518 JSS_UNLOCK(mp);
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	519 return result;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	520 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	521
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	522 JSS_UNLOCK(mp);
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	523 return DMERR_OK;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	524 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	525
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	526
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	527 /* Play given pattern
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	528 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	529 int jmpPlayPattern(JSSPlayer * mp, int pattern)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	530 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	531 int result;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	532 assert(mp != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	533 JSS_LOCK(mp);
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	534 assert(mp->module != NULL);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	535
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	536 // Stop if already playing
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	537 jmpStop(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	538 jmpClearPlayer(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	539
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	540 mp->npattern = pattern;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	541
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	542 if ((result = jmpPlayStart(mp)) != DMERR_OK)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	543 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	544 JSS_UNLOCK(mp);
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	545 return result;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	546 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	547
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	548 JSS_UNLOCK(mp);
181 879b2488340a Clean up player logic some more. Matti Hamalainen <ccr@tnsp.org> parents: 180 diff changeset	549 return DMERR_OK;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	550 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	551
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	552
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	553 /* Set volume for given module channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	554 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	555 static void jmpSetVolume(JSSPlayerChannel * chn, int channel, int volume)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	556 {
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	557 (void) channel;
a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	558
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	559 chn->volume = chn->cvolume = dmClamp(volume, mpMinVol, mpMaxVol);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	560 JMPSETNDFLAGS(cdfNewVolume);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	561 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	562
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	563 #define jmpChangeVolume(Q, Z, X) jmpSetVolume(Q, Z, chn->volume + (X))
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	564
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	565
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	566 /* Change the pitch of given channel by ADelta.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	567 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	568 static void jmpChangePitch(JSSPlayerChannel *chn, int channel, int delta)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	569 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	570 int value;
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	571 (void) channel;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	572
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	573 // Calculate new pitch and check it
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	574 value = chn->pitch + delta;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	575 if (value < 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	576 value = 0;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	577
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	578 chn->pitch = value;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	579 JMPSETNDFLAGS(cdfNewPitch);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	580 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	581
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	582
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	583 /* Do a note portamento (pitch slide) effect for given module channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	584 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	585 static void jmpDoPortamento(JSSPlayerChannel * chn, int channel)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	586 {
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	587 (void) channel;
a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	588
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	589 // Check for zero parameter
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	590 if (chn->iLastPortaToNoteParam == 0)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	591 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	592 JMPSETNDFLAGS(cdfNewPitch);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	593 return;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	594 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	595
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	596 /* Slide the pitch of channel to the destination value
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	597 * with speed of iLastPortaToNoteParam[] * 4 and stop when it equals.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	598 */
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	599 if (chn->pitch < chn->iLastPortaToNotePitch)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	600 {
175 4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	601 // Increase pitch UP
4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	602 jmpChangePitch(chn, channel, chn->iLastPortaToNoteParam * 4);
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	603 if (chn->pitch > chn->iLastPortaToNotePitch)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	604 chn->pitch = chn->iLastPortaToNotePitch;
175 4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	605 }
4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	606 else
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	607 if (chn->pitch > chn->iLastPortaToNotePitch)
175 4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	608 {
4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	609 // Decrease pitch DOWN
4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	610 jmpChangePitch(chn, channel, -(chn->iLastPortaToNoteParam * 4));
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	611 if (chn->pitch < chn->iLastPortaToNotePitch)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	612 chn->pitch = chn->iLastPortaToNotePitch;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	613 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	614 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	615
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	616
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	617 /* Do a tremolo effect for given module channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	618 */
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	619 static void jmpDoTremolo(JSSPlayerChannel *chn, int channel)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	620 {
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	621 (void) channel;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	622
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	623 if (chn->tremolo.depth != 0 && chn->tremolo.speed != 0)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	624 {
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	625 int delta, tmp = chn->tremolo.pos & 31;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	626
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	627 switch (chn->tremolo.wc & 3)
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	628 {
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	629 case 0:
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	630 delta = jmpSineTab[tmp];
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	631 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	632 case 1:
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	633 tmp <<= 3;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	634 delta = (chn->tremolo.pos < 0) ? 255 - tmp : tmp;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	635 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	636 case 2:
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	637 delta = 255;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	638 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	639 case 3:
1134 d0898867ec4c Various fixes for issues reported by clang static analyzer. Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	640 default:
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	641 delta = jmpSineTab[tmp];
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	642 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	643 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	644
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	645 delta = (delta * chn->tremolo.depth) >> 6;
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	646 jmpCSetVolume(chn, channel, chn->cvolume + (chn->tremolo.pos >= 0 ? delta : -delta));
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	647
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	648 chn->tremolo.pos += chn->tremolo.speed;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	649 if (chn->tremolo.pos > 31)
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	650 chn->tremolo.pos -= 64;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	651 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	652 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	653
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	654
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	655 /* Do a vibrato effect for given module channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	656 */
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	657 static void jmpDoVibrato(JSSPlayerChannel *chn, int channel)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	658 {
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	659 (void) channel;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	660
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	661 if (chn->vibrato.depth != 0 && chn->vibrato.speed != 0)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	662 {
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	663 int delta, tmp = chn->vibrato.pos & 31;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	664
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	665 switch (chn->vibrato.wc & 3)
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	666 {
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	667 case 0:
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	668 delta = jmpSineTab[tmp];
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	669 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	670 case 1:
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	671 tmp <<= 3;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	672 delta = (chn->vibrato.pos < 0) ? 255 - tmp : tmp;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	673 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	674 case 2:
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	675 delta = 255;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	676 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	677 case 3:
1134 d0898867ec4c Various fixes for issues reported by clang static analyzer. Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	678 default:
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	679 delta = jmpSineTab[tmp];
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	680 break;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	681 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	682
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	683 delta = ((delta * chn->vibrato.depth) >> 7) << 2;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	684 chn->freq = chn->cfreq + (chn->vibrato.pos >= 0 ? delta : -delta);
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	685 JMPSETNDFLAGS(cdfNewFreq);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	686
231 e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	687 chn->vibrato.pos += chn->vibrato.speed;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	688 if (chn->vibrato.pos > 31)
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	689 chn->vibrato.pos -= 64;
e65fed571d7a Improve vibrato implementation. Might not work in Amiga periods mode, tho. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	690 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	691 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	692
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	693
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	694 /* Do a volume slide effect for given module channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	695 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	696 static void jmpDoVolumeSlide(JSSPlayerChannel * chn, int channel, int param)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	697 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	698 int paramX, paramY;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	699
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	700 JMPMAKEPARAM(param, paramX, paramY)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	701
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	702 if (paramY == 0)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	703 jmpChangeVolume(chn, channel, paramX);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	704 if (paramX == 0)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	705 jmpChangeVolume(chn, channel, -paramY);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	706 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	707
225 83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	708 static void jmpTriggerNote(JSSPlayer * mp, JSSPlayerChannel *chn, BOOL newExtInstrument);
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	709
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	710
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	711 static void jmpDoMultiRetrigNote(JSSPlayer mp, JSSPlayerChannel chn, int channel)
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	712 {
226 725ac9d4962f Oops, a typo. Fixed. Matti Hamalainen <ccr@tnsp.org> parents: 225 diff changeset	713 if (chn->lastMultiRetrigParamY != 0 &&
725ac9d4962f Oops, a typo. Fixed. Matti Hamalainen <ccr@tnsp.org> parents: 225 diff changeset	714 (mp->tick % chn->lastMultiRetrigParamY) == 0)
225 83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	715 {
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	716 BOOL change = TRUE;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	717 int volume = chn->volume;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	718 switch (chn->lastMultiRetrigParamX)
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	719 {
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	720 case 0x1: volume -= 1; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	721 case 0x2: volume -= 2; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	722 case 0x3: volume -= 4; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	723 case 0x4: volume -= 8; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	724 case 0x5: volume -= 16; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	725 case 0x6: volume = (volume * 2) / 3; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	726 case 0x7: volume /= 2; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	727
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	728 case 0x9: volume += 1; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	729 case 0xA: volume += 2; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	730 case 0xB: volume += 4; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	731 case 0xC: volume += 8; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	732 case 0xD: volume += 16; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	733 case 0xE: volume = (volume * 3) / 2; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	734 case 0xF: volume *= 2; break;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	735 default: change = FALSE;
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	736 }
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	737 jmpTriggerNote(mp, chn, FALSE);
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	738 if (change)
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	739 jmpSetVolume(chn, channel, volume);
225 83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	740 }
83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	741 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	742
558 67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	743
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	744 /* Execute a pattern loop effect/command for given module channel.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	745 *
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	746 * This routine works for most of the supported formats, as they
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	747 * use the 'standard' implementation ascending from MOD. However,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	748 * here is included also a slightly kludgy implementation of the
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	749 * FT2 patloop bug.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	750 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	751 static void jmpDoPatternLoop(JSSPlayer * mp, JSSPlayerChannel *chn, int channel, int paramY)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	752 {
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	753 (void) channel;
a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	754
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	755 // Check what we need to do
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	756 if (paramY > 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	757 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	758 // SBx/E6x loops 'x' times
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	759 if (chn->iPatLoopCount == 1)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	760 chn->iPatLoopCount = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	761 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	762 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	763 // Check if we need to set the count
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	764 if (chn->iPatLoopCount == 0)
175 4192aa6d5af6 Cosmetic cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 174 diff changeset	765 chn->iPatLoopCount = paramY + 1;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	766
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	767 // Loop to specified row
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	768 chn->iPatLoopCount--;
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	769 mp->newRow = chn->iPatLoopRow;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	770 mp->newRowSet = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	771 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	772 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	773 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	774 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	775 // SB0/E60 sets the loop start point
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	776 chn->iPatLoopRow = mp->row;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	777
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	778 // This is here because of the infamous FT2 patloop bug
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	779 mp->lastPatLoopRow = mp->row;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	780 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	781 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	782
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	783
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	784 /* Do arpeggio effect
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	785 */
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	786 static void jmpDoArpeggio(JSSPlayer * mp, JSSPlayerChannel *chn, int channel, int paramY, int paramX)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	787 {
218 c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	788 JSSInstrument *inst = chn->instrument;
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	789 (void) channel;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	790
218 c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	791 if (inst != NULL)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	792 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	793 int tmp = chn->note;
218 c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	794 if (tmp == jsetNotSet \|\| tmp == jsetNoteOff)
c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	795 return;
c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	796
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	797 switch (mp->tick & 3)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	798 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	799 case 1:
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	800 tmp += paramX;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	801 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	802 case 2:
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	803 tmp += paramY;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	804 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	805 }
218 c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	806
c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	807 tmp = dmClamp(tmp + inst->ERelNote, 0, 119);
c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	808 jmpCSetPitch(mp, chn, jmpGetPeriodFromNote(mp, tmp, inst->EFineTune));
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	809 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	810 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	811
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	812
558 67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	813 /* Trigger a new note on the given channel.
67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	814 * Separate function used from various places where note
67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	815 * triggering is needed (retrig, multi-retrig, etc.)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	816 */
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	817 static void jmpTriggerNote(JSSPlayer * mp, JSSPlayerChannel *chn, BOOL newExtInstrument)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	818 {
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	819 if (chn->nextInstrument >= 0 &&
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	820 chn->nextInstrument < mp->module->nextInstruments &&
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	821 mp->module->extInstruments[chn->nextInstrument] != NULL)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	822 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	823 chn->extInstrument = mp->module->extInstruments[chn->nextInstrument];
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	824 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	825 else
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	826 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	827 chn->extInstrument = NULL;
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	828 chn->instrument = NULL;
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	829 chn->ninstrument = jsetNotSet;
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	830 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	831
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	832 if (chn->extInstrument != NULL)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	833 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	834 int tmp = chn->extInstrument->sNumForNotes[chn->note];
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	835
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	836 if (tmp >= 0 && tmp < mp->module->ninstruments &&
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	837 mp->module->instruments[tmp] != NULL)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	838 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	839 if (chn->ninstrument != tmp)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	840 JMPSETNDFLAGS(cdfNewInstr);
228 4d979914e837 Use jvmReset appropriately, fixes(?) taotao.xm vs. boost.xm vs. vital.xm issues. Matti Hamalainen <ccr@tnsp.org> parents: 226 diff changeset	841 else
4d979914e837 Use jvmReset appropriately, fixes(?) taotao.xm vs. boost.xm vs. vital.xm issues. Matti Hamalainen <ccr@tnsp.org> parents: 226 diff changeset	842 JMPSETNDFLAGS(cdfPlay);
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	843
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	844 chn->ninstrument = tmp;
228 4d979914e837 Use jvmReset appropriately, fixes(?) taotao.xm vs. boost.xm vs. vital.xm issues. Matti Hamalainen <ccr@tnsp.org> parents: 226 diff changeset	845 chn->instrument = mp->module->instruments[tmp];
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	846
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	847 if (newExtInstrument)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	848 {
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	849 chn->volume = chn->instrument->volume;
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	850 chn->panning = chn->instrument->EPanning;
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	851 JMPSETNDFLAGS(cdfNewPanPos \| cdfNewVolume);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	852 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	853 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	854 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	855
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	856 if (chn->instrument != NULL)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	857 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	858 int tmp;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	859 JSSInstrument *inst = chn->instrument;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	860
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	861 // Save old pitch for later use
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	862 chn->oldPitch = chn->pitch;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	863
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	864 chn->position = 0;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	865
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	866 // Compute new pitch
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	867 tmp = dmClamp(chn->note + inst->ERelNote, 0, 119);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	868 chn->pitch = jmpGetPeriodFromNote(mp, tmp, inst->EFineTune);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	869 JMPSETNDFLAGS(cdfNewPitch \| cdfPlay \| cdfNewPos);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	870 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	871 else
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	872 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	873 chn->volume = 0;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	874 chn->panning = jchPanMiddle;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	875 JMPSETNDFLAGS(cdfStop \| cdfNewPanPos \| cdfNewVolume);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	876 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	877 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	878
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	879
558 67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	880 /*
67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	881 * Process a new pattern row
67d9e319246f Update some comments. Matti Hamalainen <ccr@tnsp.org> parents: 555 diff changeset	882 */
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	883 static void jmpProcessNewRow(JSSPlayer * mp, int channel)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	884 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	885 JSSNote *currNote;
299 26ead9094940 Implement correct handling of 'M' and '3xx' effects together (aka volume Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	886 BOOL newNote = FALSE, newExtInstrument = FALSE, volumePortaSet = FALSE;
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	887 char effect;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	888 int param, paramX, paramY;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	889 JSSPlayerChannel *chn = &(mp->channels[channel]);
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	890
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	891 JMPGETNOTE(currNote, mp->row, channel);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	892
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	893 // Check for a new note/keyoff here
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	894 if (currNote->note == jsetNoteOff)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	895 chn->keyOff = TRUE;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	896 else
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	897 if (currNote->note >= 0 && currNote->note <= 96)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	898 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	899 newNote = TRUE;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	900 chn->oldNote = chn->note;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	901 chn->note = currNote->note;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	902 chn->keyOff = FALSE;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	903 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	904
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	905 // Check for new instrument
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	906 if (currNote->instrument != jsetNotSet)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	907 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	908 /* Envelopes and ext.instrument fadeout are initialized always if
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	909 * new instrument is set, even if the instrument does not exist.
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	910 */
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	911 jmpResetEnvelope(&chn->volumeEnv);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	912 jmpResetEnvelope(&chn->panningEnv);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	913 chn->keyOff = FALSE;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	914 chn->fadeOutVol = mpMaxFadeoutVol;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	915
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	916 JMPSETNDFLAGS(cdfNewPanPos \| cdfPlay \| cdfNewVolume);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	917
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	918 // We save the instrument number here for later use
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	919 chn->nextInstrument = currNote->instrument;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	920 newExtInstrument = TRUE;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	921 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	922
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	923 if (newNote)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	924 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	925 jmpTriggerNote(mp, chn, newExtInstrument);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	926 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	927
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	928 // Process the volume column
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	929 JMPMAKEPARAM(currNote->volume, paramX, paramY);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	930
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	931 switch (paramX)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	932 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	933 case 0x0:
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	934 case 0x1:
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	935 case 0x2:
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	936 case 0x3:
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	937 case 0x4:
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	938 jmpSetVolume(chn, channel, currNote->volume);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	939 break;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	940
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	941 case 0x7: // Dx = Fine Volumeslide Down : IMPL.VERIFIED
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	942 jmpChangeVolume(chn, channel, -paramY);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	943 break;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	944
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	945 case 0x8: // Ux = Fine Volumeslide Up : IMPL.VERIFIED
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	946 jmpChangeVolume(chn, channel, paramY);
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	947 break;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	948
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	949 case 0x9: // Sx = Set vibrato speed : IMPL.VERIFIED
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	950 chn->vibrato.speed = paramY;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	951 break;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	952
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	953 case 0xa: // Vx = Vibrato : IMPL.VERIFIED
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	954 if (paramY)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	955 chn->vibrato.depth = paramY;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	956 break;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	957
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	958 case 0xe: // Mx = Porta To Note : IMPL.VERIFIED
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	959 if (paramY)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	960 chn->iLastPortaToNoteParam = paramY * 16;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	961
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	962 if (currNote->note != jsetNotSet && currNote->note != jsetNoteOff)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	963 {
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	964 chn->lastPortaToNoteNote = chn->note;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	965 chn->iLastPortaToNotePitch = chn->pitch;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	966 chn->pitch = chn->oldPitch;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	967 chn->note = chn->oldNote;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	968 JMPUNSETNDFLAGS(cdfNewPitch \| cdfPlay);
299 26ead9094940 Implement correct handling of 'M' and '3xx' effects together (aka volume Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	969 volumePortaSet = TRUE;
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	970 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	971 break;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	972 }
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	973
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	974 // ...And finally process the Normal effects
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	975 if (currNote->effect == jsetNotSet)
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	976 return;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	977
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	978 param = currNote->param;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	979 JMPMAKEPARAM(param, paramX, paramY);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	980 JMPGETEFFECT(effect, currNote->effect);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	981
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	982 switch (effect)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	983 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	984 case '0': // 0xy = Arpeggio
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	985 jmpDoArpeggio(mp, chn, channel, paramX, paramY);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	986 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	987
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	988 case 'W': // Used widely in demo-music as MIDAS Sound System sync-command
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	989 case 'Q': // SoundTracker/OpenCP: Qxx = Set LP filter resonance
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	990 case 'Z': // SoundTracker/OpenCP: Zxx = Set LP filter cutoff freq
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	991 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	992
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	993 case '1':
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	994 case '2': // 1xy = Portamento Up, 2xy = Portamento Down : IMPL.VERIFIED
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	995 if (param)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	996 chn->iLastPortaParam = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	997 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	998
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	999 case '3': // 3xy = Porta To Note
299 26ead9094940 Implement correct handling of 'M' and '3xx' effects together (aka volume Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	1000 if (volumePortaSet)
26ead9094940 Implement correct handling of 'M' and '3xx' effects together (aka volume Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	1001 break;
26ead9094940 Implement correct handling of 'M' and '3xx' effects together (aka volume Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	1002
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1003 if (param)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1004 chn->iLastPortaToNoteParam = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1005
170 fb95285c3ed9 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	1006 if (currNote->note != jsetNotSet && currNote->note != jsetNoteOff)
fb95285c3ed9 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	1007 {
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	1008 chn->lastPortaToNoteNote = chn->note;
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1009 chn->iLastPortaToNotePitch = chn->pitch;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1010 chn->pitch = chn->oldPitch;
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	1011 chn->note = chn->oldNote;
81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	1012 JMPUNSETNDFLAGS(cdfNewPitch \| cdfPlay);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1013 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1014 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1015
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1016 case '4': // 4xy = Vibrato : IMPL.VERIFIED
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1017 if (paramX)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1018 chn->vibrato.speed = paramX;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1019
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1020 if (paramY)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1021 chn->vibrato.depth = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1022
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1023 if ((chn->vibrato.wc & 4) == 0)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1024 chn->vibrato.pos = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1025 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1026
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1027 case '5': // 5xy = Portamento + Volume Slide
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1028 case '6': // 6xy = Vibrato + Volume slide
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1029 if (param)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1030 chn->iLastVolSlideParam = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1031 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1032
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1033 case '7': // 7xy = Tremolo
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1034 if (paramX)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1035 chn->tremolo.speed = paramX;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1036
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1037 if (paramY)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1038 chn->tremolo.depth = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1039
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1040 if ((chn->tremolo.wc & 4) == 0)
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1041 chn->tremolo.pos = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1042 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1043
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1044 case '8': // 8xx = Set Panning
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1045 chn->panning = param;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1046 JMPSETNDFLAGS(cdfNewPanPos);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1047 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1048
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1049 case '9': // 9xx = Set Sample Offset : IMPL.VERIFIED
271 6d9a3577741b XM effect '9xx' stores its last non-zero parameter. Matti Hamalainen <ccr@tnsp.org> parents: 231 diff changeset	1050 if (param != 0)
6d9a3577741b XM effect '9xx' stores its last non-zero parameter. Matti Hamalainen <ccr@tnsp.org> parents: 231 diff changeset	1051 chn->lastSampleOffsetParam = param;
272 64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1052 if (chn->newDataFlags & cdfNewPitch && chn->instrument != NULL)
30 ca0e00facb7b Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1053 {
272 64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1054 int pos = chn->lastSampleOffsetParam * 0x100,
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1055 end = (chn->instrument->flags & jsfLooped) ?
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1056 chn->instrument->loopE : chn->instrument->size;
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1057 if (pos <= end)
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1058 {
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1059 chn->position = pos;
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1060 JMPSETNDFLAGS(cdfNewPos);
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1061 }
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1062 else
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1063 {
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1064 JMPSETNDFLAGS(cdfStop);
64876c3cbcf3 XM sample offset effect '9xx' stops note playing if offset is > sample Matti Hamalainen <ccr@tnsp.org> parents: 271 diff changeset	1065 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1066 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1067 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1068
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1069 case 'A': // Axy = Volume Slide : IMPL.VERIFIED
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1070 if (param)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1071 chn->iLastVolSlideParam = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1072 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1073
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1074 case 'B': // Bxx = Pattern Jump : IMPL.VERIFIED
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1075 mp->newOrder = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1076 mp->newOrderSet = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1077 mp->jumpFlag = TRUE;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1078 mp->lastPatLoopRow = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1079 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1080
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1081 case 'C': // Cxx = Set Volume : IMPL.VERIFIED
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1082 jmpSetVolume(chn, channel, param);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1083 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1084
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1085 case 'D': // Dxx = Pattern Break : IMPL.VERIFIED
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1086 // Compute the new row
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1087 mp->newRow = (paramX * 10) + paramY;
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1088 if (mp->newRow >= mp->pattern->nrows)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1089 mp->newRow = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1090
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1091 mp->newRowSet = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1092
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1093 // Now we do some tricky tests
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1094 if (!mp->breakFlag && !mp->jumpFlag)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1095 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1096 mp->newOrder = mp->order + 1;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1097 mp->newOrderSet = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1098 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1099
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1100 mp->breakFlag = TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1101 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1102
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1103 case 'E': // Exy = Special Effects
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1104 switch (paramX)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1105 {
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1106 case 0x00: // E0x - Set filter (NOT SUPPORTED)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1107 JMPDEBUG("Set Filter used, UNSUPPORTED");
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1108 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1109
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1110 case 0x01: // E1x - Fine Portamento Up
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1111 if (paramY)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1112 chn->iCLastFinePortamentoUpParam = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1113
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1114 jmpChangePitch(chn, channel, -(chn->iCLastFinePortamentoUpParam * 4));
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1115 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1116
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1117 case 0x02: // E2x - Fine Portamento Down
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1118 if (paramY)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1119 chn->iCLastFinePortamentoDownParam = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1120
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1121 jmpChangePitch(chn, channel, (chn->iCLastFinePortamentoDownParam * 4));
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1122 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1123
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1124 case 0x03: // E3x - Glissando Control (NOT SUPPORTED)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1125 break;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1126
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1127 case 0x04: // E4x - Set Vibrato waveform
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1128 chn->vibrato.wc = paramY;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1129 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1130
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1131 case 0x05: // E5x - Set Finetune
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1132 JMPDEBUG("Set Finetune used, UNIMPLEMENTED");
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1133 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1134
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1135 case 0x06: // E6x - Set Pattern Loop
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1136 jmpDoPatternLoop(mp, chn, channel, paramY);
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1137 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1138
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1139 case 0x07: // E7x - Set Tremolo waveform
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1140 chn->tremolo.wc = paramY;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1141 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1142
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1143 case 0x08: // E8x - Set Pan Position
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1144 chn->panning = (paramY * 16);
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1145 JMPSETNDFLAGS(cdfNewPanPos);
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1146 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1147
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1148 case 0x09: // E9x - Retrig note
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1149 if (mp->tick == paramY)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1150 jmpTriggerNote(mp, chn, FALSE);
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1151 break;
224 81f3993412ae Move jmpProcessRowEffect() into jmpProcessNewRow(); Fix volume-column tone Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	1152
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1153 case 0x0a: // EAx - Fine Volumeslide Up
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1154 if (paramY)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1155 chn->iCLastFineVolumeslideUpParam = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1156
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1157 jmpChangeVolume(chn, channel, chn->iCLastFineVolumeslideUpParam);
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1158 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1159
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1160 case 0x0b: // EBx - Fine Volumeslide Down
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1161 if (paramY)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1162 chn->iCLastFineVolumeslideDownParam = paramY;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1163 jmpChangeVolume(chn, channel, -(chn->iCLastFineVolumeslideDownParam));
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1164 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1165
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1166 case 0x0c: // ECx - Set Note Cut (NOT PROCESSED IN TICK0)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1167 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1168
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1169 case 0x0d: // EDx - Set Note Delay : IMPL.VERIFIED
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1170 if (paramY > 0)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1171 {
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1172 // Save the ND-flags, then clear
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1173 chn->iSaveNDFlags = chn->newDataFlags;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1174 chn->newDataFlags = 0;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1175 // TODO .. does this only affect NOTE or also instrument?
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1176 }
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1177 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1178
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1179 case 0x0e: // EEx - Set Pattern Delay : IMPL.VERIFIED
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1180 mp->patternDelay = paramY;
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1181 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1182
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1183 case 0x0f: // EFx - Invert Loop (NOT SUPPORTED)
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1184 JMPDEBUG("Invert Loop used, UNSUPPORTED");
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1185 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1186
555 31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1187 default:
31652085440a Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 365 diff changeset	1188 JMPDEBUG("Unsupported special command used");
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1189 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1190 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1191
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1192 case 'F': // Fxy = Set Speed / Tempo : IMPL.VERIFIED
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1193 if (param > 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1194 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1195 if (param < 0x20)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1196 mp->speed = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1197 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1198 jmpSetTempo(mp, param);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1199 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1200 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1201
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1202 case 'G': // Gxx = Global Volume
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1203 mp->globalVol = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1204 JMPSETNDFLAGS(cdfNewGlobalVol);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1205 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1206
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1207
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1208 case 'H': // Hxx = Global Volume Slide
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1209 JMPDEBUG("Global Volume Slide used, UNIMPLEMENTED");
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1210 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1211
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1212 case 'K': // Kxx = Key-off (Same as key-off note)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1213 chn->keyOff = TRUE;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1214 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1215
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1216 case 'L': // Lxx = Set Envelope Position
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1217 JMPDEBUG("Set Envelope Position used, NOT verified with FT2");
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1218 chn->panningEnv.frame = param;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1219 chn->volumeEnv.frame = param;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1220 chn->panningEnv.exec = TRUE;
a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1221 chn->volumeEnv.exec = TRUE;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1222 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1223
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1224 case 'R': // Rxy = Multi Retrig note
223 9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1225 if (paramX != 0)
9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1226 chn->lastMultiRetrigParamX = paramX;
9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1227 if (paramY != 0)
9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1228 chn->lastMultiRetrigParamY = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1229 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1230
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1231 case 'T': // Txy = Tremor
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1232 if (param)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1233 chn->iLastTremorParam = param;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1234 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1235
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1236 case 'X': // Xxy = Extra Fine Portamento
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1237 switch (paramX)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1238 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1239 case 0x01: // X1y - Extra Fine Portamento Up
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1240 if (paramY)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1241 chn->iCLastExtraFinePortamentoUpParam = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1242
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1243 jmpChangePitch(chn, channel, - chn->iCLastExtraFinePortamentoUpParam);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1244 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1245
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1246 case 0x02: // X2y - Extra Fine Portamento Down
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1247 if (paramY)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1248 chn->iCLastExtraFinePortamentoDownParam = paramY;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1249
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1250 jmpChangePitch(chn, channel, chn->iCLastExtraFinePortamentoUpParam);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1251 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1252
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1253 default:
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1254 JMPDEBUG("Unsupported value in Extra Fine Portamento command!");
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1255 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1256 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1257 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1258
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1259 default:
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1260 JMPDEBUG("Unsupported effect");
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1261 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1262 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1263 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1264
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1265
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1266 static void jmpProcessEffects(JSSPlayer * mp, int channel)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1267 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1268 JSSPlayerChannel *chn = &(mp->channels[channel]);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1269 JSSNote *currNote;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1270 int param, paramX, paramY, tmp;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1271 char effect;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1272
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1273 // Process the volume column effects
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1274 JMPGETNOTE(currNote, mp->row, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1275 JMPMAKEPARAM(currNote->volume, paramX, paramY);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1276
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1277 switch (paramX)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1278 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1279 case 0x05: // -x = Volumeslide Down : IMPL.VERIFIED
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1280 jmpChangeVolume(chn, channel, -paramY);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1281 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1282
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1283 case 0x06: // +x = Volumeslide Down : IMPL.VERIFIED
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1284 jmpChangeVolume(chn, channel, paramY);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1285 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1286
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1287 case 0x0a: // Vx = Vibrato : IMPL.VERIFIED
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1288 jmpDoVibrato(chn, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1289 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1290
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1291 case 0x0e: // Mx = Porta To Note : IMPL.VERIFIED
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1292 jmpDoPortamento(chn, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1293 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1294 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1295
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1296 // ...And finally process the Normal effects
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1297 if (currNote->effect == jsetNotSet)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1298 return;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	1299
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1300 param = currNote->param;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1301 JMPMAKEPARAM(param, paramX, paramY);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1302 JMPGETEFFECT(effect, currNote->effect);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1303
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1304 switch (effect)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1305 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1306 case '0': // 0xy = Arpeggio
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1307 jmpDoArpeggio(mp, chn, channel, paramX, paramY);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1308 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1309
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1310 case '1': // 1xy = Portamento Up
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1311 if (chn->iLastPortaParam > 0)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1312 jmpChangePitch(chn, channel, -(chn->iLastPortaParam * 4));
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1313 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1314
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1315 case '2': // 2xy = Portamento Down
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1316 if (chn->iLastPortaParam > 0)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1317 jmpChangePitch(chn, channel, (chn->iLastPortaParam * 4));
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1318 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1319
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1320 case '3': // 3xy = Porta To Note
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1321 jmpDoPortamento(chn, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1322 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1323
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1324 case '4': // 4xy = Vibrato
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1325 jmpDoVibrato(chn, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1326 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1327
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1328 case '5': // 5xy = Portamento + Volume Slide
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1329 jmpDoPortamento(chn, channel);
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1330 jmpDoVolumeSlide(chn, channel, chn->iLastVolSlideParam);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1331 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1332
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1333 case '6': // 6xy = Vibrato + Volume Slide
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1334 jmpDoVibrato(chn, channel);
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1335 jmpDoVolumeSlide(chn, channel, chn->iLastVolSlideParam);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1336 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1337
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1338 case '7': // 7xy = Tremolo
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1339 jmpDoTremolo(chn, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1340 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1341
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1342 case 'A': // Axy = Volume slide
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1343 jmpDoVolumeSlide(chn, channel, chn->iLastVolSlideParam);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1344 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1345
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1346 case 'E': // Exy = Special Effects
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1347 switch (paramX)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1348 {
222 63be671823d3 Implement effect E9x - Retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 221 diff changeset	1349 case 0x09: // E9x - Retrig note
63be671823d3 Implement effect E9x - Retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 221 diff changeset	1350 if (mp->tick == paramY)
63be671823d3 Implement effect E9x - Retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 221 diff changeset	1351 jmpTriggerNote(mp, chn, FALSE);
63be671823d3 Implement effect E9x - Retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 221 diff changeset	1352 break;
63be671823d3 Implement effect E9x - Retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 221 diff changeset	1353
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1354 case 0x0c: // ECx - Set Note Cut
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1355 if (mp->tick == paramY)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1356 jmpSetVolume(chn, channel, jsetMinVol);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1357 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1358
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1359 case 0x0d: // EDx - Set Note Delay
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1360 if (mp->tick == paramY)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1361 chn->newDataFlags = chn->iSaveNDFlags;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1362 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1363 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1364 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1365
223 9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1366 case 'R': // Rxy = Multi Retrig note
225 83f942efc55d Move multi retrig note code to a separate function. Matti Hamalainen <ccr@tnsp.org> parents: 224 diff changeset	1367 jmpDoMultiRetrigNote(mp, chn, channel);
223 9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1368 break;
9fa8e9326d18 Implement effect Rxy - multi retrig note. Matti Hamalainen <ccr@tnsp.org> parents: 222 diff changeset	1369
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1370 case 'T': // Txy = Tremor
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1371 JMPMAKEPARAM(chn->iLastTremorParam, paramX, paramY)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1372 paramX++;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1373 paramY++;
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1374 tmp = chn->iTremorCount % (paramX + paramY);
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1375
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1376 if (tmp < paramX)
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1377 jmpCSetVolume(chn, channel, chn->cvolume);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1378 else
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1379 jmpCSetVolume(chn, channel, jsetMinVol);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1380
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1381 chn->iTremorCount = tmp + 1;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1382 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1383 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1384 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1385
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1386
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1387 /* This is the main processing callback-loop of a module player.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1388 * It processes the ticks, calling the needed jmpProcessNewRow()
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1389 * and jmpProcessEffects() methods for processing the module playing.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1390 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1391 void jmpExec(void pDEV, void pMP)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1392 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1393 JSSPlayer *mp;
146 3226778033fd Move variable a bit further into the block where it is actually used. Matti Hamalainen <ccr@tnsp.org> parents: 145 diff changeset	1394 int channel;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1395
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1396 // Check some things via assert()
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1397 mp = (JSSPlayer *) pMP;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1398 JSS_LOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1399
775 4ff7d7f6f4d1 Silence some warnings. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	1400 (void) pDEV;
4ff7d7f6f4d1 Silence some warnings. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	1401 // JSSMixer dev = (JSSMixer ) pDEV;
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1402
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1403 // Check if we are playing
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1404 if (!mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1405 goto out;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1406
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1407 // Clear channel new data flags
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1408 mp->jumpFlag = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1409 mp->breakFlag = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1410
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1411 for (channel = 0; channel < jsetNChannels; channel++)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1412 mp->channels[channel].newDataFlags = 0;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1413
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1414 //fprintf(stderr, "1: tick=%d, order=%d, iPattern=%d, row=%d\n", mp->tick, mp->order, mp->npattern, mp->row);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1415
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1416 // Check for init-tick
187 e59ea366b13d Sanitize tick handling. Matti Hamalainen <ccr@tnsp.org> parents: 186 diff changeset	1417 if (mp->tick == jsetNotSet)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1418 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1419 // Initialize pattern
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1420 mp->newRow = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1421 mp->newRowSet = TRUE;
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1422 mp->tick = mp->speed;
187 e59ea366b13d Sanitize tick handling. Matti Hamalainen <ccr@tnsp.org> parents: 186 diff changeset	1423 mp->patternDelay = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1424 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1425
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1426 //fprintf(stderr, "2: tick=%d, order=%d, iPattern=%d, row=%d\n", mp->tick, mp->order, mp->npattern, mp->row);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1427
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1428 // Check if we are playing
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1429 if (!mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1430 goto out;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1431
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1432 assert(mp->pattern);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1433
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1434 // Update the tick
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1435 mp->tick++;
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1436 if (mp->tick >= mp->speed)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1437 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1438 // Re-init tick counter
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1439 mp->tick = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1440
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1441 // Check pattern delay
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1442 if (mp->patternDelay > 0)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1443 mp->patternDelay--;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1444 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1445 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1446 // New pattern row
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1447 if (mp->newRowSet)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1448 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1449 mp->row = mp->newRow;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1450 mp->newRowSet = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1451 } else
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1452 mp->row++;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1453
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1454 // Check for end of pattern
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1455 if (mp->row >= mp->pattern->nrows)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1456 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1457 // Go to next order
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1458 if (mp->order != jsetNotSet)
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1459 jmpSetNewOrder(mp, mp->order + 1);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1460 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1461 mp->isPlaying = FALSE;
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	1462
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1463 // Check for FT2 quirks
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1464 if (JMPGETMODFLAGS(mp, jmdfFT2Replay))
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1465 mp->row = mp->lastPatLoopRow;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1466 else
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1467 mp->row = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1468 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1469
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1470 if (!mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1471 goto out;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1472
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1473 // Check current order
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1474 if (mp->newOrderSet)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1475 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1476 jmpSetNewOrder(mp, mp->newOrder);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1477 mp->newOrderSet = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1478 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1479
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1480 //fprintf(stderr, "3: tick=%d, order=%d, iPattern=%d, row=%d\n", mp->tick, mp->order, mp->npattern, mp->row);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1481
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1482 if (!mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1483 goto out;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1484
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1485 // TICK #0: Process new row
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1486 for (channel = 0; channel < mp->module->nchannels; channel++)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1487 jmpProcessNewRow(mp, channel);
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1488 } // patternDelay
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1489 } // tick
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1490 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1491 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1492 // Implement FT2's pattern delay-effect: don't update effects while on patdelay
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1493 if (!JMPGETMODFLAGS(mp, jmdfFT2Replay) \|\|
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1494 (JMPGETMODFLAGS(mp, jmdfFT2Replay) && mp->patternDelay <= 0))
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1495 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1496 // TICK n: Process the effects
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1497 for (channel = 0; channel < mp->module->nchannels; channel++)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1498 jmpProcessEffects(mp, channel);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1499 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1500 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1501
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1502 // Check if playing has stopped
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1503 if (!mp->isPlaying)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1504 goto out;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1505
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1506 // Update player data to audio device/mixer
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1507 for (channel = 0; channel < mp->module->nchannels; channel++)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1508 {
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1509 JSSPlayerChannel *chn = &mp->channels[channel];
e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1510
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1511 // Process extended instruments
61 a33e47232161 Silence some "unused parameter" warnings. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	1512 jmpProcessExtInstrument(chn, channel);
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	1513
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1514 // Check NDFlags and update channel data
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1515 int flags = chn->newDataFlags;
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1516 if (!flags)
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1517 continue;
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1518
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1519 // Check if we stop?
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1520 if (flags & cdfStop)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1521 {
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1522 jvmStop(mp->device, channel);
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1523 }
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1524 else
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1525 {
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1526 // No, handle other flags
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1527 if (flags & cdfNewInstr)
55 e0e470c3fc8e Initial round of cleaning up the player code a bit. Matti Hamalainen <ccr@tnsp.org> parents: 30 diff changeset	1528 {
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1529 JSSInstrument *instr = chn->instrument;
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1530 if (instr != NULL)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1531 {
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1532 jvmSetSample(mp->device, channel,
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1533 instr->data, instr->size,
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1534 instr->loopS, instr->loopE,
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1535 instr->flags);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1536 }
180 bc8019c38ba5 Refactoring of the note triggering and other player logic, fixes various Matti Hamalainen <ccr@tnsp.org> parents: 177 diff changeset	1537 }
bc8019c38ba5 Refactoring of the note triggering and other player logic, fixes various Matti Hamalainen <ccr@tnsp.org> parents: 177 diff changeset	1538
bc8019c38ba5 Refactoring of the note triggering and other player logic, fixes various Matti Hamalainen <ccr@tnsp.org> parents: 177 diff changeset	1539 if (flags & cdfPlay)
228 4d979914e837 Use jvmReset appropriately, fixes(?) taotao.xm vs. boost.xm vs. vital.xm issues. Matti Hamalainen <ccr@tnsp.org> parents: 226 diff changeset	1540 {
4d979914e837 Use jvmReset appropriately, fixes(?) taotao.xm vs. boost.xm vs. vital.xm issues. Matti Hamalainen <ccr@tnsp.org> parents: 226 diff changeset	1541 jvmReset(mp->device, channel);
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1542 jvmPlay(mp->device, channel);
228 4d979914e837 Use jvmReset appropriately, fixes(?) taotao.xm vs. boost.xm vs. vital.xm issues. Matti Hamalainen <ccr@tnsp.org> parents: 226 diff changeset	1543 }
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1544
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1545 if (flags & cdfNewPitch)
193 b778cc2fe7c8 Create a separate new frequency flag (vs. new pitch), for future changes. Matti Hamalainen <ccr@tnsp.org> parents: 189 diff changeset	1546 jmpCSetPitch(mp, chn, chn->pitch);
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	1547
218 c619c8b6f696 Fix arpeggio handling. Matti Hamalainen <ccr@tnsp.org> parents: 217 diff changeset	1548 if (flags & (cdfNewFreq \| cdfNewPitch))
193 b778cc2fe7c8 Create a separate new frequency flag (vs. new pitch), for future changes. Matti Hamalainen <ccr@tnsp.org> parents: 189 diff changeset	1549 jvmSetFreq(mp->device, channel, chn->freq);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1550
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1551 if (flags & cdfNewPos)
183 a65f0c3deaa7 Some more player logic cleanups and variable renames. Matti Hamalainen <ccr@tnsp.org> parents: 182 diff changeset	1552 jvmSetPos(mp->device, channel, chn->position);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1553
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1554 if (flags & cdfNewVolume)
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1555 {
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1556 BOOL init = flags & (cdfNewInstr \| cdfPlay);
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1557 jvmSetVolumeRamp(mp->device, channel,
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1558 init ? 0 : jvmGetVolume(mp->device, channel),
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1559 (chn->fadeOutVol * chn->volumeEnv.value * chn->volume) / (16 * 65536),
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1560 init ? 5 : 0);
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1561 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1562
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1563 if (flags & cdfNewPanPos)
365 5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1564 {
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1565 jvmSetPanRamp(mp->device, channel,
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1566 jvmGetPan(mp->device, channel),
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1567 chn->panning + (((chn->panningEnv.value - 32) * (128 - abs(chn->panning - 128))) / 32),
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1568 0);
5a003246a735 Refactor volume and panning handling. Matti Hamalainen <ccr@tnsp.org> parents: 299 diff changeset	1569 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1570
144 22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1571 if (flags & cdfNewGlobalVol)
22e1be63f6af Various improvements in XM replay: implement the 5ms volume fadein and Matti Hamalainen <ccr@tnsp.org> parents: 142 diff changeset	1572 jvmSetGlobalVol(mp->device, mp->globalVol);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1573 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1574 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1575
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1576 out:
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1577 JSS_UNLOCK(mp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1578 }

Mercurial > hg > dmlib

annotate minijss/jssplr.c @ 1163:aa3738b121d1