Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/sierra/convutils/cc3snd.c @ 2434:eab6b9e18832

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update defs for RFM
author aaronwolfe
date Sun, 21 Feb 2010 06:24:47 +0000
parents b2820d3f1e38
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2076
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
1 /***********************************************************************************
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
2 * Program Name : cc3snd *
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
3 * Description : Converts AGI sounds for the AGI Coco interpreter. *
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
4 * Author : Guillaume Major *
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
5 * Date : July 18, 2006 *
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
6 * License : Freeware. Do whatever you want with it! *
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
7 ***********************************************************************************/
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
8
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
9 #include <stdio.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
10 #include <ctype.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
11 #include <string.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
12 #include <stdlib.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
13 #include <sys/stat.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
14 #include <io.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
15 #include <direct.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
16 #include <windows.h>
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
17
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
18 /* Be sure to set the struct member alignment at 1 in the compiler settings */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
19
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
20 /* AGI sound format */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
21 struct MUSIC_NOTE {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
22 unsigned short duration;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
23 unsigned char tone_2;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
24 unsigned char tone_1;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
25 unsigned char attenuation;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
26 };
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
27
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
28 /* Coco AGI sound format */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
29 struct COCO_MUSIC_NOTE {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
30 unsigned char tone;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
31 unsigned char volume; /* 0x00: Silence, 0x3F: Full volume */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
32 unsigned char unused;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
33 unsigned char duration;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
34 };
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
35
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
36 /* Coco tone frequencies. The position of the freqency in the table gives the coco tone number. */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
37 unsigned short COCO_TONES_TABLE[] = {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
38 130, 138, 146, 155, 164, 174, 184, 195, 207, 220, 233, 246, // O3
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
39 261, 277, 293, 311, 329, 349, 369, 391, 415, 440, 466, 493, // O4
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
40 523, 554, 587, 622, 659, 698, 739, 783, 830, 880, 932, 987, // O5
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
41 1046, 1108, 1174, 1244, 1318, 1396, 1479, 1567, 1661, 1760, 1864, 1975, // O6
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
42 2093, 2217, 2349, 2489, 2637, 2793, 2959, 3135, 3322, 3520, 3729, 3951 // O7
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
43 };
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
44
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
45 /* Function prototypes */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
46 unsigned char GetCocoTone(unsigned short uiFreq);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
47 void ConvertSound(char *sInFile, char *sOutFile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
48 void ShowUsage();
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
49
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
50 /* Main */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
51 int main(int argc, char **argv) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
52
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
53 char sInFile[MAX_PATH], sOutFile[MAX_PATH];
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
54 char sInPath[MAX_PATH], sOutPath[MAX_PATH];
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
55 char sFullPath[MAX_PATH];
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
56
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
57 long hFind;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
58 struct _finddata_t finddata;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
59
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
60 printf("\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
61 printf("cc3snd AGI sound resource converter for the Coco\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
62 printf("Version 1.0 (July 2006)\n\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
63
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
64 if (argc < 2) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
65 ShowUsage();
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
66 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
67
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
68 if (strcmp(argv[1], "-b") == 0 || strcmp(argv[1], "-B") == 0) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
69 if (argc < 3) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
70 ShowUsage();
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
71 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
72 else if (argc < 4) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
73 sInPath[0] = '\0';
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
74 strncpy(sOutPath, argv[2], MAX_PATH);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
75 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
76 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
77 strncpy(sInPath, argv[2], MAX_PATH);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
78 strncpy(sOutPath, argv[3], MAX_PATH);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
79 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
80 /* Get the list of files */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
81 if (sInPath[0] != '\0')
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
82 sprintf(sFullPath, "%s\\sound.???", sInPath);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
83 else
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
84 strncpy(sFullPath, "sound.???", 10);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
85 hFind = _findfirst(sFullPath, &finddata);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
86 if (hFind > -1) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
87 /* Make sure the output path exists */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
88 _mkdir(sOutPath);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
89 /* Loop through the sound files */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
90 do {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
91 if (!(finddata.attrib & _A_SUBDIR) ) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
92 if (sInPath[0] != '\0')
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
93 sprintf(sInFile, "%s\\%s", sInPath, finddata.name);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
94 else
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
95 strncpy(sInFile, finddata.name, strlen(finddata.name)+1);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
96 sprintf(sOutFile, "%s\\%s", sOutPath, finddata.name);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
97 ConvertSound(sInFile, sOutFile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
98 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
99 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
100 printf("Skipping directory %s.\n", finddata.name);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
101 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
102 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
103 while (_findnext(hFind, &finddata) > -1);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
104 _findclose(hFind);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
105 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
106 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
107 printf("No SOUND file was found! The sound files name must match this format: sound.xxx where xxx is the number of the sound.\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
108 exit(1);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
109 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
110 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
111 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
112 if (argc < 2) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
113 ShowUsage();
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
114 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
115 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
116 strncpy(sInFile, argv[1], MAX_PATH);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
117 if (argc < 3) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
118 sprintf(sOutFile, "%s.cc3", argv[1]);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
119 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
120 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
121 strncpy(sOutFile, argv[2], MAX_PATH);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
122 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
123 ConvertSound(sInFile, sOutFile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
124 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
125 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
126
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
127 printf("Done!\n\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
128
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
129 /* Exit normally */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
130 exit(0);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
131 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
132
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
133 /* Converts an AGI format sound file to the Coco AGI interpreter format */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
134 void ConvertSound(char *sInFile, char *sOutFile) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
135
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
136 FILE *infile, *outfile;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
137 unsigned short uiOffset;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
138 struct MUSIC_NOTE note;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
139 struct COCO_MUSIC_NOTE cocoNote;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
140 unsigned short uiFreq, uiFreqDiv;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
141
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
142 if ((infile = fopen(sInFile, "rb")) == NULL) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
143 perror("Error opening input file");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
144 exit(1);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
145 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
146
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
147 if ((outfile = fopen(sOutFile, "wb")) == NULL) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
148 perror("Error opening output file");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
149 exit(1);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
150 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
151
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
152 printf("Converting %s -> %s\n", sInFile, sOutFile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
153
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
154 /* Get voice 1 offset */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
155 fseek(infile, 0, SEEK_SET);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
156 fread(&uiOffset, sizeof(unsigned short), 1, infile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
157
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
158 /* Seek to voice 1 offset */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
159 fseek(infile, uiOffset, SEEK_SET);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
160 memset(&note, 0, sizeof(note));
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
161
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
162 while (!ferror(infile) && !feof(infile) && fread(&note, sizeof(note), 1, infile) && note.duration != 0xFFFF) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
163 /* Verify that it's not a noise tone */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
164 if (note.tone_1 >> 4 != 0x0E) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
165 /* Get the frequency divider */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
166 uiFreqDiv = (((note.tone_2 & 0x3F) << 4) + (note.tone_1 & 0x0F));
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
167 if (uiFreqDiv > 0) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
168 /* Get the frequency of the tone */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
169 uiFreq = 111860 / uiFreqDiv;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
170 /* Get the corresponding coco tone */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
171 cocoNote.tone = GetCocoTone(uiFreq);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
172 if ((note.attenuation & 0x0F) == 0x0F)
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
173 cocoNote.volume = 0x00;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
174 else
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
175 cocoNote.volume = 0x3F;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
176 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
177 else {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
178 /* Insert a silence if the frequency equals zero */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
179 cocoNote.tone = 0;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
180 cocoNote.volume = 0x00;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
181 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
182 cocoNote.unused = 0;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
183 cocoNote.duration = (unsigned char)note.duration / 6;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
184 /* Make sure the duration equals at least 1 or else the sound will play indefinitely */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
185 if (cocoNote.duration == 0)
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
186 cocoNote.duration = 1;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
187 /* Write the note to the file */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
188 fwrite(&cocoNote, sizeof(cocoNote), 1, outfile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
189 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
190 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
191
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
192 /* Write the footer. The last 2 bytes seems to do nothing but every sound in KQ3 for the coco
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
193 ends with 0xFF and 2 bytes */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
194 fprintf(outfile, "%c%c%c", 0xFF, 0x00, 0x30);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
195
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
196 /* Close files */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
197 fclose(outfile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
198 fclose(infile);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
199
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
200 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
201
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
202 /* Gets the coco tone number from the specified frequency */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
203 unsigned char GetCocoTone(unsigned short uiFreq) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
204
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
205 int count, i, iTone = 0;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
206
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
207 count = sizeof(COCO_TONES_TABLE) / sizeof(unsigned short);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
208
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
209 for (i = 0; i < count; i++) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
210 if (uiFreq <= COCO_TONES_TABLE[i]) {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
211 iTone = i - 1;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
212 break;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
213 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
214 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
215
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
216 /* Make sure the tone is not negative */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
217 if (iTone < 0)
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
218 iTone = 0;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
219
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
220 return iTone;
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
221
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
222 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
223
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
224 /* Shows usage */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
225 void ShowUsage() {
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
226
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
227 printf("Usage: cc3snd input-file [output-file]\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
228 printf(" cc3snd -b [input-path] output-path (batch mode)\n");
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
229
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
230 /* Exit normally */
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
231 exit(0);
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
232
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
233 }
b2820d3f1e38 Utils written by G. Major for VOL conversion to CoCo interpreter
boisy
parents:
diff changeset
234