d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
a17c678ed2
freebsd-dev/sys/i386/isa/sound/gustest/gmod.c
David Greenman 3c4dd3568f Added $Id$
1994-08-02 07:55:43 +00:00

1590 lines
33 KiB
C
Raw Blame History

/*
* gmod.c - Module player for GUS and Linux.
* (C) Hannu Savolainen, 1993
*
* NOTE! This program doesn't try to be a complete module player.
* It's just a too I used while developing the driver. In
* addition it can be used as an example on programming
* the LInux Sound Driver with GUS.
* $Id$
*/
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <machine/ultrasound.h>
#include <fcntl.h>
#include <math.h>
#include <string.h>
#define CMD_ARPEG 0x00
#define CMD_SLIDEUP 0x01
#define CMD_SLIDEDOWN 0x02
#define CMD_SLIDETO 0x03
#define SLIDE_SIZE 8
#define CMD_VOLSLIDE 0x0a
#define CMD_JUMP 0x0b
#define CMD_VOLUME 0x0c
#define CMD_BREAK 0x0d
#define CMD_SPEED 0x0f
#define CMD_NOP 0xfe
#define CMD_NONOTE 0xff
#define MIN(a, b) ((a) < (b) ? (a) : (b))
#define MAX_TRACK 8
#define MAX_PATTERN 128
#define MAX_POSITION 128
struct note_info
{
unsigned char note;
unsigned char vol;
unsigned char sample;
unsigned char command;
short parm1, parm2;
};
struct voice_info
{
int sample;
int note;
int volume;
int pitchbender;
/* Pitch sliding */
int slide_pitch;
int slide_goal;
int slide_rate;
int volslide;
};
typedef struct note_info pattern[MAX_TRACK][64];
int pattern_len[MAX_POSITION];
int pattern_tempo[MAX_POSITION];
pattern *pattern_table[MAX_PATTERN];
struct voice_info voices[MAX_TRACK];
int nr_channels, nr_patterns, songlength;
int tune[MAX_POSITION];
double tick_duration;
int period_table[] =
{
856, 808, 762, 720, 678, 640, 604, 570, 538, 508, 480, 453,
428, 404, 381, 360, 339, 320, 302, 285, 269, 254, 240, 226,
214, 202, 190, 180, 170, 160, 151, 143, 135, 127, 120, 113
};
SEQ_DEFINEBUF (2048);
int seqfd;
int sample_ok[128], sample_vol[128];
int tmp, gus_dev;
double this_time, next_time;
int ticks_per_division;
double clock_rate; /* HZ */
/*
* The function seqbuf_dump() must always be provided
*/
void play_module (char *name);
int load_module (char *name);
int play_note (int channel, struct note_info *pat);
void lets_play_voice (int channel, struct voice_info *v);
void
seqbuf_dump ()
{
if (_seqbufptr)
if (write (seqfd, _seqbuf, _seqbufptr) == -1)
{
perror ("write /dev/sequencer");
exit (-1);
}
_seqbufptr = 0;
}
void
init_voices ()
{
int i;
for (i = 0; i < MAX_TRACK; i++)
{
voices[i].sample = 0;
voices[i].note = 0;
voices[i].volume = 64;
voices[i].slide_pitch = 0;
voices[i].slide_goal = 0;
voices[i].slide_rate = 0;
voices[i].pitchbender = 0;
voices[i].volslide = 0;
}
}
int
main (int argc, char *argv[])
{
int i, n, j;
struct synth_info info;
if ((seqfd = open ("/dev/sequencer", O_WRONLY, 0)) == -1)
{
perror ("/dev/sequencer");
exit (-1);
}
if (ioctl (seqfd, SNDCTL_SEQ_NRSYNTHS, &n) == -1)
{
perror ("/dev/sequencer");
exit (-1);
}
for (i = 0; i < n; i++)
{
info.device = i;
if (ioctl (seqfd, SNDCTL_SYNTH_INFO, &info) == -1)
{
perror ("/dev/sequencer");
exit (-1);
}
if (info.synth_type == SYNTH_TYPE_SAMPLE
&& info.synth_subtype == SAMPLE_TYPE_GUS)
gus_dev = i;
}
if (gus_dev == -1)
{
fprintf (stderr, "Gravis Ultrasound not detected\n");
exit (-1);
}
GUS_NUMVOICES (gus_dev, 14);
for (i = 1; i < argc; i++)
{
for (j = 0; j < MAX_PATTERN; j++)
pattern_table[j] = NULL;
if (load_module (argv[i]))
{
tick_duration = 100.0 / clock_rate;
play_module (argv[i]);
}
}
SEQ_DUMPBUF ();
close (seqfd);
exit (0);
}
unsigned short
intelize (unsigned short v)
{
return ((v & 0xff) << 8) | ((v >> 8) & 0xff);
}
unsigned long
intelize4 (unsigned long v)
{
return
(((v >> 16) & 0xff) << 8) | (((v >> 16) >> 8) & 0xff) |
(((v & 0xff) << 8) | ((v >> 8) & 0xff) << 16);
}
int
load_stm_module (int mod_fd, char *name)
{
struct sample_header
{
char name[12];
unsigned char instr_disk;
unsigned short reserved1;
unsigned short length; /* In bytes */
unsigned short loop_start;
unsigned short loop_end;
unsigned char volume;
unsigned char reserved2;
unsigned short C2_speed;
unsigned short reserved3;
};
int i, total_mem;
int sample_ptr;
int position;
unsigned char *tune_ptr; /* array 0-127 */
char header[1105], sname[21];
int nr_samples; /* 16 or 32 samples (or 64 or ???) */
int slen, npat;
fprintf (stderr, "Loading .STM module: %s\n", name);
if (read (mod_fd, header, sizeof (header)) != sizeof (header))
{
fprintf (stderr, "%s: Short file (header)\n", name);
close (mod_fd);
return 0;
}
strncpy (sname, header, 20);
fprintf (stderr, "\nModule: %s - ", sname);
if (header[28] != 0x1a)
{
fprintf (stderr, "Not a STM module\n");
close (mod_fd);
return 0;
}
npat = header[33];
slen = 0;
tune_ptr = &header[48 + (31 * 32)];
for (i = 0; i < 64; i++)
{
tune[i] = tune_ptr[i];
if (tune[i] < npat)
slen = i;
}
fprintf (stderr, "Song lenght %d, %d patterns.\n", slen, npat);
nr_samples = 31;
sample_ptr = 48 + (31 * 32) + 64 + (npat * 1024); /* Location where the
* first sample is
* stored */
total_mem = 0;
for (i = 0; i < 32; i++)
sample_ok[i] = 0;
for (i = 0; i < nr_samples; i++)
{
int len, loop_start, loop_end, base_freq;
unsigned short loop_flags = 0;
struct sample_header *sample;
struct patch_info *patch;
sample = (struct sample_header *) &header[48 + (i * 32)];
len = sample->length;
loop_start = sample->loop_start;
loop_end = sample->loop_end;
base_freq = sample->C2_speed;
if (strlen (sample->name) > 21)
{
fprintf (stderr, "\nInvalid name for sample #%d\n", i);
close (mod_fd);
return 0;
}
if (len > 0)
{
int x;
if (loop_end > len)
loop_end = 1;
else if (loop_end < loop_start)
{
loop_start = 0;
loop_end = 0;
}
else
loop_flags = WAVE_LOOPING;
total_mem += len;
patch = (struct patch_info *) malloc (sizeof (*patch) + len);
patch->key = GUS_PATCH;
patch->device_no = gus_dev;
patch->instr_no = i;
patch->mode = loop_flags;
patch->len = len;
patch->loop_start = loop_start;
patch->loop_end = loop_end;
patch->base_freq = base_freq;
patch->base_note = 261630; /* Mid C */
patch->low_note = 0;
patch->high_note = 0x7fffffff;
patch->volume = 120;
if (lseek (mod_fd, sample_ptr, 0) == -1)
{
perror (name);
close (mod_fd);
free (patch);
return 0;
}
sample_ptr += len;
if ((x = read (mod_fd, patch->data, len)) != len)
{
fprintf (stderr, "Short file (sample at %d (%d!=%d)\n", sample_ptr, x, len);
close (mod_fd);
free (patch);
return 0;
}
fprintf (stderr, "Sample %02d: %05d, %05d, %05d, %07d %s\n",
i,
len,
loop_start,
loop_end,
base_freq,
sample->name);
if (write (seqfd, patch, sizeof (*patch) + len) == -1)
{
perror ("ioctl /dev/sequencer");
exit (-1);
}
else
sample_ok[i] = 1;
free (patch);
}
}
nr_patterns = slen;
songlength = slen;
nr_channels = 4;
for (position = 0; position < npat; position++)
{
unsigned char patterns[64][4][4];
int pat, channel, x;
int pp = 1104 + (position * 1024);
if ((pattern_table[position] = (pattern *) malloc (sizeof (struct note_info) * 64 * nr_channels)) == NULL)
{
fprintf (stderr, "Can't allocate memory for a pattern\n");
return 0;
}
if (lseek (mod_fd, pp, 0) == -1)
{
perror (name);
close (mod_fd);
return 0;
}
if ((x = read (mod_fd, patterns, 1024)) != 1024)
{
fprintf (stderr, "Short file (pattern at %d), %d!=%d\n", pp, x, 1024);
close (mod_fd);
return 0;
}
for (pat = 0; pat < 64; pat++)
{
for (channel = 0; channel < 4; channel++)
{
unsigned char *p;
unsigned vol, note, octave, sample, effect, params;
p = &patterns[pat][channel][0];
if (p[0] < 251)
{
note = p[0] & 15;
octave = p[0] / 16;
note = 48 + octave * 12 + note;
sample = p[1] / 8;
vol = (p[1] & 7) + (p[2] / 2);
effect = p[2] & 0xF;
params = p[3];
}
else
{
note = 0;
octave = 0;
sample = 0;
vol = 0;
effect = CMD_NONOTE;
params = 0;
}
(*pattern_table[position])[channel][pat].note = note;
(*pattern_table[position])[channel][pat].sample = sample;
(*pattern_table[position])[channel][pat].command = effect;
(*pattern_table[position])[channel][pat].parm1 = params;
(*pattern_table[position])[channel][pat].parm2 = 0;
(*pattern_table[position])[channel][pat].vol = vol;
}
}
}
close (mod_fd);
return 1;
}
int
load_669_module (int mod_fd, char *name)
{
struct sample_header
{
char name[13];
unsigned long length; /* In bytes */
unsigned long loop_start;
unsigned long loop_end;
};
int i, total_mem;
int sample_ptr;
int position;
unsigned char *tune_ptr, *len_ptr, *tempo_ptr; /* array 0-127 */
char header[1084];
char msg[110];
int nr_samples; /* 16 or 32 samples */
int slen, npat;
clock_rate = 25.0;
fprintf (stderr, "Loading .669 module: %s\n", name);
if (read (mod_fd, header, sizeof (header)) != sizeof (header))
{
fprintf (stderr, "%s: Short file (header)\n", name);
close (mod_fd);
return 0;
}
if (*(unsigned short *) &header[0] != 0x6669)
{
fprintf (stderr, "Not a 669 file\n");
close (mod_fd);
return 0;
}
strncpy (msg, &header[2], 108);
for (i = 0; i < strlen (msg); i++)
if ((msg[i] >= ' ' && msg[i] <= 'z') || msg[i] == '\n')
printf ("%c", msg[i]);
printf ("\n");
npat = header[0x6f];
tune_ptr = &header[0x71];
for (slen = 0; slen < 128 && tune_ptr[slen] != 0xff; slen++);
slen--;
for (i = 0; i < slen; i++)
tune[i] = tune_ptr[i];
len_ptr = &header[0x171];
for (i = 0; i < slen; i++)
pattern_len[i] = len_ptr[i] - 1;
tempo_ptr = &header[0xf1];
for (i = 0; i < slen; i++)
pattern_tempo[i] = tempo_ptr[i];
nr_samples = header[0x6e];
fprintf (stderr, "Song lenght %d, %d patterns, %d samples.\n", slen, npat, nr_samples);
sample_ptr = 0x1f1 + (nr_samples * 0x19) + (npat * 0x600); /* Location where the
* first sample is
* stored */
total_mem = 0;
for (i = 0; i < 64; i++)
sample_ok[i] = 0;
for (i = 0; i < nr_samples; i++)
{
int len, loop_start, loop_end;
unsigned short loop_flags = 0;
struct sample_header *sample;
char sname[14];
struct patch_info *patch;
sample = (struct sample_header *) &header[0x1f1 + (i * 0x19)];
len = *(unsigned long *) &sample->name[13];
loop_start = *(unsigned long *) &sample->name[17];
loop_end = *(unsigned long *) &sample->name[21];
if (loop_end > len)
loop_end = 1;
else if (loop_end == len)
loop_end--;
if (loop_end < loop_start)
{
loop_start = 0;
loop_end = 0;
}
strncpy (sname, sample->name, 13);
if (len > 0 && len < 200000)
{
total_mem += len;
fprintf (stderr, "Sample %02d: %05d, %05d, %05d %s\n",
i,
len,
loop_start,
loop_end,
sname);
patch = (struct patch_info *) malloc (sizeof (*patch) + len);
if (loop_end == 0)
loop_end = 1;
if (loop_end >= len)
loop_end = 1;
if (loop_end > 1) loop_flags = WAVE_LOOPING;
patch->key = GUS_PATCH;
patch->device_no = gus_dev;
patch->instr_no = i;
patch->mode = WAVE_UNSIGNED | loop_flags;
patch->len = len;
patch->loop_start = loop_start;
patch->loop_end = loop_end;
patch->base_freq = 8448;
patch->base_note = 261630;
patch->low_note = 1000;
patch->high_note = 0x7fffffff;
patch->volume = 120;
if (lseek (mod_fd, sample_ptr, 0) == -1)
{
fprintf (stderr, "Seek failed\n");
perror (name);
close (mod_fd);
free (patch);
return 0;
}
sample_ptr += len;
if (read (mod_fd, patch->data, len) != len)
{
fprintf (stderr, "Short file (sample at %d)\n", sample_ptr);
close (mod_fd);
free (patch);
return 0;
}
if (write (seqfd, patch, sizeof (*patch) + len) == -1)
{
perror ("ioctl /dev/sequencer");
/* exit (-1); */
}
else
sample_ok[i] = 1;
free (patch);
}
}
nr_patterns = slen;
songlength = slen;
nr_channels = 8;
for (position = 0; position < npat; position++)
{
unsigned char patterns[0x600];
int pat, channel, x;
int pp = 0x1f1 + (nr_samples * 0x19) + (position * 0x600);
if ((pattern_table[position] = (pattern *) malloc (sizeof (struct note_info) * 64 * nr_channels)) == NULL)
{
fprintf (stderr, "Can't allocate memory for a pattern\n");
return 0;
}
if (lseek (mod_fd, pp, 0) == -1)
{
perror (name);
close (mod_fd);
return 0;
}
if ((x = read (mod_fd, patterns, 1024)) != 1024)
{
fprintf (stderr, "Short file (pattern at %d) %d!=1024\n", pp, x);
close (mod_fd);
return 0;
}
for (pat = 0; pat < 64; pat++)
{
for (channel = 0; channel < 8; channel++)
{
unsigned char *p;
unsigned vol, period, sample, effect, params;
p = &patterns[pat * 24 + channel * 3];
if (p[0] >= 0xfe ||
(p[0] == 0xff && p[1] == 0xff && p[2] == 0xff) ||
(p[0] == 0 && p[1] == 0 && p[2] == 0) ||
*(int *) p == -1)
{
period = 0;
effect = CMD_NONOTE;
sample = 0;
vol = 0;
params = 0;
if (p[0] == 0)
{
effect = CMD_BREAK;
params = -2;
}
}
else
{
period = (p[0] >> 2) + 48;
effect = (p[2] >> 4);
params = p[2] & 0x0f;
vol = p[1] & 0x0f;
if (p[2] == 0xfe)
{
effect = CMD_VOLUME;
params = vol;
}
else if (p[2] == 0xff)
{
effect = CMD_NOP;
}
else
switch (effect)
{
case 0: /* a - Portamento up */
effect = CMD_SLIDEUP;
break;
case 1: /* b - Portamento down */
effect = CMD_SLIDEDOWN;
break;
case 2: /* c - Port to note */
effect = CMD_SLIDETO;
break;
case 3: /* d - Frequency adjust */
effect = CMD_NOP; /* To be implemented */
break;
case 4: /* e - Frequency vibrato */
effect = CMD_NOP; /* To be implemented */
break;
case 5: /* f - Set tempo */
effect = CMD_SPEED;
break;
default:
effect = CMD_NOP;
}
sample = (((p[0] << 4) & 0x30) | ((p[1] >> 4) & 0x0f)) + 1;
}
(*pattern_table[position])[channel][pat].note = period;
(*pattern_table[position])[channel][pat].sample = sample;
(*pattern_table[position])[channel][pat].command = effect;
(*pattern_table[position])[channel][pat].parm1 = params;
(*pattern_table[position])[channel][pat].parm2 = 0;
(*pattern_table[position])[channel][pat].vol = vol;
}
}
}
close (mod_fd);
return 1;
}
int
load_mmd0_module (int mod_fd, char *name)
{
struct sample_header
{
unsigned short loop_start;
unsigned short loop_end;
unsigned char midich;
unsigned char midipreset;
unsigned char volume;
unsigned char strans;
};
int i, total_mem;
int sample_ptr;
int position;
unsigned char *tune_ptr; /* array 0-127 */
char header[1105];
int nr_samples; /* 16 or 32 samples (or 64 or ???) */
int slen, npat;
fprintf (stderr, "Loading .MED module: %s\n", name);
if (read (mod_fd, header, sizeof (header)) != sizeof (header))
{
fprintf (stderr, "%s: Short file (header)\n", name);
close (mod_fd);
return 0;
}
if (strncmp (header, "MMD0", 4))
{
fprintf (stderr, "Not a MED module\n");
close (mod_fd);
return 0;
}
printf ("Module len %d\n", intelize4 (*(long *) &header[4]));
printf ("Song info %d\n", intelize4 (*(long *) &header[8]));
printf ("Song len %d\n", intelize4 (*(long *) &header[12]));
printf ("Blockarr %x\n", intelize4 (*(long *) &header[16]));
printf ("Blockarr len %d\n", intelize4 (*(long *) &header[20]));
printf ("Sample array %x\n", intelize4 (*(long *) &header[24]));
printf ("Sample array len %d\n", intelize4 (*(long *) &header[28]));
printf ("Exp data %x\n", intelize4 (*(long *) &header[32]));
printf ("Exp size %d\n", intelize4 (*(long *) &header[36]));
printf ("Pstate %d\n", intelize (*(long *) &header[40]));
printf ("Pblock %d\n", intelize (*(long *) &header[42]));
return 0;
npat = header[33];
slen = 0;
tune_ptr = &header[48 + (31 * 32)];
for (i = 0; i < 64; i++)
{
tune[i] = tune_ptr[i];
if (tune[i] < npat)
slen = i;
}
fprintf (stderr, "Song lenght %d, %d patterns.\n", slen, npat);
nr_samples = 31;
sample_ptr = 48 + (31 * 32) + 64 + (npat * 1024); /* Location where the
* first sample is
* stored */
total_mem = 0;
for (i = 0; i < 32; i++)
sample_ok[i] = 0;
for (i = 0; i < nr_samples; i++)
{
int len, loop_start, loop_end, base_freq;
unsigned short loop_flags = 0;
struct sample_header *sample;
struct patch_info *patch;
sample = (struct sample_header *) &header[48 + (i * 32)];
/*
* len = sample->length; loop_start = sample->loop_start; loop_end =
* sample->loop_end; base_freq = sample->C2_speed;
*
* if (strlen (sample->name) > 21) { fprintf (stderr, "\nInvalid name for
* sample #%d\n", i); close (mod_fd); return 0; }
*/
if (len > 0)
{
int x;
if (loop_end > len)
loop_end = 1;
if (loop_end < loop_start)
{
loop_start = 0;
loop_end = 0;
}
if (loop_end > 2) loop_flags = WAVE_LOOPING;
total_mem += len;
patch = (struct patch_info *) malloc (sizeof (*patch) + len);
patch->key = GUS_PATCH;
patch->device_no = gus_dev;
patch->instr_no = i;
patch->mode = loop_flags;
patch->len = len;
patch->loop_start = loop_start;
patch->loop_end = loop_end;
patch->base_freq = base_freq;
patch->base_note = 261630; /* Mid C */
patch->low_note = 0;
patch->high_note = 0x7fffffff;
patch->volume = 120;
if (lseek (mod_fd, sample_ptr, 0) == -1)
{
perror (name);
close (mod_fd);
free (patch);
return 0;
}
sample_ptr += len;
if ((x = read (mod_fd, patch->data, len)) != len)
{
fprintf (stderr, "Short file (sample at %d (%d!=%d)\n", sample_ptr, x, len);
close (mod_fd);
free (patch);
return 0;
}
/*
* fprintf (stderr, "Sample %02d: %05d, %05d, %05d, %07d %s\n", i,
* len, loop_start, loop_end, base_freq, sample->name);
*/
if (write (seqfd, patch, sizeof (*patch) + len) == -1)
{
perror ("ioctl /dev/sequencer");
exit (-1);
}
else
sample_ok[i] = 1;
free (patch);
}
}
nr_patterns = slen;
songlength = slen;
nr_channels = 4;
for (position = 0; position < npat; position++)
{
unsigned char patterns[64][4][4];
int pat, channel, x;
int pp = 1104 + (position * 1024);
if ((pattern_table[position] = (pattern *) malloc (sizeof (struct note_info) * 64 * nr_channels)) == NULL)
{
fprintf (stderr, "Can't allocate memory for a pattern\n");
return 0;
}
if (lseek (mod_fd, pp, 0) == -1)
{
perror (name);
close (mod_fd);
return 0;
}
if ((x = read (mod_fd, patterns, 1024)) != 1024)
{
fprintf (stderr, "Short file (pattern at %d), %d!=%d\n", pp, x, 1024);
close (mod_fd);
return 0;
}
for (pat = 0; pat < 64; pat++)
{
for (channel = 0; channel < 4; channel++)
{
unsigned char *p;
unsigned vol, note, octave, sample, effect, params;
p = &patterns[pat][channel][0];
if (p[0] < 251)
{
note = p[0] & 15;
octave = p[0] / 16;
note = 48 + octave * 12 + note;
sample = p[1] / 8;
vol = (p[1] & 7) + (p[2] / 2);
effect = p[2] & 0xF;
params = p[3];
}
else
{
note = 0;
octave = 0;
sample = 0;
vol = 0;
effect = CMD_NONOTE;
params = 0;
}
(*pattern_table[position])[channel][pat].note = note;
(*pattern_table[position])[channel][pat].sample = sample;
(*pattern_table[position])[channel][pat].command = effect;
(*pattern_table[position])[channel][pat].parm1 = params;
(*pattern_table[position])[channel][pat].parm2 = 0;
(*pattern_table[position])[channel][pat].vol = vol;
}
}
}
close (mod_fd);
return 1;
}
int
load_module (char *name)
{
struct sample_header
{
char name[22];
unsigned short length; /* In words */
unsigned char finetune;
unsigned char volume;
unsigned short repeat_point; /* In words */
unsigned short repeat_length; /* In words */
};
int i, mod_fd, total_mem;
int sample_ptr, pattern_loc;
int position;
unsigned char *tune_ptr; /* array 0-127 */
char header[1084];
int nr_samples; /* 16 or 32 samples */
int slen, npat;
char mname[23];
ioctl (seqfd, SNDCTL_SEQ_SYNC, 0);
ioctl (seqfd, SNDCTL_SEQ_RESETSAMPLES, &gus_dev);
clock_rate = 50.0;
for (i = 0; i < MAX_POSITION; i++)
pattern_len[i] = 64;
for (i = 0; i < MAX_POSITION; i++)
pattern_tempo[i] = 0;
if ((mod_fd = open (name, O_RDONLY, 0)) == -1)
{
perror (name);
return 0;
}
if (read (mod_fd, header, sizeof (header)) != sizeof (header))
{
fprintf (stderr, "%s: Short file (header)\n", name);
close (mod_fd);
return 0;
}
if (lseek (mod_fd, 0, 0) == -1)
{
perror (name);
close (mod_fd);
return 0;
}
if (header[28] == 0x1a)
return load_stm_module (mod_fd, name);
if (*(unsigned short *) &header[0] == 0x6669)
return load_669_module (mod_fd, name);
if (!strncmp (header, "MMD0", 4))
return load_mmd0_module (mod_fd, name);
fprintf (stderr, "Loading .MOD module: %s\n", name);
strncpy (mname, header, 22);
fprintf (stderr, "\nModule: %s - ", mname);
if (!strncmp (&header[1080], "M.K.", 4) || !strncmp (&header[1080], "FLT8", 4))
{
fprintf (stderr, "31 samples\n");
nr_samples = 31;
}
else
{
fprintf (stderr, "15 samples\n");
nr_samples = 15;
}
if (nr_samples == 31)
{
sample_ptr = pattern_loc = 1084;
slen = header[950];
tune_ptr = (unsigned char *) &header[952];
}
else
{
sample_ptr = pattern_loc = 600;
slen = header[470];
tune_ptr = (unsigned char *) &header[472];
}
npat = 0;
for (i = 0; i < 128; i++)
{
tune[i] = tune_ptr[i];
if (tune_ptr[i] > npat)
npat = tune_ptr[i];
}
npat++;
fprintf (stderr, "Song lenght %d, %d patterns.\n", slen, npat);
sample_ptr += (npat * 1024); /* Location where the first sample is stored */
total_mem = 0;
for (i = 0; i < 32; i++)
sample_ok[i] = 0;
for (i = 0; i < nr_samples; i++)
{
int len, loop_start, loop_end;
unsigned short loop_flags = 0;
char pname[22];
struct sample_header *sample;
struct patch_info *patch;
sample = (struct sample_header *) &header[20 + (i * 30)];
len = intelize (sample->length) * 2;
loop_start = intelize (sample->repeat_point) * 2;
loop_end = loop_start + (intelize (sample->repeat_length) * 2);
if (loop_start > len)
loop_start = 0;
if (loop_end > len)
loop_end = len;
if (loop_end <= loop_start)
loop_end = loop_start + 1;
if (loop_end > 2 && loop_end > loop_start)
loop_flags = WAVE_LOOPING;
strncpy (pname, sample->name, 20);
if (len > 0)
{
fprintf (stderr, "Sample %02d: L%05d, S%05d, E%05d V%02d %s\n",
i,
len,
loop_start,
loop_end,
sample->volume,
pname);
total_mem += len;
patch = (struct patch_info *) malloc (sizeof (*patch) + len);
patch->key = GUS_PATCH;
patch->device_no = gus_dev;
patch->instr_no = i;
patch->mode = loop_flags;
patch->len = len;
patch->loop_start = loop_start;
patch->loop_end = loop_end;
patch->base_note = 261630; /* Middle C */
patch->base_freq = 8448;
patch->low_note = 0;
patch->high_note = 20000000;
patch->volume = 120;
patch->panning = 0;
if (lseek (mod_fd, sample_ptr, 0) == -1)
{
perror (name);
close (mod_fd);
free (patch);
return 0;
}
sample_ptr += len;
if (read (mod_fd, patch->data, len) != len)
{
fprintf (stderr, "Short file (sample) %d\n", sample_ptr);
close (mod_fd);
free (patch);
return 0;
}
SEQ_WRPATCH (patch, sizeof (*patch) + len);
sample_ok[i] = 1;
if (sample->volume == 0) sample->volume = 64;
sample_vol[i] = sample->volume;
free (patch);
}
}
nr_patterns = npat;
songlength = slen;
nr_channels = 4;
for (position = 0; position < npat; position++)
{
unsigned char patterns[64][4][4];
int pat, channel;
int pp = pattern_loc + (position * 1024);
if (lseek (mod_fd, pp, 0) == -1)
{
perror (name);
close (mod_fd);
return 0;
}
if (read (mod_fd, patterns, 1024) != 1024)
{
fprintf (stderr, "Short file (pattern %d) %d\n", tune[position], pp);
close (mod_fd);
return 0;
}
if ((pattern_table[position] = (pattern *) malloc (sizeof (struct note_info) * 64 * nr_channels)) == NULL)
{
fprintf (stderr, "Can't allocate memory for a pattern\n");
return 0;
}
for (pat = 0; pat < 64; pat++)
{
for (channel = 0; channel < 4; channel++)
{
unsigned short tmp;
unsigned char *p;
unsigned period, sample, effect, params, note, vol;
p = &patterns[pat][channel][0];
tmp = (p[0] << 8) | p[1];
sample = (tmp >> 8) & 0x10;
period =
MIN (tmp & 0xFFF, 1023);
tmp = (p[2] << 8) | p[3];
sample |= tmp >> 12;
effect = (tmp >> 8) & 0xF;
params = tmp & 0xFF;
note = 0;
if (period)
{
/*
* Convert period to a Midi note number
*/
for (note = 0; note < 37 && period != period_table[note]; note++);
if (note >= 37)
note = 0;
note += 48;
}
vol = 64;
if (sample)
if (effect == 0xc)
{
vol = params;
}
else
vol = sample_vol[sample - 1];
vol *= 2;
if (vol>64)vol--;
(*pattern_table[position])[channel][pat].note = note;
(*pattern_table[position])[channel][pat].sample = sample;
(*pattern_table[position])[channel][pat].command = effect;
(*pattern_table[position])[channel][pat].parm1 = params;
(*pattern_table[position])[channel][pat].parm2 = 0;
(*pattern_table[position])[channel][pat].vol = vol;
}
}
}
close (mod_fd);
return 1;
}
int
panning (int ch)
{
static int panning_tab[] =
{-110, 110, 110, -110};
return panning_tab[ch % 4];
}
void
set_speed (int parm)
{
if (!parm)
parm = 1;
if (parm < 32)
{
ticks_per_division = parm;
}
else
{
tick_duration = (60.0 / parm) * 10.0;
}
}
void
play_module (char *name)
{
int i, position, jump_to_pos;
init_voices ();
SEQ_START_TIMER ();
#if 1
for (i=0;i<32;i++)
{
SEQ_EXPRESSION(gus_dev, i, 127);
SEQ_MAIN_VOLUME(gus_dev, i, 100);
}
#endif
next_time = 0.0;
set_speed (6);
for (position = 0; position < songlength; position++)
{
int tick, pattern, channel, pos, go_to;
pos = tune[position];
if (pattern_tempo[position])
set_speed (pattern_tempo[position]);
jump_to_pos = -1;
for (pattern = 0; pattern < pattern_len[position] && jump_to_pos == -1; pattern++)
{
this_time = 0.0;
for (channel = 0; channel < nr_channels; channel++)
{
if ((go_to = play_note (channel, &(*pattern_table[pos])[channel][pattern])) != -1)
jump_to_pos = go_to;
}
next_time += tick_duration;
for (tick = 1; tick < ticks_per_division; tick++)
{
for (channel = 0; channel < nr_channels; channel++)
lets_play_voice (channel, &voices[channel]);
next_time += tick_duration;
}
}
if (jump_to_pos >= 0)
position = jump_to_pos;
}
SEQ_WAIT_TIME ((int) next_time + 200); /* Wait extra 2 secs */
for (i = 0; i < nr_channels; i++)
SEQ_STOP_NOTE (gus_dev, i, 0, 127);
SEQ_DUMPBUF ();
for (i = 0; i < nr_patterns; i++)
free (pattern_table[i]);
}
void
sync_time ()
{
if (next_time > this_time)
{
SEQ_WAIT_TIME ((long) next_time);
this_time = next_time;
}
}
void
set_volslide (int channel, struct note_info *pat)
{
int n;
voices[channel].volslide = 0;
if ((n = (pat->parm1 & 0xf0) >> 4))
voices[channel].volslide = n;
else
voices[channel].volslide = pat->parm1 & 0xf;
}
void
set_slideto (int channel, struct note_info *pat)
{
int size, rate, dir, range = 200;
rate = pat->parm1;
size = voices[channel].note - pat->note;
if (!size)
return;
if (size < 0)
{
size *= -1;
dir = -1;
}
else
dir = 1;
if (size > 2)
{
range = size * 100;
rate = rate * size / 200;
}
rate = pat->parm1 * dir / 30;
if (!rate)
rate = 1;
voices[channel].slide_pitch = 1;
voices[channel].slide_goal = (dir * 8192 * 200 * 2 / size) / range;
voices[channel].pitchbender = 0;
voices[channel].slide_rate = rate;
SEQ_BENDER_RANGE (gus_dev, channel, range);
}
int
play_note (int channel, struct note_info *pat)
{
int jump = -1;
int sample;
if (pat->sample == 0x3f)
pat->sample = 0;
if (pat->command == CMD_NONOTE)
return -1; /* Undefined */
sample = pat->sample;
if (sample && !pat->note)
{
pat->note = voices[channel].note;
}
if (sample)
voices[channel].sample = sample;
else
sample = voices[channel].sample;
sample--;
if (pat->note && pat->command != 3) /* Have a note -> play */
{
if (sample < 0)
sample = voices[channel].sample - 1;
if (!sample_ok[sample])
sample = voices[channel].sample - 1;
if (sample < 0)
sample = 0;
if (sample_ok[sample])
{
sync_time ();
if (pat->vol > 127) pat->vol=127;
SEQ_SET_PATCH (gus_dev, channel, sample);
SEQ_PANNING (gus_dev, channel, panning (channel));
SEQ_PITCHBEND (gus_dev, channel, 0);
SEQ_START_NOTE (gus_dev, channel, pat->note, pat->vol);
voices[channel].volume = pat->vol;
voices[channel].note = pat->note;
voices[channel].slide_pitch = 0;
}
else
SEQ_STOP_NOTE (gus_dev, channel, pat->note, pat->vol);
}
switch (pat->command)
{
case CMD_NOP:;
break;
case CMD_JUMP:
jump = pat->parm1;
break;
case CMD_BREAK:
jump = -2;
break;
case CMD_SPEED:
set_speed (pat->parm1);
break;
case CMD_SLIDEUP:
voices[channel].slide_pitch = 1;
voices[channel].slide_goal = 8191;
voices[channel].pitchbender = 0;
voices[channel].slide_rate = pat->parm1 * SLIDE_SIZE;
SEQ_BENDER_RANGE (gus_dev, channel, 200);
break;
case CMD_SLIDEDOWN:
voices[channel].slide_pitch = 1;
voices[channel].slide_goal = -8192;
voices[channel].pitchbender = 0;
voices[channel].slide_rate = -pat->parm1 * SLIDE_SIZE;
SEQ_BENDER_RANGE (gus_dev, channel, 200);
break;
case CMD_SLIDETO:
set_slideto (channel, pat);
break;
case CMD_VOLUME:
{
int vol = pat->parm1*2;
if (vol>127) vol=127;
if (pat->note && pat->command != 3)
break;
SEQ_START_NOTE (gus_dev, channel, 255, vol);
}
break;
case CMD_ARPEG:
break;
case 0x0e:
/* printf ("Cmd 0xE%02x\n", pat->parm1); */
break;
case CMD_VOLSLIDE:
set_slideto (channel, pat);
break;
default:
/* printf ("Command %x %02x\n", pat->command, pat->parm1); */
}
return jump;
}
void
lets_play_voice (int channel, struct voice_info *v)
{
if (v->slide_pitch)
{
v->pitchbender += v->slide_rate;
if (v->slide_goal < 0)
{
if (v->pitchbender <= v->slide_goal)
{
v->pitchbender = v->slide_goal;
v->slide_pitch = 0; /* Stop */
}
}
else
{
if (v->pitchbender >= v->slide_goal)
{
v->pitchbender = v->slide_goal;
v->slide_pitch = 0; /* Stop */
}
}
sync_time ();
SEQ_PITCHBEND (gus_dev, channel, v->pitchbender);
}
if (v->volslide)
{
v->volume += v->volslide;
sync_time ();
if (v->volume > 127) v->volume = 127;
SEQ_START_NOTE (gus_dev, channel, 255, v->volume);
}
}
Reference in New Issue View Git Blame Copy Permalink