开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > Windows CE > 查看源码
load_ult.c
资源名称：tcpmp.rar　[点击查看]
上传用户：wstnjxml
上传日期：2014-04-03
资源大小：7248k
文件大小：7k
源码类别：

Windows CE

开发平台：

C/C++

load_ult.c：源码内容
  1. /* MikMod sound library
  2. (c) 1998, 1999, 2000, 2001, 2002 Miodrag Vallat and others - see file
  3. AUTHORS for complete list.
  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. */
  21. /*==============================================================================
  23.   $Id: load_ult.c,v 1.1.1.1 2004/01/21 01:36:35 raph Exp $
  25.   Ultratracker (ULT) module loader
  27. ==============================================================================*/
  29. #ifdef HAVE_CONFIG_H
  30. #include "config.h"
  31. #endif
  33. #ifdef HAVE_UNISTD_H
  34. #include <unistd.h>
  35. #endif
  37. #include <stdio.h>
  38. #ifdef HAVE_MEMORY_H
  39. #include <memory.h>
  40. #endif
  41. #include <string.h>
  43. #include "mikmod_internals.h"
  45. #ifdef SUNOS
  46. extern int fprintf(FILE *, const char *, ...);
  47. #endif
  49. /*========== Module structure */
  51. /* header */
  52. typedef struct ULTHEADER {
  53. CHAR  id[16];
  54. CHAR  songtitle[32];
  55. UBYTE reserved;
  56. } ULTHEADER;
  58. /* sample information */
  59. typedef struct ULTSAMPLE {
  60. CHAR  samplename[32];
  61. CHAR  dosname[12];
  62. SLONG loopstart;
  63. SLONG loopend;
  64. SLONG sizestart;
  65. SLONG sizeend;
  66. UBYTE volume;
  67. UBYTE flags;
  68. UWORD speed;
  69. SWORD finetune;
  70. } ULTSAMPLE;
  72. typedef struct ULTEVENT {
  73. UBYTE note,sample,eff,dat1,dat2;
  74. } ULTEVENT;
  76. /*========== Loader variables */
  78. #define ULTS_16BITS     4
  79. #define ULTS_LOOP       8
  80. #define ULTS_REVERSE    16
  82. #define ULT_VERSION_LEN 18
  83. static CHAR ULT_Version[ULT_VERSION_LEN]="Ultra Tracker v1.x";
  85. static ULTEVENT ev;
  87. /*========== Loader code */
  89. BOOL ULT_Test(void)
  90. {
  91. CHAR id[16];
  93. if(!_mm_read_string(id,15,modreader)) return 0;
  94. if(strncmp(id,"MAS_UTrack_V00",14)) return 0;
  95. if((id[14]<'1')||(id[14]>'4')) return 0;
  96. return 1;
  97. }
  99. BOOL ULT_Init(void)
  100. {
  101. return 1;
  102. }
  104. void ULT_Cleanup(void)
  105. {
  106. }
  108. static UBYTE ReadUltEvent(ULTEVENT* event)
  109. {
  110. UBYTE flag,rep=1;
  112. flag = _mm_read_UBYTE(modreader);
  113. if(flag==0xfc) {
  114. rep = _mm_read_UBYTE(modreader);
  115. event->note =_mm_read_UBYTE(modreader);
  116. } else
  117. event->note = flag;
  119. event->sample   =_mm_read_UBYTE(modreader);
  120. event->eff      =_mm_read_UBYTE(modreader);
  121. event->dat1     =_mm_read_UBYTE(modreader);
  122. event->dat2     =_mm_read_UBYTE(modreader);
  124. return rep;
  125. }
  127. BOOL ULT_Load(BOOL curious)
  128. {
  129. int t,u,tracks=0;
  130. SAMPLE *q;
  131. ULTSAMPLE s;
  132. ULTHEADER mh;
  133. UBYTE nos,noc,nop;
  135. /* try to read module header */
  136. _mm_read_string(mh.id,15,modreader);
  137. _mm_read_string(mh.songtitle,32,modreader);
  138. mh.reserved=_mm_read_UBYTE(modreader);
  140. if(_mm_eof(modreader)) {
  141. _mm_errno = MMERR_LOADING_HEADER;
  142. return 0;
  143. }
  145. ULT_Version[ULT_VERSION_LEN-1]='3'+(mh.id[14]-'1');
  146. of.modtype   = DupStr(ULT_Version,ULT_VERSION_LEN,1);
  147. of.initspeed = 6;
  148. of.inittempo = 125;
  149. of.reppos    = 0;
  151. /* read songtext */
  152. if ((mh.id[14]>'1')&&(mh.reserved))
  153. if(!ReadLinedComment(mh.reserved * 32, 32)) return 0;
  155. nos=_mm_read_UBYTE(modreader);
  156. if(_mm_eof(modreader)) {
  157. _mm_errno = MMERR_LOADING_HEADER;
  158. return 0;
  159. }
  161. of.songname=DupStr(mh.songtitle,32,1);
  162. of.numins=of.numsmp=nos;
  164. if(!AllocSamples()) return 0;
  165. q = of.samples;
  166. for(t=0;t<nos;t++) {
  167. /* try to read sample info */
  168. _mm_read_string(s.samplename,32,modreader);
  169. _mm_read_string(s.dosname,12,modreader);
  170. s.loopstart     =_mm_read_I_ULONG(modreader);
  171. s.loopend       =_mm_read_I_ULONG(modreader);
  172. s.sizestart     =_mm_read_I_ULONG(modreader);
  173. s.sizeend       =_mm_read_I_ULONG(modreader);
  174. s.volume        =_mm_read_UBYTE(modreader);
  175. s.flags         =_mm_read_UBYTE(modreader);
  176. s.speed         =(mh.id[14]>='4')?_mm_read_I_UWORD(modreader):8363;
  177. s.finetune      =_mm_read_I_SWORD(modreader);
  179. if(_mm_eof(modreader)) {
  180. _mm_errno = MMERR_LOADING_SAMPLEINFO;
  181. return 0;
  182. }
  184. q->samplename=DupStr(s.samplename,32,1);
  185. /* The correct formula for the coefficient would be
  186.    pow(2,(double)s.finetume/OCTAVE/32768), but to avoid floating point
  187.    here, we'll use a first order approximation here.
  188.    1/567290 == Ln(2)/OCTAVE/32768 */
  189. q->speed=s.speed+s.speed*(((SLONG)s.speed*(SLONG)s.finetune)/567290);
  190. q->length    = s.sizeend-s.sizestart;
  191. q->volume    = s.volume>>2;
  192. q->loopstart = s.loopstart;
  193. q->loopend   = s.loopend;
  194. q->flags = SF_SIGNED;
  195. if(s.flags&ULTS_LOOP) q->flags|=SF_LOOP;
  196. if(s.flags&ULTS_16BITS) {
  197. s.sizeend+=(s.sizeend-s.sizestart);
  198. s.sizestart<<=1;
  199. q->flags|=SF_16BITS;
  200. q->loopstart>>=1;
  201. q->loopend>>=1;
  202. }
  203. q++;
  204. }
  206. if(!AllocPositions(256)) return 0;
  207. for(t=0;t<256;t++)
  208. of.positions[t]=_mm_read_UBYTE(modreader);
  209. for(t=0;t<256;t++)
  210. if(of.positions[t]==255) {
  211. of.positions[t]=LAST_PATTERN;
  212. break;
  213. }
  214. of.numpos=t;
  216. noc=_mm_read_UBYTE(modreader);
  217. nop=_mm_read_UBYTE(modreader);
  219. of.numchn=++noc;
  220. of.numpat=++nop;
  221. of.numtrk=of.numchn*of.numpat;
  222. if(!AllocTracks()) return 0;
  223. if(!AllocPatterns()) return 0;
  224. for(u=0;u<of.numchn;u++)
  225. for(t=0;t<of.numpat;t++)
  226. of.patterns[(t*of.numchn)+u]=tracks++;
  228. /* read pan position table for v1.5 and higher */
  229. if(mh.id[14]>='3') {
  230. for(t=0;t<of.numchn;t++) of.panning[t]=_mm_read_UBYTE(modreader)<<4;
  231. of.flags |= UF_PANNING;
  232. }
  234. for(t=0;t<of.numtrk;t++) {
  235. int rep,row=0;
  237. UniReset();
  238. while(row<64) {
  239. rep=ReadUltEvent(&ev);
  241. if(_mm_eof(modreader)) {
  242. _mm_errno = MMERR_LOADING_TRACK;
  243. return 0;
  244. }
  246. while(rep--) {
  247. UBYTE eff;
  248. int offset;
  250. if(ev.sample) UniInstrument(ev.sample-1);
  251. if(ev.note)   UniNote(ev.note+2*OCTAVE-1);
  253. /* first effect - various fixes by Alexander Kerkhove and
  254.                   Thomas Neumann */
  255. eff = ev.eff>>4;
  256. switch(eff) {
  257. case 0x3: /* tone portamento */
  258. UniEffect(UNI_ITEFFECTG,ev.dat2);
  259. break;
  260. case 0x5:
  261. break;
  262. case 0x9: /* sample offset */
  263. offset=(ev.dat2<<8)|((ev.eff&0xf)==9?ev.dat1:0);
  264. UniEffect(UNI_ULTEFFECT9,offset);
  265. break;
  266. case 0xb: /* panning */
  267. UniPTEffect(8,ev.dat2*0xf);
  268. of.flags |= UF_PANNING;
  269. break;
  270. case 0xc: /* volume */
  271. UniPTEffect(eff,ev.dat2>>2);
  272. break;
  273. default:
  274. UniPTEffect(eff,ev.dat2);
  275. break;
  276. }
  278. /* second effect */
  279. eff=ev.eff&0xf;
  280. switch(eff) {
  281. case 0x3: /* tone portamento */
  282. UniEffect(UNI_ITEFFECTG,ev.dat1);
  283. break;
  284. case 0x5:
  285. break;
  286. case 0x9: /* sample offset */
  287. if((ev.eff>>4)!=9)
  288. UniEffect(UNI_ULTEFFECT9,((UWORD)ev.dat1)<<8);
  289. break;
  290. case 0xb: /* panning */
  291. UniPTEffect(8,ev.dat1*0xf);
  292. of.flags |= UF_PANNING;
  293. break;
  294. case 0xc: /* volume */
  295. UniPTEffect(eff,ev.dat1>>2);
  296. break;
  297. default:
  298. UniPTEffect(eff,ev.dat1);
  299. break;
  300. }
  302. UniNewline();
  303. row++;
  304. }
  305. }
  306. if(!(of.tracks[t]=UniDup())) return 0;
  307. }
  308. return 1;
  309. }
  311. CHAR *ULT_LoadTitle(void)
  312. {
  313. CHAR s[32];
  315. _mm_fseek(modreader,15,SEEK_SET);
  316. if(!_mm_read_UBYTES(s,32,modreader)) return NULL;
  318. return(DupStr(s,32,1));
  319. }
  321. /*========== Loader information */
  323. MIKMODAPI MLOADER load_ult={
  324. NULL,
  325. "ULT",
  326. "ULT (UltraTracker)",
  327. ULT_Init,
  328. ULT_Test,
  329. ULT_Load,
  330. ULT_Cleanup,
  331. ULT_LoadTitle
  332. };
  335. /* ex:set ts=4: */