1 /* MikMod sound library
2 (c) 1998, 1999 Miodrag Vallat and others - see file AUTHORS for
5 This library is free software; you can redistribute it and/or modify
6 it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of
8 the License, or (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with this library; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
21 /*==============================================================================
27 ==============================================================================*/
35 #include "unimod_priv.h"
37 /*========== Module structure */
39 typedef struct MTMHEADER
41 UBYTE id[3]; /* MTM file marker */
42 UBYTE version; /* upper major, lower nibble minor version number */
43 CHAR songname[20]; /* ASCIIZ songname */
44 UWORD numtracks; /* number of tracks saved */
45 UBYTE lastpattern; /* last pattern number saved */
46 UBYTE lastorder; /* last order number to play (songlength-1) */
47 UWORD commentsize; /* length of comment field */
48 UBYTE numsamples; /* number of samples saved */
49 UBYTE attribute; /* attribute byte (unused) */
51 UBYTE numchannels; /* number of channels used */
52 UBYTE panpos[32]; /* voice pan positions */
56 typedef struct MTMSAMPLE
68 typedef struct MTMNOTE
74 /*========== Loader variables */
76 static MTMHEADER *mh = NULL;
77 static MTMNOTE *mtmtrk = NULL;
80 static CHAR MTM_Version[] = "MTM";
82 /*========== Loader code */
89 if (!_mm_read_UBYTES (id, 3, modreader))
91 if (!memcmp (id, "MTM", 3))
99 if (!(mtmtrk = (MTMNOTE *) _mm_calloc (64, sizeof (MTMNOTE))))
101 if (!(mh = (MTMHEADER *) _mm_malloc (sizeof (MTMHEADER))))
118 UBYTE a, b, inst, note, eff, dat;
121 for (t = 0; t < 64; t++)
125 inst = ((a & 0x3) << 4) | (b >> 4);
131 UniInstrument (inst - 1);
133 UniNote (note + 2 * OCTAVE);
135 /* MTM bug workaround : when the effect is volslide, slide-up *always*
136 overrides slide-down. */
137 if (eff == 0xa && (dat & 0xf0))
140 /* Convert pattern jump from Dec to Hex */
142 dat = (((dat & 0xf0) >> 4) * 10) + (dat & 0xf);
143 UniPTEffect (eff, dat);
150 MTM_Load (BOOL curious)
156 /* try to read module header */
157 _mm_read_UBYTES (mh->id, 3, modreader);
158 mh->version = _mm_read_UBYTE (modreader);
159 _mm_read_string (mh->songname, 20, modreader);
160 mh->numtracks = _mm_read_I_UWORD (modreader);
161 mh->lastpattern = _mm_read_UBYTE (modreader);
162 mh->lastorder = _mm_read_UBYTE (modreader);
163 mh->commentsize = _mm_read_I_UWORD (modreader);
164 mh->numsamples = _mm_read_UBYTE (modreader);
165 mh->attribute = _mm_read_UBYTE (modreader);
166 mh->beatspertrack = _mm_read_UBYTE (modreader);
167 mh->numchannels = _mm_read_UBYTE (modreader);
168 _mm_read_UBYTES (mh->panpos, 32, modreader);
170 if (_mm_eof (modreader))
172 _mm_errno = MMERR_LOADING_HEADER;
176 /* set module variables */
179 of.modtype = strdup (MTM_Version);
180 of.numchn = mh->numchannels;
181 of.numtrk = mh->numtracks + 1; /* get number of channels */
182 of.songname = DupStr (mh->songname, 20, 1); /* make a cstr of songname */
183 of.numpos = mh->lastorder + 1; /* copy the songlength */
184 of.numpat = mh->lastpattern + 1;
186 for (t = 0; t < 32; t++)
187 of.panning[t] = mh->panpos[t] << 4;
188 of.numins = of.numsmp = mh->numsamples;
190 if (!AllocSamples ())
193 for (t = 0; t < of.numins; t++)
195 /* try to read sample info */
196 _mm_read_string (s.samplename, 22, modreader);
197 s.length = _mm_read_I_ULONG (modreader);
198 s.reppos = _mm_read_I_ULONG (modreader);
199 s.repend = _mm_read_I_ULONG (modreader);
200 s.finetune = _mm_read_UBYTE (modreader);
201 s.volume = _mm_read_UBYTE (modreader);
202 s.attribute = _mm_read_UBYTE (modreader);
204 if (_mm_eof (modreader))
206 _mm_errno = MMERR_LOADING_SAMPLEINFO;
210 q->samplename = DupStr (s.samplename, 22, 1);
212 q->speed = finetune[s.finetune];
213 q->length = s.length;
214 q->loopstart = s.reppos;
215 q->loopend = s.repend;
216 q->volume = s.volume;
217 if ((s.repend - s.reppos) > 2)
222 /* If the sample is 16-bits, convert the length and replen
223 byte-values into sample-values */
224 q->flags |= SF_16BITS;
233 if (!AllocPositions (of.numpos))
235 for (t = 0; t < of.numpos; t++)
236 of.positions[t] = _mm_read_UBYTE (modreader);
238 _mm_read_UBYTE (modreader);
239 if (_mm_eof (modreader))
241 _mm_errno = MMERR_LOADING_HEADER;
247 if (!AllocPatterns ())
250 of.tracks[0] = MTM_Convert (); /* track 0 is empty */
251 for (t = 1; t < of.numtrk; t++)
255 for (s = 0; s < 64; s++)
257 mtmtrk[s].a = _mm_read_UBYTE (modreader);
258 mtmtrk[s].b = _mm_read_UBYTE (modreader);
259 mtmtrk[s].c = _mm_read_UBYTE (modreader);
262 if (_mm_eof (modreader))
264 _mm_errno = MMERR_LOADING_TRACK;
268 if (!(of.tracks[t] = MTM_Convert ()))
272 for (t = 0; t < of.numpat; t++)
274 _mm_read_I_UWORDS (pat, 32, modreader);
275 for (u = 0; u < of.numchn; u++)
276 of.patterns[((long) t * of.numchn) + u] = pat[u];
279 /* read comment field */
281 if (!ReadLinedComment (mh->commentsize / 40, 40))
292 _mm_fseek (modreader, 4, SEEK_SET);
293 if (!_mm_read_UBYTES (s, 20, modreader))
296 return (DupStr (s, 20, 1));
299 /*========== Loader information */
305 "MTM (MultiTracker Module editor)",