summaryrefslogtreecommitdiff
path: root/apps/plugins/mikmod/load_far.c
diff options
context:
space:
mode:
Diffstat (limited to 'apps/plugins/mikmod/load_far.c')
-rw-r--r--apps/plugins/mikmod/load_far.c346
1 files changed, 346 insertions, 0 deletions
diff --git a/apps/plugins/mikmod/load_far.c b/apps/plugins/mikmod/load_far.c
new file mode 100644
index 0000000000..69d48d6b96
--- /dev/null
+++ b/apps/plugins/mikmod/load_far.c
@@ -0,0 +1,346 @@
1/* MikMod sound library
2 (c) 1998, 1999, 2000, 2001, 2002 Miodrag Vallat and others - see file
3 AUTHORS for complete list.
4
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.
9
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.
14
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
18 02111-1307, USA.
19*/
20
21/*==============================================================================
22
23 $Id: load_far.c,v 1.3 2005/04/07 19:57:38 realtech Exp $
24
25 Farandole (FAR) module loader
26
27==============================================================================*/
28
29#ifdef HAVE_CONFIG_H
30#include "config.h"
31#endif
32
33#ifdef HAVE_UNISTD_H
34#include <unistd.h>
35#endif
36
37#include <stdio.h>
38#ifdef HAVE_MEMORY_H
39#include <memory.h>
40#endif
41#include <string.h>
42
43#include "mikmod_internals.h"
44
45#ifdef SUNOS
46extern int fprintf(FILE *, const char *, ...);
47#endif
48
49/*========== Module structure */
50
51typedef struct FARHEADER1 {
52 UBYTE id[4]; /* file magic */
53 CHAR songname[40]; /* songname */
54 CHAR blah[3]; /* 13,10,26 */
55 UWORD headerlen; /* remaining length of header in bytes */
56 UBYTE version;
57 UBYTE onoff[16];
58 UBYTE edit1[9];
59 UBYTE speed;
60 UBYTE panning[16];
61 UBYTE edit2[4];
62 UWORD stlen;
63} FARHEADER1;
64
65typedef struct FARHEADER2 {
66 UBYTE orders[256];
67 UBYTE numpat;
68 UBYTE snglen;
69 UBYTE loopto;
70 UWORD patsiz[256];
71} FARHEADER2;
72
73typedef struct FARSAMPLE {
74 CHAR samplename[32];
75 ULONG length;
76 UBYTE finetune;
77 UBYTE volume;
78 ULONG reppos;
79 ULONG repend;
80 UBYTE type;
81 UBYTE loop;
82} FARSAMPLE;
83
84typedef struct FARNOTE {
85 UBYTE note,ins,vol,eff;
86} FARNOTE;
87
88/*========== Loader variables */
89
90static CHAR FAR_Version[] = "Farandole";
91static FARHEADER1 *mh1 = NULL;
92static FARHEADER2 *mh2 = NULL;
93static FARNOTE *pat = NULL;
94
95static unsigned char FARSIG[4+3]={'F','A','R',0xfe,13,10,26};
96
97/*========== Loader code */
98
99int FAR_Test(void)
100{
101 UBYTE id[47];
102
103 if(!_mm_read_UBYTES(id,47,modreader)) return 0;
104 if((memcmp(id,FARSIG,4))||(memcmp(id+44,FARSIG+4,3))) return 0;
105 return 1;
106}
107
108int FAR_Init(void)
109{
110 if(!(mh1 = (FARHEADER1*)MikMod_malloc(sizeof(FARHEADER1)))) return 0;
111 if(!(mh2 = (FARHEADER2*)MikMod_malloc(sizeof(FARHEADER2)))) return 0;
112 if(!(pat = (FARNOTE*)MikMod_malloc(256*16*4*sizeof(FARNOTE)))) return 0;
113
114 return 1;
115}
116
117void FAR_Cleanup(void)
118{
119 MikMod_free(mh1);
120 MikMod_free(mh2);
121 MikMod_free(pat);
122}
123
124static UBYTE *FAR_ConvertTrack(FARNOTE* n,int rows)
125{
126 int t,vibdepth=1;
127
128 UniReset();
129 for(t=0;t<rows;t++) {
130 if(n->note) {
131 UniInstrument(n->ins);
132 UniNote(n->note+3*OCTAVE-1);
133 }
134 if (n->vol&0xf) UniPTEffect(0xc,(n->vol&0xf)<<2);
135 if (n->eff)
136 switch(n->eff>>4) {
137 case 0x3: /* porta to note */
138 UniPTEffect(0x3,(n->eff&0xf)<<4);
139 break;
140 case 0x4: /* retrigger */
141 UniPTEffect(0x0e, 0x90 | (n->eff & 0x0f));
142 break;
143 case 0x5: /* set vibrato depth */
144 vibdepth=n->eff&0xf;
145 break;
146 case 0x6: /* vibrato */
147 UniPTEffect(0x4,((n->eff&0xf)<<4)|vibdepth);
148 break;
149 case 0x7: /* volume slide up */
150 UniPTEffect(0xa,(n->eff&0xf)<<4);
151 break;
152 case 0x8: /* volume slide down */
153 UniPTEffect(0xa,n->eff&0xf);
154 break;
155 case 0xb: /* panning */
156 UniPTEffect(0xe,0x80|(n->eff&0xf));
157 break;
158 case 0xf: /* set speed */
159 UniPTEffect(0xf,n->eff&0xf);
160 break;
161
162 /* others not yet implemented */
163 default:
164#ifdef MIKMOD_DEBUG
165 fprintf(stderr,"\rFAR: unsupported effect %02X\n",n->eff);
166#endif
167 break;
168 }
169
170 UniNewline();
171 n+=16;
172 }
173 return UniDup();
174}
175
176int FAR_Load(int curious)
177{
178 int t,u,tracks=0;
179 SAMPLE *q;
180 FARSAMPLE s;
181 FARNOTE *crow;
182 UBYTE smap[8];
183
184 /* try to read module header (first part) */
185 _mm_read_UBYTES(mh1->id,4,modreader);
186 _mm_read_SBYTES(mh1->songname,40,modreader);
187 _mm_read_SBYTES(mh1->blah,3,modreader);
188 mh1->headerlen = _mm_read_I_UWORD (modreader);
189 mh1->version = _mm_read_UBYTE (modreader);
190 _mm_read_UBYTES(mh1->onoff,16,modreader);
191 _mm_read_UBYTES(mh1->edit1,9,modreader);
192 mh1->speed = _mm_read_UBYTE(modreader);
193 _mm_read_UBYTES(mh1->panning,16,modreader);
194 _mm_read_UBYTES(mh1->edit2,4,modreader);
195 mh1->stlen = _mm_read_I_UWORD (modreader);
196
197 /* init modfile data */
198 of.modtype = StrDup(FAR_Version);
199 of.songname = DupStr(mh1->songname,40,1);
200 of.numchn = 16;
201 of.initspeed = mh1->speed;
202 of.inittempo = 80;
203 of.reppos = 0;
204 of.flags |= UF_PANNING;
205 for(t=0;t<16;t++) of.panning[t]=mh1->panning[t]<<4;
206
207 /* read songtext into comment field */
208 if(mh1->stlen)
209 if (!ReadLinedComment(mh1->stlen, 66)) return 0;
210
211 /* try to read module header (second part) */
212 _mm_read_UBYTES(mh2->orders,256,modreader);
213 mh2->numpat = _mm_read_UBYTE(modreader);
214 mh2->snglen = _mm_read_UBYTE(modreader);
215 mh2->loopto = _mm_read_UBYTE(modreader);
216 _mm_read_I_UWORDS(mh2->patsiz,256,modreader);
217
218 of.numpos = mh2->snglen;
219 if(!AllocPositions(of.numpos)) return 0;
220 for(t=0;t<of.numpos;t++) {
221 if(mh2->orders[t]==0xff) break;
222 of.positions[t] = mh2->orders[t];
223 }
224
225 /* count number of patterns stored in file */
226 of.numpat = 0;
227 for(t=0;t<256;t++)
228 if(mh2->patsiz[t])
229 if((t+1)>of.numpat) of.numpat=t+1;
230 of.numtrk = of.numpat*of.numchn;
231
232 /* seek across eventual new data */
233 _mm_fseek(modreader,mh1->headerlen-(869+mh1->stlen),SEEK_CUR);
234
235 /* alloc track and pattern structures */
236 if(!AllocTracks()) return 0;
237 if(!AllocPatterns()) return 0;
238
239 for(t=0;t<of.numpat;t++) {
240 UBYTE rows=0,tempo;
241
242 memset(pat,0,256*16*4*sizeof(FARNOTE));
243 if(mh2->patsiz[t]) {
244 rows = _mm_read_UBYTE(modreader);
245 tempo = _mm_read_UBYTE(modreader);
246
247 crow = pat;
248 /* file often allocates 64 rows even if there are less in pattern */
249 if (mh2->patsiz[t]<2+(rows*16*4)) {
250 _mm_errno = MMERR_LOADING_PATTERN;
251 return 0;
252 }
253 for(u=(mh2->patsiz[t]-2)/4;u;u--,crow++) {
254 crow->note = _mm_read_UBYTE(modreader);
255 crow->ins = _mm_read_UBYTE(modreader);
256 crow->vol = _mm_read_UBYTE(modreader);
257 crow->eff = _mm_read_UBYTE(modreader);
258 }
259
260 if(_mm_eof(modreader)) {
261 _mm_errno = MMERR_LOADING_PATTERN;
262 return 0;
263 }
264
265 crow=pat;
266 of.pattrows[t] = rows;
267 for(u=16;u;u--,crow++)
268 if(!(of.tracks[tracks++]=FAR_ConvertTrack(crow,rows))) {
269 _mm_errno=MMERR_LOADING_PATTERN;
270 return 0;
271 }
272 } else
273 tracks+=16;
274 }
275
276 /* read sample map */
277 if(!_mm_read_UBYTES(smap,8,modreader)) {
278 _mm_errno = MMERR_LOADING_HEADER;
279 return 0;
280 }
281
282 /* count number of samples used */
283 of.numins = 0;
284 for(t=0;t<64;t++)
285 if(smap[t>>3]&(1<<(t&7))) of.numins=t+1;
286 of.numsmp = of.numins;
287
288 /* alloc sample structs */
289 if(!AllocSamples()) return 0;
290
291 q = of.samples;
292 for(t=0;t<of.numsmp;t++) {
293 q->speed = 8363;
294 q->flags = SF_SIGNED;
295 if(smap[t>>3]&(1<<(t&7))) {
296 _mm_read_SBYTES(s.samplename,32,modreader);
297 s.length = _mm_read_I_ULONG(modreader);
298 s.finetune = _mm_read_UBYTE(modreader);
299 s.volume = _mm_read_UBYTE(modreader);
300 s.reppos = _mm_read_I_ULONG(modreader);
301 s.repend = _mm_read_I_ULONG(modreader);
302 s.type = _mm_read_UBYTE(modreader);
303 s.loop = _mm_read_UBYTE(modreader);
304
305 q->samplename = DupStr(s.samplename,32,1);
306 q->length = s.length;
307 q->loopstart = s.reppos;
308 q->loopend = s.repend;
309 q->volume = s.volume<<2;
310
311 if(s.type&1) q->flags|=SF_16BITS;
312 if(s.loop&8) q->flags|=SF_LOOP;
313
314 q->seekpos = _mm_ftell(modreader);
315 _mm_fseek(modreader,q->length,SEEK_CUR);
316 } else
317 q->samplename = DupStr(NULL,0,0);
318 q++;
319 }
320 return 1;
321}
322
323CHAR *FAR_LoadTitle(void)
324{
325 CHAR s[40];
326
327 _mm_fseek(modreader,4,SEEK_SET);
328 if(!_mm_read_UBYTES(s,40,modreader)) return NULL;
329
330 return(DupStr(s,40,1));
331}
332
333/*========== Loader information */
334
335MIKMODAPI MLOADER load_far={
336 NULL,
337 "FAR",
338 "FAR (Farandole Composer)",
339 FAR_Init,
340 FAR_Test,
341 FAR_Load,
342 FAR_Cleanup,
343 FAR_LoadTitle
344};
345
346/* ex:set ts=4: */
generated by cgit v1.2.3 (git 2.39.1) at 2024-07-07 16:01:55 +0000