ref: 5d1114967dc5dee345cc8823e3e53df2ff15a1c5
dir: /src/pt2_sampler.c/
// for finding memory leaks in debug mode with Visual Studio
#if defined _DEBUG && defined _MSC_VER
#include <crtdbg.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stdbool.h>
#include "pt2_header.h"
#include "pt2_helpers.h"
#include "pt2_textout.h"
#include "pt2_audio.h"
#include "pt2_palette.h"
#include "pt2_tables.h"
#include "pt2_visuals.h"
#include "pt2_blep.h"
#include "pt2_mouse.h"
#include "pt2_scopes.h"
#include "pt2_sampler.h"
#include "pt2_structs.h"
#include "pt2_config.h"
#include "pt2_bmp.h"
#include "pt2_sync.h"
#define CENTER_LINE_COLOR 0x303030
#define MARK_COLOR_1 0x666666 /* inverted background */
#define MARK_COLOR_2 0xCCCCCC /* inverted waveform */
#define MARK_COLOR_3 0x7D7D7D /* inverted center line */
#define SAMPLE_AREA_Y_CENTER 169
#define SAMPLE_AREA_HEIGHT 64
typedef struct sampleMixer_t
{
int32_t length, pos;
uint32_t posFrac, delta;
} sampleMixer_t;
sampler_t sampler; // globalized
static int32_t samOffsetScaled, lastDrawX, lastDrawY;
static uint32_t waveInvertTable[8];
static const int8_t tuneToneData[32] = // Tuning Tone (Sine Wave)
{
0, 25, 49, 71, 91, 106, 118, 126,
127, 126, 118, 106, 91, 71, 49, 25,
0, -25, -49, -71, -91,-106,-118,-126,
-127,-126,-118,-106, -91, -71, -49, -25
};
void upSample(void)
{
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
moduleSample_t *s = &song->samples[editor.currSample];
uint32_t newLength = (s->length >> 1) & 0xFFFE;
if (newLength < 2)
return;
turnOffVoices();
// upsample
int8_t *ptr8 = &song->sampleData[s->offset];
for (uint32_t i = 0; i < newLength; i++)
ptr8[i] = ptr8[i << 1];
// clear junk after shrunk sample
if (newLength < MAX_SAMPLE_LEN)
memset(&ptr8[newLength], 0, MAX_SAMPLE_LEN - newLength);
s->length = (uint16_t)newLength;
s->loopStart = (s->loopStart >> 1) & 0xFFFE;
s->loopLength = (s->loopLength >> 1) & 0xFFFE;
if (s->loopLength < 2)
{
s->loopStart = 0;
s->loopLength = 2;
}
fixSampleBeep(s);
updateCurrSample();
ui.updateSongSize = true;
updateWindowTitle(MOD_IS_MODIFIED);
}
void downSample(void)
{
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
moduleSample_t *s = &song->samples[editor.currSample];
uint32_t newLength = s->length << 1;
if (newLength > MAX_SAMPLE_LEN)
newLength = MAX_SAMPLE_LEN;
turnOffVoices();
// downsample
int8_t *ptr8 = &song->sampleData[s->offset];
int8_t *ptr8_2 = ptr8 - 1;
for (int32_t i = s->length-1; i > 0; i--)
{
ptr8[i<<1] = ptr8[i];
ptr8_2[i<<1] = ptr8_2[i];
}
s->length = (uint16_t)newLength;
if (s->loopLength > 2)
{
uint32_t loopStart = s->loopStart << 1;
uint32_t loopLength = s->loopLength << 1;
if (loopStart+loopLength > s->length)
{
loopStart = 0;
loopLength = 2;
}
s->loopStart = (uint16_t)loopStart;
s->loopLength = (uint16_t)loopLength;
}
fixSampleBeep(s);
updateCurrSample();
ui.updateSongSize = true;
updateWindowTitle(MOD_IS_MODIFIED);
}
void createSampleMarkTable(void)
{
// used for invertRange() (sample data marking)
waveInvertTable[0] = 0x00000000 | video.palette[PAL_BACKGRD];
waveInvertTable[1] = 0x01000000 | video.palette[PAL_QADSCP];
waveInvertTable[2] = 0x02000000 | CENTER_LINE_COLOR;
waveInvertTable[3] = 0x03000000; // spacer, not used
waveInvertTable[4] = 0x04000000 | MARK_COLOR_1;
waveInvertTable[5] = 0x05000000 | MARK_COLOR_2;
waveInvertTable[6] = 0x06000000 | MARK_COLOR_3;
waveInvertTable[7] = 0x07000000; // spacer, not used
}
static void updateSamOffset(void)
{
if (sampler.samDisplay == 0)
samOffsetScaled = 0;
else
samOffsetScaled = (sampler.samOffset * SAMPLE_AREA_WIDTH) / sampler.samDisplay; // truncate here
}
void fixSampleBeep(moduleSample_t *s)
{
if (s->length >= 2 && s->loopStart+s->loopLength <= 2)
{
song->sampleData[s->offset+0] = 0;
song->sampleData[s->offset+1] = 0;
}
}
void updateSamplePos(void)
{
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (editor.currSample >= 0 && editor.currSample <= 30)
{
s = &song->samples[editor.currSample];
if (editor.samplePos > s->length)
editor.samplePos = s->length;
if (ui.editOpScreenShown && ui.editOpScreen == 2)
ui.updatePosText = true;
}
}
void fillSampleFilterUndoBuffer(void)
{
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (editor.currSample >= 0 && editor.currSample <= 30)
{
s = &song->samples[editor.currSample];
memcpy(editor.tempSample, &song->sampleData[s->offset], s->length);
}
}
void sampleLine(int32_t line_x1, int32_t line_x2, int32_t line_y1, int32_t line_y2)
{
int32_t d, x, y, ax, ay, sx, sy, dx, dy;
uint32_t color = 0x01000000 | video.palette[PAL_QADSCP];
assert(line_x1 >= 0 || line_x2 >= 0 || line_x1 < SCREEN_W || line_x2 < SCREEN_W);
assert(line_y1 >= 0 || line_y2 >= 0 || line_y1 < SCREEN_H || line_y2 < SCREEN_H);
dx = line_x2 - line_x1;
ax = ABS(dx) * 2;
sx = SGN(dx);
dy = line_y2 - line_y1;
ay = ABS(dy) * 2;
sy = SGN(dy);
x = line_x1;
y = line_y1;
if (ax > ay)
{
d = ay - ((uint16_t)ax >> 1);
while (true)
{
assert(y >= 0 || x >= 0 || y < SCREEN_H || x < SCREEN_W);
video.frameBuffer[(y * SCREEN_W) + x] = color;
if (x == line_x2)
break;
if (d >= 0)
{
y += sy;
d -= ax;
}
x += sx;
d += ay;
}
}
else
{
d = ax - ((uint16_t)ay >> 1);
while (true)
{
assert(y >= 0 || x >= 0 || y < SCREEN_H || x < SCREEN_W);
video.frameBuffer[(y * SCREEN_W) + x] = color;
if (y == line_y2)
break;
if (d >= 0)
{
x += sx;
d -= ay;
}
y += sy;
d += ax;
}
}
}
static void setDragBar(void)
{
int32_t pos;
// clear drag bar background
fillRect(4, 206, 312, 4, video.palette[PAL_BACKGRD]);
if (sampler.samLength > 0 && sampler.samDisplay != sampler.samLength)
{
const int32_t roundingBias = sampler.samLength >> 1;
// update drag bar coordinates
pos = 4 + (((sampler.samOffset * 311) + roundingBias) / sampler.samLength);
sampler.dragStart = (uint16_t)CLAMP(pos, 4, 315);
pos = 5 + ((((sampler.samDisplay + sampler.samOffset) * 311) + roundingBias) / sampler.samLength);
sampler.dragEnd = (uint16_t)CLAMP(pos, 5, 316);
if (sampler.dragStart > sampler.dragEnd-1)
sampler.dragStart = sampler.dragEnd-1;
// draw drag bar
const uint32_t dragWidth = sampler.dragEnd - sampler.dragStart;
if (dragWidth > 0)
fillRect(sampler.dragStart, 206, dragWidth, 4, video.palette[PAL_QADSCP]);
}
}
static int8_t getScaledSample(int32_t index)
{
const int8_t *ptr8;
if (sampler.samLength <= 0 || index < 0 || index > sampler.samLength)
return 0;
ptr8 = sampler.samStart;
if (ptr8 == NULL)
return 0;
return ptr8[index] >> 2;
}
int32_t smpPos2Scr(int32_t pos) // sample pos -> screen x pos
{
if (sampler.samDisplay == 0)
return 0;
uint32_t roundingBias = (uint32_t)sampler.samDisplay >> 1;
pos = (((uint32_t)pos * SAMPLE_AREA_WIDTH) + roundingBias) / (uint32_t)sampler.samDisplay; // rounded
pos -= samOffsetScaled;
return pos;
}
int32_t scr2SmpPos(int32_t x) // screen x pos -> sample pos
{
if (sampler.samDisplay == 0)
return 0;
if (x < 0)
x = 0;
x += samOffsetScaled;
x = (uint32_t)(x * sampler.samDisplay) / SAMPLE_AREA_WIDTH; // truncate here
if (x > sampler.samLength)
x = sampler.samLength;
return x;
}
static void getSampleDataPeak(int8_t *smpPtr, int32_t numBytes, int16_t *outMin, int16_t *outMax)
{
int8_t smp, smpMin, smpMax;
smpMin = 127;
smpMax = -128;
for (int32_t i = 0; i < numBytes; i++)
{
smp = smpPtr[i];
if (smp < smpMin) smpMin = smp;
if (smp > smpMax) smpMax = smp;
}
*outMin = SAMPLE_AREA_Y_CENTER - (smpMin >> 2);
*outMax = SAMPLE_AREA_Y_CENTER - (smpMax >> 2);
}
void renderSampleData(void)
{
int8_t *smpPtr;
int16_t y1, y2, min, max, oldMin, oldMax;
int32_t x, smpIdx, smpNum;
uint32_t *dstPtr;
moduleSample_t *s;
s = &song->samples[editor.currSample];
// clear sample data background
fillRect(3, 138, SAMPLE_AREA_WIDTH, SAMPLE_VIEW_HEIGHT, video.palette[PAL_BACKGRD]);
// display center line (if enabled)
if (config.waveformCenterLine)
{
dstPtr = &video.frameBuffer[(SAMPLE_AREA_Y_CENTER * SCREEN_W) + 3];
for (x = 0; x < SAMPLE_AREA_WIDTH; x++)
dstPtr[x] = 0x02000000 | CENTER_LINE_COLOR;
}
// render sample data
if (sampler.samDisplay >= 0 && sampler.samDisplay <= MAX_SAMPLE_LEN)
{
y1 = SAMPLE_AREA_Y_CENTER - getScaledSample(scr2SmpPos(0));
if (sampler.samDisplay <= SAMPLE_AREA_WIDTH)
{
// 1:1 or zoomed in
for (x = 1; x < SAMPLE_AREA_WIDTH; x++)
{
y2 = SAMPLE_AREA_Y_CENTER - getScaledSample(scr2SmpPos(x));
sampleLine(x + 2, x + 3, y1, y2);
y1 = y2;
}
}
else
{
// zoomed out
oldMin = y1;
oldMax = y1;
smpPtr = &song->sampleData[s->offset];
for (x = 0; x < SAMPLE_AREA_WIDTH; x++)
{
smpIdx = scr2SmpPos(x);
smpNum = scr2SmpPos(x+1) - smpIdx;
// prevent look-up overflow (yes, this can happen near the end of the sample)
if (smpIdx+smpNum > sampler.samLength)
smpNum = sampler.samLength - smpNum;
if (smpNum < 1)
smpNum = 1;
getSampleDataPeak(&smpPtr[smpIdx], smpNum, &min, &max);
if (x > 0)
{
if (min > oldMax) sampleLine(x + 2, x + 3, oldMax, min);
if (max < oldMin) sampleLine(x + 2, x + 3, oldMin, max);
}
sampleLine(x + 3, x + 3, max, min);
oldMin = min;
oldMax = max;
}
}
}
if (ui.samplingBoxShown)
return;
// render "sample display" text
if (sampler.samStart == sampler.blankSample)
printFiveDecimalsBg(272, 214, 0, video.palette[PAL_GENTXT], video.palette[PAL_GENBKG]);
else
printFiveDecimalsBg(272, 214, sampler.samDisplay, video.palette[PAL_GENTXT], video.palette[PAL_GENBKG]);
setDragBar();
setLoopSprites();
}
void invertRange(void)
{
int32_t x, y, rangeLen, start, end;
uint32_t *dstPtr;
if (editor.markStartOfs == -1)
return; // no marking
start = smpPos2Scr(editor.markStartOfs);
end = smpPos2Scr(editor.markEndOfs);
if (sampler.samDisplay < sampler.samLength && (start >= SAMPLE_AREA_WIDTH || end < 0))
return; // range is outside of view
start = CLAMP(start, 0, SAMPLE_AREA_WIDTH-1);
end = CLAMP(end, 0, SAMPLE_AREA_WIDTH-1);
rangeLen = (end + 1) - start;
if (rangeLen < 1)
rangeLen = 1;
dstPtr = &video.frameBuffer[(138 * SCREEN_W) + (start + 3)];
for (y = 0; y < 64; y++)
{
for (x = 0; x < rangeLen; x++)
dstPtr[x] = waveInvertTable[((dstPtr[x] >> 24) & 7) ^ 4]; // It's magic! ptr[x]>>24 = wave/invert color number
dstPtr += SCREEN_W;
}
}
void displaySample(void)
{
if (!ui.samplerScreenShown)
return;
renderSampleData();
if (editor.markStartOfs != -1)
invertRange();
ui.update9xxPos = true;
}
void redrawSample(void)
{
moduleSample_t *s;
if (!ui.samplerScreenShown)
return;
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (editor.currSample >= 0 && editor.currSample <= 30)
{
editor.markStartOfs = -1;
sampler.samOffset = 0;
updateSamOffset();
s = &song->samples[editor.currSample];
if (s->length > 0)
{
sampler.samStart = &song->sampleData[s->offset];
sampler.samDisplay = s->length;
sampler.samLength = s->length;
}
else
{
// "blank sample" template
sampler.samStart = sampler.blankSample;
sampler.samLength = SAMPLE_AREA_WIDTH;
sampler.samDisplay = SAMPLE_AREA_WIDTH;
}
renderSampleData();
updateSamplePos();
ui.update9xxPos = true;
ui.lastSampleOffset = 0x900;
}
}
void highPassSample(int32_t cutOff)
{
int32_t smp32, i, from, to;
double *dSampleData, dBaseFreq, dCutOff;
moduleSample_t *s;
rcFilter_t filterHi;
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
if (cutOff == 0)
{
displayErrorMsg("CUTOFF CAN'T BE 0");
return;
}
s = &song->samples[editor.currSample];
if (s->length == 0)
{
statusSampleIsEmpty();
return;
}
from = 0;
to = s->length;
if (editor.markStartOfs != -1)
{
from = editor.markStartOfs;
to = editor.markEndOfs;
if (to > s->length)
to = s->length;
if (from == to)
{
from = 0;
to = s->length;
}
}
dSampleData = (double *)malloc(s->length * sizeof (double));
if (dSampleData == NULL)
{
statusOutOfMemory();
return;
}
fillSampleFilterUndoBuffer();
// setup filter coefficients
dBaseFreq = FILTERS_BASE_FREQ;
dCutOff = (double)cutOff;
if (dCutOff >= dBaseFreq/2.0)
{
dCutOff = dBaseFreq/2.0;
editor.hpCutOff = (uint16_t)dCutOff;
}
calcRCFilterCoeffs(dBaseFreq, dCutOff, &filterHi);
// copy over sample data to double buffer
for (i = 0; i < s->length; i++)
dSampleData[i] = song->sampleData[s->offset+i];
clearRCFilterState(&filterHi);
if (to <= s->length)
{
for (i = from; i < to; i++)
RCHighPassFilterMono(&filterHi, dSampleData[i], &dSampleData[i]);
}
if (editor.normalizeFiltersFlag)
normalize8bitDoubleSigned(dSampleData, s->length);
for (i = from; i < to; i++)
{
smp32 = (int32_t)dSampleData[i];
CLAMP8(smp32);
song->sampleData[s->offset + i] = (int8_t)smp32;
}
free(dSampleData);
fixSampleBeep(s);
displaySample();
updateWindowTitle(MOD_IS_MODIFIED);
}
void lowPassSample(int32_t cutOff)
{
int32_t smp32, i, from, to;
double *dSampleData, dBaseFreq, dCutOff;
moduleSample_t *s;
rcFilter_t filterLo;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (cutOff == 0)
{
displayErrorMsg("CUTOFF CAN'T BE 0");
return;
}
s = &song->samples[editor.currSample];
if (s->length == 0)
{
statusSampleIsEmpty();
return;
}
from = 0;
to = s->length;
if (editor.markStartOfs != -1)
{
from = editor.markStartOfs;
to = editor.markEndOfs;
if (to > s->length)
to = s->length;
if (from == to)
{
from = 0;
to = s->length;
}
}
dSampleData = (double *)malloc(s->length * sizeof (double));
if (dSampleData == NULL)
{
statusOutOfMemory();
return;
}
fillSampleFilterUndoBuffer();
// setup filter coefficients
dBaseFreq = FILTERS_BASE_FREQ;
dCutOff = (double)cutOff;
if (dCutOff >= dBaseFreq/2.0)
{
dCutOff = dBaseFreq/2.0;
editor.lpCutOff = (uint16_t)dCutOff;
}
calcRCFilterCoeffs(dBaseFreq, dCutOff, &filterLo);
// copy over sample data to double buffer
for (i = 0; i < s->length; i++)
dSampleData[i] = song->sampleData[s->offset+i];
clearRCFilterState(&filterLo);
if (to <= s->length)
{
for (i = from; i < to; i++)
RCLowPassFilterMono(&filterLo, dSampleData[i], &dSampleData[i]);
}
if (editor.normalizeFiltersFlag)
normalize8bitDoubleSigned(dSampleData, s->length);
for (i = from; i < to; i++)
{
smp32 = (int32_t)dSampleData[i];
CLAMP8(smp32);
song->sampleData[s->offset + i] = (int8_t)smp32;
}
free(dSampleData);
fixSampleBeep(s);
displaySample();
updateWindowTitle(MOD_IS_MODIFIED);
}
void redoSampleData(int8_t sample)
{
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
moduleSample_t *s;
assert(sample >= 0 && sample <= 30);
s = &song->samples[sample];
turnOffVoices();
if (editor.smpRedoBuffer[sample] != NULL && editor.smpRedoLengths[sample] > 0)
{
memcpy(&song->sampleData[s->offset], editor.smpRedoBuffer[sample], editor.smpRedoLengths[sample]);
if (editor.smpRedoLengths[sample] < MAX_SAMPLE_LEN)
memset(&song->sampleData[s->offset + editor.smpRedoLengths[sample]], 0, MAX_SAMPLE_LEN - editor.smpRedoLengths[sample]);
}
else
{
memset(&song->sampleData[s->offset], 0, MAX_SAMPLE_LEN);
}
s->fineTune = editor.smpRedoFinetunes[sample];
s->volume = editor.smpRedoVolumes[sample];
s->length = editor.smpRedoLengths[sample];
s->loopStart = editor.smpRedoLoopStarts[sample];
s->loopLength = (editor.smpRedoLoopLengths[sample] < 2) ? 2 : editor.smpRedoLoopLengths[sample];
displayMsg("SAMPLE RESTORED !");
editor.samplePos = 0;
updateCurrSample();
// this routine can be called while the sampler toolboxes are open, so redraw them
if (ui.samplerScreenShown)
{
if (ui.samplerVolBoxShown)
renderSamplerVolBox();
else if (ui.samplerFiltersBoxShown)
renderSamplerFiltersBox();
}
}
void fillSampleRedoBuffer(int8_t sample)
{
moduleSample_t *s;
assert(sample >= 0 && sample <= 30);
s = &song->samples[sample];
if (editor.smpRedoBuffer[sample] != NULL)
{
free(editor.smpRedoBuffer[sample]);
editor.smpRedoBuffer[sample] = NULL;
}
editor.smpRedoFinetunes[sample] = s->fineTune;
editor.smpRedoVolumes[sample] = s->volume;
editor.smpRedoLengths[sample] = s->length;
editor.smpRedoLoopStarts[sample] = s->loopStart;
editor.smpRedoLoopLengths[sample] = s->loopLength;
if (s->length > 0)
{
editor.smpRedoBuffer[sample] = (int8_t *)malloc(s->length);
if (editor.smpRedoBuffer[sample] != NULL)
memcpy(editor.smpRedoBuffer[sample], &song->sampleData[s->offset], s->length);
}
}
bool allocSamplerVars(void)
{
sampler.copyBuf = (int8_t *)malloc(MAX_SAMPLE_LEN);
sampler.blankSample = (int8_t *)calloc(MAX_SAMPLE_LEN, 1);
if (sampler.copyBuf == NULL || sampler.blankSample == NULL)
return false;
return true;
}
void deAllocSamplerVars(void)
{
if (sampler.copyBuf != NULL)
{
free(sampler.copyBuf);
sampler.copyBuf = NULL;
}
if (sampler.blankSample != NULL)
{
free(sampler.blankSample);
sampler.blankSample = NULL;
}
for (int32_t i = 0; i < MOD_SAMPLES; i++)
{
if (editor.smpRedoBuffer[i] != NULL)
{
free(editor.smpRedoBuffer[i]);
editor.smpRedoBuffer[i] = NULL;
}
}
}
void samplerRemoveDcOffset(void)
{
int8_t *smpDat;
int32_t smp32, i, from, to, offset;
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
statusSampleIsEmpty();
return;
}
smpDat = &song->sampleData[s->offset];
from = 0;
to = s->length;
if (editor.markStartOfs != -1)
{
from = editor.markStartOfs;
to = editor.markEndOfs;
if (to > s->length)
to = s->length;
if (from == to)
{
from = 0;
to = s->length;
}
}
if (to <= 0)
return;
// calculate offset value
offset = 0;
for (i = from; i < to; i++)
offset += smpDat[i];
offset /= to;
// remove DC offset
for (i = from; i < to; i++)
{
smp32 = smpDat[i] - offset;
CLAMP8(smp32);
smpDat[i] = (int8_t)smp32;
}
fixSampleBeep(s);
displaySample();
updateWindowTitle(MOD_IS_MODIFIED);
}
#define INTRP_QUADRATIC_TAPS 3
#define INTRP8_QUADRATIC(s1, s2, s3, f) /* output: -32768..32767 (+ spline overshoot) */ \
{ \
int32_t s4, frac = (f) >> 1; \
\
s2 <<= 8; \
s4 = ((s1 + s3) << (8 - 1)) - s2; \
s4 = ((s4 * frac) >> 16) + s2; \
s3 = (s1 + s3) << (8 - 1); \
s1 <<= 8; \
s3 = (s1 + s3) >> 1; \
s1 += ((s4 - s3) * frac) >> 14; \
} \
#define INTRP_LINEAR_TAPS 2
#define INTRP8_LINEAR(s1, s2, f) /* output: -127..128 */ \
s2 -= s1; \
s2 *= (int32_t)(f); \
s1 <<= 8; \
s2 >>= (16 - 8); \
s1 += s2; \
s1 >>= 8; \
void mixChordSample(void)
{
bool smpLoopFlag;
char smpText[22 + 1];
int8_t *smpData, sameNotes, smpVolume;
uint8_t smpFinetune, finetune;
int32_t channels, samples[INTRP_QUADRATIC_TAPS], *mixData, i, j, k, pos, smpLoopStart, smpLoopLength, smpEnd;
sampleMixer_t mixCh[4], *v;
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
assert(editor.tuningNote <= 35);
if (editor.note1 == 36)
{
displayErrorMsg("NO BASENOTE!");
return;
}
if (song->samples[editor.currSample].length == 0)
{
statusSampleIsEmpty();
return;
}
// check if all notes are the same (illegal)
sameNotes = true;
if ((editor.note2 != 36) && (editor.note2 != editor.note1)) sameNotes = false; else editor.note2 = 36;
if ((editor.note3 != 36) && (editor.note3 != editor.note1)) sameNotes = false; else editor.note3 = 36;
if ((editor.note4 != 36) && (editor.note4 != editor.note1)) sameNotes = false; else editor.note4 = 36;
if (sameNotes)
{
displayErrorMsg("ONLY ONE NOTE!");
return;
}
// sort the notes
for (i = 0; i < 3; i++)
{
if (editor.note2 == 36)
{
editor.note2 = editor.note3;
editor.note3 = editor.note4;
editor.note4 = 36;
}
}
for (i = 0; i < 3; i++)
{
if (editor.note3 == 36)
{
editor.note3 = editor.note4;
editor.note4 = 36;
}
}
// remove eventual note duplicates
if (editor.note4 == editor.note3) editor.note4 = 36;
if (editor.note4 == editor.note2) editor.note4 = 36;
if (editor.note3 == editor.note2) editor.note3 = 36;
ui.updateNote1Text = true;
ui.updateNote2Text = true;
ui.updateNote3Text = true;
ui.updateNote4Text = true;
// setup some variables
smpLoopStart = song->samples[editor.currSample].loopStart;
smpLoopLength = song->samples[editor.currSample].loopLength;
smpLoopFlag = (smpLoopStart + smpLoopLength) > 2;
smpEnd = smpLoopFlag ? (smpLoopStart + smpLoopLength) : song->samples[editor.currSample].length;
smpData = &song->sampleData[song->samples[editor.currSample].offset];
if (editor.newOldFlag == 0)
{
// find a free sample slot for the new sample
for (i = 0; i < MOD_SAMPLES; i++)
{
if (song->samples[i].length == 0)
break;
}
if (i == MOD_SAMPLES)
{
displayErrorMsg("NO EMPTY SAMPLE!");
return;
}
smpFinetune = song->samples[editor.currSample].fineTune;
smpVolume = song->samples[editor.currSample].volume;
memcpy(smpText, song->samples[editor.currSample].text, sizeof (smpText));
s = &song->samples[i];
s->fineTune = smpFinetune;
s->volume = smpVolume;
memcpy(s->text, smpText, sizeof (smpText));
editor.currSample = (int8_t)i;
}
else
{
// overwrite current sample
s = &song->samples[editor.currSample];
}
mixData = (int32_t *)calloc(MAX_SAMPLE_LEN, sizeof (int32_t));
if (mixData == NULL)
{
statusOutOfMemory();
return;
}
s->length = smpLoopFlag ? MAX_SAMPLE_LEN : editor.chordLength; // if sample loops, set max length
s->loopLength = 2;
s->loopStart = 0;
s->text[21] = '!'; // chord sample indicator
s->text[22] = '\0';
memset(mixCh, 0, sizeof (mixCh));
// setup mixing lengths and deltas
finetune = s->fineTune & 0xF;
channels = 0;
if (editor.note1 < 36)
{
mixCh[0].delta = (periodTable[editor.tuningNote] << 16) / (periodTable[(finetune * 37) + editor.note1]);
mixCh[0].length = (smpEnd * periodTable[(finetune * 37) + editor.note1]) / periodTable[editor.tuningNote];
channels++;
}
if (editor.note2 < 36)
{
mixCh[1].delta = (periodTable[editor.tuningNote] << 16) / (periodTable[(finetune * 37) + editor.note2]);
mixCh[1].length = (smpEnd * periodTable[(finetune * 37) + editor.note2]) / periodTable[editor.tuningNote];
channels++;
}
if (editor.note3 < 36)
{
mixCh[2].delta = (periodTable[editor.tuningNote] << 16) / (periodTable[(finetune * 37) + editor.note3]);
mixCh[2].length = (smpEnd * periodTable[(finetune * 37) + editor.note3]) / periodTable[editor.tuningNote];
channels++;
}
if (editor.note4 < 36)
{
mixCh[3].delta = (periodTable[editor.tuningNote] << 16) / (periodTable[(finetune * 37) + editor.note4]);
mixCh[3].length = (smpEnd * periodTable[(finetune * 37) + editor.note4]) / periodTable[editor.tuningNote];
channels++;
}
// start mixing
turnOffVoices();
for (i = 0; i < channels; i++)
{
v = &mixCh[i];
if (v->length <= 0)
continue; // mix active channels only
for (j = 0; j < MAX_SAMPLE_LEN; j++) // don't mix more than we can handle in a sample slot
{
// collect samples for interpolation
for (k = 0; k < INTRP_QUADRATIC_TAPS; k++)
{
pos = v->pos + k;
if (smpLoopFlag)
{
while (pos >= smpEnd)
pos -= smpLoopLength;
samples[k] = smpData[pos];
}
else
{
if (pos >= smpEnd)
samples[k] = 0;
else
samples[k] = smpData[pos];
}
}
INTRP8_QUADRATIC(samples[0], samples[1], samples[2], v->posFrac);
mixData[j] += samples[0];
v->posFrac += v->delta;
if (v->posFrac > 0xFFFF)
{
v->pos += v->posFrac >> 16;
v->posFrac &= 0xFFFF;
if (smpLoopFlag)
{
while (v->pos >= smpEnd)
v->pos -= smpLoopLength;
}
}
}
}
normalize32bitSigned(mixData, s->length);
// normalize gain and quantize to 8-bit
for (i = 0; i < s->length; i++)
song->sampleData[s->offset + i] = (int8_t)(mixData[i] >> 24);
if (s->length < MAX_SAMPLE_LEN)
memset(&song->sampleData[s->offset + s->length], 0, MAX_SAMPLE_LEN - s->length);
// we're done
free(mixData);
editor.samplePos = 0;
fixSampleBeep(s);
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
}
void samplerResample(void)
{
int8_t *readData, *writeData;
int16_t refPeriod, newPeriod;
int32_t samples[INTRP_LINEAR_TAPS], i, pos, readPos, writePos;
int32_t readLength, writeLength, loopStart, loopLength;
uint32_t posFrac, delta;
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
assert(editor.tuningNote <= 35 && editor.resampleNote <= 35);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
statusSampleIsEmpty();
return;
}
// setup resampling variables
readPos = 0;
writePos = 0;
writeData = &song->sampleData[s->offset];
refPeriod = periodTable[editor.tuningNote];
newPeriod = periodTable[(37 * (s->fineTune & 0xF)) + editor.resampleNote];
readLength = s->length;
writeLength = (readLength * newPeriod) / refPeriod;
if (readLength == writeLength)
return; // no resampling needed
// allocate memory for our sample duplicate
readData = (int8_t *)malloc(s->length);
if (readData == NULL)
{
statusOutOfMemory();
return;
}
if (writeLength <= 0)
{
free(readData);
displayErrorMsg("RESAMPLE ERROR !");
return;
}
delta = ((uint32_t)readLength << 16) / (uint32_t)writeLength;
assert(delta != 0);
writeLength = writeLength & 0xFFFFFFFE;
if (writeLength > MAX_SAMPLE_LEN)
writeLength = MAX_SAMPLE_LEN;
memcpy(readData, writeData, readLength);
// resample
posFrac = 0;
turnOffVoices();
while (writePos < writeLength)
{
// collect samples for interpolation
for (i = 0; i < INTRP_LINEAR_TAPS; i++)
{
pos = readPos + i;
if (pos >= readLength)
samples[i] = 0;
else
samples[i] = readData[pos];
}
INTRP8_LINEAR(samples[0], samples[1], posFrac);
writeData[writePos++] = (int8_t)samples[0];
posFrac += delta;
readPos += posFrac >> 16;
posFrac &= 0xFFFF;
}
free(readData);
// wipe non-used data in new sample
if (writeLength < MAX_SAMPLE_LEN)
memset(&writeData[writePos], 0, MAX_SAMPLE_LEN - writeLength);
// update sample attributes
s->length = (uint16_t)writeLength;
s->fineTune = 0;
// scale loop points (and deactivate if overflowing)
if ((s->loopStart + s->loopLength) > 2)
{
loopStart = (int32_t)(((uint32_t)s->loopStart << 16) / delta) & 0xFFFFFFFE;
loopLength = (int32_t)(((uint32_t)s->loopLength << 16) / delta) & 0xFFFFFFFE;
if (loopStart+loopLength > s->length)
{
s->loopStart = 0;
s->loopLength = 2;
}
else
{
s->loopStart = (uint16_t)loopStart;
s->loopLength = (uint16_t)loopLength;
}
}
fixSampleBeep(s);
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
}
static uint8_t hexToInteger2(char *ptr)
{
char lo, hi;
/* This routine must ONLY be used on an address
** where two bytes can be read. It will mess up
** if the ASCII values are not '0 .. 'F' */
hi = ptr[0];
lo = ptr[1];
// high nybble
if (hi >= 'a')
hi -= ' ';
hi -= '0';
if (hi > 9)
hi -= 7;
// low nybble
if (lo >= 'a')
lo -= ' ';
lo -= '0';
if (lo > 9)
lo -= 7;
return (hi << 4) | lo;
}
void doMix(void)
{
int8_t *fromPtr1, *fromPtr2, *mixPtr;
uint8_t smpFrom1, smpFrom2, smpTo;
int16_t tmp16;
int32_t i, mixLength;
moduleSample_t *s1, *s2, *s3;
smpFrom1 = hexToInteger2(&editor.mixText[4]);
smpFrom2 = hexToInteger2(&editor.mixText[7]);
smpTo = hexToInteger2(&editor.mixText[13]);
if (smpFrom1 == 0 || smpFrom1 > 0x1F || smpFrom2 == 0 || smpFrom2 > 0x1F || smpTo == 0 || smpTo > 0x1F)
{
displayErrorMsg("NOT RANGE 01-1F !");
return;
}
s1 = &song->samples[--smpFrom1];
s2 = &song->samples[--smpFrom2];
s3 = &song->samples[--smpTo];
if (s1->length == 0 || s2->length == 0)
{
displayErrorMsg("EMPTY SAMPLES !!!");
return;
}
if (s1->length > s2->length)
{
fromPtr1 = &song->sampleData[s1->offset];
fromPtr2 = &song->sampleData[s2->offset];
mixLength = s1->length;
}
else
{
fromPtr1 = &song->sampleData[s2->offset];
fromPtr2 = &song->sampleData[s1->offset];
mixLength = s2->length;
}
mixPtr = (int8_t *)malloc(mixLength);
if (mixPtr == NULL)
{
statusOutOfMemory();
return;
}
turnOffVoices();
for (i = 0; i < mixLength; i++)
{
tmp16 = (i < s2->length) ? (fromPtr1[i] + fromPtr2[i]) : fromPtr1[i];
if (editor.halfClipFlag == 0)
tmp16 >>= 1;
CLAMP8(tmp16);
mixPtr[i] = (int8_t)tmp16;
}
memcpy(&song->sampleData[s3->offset], mixPtr, mixLength);
if (mixLength < MAX_SAMPLE_LEN)
memset(&song->sampleData[s3->offset + mixLength], 0, MAX_SAMPLE_LEN - mixLength);
free(mixPtr);
s3->length = (uint16_t)mixLength;
s3->volume = 64;
s3->fineTune = 0;
s3->loopStart = 0;
s3->loopLength = 2;
editor.currSample = smpTo;
editor.samplePos = 0;
fixSampleBeep(s3);
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
}
// this is actually treble increase
void boostSample(int32_t sample, bool ignoreMark)
{
int8_t *smpDat;
int16_t tmp16_0, tmp16_1, tmp16_2;
int32_t i, from, to;
moduleSample_t *s;
assert(sample >= 0 && sample <= 30);
s = &song->samples[sample];
if (s->length == 0)
return; // don't display warning/show warning pointer, it is done elsewhere
smpDat = &song->sampleData[s->offset];
from = 0;
to = s->length;
if (!ignoreMark)
{
if (editor.markStartOfs != -1)
{
from = editor.markStartOfs;
to = editor.markEndOfs;
if (to > s->length)
to = s->length;
if (from == to)
{
from = 0;
to = s->length;
}
}
}
tmp16_0 = 0;
for (i = from; i < to; i++)
{
tmp16_1 = smpDat[i];
tmp16_2 = tmp16_1;
tmp16_1 -= tmp16_0;
tmp16_0 = tmp16_2;
tmp16_1 >>= 2;
tmp16_2 += tmp16_1;
CLAMP8(tmp16_2);
smpDat[i] = (int8_t)tmp16_2;
}
fixSampleBeep(s);
// don't redraw sample here, it is done elsewhere
}
// this is actually treble decrease
void filterSample(int32_t sample, bool ignoreMark)
{
int8_t *smpDat;
int16_t tmp16;
int32_t i, from, to;
moduleSample_t *s;
assert(sample >= 0 && sample <= 30);
s = &song->samples[sample];
if (s->length == 0)
return; // don't display warning/show warning pointer, it is done elsewhere
smpDat = &song->sampleData[s->offset];
from = 1;
to = s->length;
if (!ignoreMark)
{
if (editor.markStartOfs != -1)
{
from = editor.markStartOfs;
to = editor.markEndOfs;
if (to > s->length)
to = s->length;
if (from == to)
{
from = 0;
to = s->length;
}
}
}
if (to < 1)
return;
to--;
for (i = from; i < to; i++)
{
tmp16 = (smpDat[i+0] + smpDat[i+1]) >> 1;
CLAMP8(tmp16);
smpDat[i] = (int8_t)tmp16;
}
fixSampleBeep(s);
// don't redraw sample here, it is done elsewhere
}
void toggleTuningTone(void)
{
if (editor.currMode == MODE_PLAY || editor.currMode == MODE_RECORD)
return;
editor.tuningFlag ^= 1;
if (editor.tuningFlag)
{
// turn tuning tone on
const int8_t ch = editor.tuningChan = (cursor.channel + 1) & 3;
if (editor.tuningNote > 35)
editor.tuningNote = 35;
song->channels[ch].n_volume = 64; // we need this for the scopes
paulaSetPeriod(ch, periodTable[editor.tuningNote]);
paulaSetVolume(ch, 64);
paulaSetData(ch, tuneToneData);
paulaSetLength(ch, sizeof (tuneToneData) / 2);
paulaStartDMA(ch);
}
else
{
// turn tuning tone off
mixerKillVoice(editor.tuningChan);
}
}
void sampleMarkerToBeg(void)
{
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
invertRange();
editor.markStartOfs = -1;
editor.samplePos = 0;
}
else
{
invertRange();
if (keyb.shiftPressed && editor.markStartOfs != -1)
{
editor.markStartOfs = sampler.samOffset;
}
else
{
editor.markStartOfs = sampler.samOffset;
editor.markEndOfs = editor.markStartOfs;
}
invertRange();
editor.samplePos = (uint16_t)editor.markEndOfs;
}
updateSamplePos();
}
void sampleMarkerToCenter(void)
{
int32_t middlePos;
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
invertRange();
editor.markStartOfs = -1;
editor.samplePos = 0;
}
else
{
middlePos = sampler.samOffset + ((sampler.samDisplay + 1) / 2);
invertRange();
if (keyb.shiftPressed && editor.markStartOfs != -1)
{
if (editor.markStartOfs < middlePos)
editor.markEndOfs = middlePos;
else if (editor.markEndOfs > middlePos)
editor.markStartOfs = middlePos;
}
else
{
editor.markStartOfs = middlePos;
editor.markEndOfs = editor.markStartOfs;
}
invertRange();
editor.samplePos = (uint16_t)editor.markEndOfs;
}
updateSamplePos();
}
void sampleMarkerToEnd(void)
{
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
invertRange();
editor.markStartOfs = -1;
editor.samplePos = 0;
}
else
{
invertRange();
if (keyb.shiftPressed && editor.markStartOfs != -1)
{
editor.markEndOfs = s->length;
}
else
{
editor.markStartOfs = s->length;
editor.markEndOfs = editor.markStartOfs;
}
invertRange();
editor.samplePos = (uint16_t)editor.markEndOfs;
}
updateSamplePos();
}
void samplerSamCopy(void)
{
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (editor.markStartOfs == -1)
{
displayErrorMsg("NO RANGE SELECTED");
return;
}
if (editor.markEndOfs-editor.markStartOfs <= 0)
{
displayErrorMsg("SET LARGER RANGE");
return;
}
s = &song->samples[editor.currSample];
if (s->length == 0)
{
statusSampleIsEmpty();
return;
}
sampler.copyBufSize = editor.markEndOfs - editor.markStartOfs;
if ((int32_t)(editor.markStartOfs + sampler.copyBufSize) > MAX_SAMPLE_LEN)
{
displayErrorMsg("COPY ERROR !");
return;
}
memcpy(sampler.copyBuf, &song->sampleData[s->offset+editor.markStartOfs], sampler.copyBufSize);
}
void samplerSamDelete(uint8_t cut)
{
int8_t *tmpBuf;
int32_t val32, sampleLength, copyLength, markEnd, markStart;
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (editor.markStartOfs == -1)
{
displayErrorMsg("NO RANGE SELECTED");
return;
}
if (editor.markEndOfs-editor.markStartOfs <= 0)
{
displayErrorMsg("SET LARGER RANGE");
return;
}
if (cut)
samplerSamCopy();
s = &song->samples[editor.currSample];
sampleLength = s->length;
if (sampleLength == 0)
{
statusSampleIsEmpty();
return;
}
turnOffVoices();
// if whole sample is marked, wipe it
if (editor.markEndOfs-editor.markStartOfs >= sampleLength)
{
memset(&song->sampleData[s->offset], 0, MAX_SAMPLE_LEN);
invertRange();
editor.markStartOfs = -1;
sampler.samStart = sampler.blankSample;
sampler.samDisplay = SAMPLE_AREA_WIDTH;
sampler.samLength = SAMPLE_AREA_WIDTH;
s->length = 0;
s->loopStart = 0;
s->loopLength = 2;
s->volume = 0;
s->fineTune = 0;
editor.samplePos = 0;
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
return;
}
markEnd = (editor.markEndOfs > sampleLength) ? sampleLength : editor.markEndOfs;
markStart = editor.markStartOfs;
copyLength = (editor.markStartOfs + sampleLength) - markEnd;
if (copyLength < 2 || copyLength > MAX_SAMPLE_LEN)
{
displayErrorMsg("SAMPLE CUT FAIL !");
return;
}
tmpBuf = (int8_t *)malloc(copyLength);
if (tmpBuf == NULL)
{
statusOutOfMemory();
return;
}
// copy start part
memcpy(tmpBuf, &song->sampleData[s->offset], editor.markStartOfs);
// copy end part
if (sampleLength-markEnd > 0)
memcpy(&tmpBuf[editor.markStartOfs], &song->sampleData[s->offset+markEnd], sampleLength - markEnd);
// nuke sample data and copy over the result
memcpy(&song->sampleData[s->offset], tmpBuf, copyLength);
if (copyLength < MAX_SAMPLE_LEN)
memset(&song->sampleData[s->offset+copyLength], 0, MAX_SAMPLE_LEN - copyLength);
free(tmpBuf);
sampler.samLength = copyLength;
if (sampler.samOffset+sampler.samDisplay >= sampler.samLength)
{
if (sampler.samDisplay < sampler.samLength)
{
if (sampler.samLength-sampler.samDisplay < 0)
{
sampler.samOffset = 0;
sampler.samDisplay = sampler.samLength;
}
else
{
sampler.samOffset = sampler.samLength - sampler.samDisplay;
}
}
else
{
sampler.samOffset = 0;
sampler.samDisplay = sampler.samLength;
}
updateSamOffset();
}
if (s->loopLength > 2) // loop enabled?
{
if (markEnd > s->loopStart)
{
if (markStart < s->loopStart+s->loopLength)
{
// we cut data inside the loop, increase loop length
val32 = (s->loopLength - (markEnd - markStart)) & 0xFFFFFFFE;
if (val32 < 2)
val32 = 2;
s->loopLength = (uint16_t)val32;
}
// we cut data after the loop, don't modify loop points
}
else
{
// we cut data before the loop, adjust loop start point
val32 = (s->loopStart - (markEnd - markStart)) & 0xFFFFFFFE;
if (val32 < 0)
{
s->loopStart = 0;
s->loopLength = 2;
}
else
{
s->loopStart = (uint16_t)val32;
}
}
}
s->length = copyLength & 0xFFFE;
if (sampler.samDisplay <= 2)
{
sampler.samStart = sampler.blankSample;
sampler.samLength = SAMPLE_AREA_WIDTH;
sampler.samDisplay = SAMPLE_AREA_WIDTH;
}
invertRange();
if (sampler.samDisplay == 0)
{
editor.markStartOfs = -1; // clear marking
}
else
{
if (editor.markStartOfs >= s->length)
editor.markStartOfs = s->length - 1;
editor.markEndOfs = editor.markStartOfs;
invertRange();
}
editor.samplePos = (uint16_t)editor.markStartOfs;
fixSampleBeep(s);
updateSamplePos();
recalcChordLength();
displaySample();
ui.updateCurrSampleLength = true;
ui.updateCurrSampleRepeat = true;
ui.updateCurrSampleReplen = true;
ui.updateSongSize = true;
updateWindowTitle(MOD_IS_MODIFIED);
}
void samplerSamPaste(void)
{
bool wasZooming;
int8_t *tmpBuf;
int32_t markStart;
uint32_t readPos;
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (sampler.copyBuf == NULL || sampler.copyBufSize == 0)
{
displayErrorMsg("BUFFER IS EMPTY");
return;
}
s = &song->samples[editor.currSample];
if (s->length > 0 && editor.markStartOfs == -1)
{
displayErrorMsg("SET CURSOR POS");
return;
}
markStart = editor.markStartOfs;
if (s->length == 0)
markStart = 0;
if (s->length+sampler.copyBufSize > MAX_SAMPLE_LEN)
{
displayErrorMsg("NOT ENOUGH ROOM");
return;
}
tmpBuf = (int8_t *)malloc(MAX_SAMPLE_LEN);
if (tmpBuf == NULL)
{
statusOutOfMemory();
return;
}
readPos = 0;
turnOffVoices();
wasZooming = (sampler.samDisplay != sampler.samLength);
// copy start part
if (markStart > 0)
{
memcpy(&tmpBuf[readPos], &song->sampleData[s->offset], markStart);
readPos += markStart;
}
// copy actual buffer
memcpy(&tmpBuf[readPos], sampler.copyBuf, sampler.copyBufSize);
// copy end part
if (markStart >= 0)
{
readPos += sampler.copyBufSize;
if (s->length-markStart > 0)
memcpy(&tmpBuf[readPos], &song->sampleData[s->offset+markStart], s->length - markStart);
}
int32_t newLength = (s->length + sampler.copyBufSize) & 0xFFFFFFFE;
if (newLength > MAX_SAMPLE_LEN)
newLength = MAX_SAMPLE_LEN;
sampler.samLength = s->length = (uint16_t)newLength;
if (s->loopLength > 2) // loop enabled?
{
if (markStart > s->loopStart)
{
if (markStart < s->loopStart+s->loopLength)
{
// we pasted data inside the loop, increase loop length
if (s->loopLength+sampler.copyBufSize > MAX_SAMPLE_LEN)
{
s->loopStart = 0;
s->loopLength = 2;
}
else
{
s->loopLength = (uint16_t)(s->loopLength + sampler.copyBufSize) & 0xFFFE;
if (s->loopStart+s->loopLength > s->length)
{
s->loopStart = 0;
s->loopLength = 2;
}
}
}
// we pasted data after the loop, don't modify loop points
}
else
{
// we pasted data before the loop, adjust loop start point
if (s->loopStart+sampler.copyBufSize > MAX_SAMPLE_LEN)
{
s->loopStart = 0;
s->loopLength = 2;
}
else
{
s->loopStart = (uint16_t)(s->loopStart + sampler.copyBufSize) & 0xFFFE;
if (s->loopStart+s->loopLength > s->length)
{
s->loopStart = 0;
s->loopLength = 2;
}
}
}
}
memcpy(&song->sampleData[s->offset], tmpBuf, s->length);
// clear data after sample's length (if present)
if (s->length < MAX_SAMPLE_LEN)
memset(&song->sampleData[s->offset+s->length], 0, MAX_SAMPLE_LEN - s->length);
free(tmpBuf);
invertRange();
editor.markStartOfs = -1;
fixSampleBeep(s);
updateSamplePos();
recalcChordLength();
if (wasZooming)
displaySample();
else
redrawSample();
ui.updateCurrSampleLength = true;
ui.updateSongSize = true;
updateWindowTitle(MOD_IS_MODIFIED);
}
static void playCurrSample(uint8_t chn, int32_t startOffset, int32_t endOffset, bool playWaveformFlag)
{
moduleChannel_t *ch;
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
assert(chn < AMIGA_VOICES);
assert(editor.currPlayNote <= 35);
s = &song->samples[editor.currSample];
ch = &song->channels[chn];
ch->n_samplenum = editor.currSample;
ch->n_volume = s->volume;
ch->n_period = periodTable[(37 * (s->fineTune & 0xF)) + editor.currPlayNote];
if (playWaveformFlag)
{
ch->n_start = &song->sampleData[s->offset];
ch->n_length = (s->loopStart > 0) ? (uint32_t)(s->loopStart + s->loopLength) >> 1 : s->length >> 1;
ch->n_loopstart = &song->sampleData[s->offset + s->loopStart];
ch->n_replen = s->loopLength >> 1;
}
else
{
ch->n_start = &song->sampleData[s->offset + startOffset];
ch->n_length = (uint16_t)((uint32_t)(endOffset - startOffset) >> 1);
ch->n_loopstart = &song->sampleData[s->offset];
ch->n_replen = 1;
}
if (ch->n_length == 0)
ch->n_length = 1;
paulaSetVolume(chn, ch->n_volume);
paulaSetPeriod(chn, ch->n_period);
paulaSetData(chn, ch->n_start);
paulaSetLength(chn, ch->n_length);
if (!editor.muted[chn])
paulaStartDMA(chn);
else
paulaStopDMA(chn);
// these take effect after the current DMA cycle is done
if (playWaveformFlag)
{
paulaSetData(chn, ch->n_loopstart);
paulaSetLength(chn, ch->n_replen);
}
else
{
paulaSetData(chn, NULL);
paulaSetLength(chn, 1);
}
updateSpectrumAnalyzer(ch->n_volume, ch->n_period);
}
void samplerPlayWaveform(void)
{
playCurrSample(cursor.channel, 0, 0, true);
}
void samplerPlayDisplay(void)
{
int32_t start = sampler.samOffset;
int32_t end = sampler.samOffset + sampler.samDisplay;
playCurrSample(cursor.channel, start, end, false);
}
void samplerPlayRange(void)
{
if (editor.markStartOfs == -1)
{
displayErrorMsg("NO RANGE SELECTED");
return;
}
if (editor.markEndOfs-editor.markStartOfs < 2)
{
displayErrorMsg("SET LARGER RANGE");
return;
}
playCurrSample(cursor.channel, editor.markStartOfs, editor.markEndOfs, false);
}
void setLoopSprites(void)
{
moduleSample_t *s;
if (!ui.samplerScreenShown)
{
hideSprite(SPRITE_LOOP_PIN_LEFT);
hideSprite(SPRITE_LOOP_PIN_RIGHT);
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->loopStart+s->loopLength > 2)
{
if (sampler.samDisplay > 0)
{
sampler.loopStartPos = (int16_t)smpPos2Scr(s->loopStart);
if (sampler.loopStartPos >= 0 && sampler.loopStartPos <= SAMPLE_AREA_WIDTH)
setSpritePos(SPRITE_LOOP_PIN_LEFT, sampler.loopStartPos, 138);
else
hideSprite(SPRITE_LOOP_PIN_LEFT);
sampler.loopEndPos = (int16_t)smpPos2Scr(s->loopStart + s->loopLength);
/* nasty kludge for where the right loop pin would sometimes disappear
** when zoomed in and scrolled all the way to the right.
*/
if (sampler.loopEndPos == SAMPLE_AREA_WIDTH+1)
sampler.loopEndPos = SAMPLE_AREA_WIDTH;
if (sampler.loopEndPos >= 0 && sampler.loopEndPos <= SAMPLE_AREA_WIDTH)
setSpritePos(SPRITE_LOOP_PIN_RIGHT, sampler.loopEndPos + 3, 138);
else
hideSprite(SPRITE_LOOP_PIN_RIGHT);
}
}
else
{
sampler.loopStartPos = 0;
sampler.loopEndPos = 0;
hideSprite(SPRITE_LOOP_PIN_LEFT);
hideSprite(SPRITE_LOOP_PIN_RIGHT);
}
textOutBg(288, 225, (s->loopStart+s->loopLength > 2) ? "ON " : "OFF", video.palette[PAL_GENTXT], video.palette[PAL_GENBKG]);
}
void samplerShowAll(void)
{
if (sampler.samDisplay == sampler.samLength)
return; // don't attempt to show all if already showing all!
sampler.samOffset = 0;
sampler.samDisplay = sampler.samLength;
updateSamOffset();
displaySample();
}
static void samplerZoomIn(int32_t step, int32_t x)
{
int32_t tmpDisplay, tmpOffset;
if (song->samples[editor.currSample].length == 0 || sampler.samDisplay <= 2)
return;
if (step < 1)
step = 1;
tmpDisplay = sampler.samDisplay - (step << 1);
if (tmpDisplay < 2)
tmpDisplay = 2;
const int32_t roundingBias = SCREEN_W / 4;
step += (((x - (SCREEN_W / 2)) * step) + roundingBias) / (SCREEN_W / 2);
tmpOffset = sampler.samOffset + step;
if (tmpOffset < 0)
tmpOffset = 0;
if (tmpOffset+tmpDisplay > sampler.samLength)
tmpOffset = sampler.samLength-tmpDisplay;
sampler.samOffset = tmpOffset;
sampler.samDisplay = tmpDisplay;
updateSamOffset();
displaySample();
}
static void samplerZoomOut(int32_t step, int32_t x)
{
int32_t tmpDisplay, tmpOffset;
if (song->samples[editor.currSample].length == 0 || sampler.samDisplay == sampler.samLength)
return;
if (step < 1)
step = 1;
tmpDisplay = sampler.samDisplay + (step << 1);
if (tmpDisplay > sampler.samLength)
{
tmpOffset = 0;
tmpDisplay = sampler.samLength;
}
else
{
const int32_t roundingBias = SCREEN_W / 4;
step += (((x - (SCREEN_W / 2)) * step) + roundingBias) / (SCREEN_W / 2);
tmpOffset = sampler.samOffset - step;
if (tmpOffset < 0)
tmpOffset = 0;
if (tmpOffset+tmpDisplay > sampler.samLength)
tmpOffset = sampler.samLength-tmpDisplay;
}
sampler.samOffset = tmpOffset;
sampler.samDisplay = tmpDisplay;
updateSamOffset();
displaySample();
}
void samplerZoomInMouseWheel(void)
{
samplerZoomIn((sampler.samDisplay + 5) / 10, mouse.x);
}
void samplerZoomOutMouseWheel(void)
{
samplerZoomOut((sampler.samDisplay + 5) / 10, mouse.x);
}
void samplerZoomOut2x(void)
{
samplerZoomOut((sampler.samDisplay + 1) / 2, SCREEN_W / 2);
}
void samplerRangeAll(void)
{
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
invertRange();
editor.markStartOfs = -1;
}
else
{
invertRange();
editor.markStartOfs = sampler.samOffset;
editor.markEndOfs = sampler.samOffset + sampler.samDisplay;
invertRange();
}
}
void samplerShowRange(void)
{
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
statusSampleIsEmpty();
return;
}
if (editor.markStartOfs == -1)
{
displayErrorMsg("NO RANGE SELECTED");
return;
}
if (editor.markEndOfs-editor.markStartOfs < 2)
{
displayErrorMsg("SET LARGER RANGE");
return;
}
sampler.samDisplay = editor.markEndOfs - editor.markStartOfs;
sampler.samOffset = editor.markStartOfs;
if (sampler.samDisplay+sampler.samOffset > sampler.samLength)
sampler.samOffset = sampler.samLength-sampler.samDisplay;
updateSamOffset();
invertRange();
editor.markStartOfs = -1;
displaySample();
}
void volBoxBarPressed(bool mouseButtonHeld)
{
int32_t mouseX;
if (!mouseButtonHeld)
{
if (mouse.x >= 72 && mouse.x <= 173)
{
if (mouse.y >= 154 && mouse.y <= 174) ui.forceVolDrag = 1;
if (mouse.y >= 165 && mouse.y <= 175) ui.forceVolDrag = 2;
}
}
else
{
if (sampler.lastMouseX != mouse.x)
{
sampler.lastMouseX = mouse.x;
mouseX = CLAMP(sampler.lastMouseX - 107, 0, 60);
if (ui.forceVolDrag == 1)
{
editor.vol1 = (int16_t)(((mouseX * 200) + (60/2)) / 60); // rounded
ui.updateVolFromText = true;
showVolFromSlider();
}
else if (ui.forceVolDrag == 2)
{
editor.vol2 = (int16_t)(((mouseX * 200) + (60/2)) / 60); // rounded
ui.updateVolToText = true;
showVolToSlider();
}
}
}
}
void samplerBarPressed(bool mouseButtonHeld)
{
int32_t tmp32;
if (!mouseButtonHeld)
{
if (mouse.x >= 4 && mouse.x <= 315)
{
if (mouse.x < sampler.dragStart)
{
tmp32 = sampler.samOffset - sampler.samDisplay;
if (tmp32 < 0)
tmp32 = 0;
if (tmp32 == sampler.samOffset)
return;
sampler.samOffset = tmp32;
updateSamOffset();
displaySample();
return;
}
if (mouse.x > sampler.dragEnd)
{
tmp32 = sampler.samOffset + sampler.samDisplay;
if (tmp32+sampler.samDisplay <= sampler.samLength)
{
if (tmp32 == sampler.samOffset)
return;
sampler.samOffset = tmp32;
}
else
{
tmp32 = sampler.samLength - sampler.samDisplay;
if (tmp32 == sampler.samOffset)
return;
sampler.samOffset = tmp32;
}
updateSamOffset();
displaySample();
return;
}
sampler.lastSamPos = mouse.x;
sampler.saveMouseX = sampler.lastSamPos - sampler.dragStart;
ui.forceSampleDrag = true;
}
}
if (mouse.x != sampler.lastSamPos)
{
sampler.lastSamPos = mouse.x;
tmp32 = sampler.lastSamPos - sampler.saveMouseX - 4;
tmp32 = CLAMP(tmp32, 0, SAMPLE_AREA_WIDTH);
tmp32 = ((tmp32 * sampler.samLength) + (311/2)) / 311; // rounded
if (tmp32+sampler.samDisplay <= sampler.samLength)
{
if (tmp32 == sampler.samOffset)
return;
sampler.samOffset = tmp32;
}
else
{
tmp32 = sampler.samLength - sampler.samDisplay;
if (tmp32 == sampler.samOffset)
return;
sampler.samOffset = tmp32;
}
updateSamOffset();
displaySample();
}
}
static int32_t mouseYToSampleY(int32_t my)
{
int32_t tmp32;
if (my == SAMPLE_AREA_Y_CENTER) // center
{
return 128;
}
else
{
tmp32 = my - 138;
tmp32 = ((tmp32 << 8) + (SAMPLE_AREA_HEIGHT/2)) / SAMPLE_AREA_HEIGHT;
tmp32 = CLAMP(tmp32, 0, 255);
tmp32 ^= 0xFF;
}
return tmp32;
}
void samplerEditSample(bool mouseButtonHeld)
{
int8_t *ptr8;
int32_t mx, my, tmp32, p, vl, tvl, r, rl, rvl, start, end;
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length == 0)
{
displayErrorMsg("SAMPLE LENGTH = 0");
return;
}
mx = mouse.x;
if (mx > 4+SAMPLE_AREA_WIDTH)
mx = 4+SAMPLE_AREA_WIDTH;
my = mouse.y;
if (!mouseButtonHeld)
{
lastDrawX = scr2SmpPos(mx);
lastDrawY = mouseYToSampleY(my);
ui.forceSampleEdit = true;
updateWindowTitle(MOD_IS_MODIFIED);
}
else if (mx == sampler.lastMouseX && my == sampler.lastMouseY)
{
return; // don't continue if we didn't move the mouse
}
if (mx != sampler.lastMouseX)
p = scr2SmpPos(mx);
else
p = lastDrawX;
if (!keyb.shiftPressed && my != sampler.lastMouseY)
vl = mouseYToSampleY(my);
else
vl = lastDrawY;
sampler.lastMouseX = mx;
sampler.lastMouseY = my;
r = p;
rvl = vl;
// swap x/y if needed
if (p > lastDrawX)
{
// swap x
tmp32 = p;
p = lastDrawX;
lastDrawX = tmp32;
// swap y
tmp32 = lastDrawY;
lastDrawY = vl;
vl = tmp32;
}
ptr8 = &song->sampleData[s->offset];
start = p;
if (start < 0)
start = 0;
end = lastDrawX+1;
if (end > s->length)
end = s->length;
if (p == lastDrawX)
{
const int8_t smpVal = (int8_t)(vl ^ 0x80);
for (rl = start; rl < end; rl++)
ptr8[rl] = smpVal;
}
else
{
int32_t y = lastDrawY - vl;
int32_t x = lastDrawX - p;
if (x != 0)
{
double dMul = 1.0 / x;
int32_t i = 0;
for (rl = start; rl < end; rl++)
{
tvl = y * i;
tvl = (int32_t)(tvl * dMul); // tvl /= x
tvl += vl;
tvl ^= 0x80;
ptr8[rl] = (int8_t)tvl;
i++;
}
}
}
lastDrawY = rvl;
lastDrawX = r;
displaySample();
}
void samplerSamplePressed(bool mouseButtonHeld)
{
int32_t mouseX, tmpPos;
moduleSample_t *s;
assert(editor.currSample >= 0 && editor.currSample <= 30);
if (!mouseButtonHeld)
{
if (!editor.sampleZero && mouse.y < 142)
{
if (mouse.x >= sampler.loopStartPos && mouse.x <= sampler.loopStartPos+3)
{
ui.leftLoopPinMoving = true;
ui.rightLoopPinMoving = false;
ui.sampleMarkingPos = 1;
sampler.lastMouseX = mouse.x;
return;
}
else if (mouse.x >= sampler.loopEndPos+3 && mouse.x <= sampler.loopEndPos+6)
{
ui.rightLoopPinMoving = true;
ui.leftLoopPinMoving = false;
ui.sampleMarkingPos = 1;
sampler.lastMouseX = mouse.x;
return;
}
}
}
mouseX = CLAMP(mouse.x, 0, SCREEN_W+8); // allow some extra pixels outside of the screen
s = &song->samples[editor.currSample];
if (ui.leftLoopPinMoving)
{
if (sampler.lastMouseX != mouseX)
{
sampler.lastMouseX = mouseX;
tmpPos = (scr2SmpPos(mouseX - 1) - s->loopStart) & 0xFFFFFFFE;
if (tmpPos > MAX_SAMPLE_LEN)
tmpPos = MAX_SAMPLE_LEN;
if (s->loopStart+tmpPos >= (s->loopStart+s->loopLength)-2)
{
s->loopStart = (s->loopStart + s->loopLength) - 2;
s->loopLength = 2;
}
else
{
s->loopStart = (uint16_t)(s->loopStart + tmpPos);
if (s->loopLength-tmpPos > 2)
s->loopLength -= (uint16_t)tmpPos;
else
s->loopLength = 2;
}
ui.updateCurrSampleRepeat = true;
ui.updateCurrSampleReplen = true;
setLoopSprites();
mixerUpdateLoops();
updateWindowTitle(MOD_IS_MODIFIED);
}
return;
}
if (ui.rightLoopPinMoving)
{
if (sampler.lastMouseX != mouseX)
{
sampler.lastMouseX = mouseX;
s = &song->samples[editor.currSample];
tmpPos = (scr2SmpPos(mouseX - 4) - s->loopStart) & 0xFFFFFFFE;
tmpPos = CLAMP(tmpPos, 2, MAX_SAMPLE_LEN);
s->loopLength = (uint16_t)tmpPos;
ui.updateCurrSampleRepeat = true;
ui.updateCurrSampleReplen = true;
setLoopSprites();
mixerUpdateLoops();
updateWindowTitle(MOD_IS_MODIFIED);
}
return;
}
if (!mouseButtonHeld)
{
if (mouseX < 0 || mouseX >= SCREEN_W)
return;
ui.sampleMarkingPos = (int16_t)mouseX;
sampler.lastSamPos = ui.sampleMarkingPos;
invertRange();
if (s->length == 0)
{
editor.markStartOfs = -1; // clear marking
}
else
{
editor.markStartOfs = scr2SmpPos(ui.sampleMarkingPos - 3);
editor.markEndOfs = scr2SmpPos(ui.sampleMarkingPos - 3);
if (editor.markEndOfs > s->length)
editor.markEndOfs = s->length;
invertRange();
}
if (s->length == 0)
{
editor.samplePos = 0;
}
else
{
tmpPos = scr2SmpPos(mouseX - 3);
if (tmpPos > s->length)
tmpPos = s->length;
editor.samplePos = (uint16_t)tmpPos;
}
updateSamplePos();
return;
}
mouseX = CLAMP(mouseX, 3, SCREEN_W);
if (mouseX != sampler.lastSamPos)
{
sampler.lastSamPos = (uint16_t)mouseX;
invertRange();
if (s->length == 0)
{
editor.markStartOfs = -1; // clear marking
}
else
{
if (sampler.lastSamPos > ui.sampleMarkingPos)
{
editor.markStartOfs = scr2SmpPos(ui.sampleMarkingPos - 3);
editor.markEndOfs = scr2SmpPos(sampler.lastSamPos - 3);
}
else
{
editor.markStartOfs = scr2SmpPos(sampler.lastSamPos - 3);
editor.markEndOfs = scr2SmpPos(ui.sampleMarkingPos - 3);
}
if (editor.markEndOfs > s->length)
editor.markEndOfs = s->length;
invertRange();
}
}
if (s->length == 0)
{
editor.samplePos = 0;
}
else
{
tmpPos = scr2SmpPos(mouseX - 3);
if (tmpPos > s->length)
tmpPos = s->length;
editor.samplePos = (uint16_t)tmpPos;
}
updateSamplePos();
}
void samplerLoopToggle(void)
{
moduleSample_t *s;
if (editor.sampleZero)
{
statusNotSampleZero();
return;
}
assert(editor.currSample >= 0 && editor.currSample <= 30);
s = &song->samples[editor.currSample];
if (s->length < 2)
return;
turnOffVoices();
if (s->loopStart+s->loopLength > 2)
{
// disable loop
sampler.tmpLoopStart = s->loopStart;
sampler.tmpLoopLength = s->loopLength;
s->loopStart = 0;
s->loopLength = 2;
}
else
{
// enable loop
if (sampler.tmpLoopStart == 0 && sampler.tmpLoopLength == 0)
{
s->loopStart = 0;
s->loopLength = s->length;
}
else
{
s->loopStart = (uint16_t)sampler.tmpLoopStart;
s->loopLength = (uint16_t)sampler.tmpLoopLength;
if (s->loopStart+s->loopLength > s->length)
{
s->loopStart = 0;
s->loopLength = s->length;
}
}
}
ui.updateCurrSampleRepeat = true;
ui.updateCurrSampleReplen = true;
displaySample();
mixerUpdateLoops();
recalcChordLength();
updateWindowTitle(MOD_IS_MODIFIED);
}
void exitFromSam(void)
{
ui.samplerScreenShown = false;
memcpy(&video.frameBuffer[121 * SCREEN_W], &trackerFrameBMP[121 * SCREEN_W], 320 * 134 * sizeof (int32_t));
updateCursorPos();
setLoopSprites();
ui.updateStatusText = true;
ui.updateSongSize = true;
ui.updateSongTiming = true;
ui.updateSongBPM = true;
ui.updateCurrPattText = true;
ui.updatePatternData = true;
editor.markStartOfs = -1;
}
void samplerScreen(void)
{
if (ui.samplerScreenShown)
{
exitFromSam();
return;
}
ui.samplerScreenShown = true;
memcpy(&video.frameBuffer[(121 * SCREEN_W)], samplerScreenBMP, 320 * 134 * sizeof (int32_t));
hideSprite(SPRITE_PATTERN_CURSOR);
ui.updateStatusText = true;
ui.updateSongSize = true;
ui.updateSongTiming = true;
ui.updateResampleNote = true;
ui.update9xxPos = true;
redrawSample();
}
void drawSamplerLine(void)
{
hideSprite(SPRITE_SAMPLING_POS_LINE);
if (!ui.samplerScreenShown || ui.samplerVolBoxShown || ui.samplerFiltersBoxShown)
return;
for (int32_t ch = 0; ch < AMIGA_VOICES; ch++)
{
int32_t pos = getSampleReadPos(ch);
if (pos >= 0)
{
pos = 3 + smpPos2Scr(pos);
if (pos >= 3 && pos <= 316)
setSpritePos(SPRITE_SAMPLING_POS_LINE, pos, 138);
}
}
}