music.c

   1 /*
   2    Cantaveria - action adventure platform game
   3    Copyright (C) 2009 2010 Evan Rinehart
   4
   5    This program is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU General Public License
   7    as published by the Free Software Foundation; either version 2
   8    of 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 General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to
  17
  18    The Free Software Foundation, Inc.
  19    51 Franklin Street, Fifth Floor
  20    Boston, MA  02110-1301, USA
  21
  22    evanrinehart@gmail.com
  23 */
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27
  28 #include <list.h>
  29 #include <music.h>
  30 #include <seq.h>
  31 #include <midi.h>
  32 #include <util.h>
  33
  34 mus_id current_id = MUS_NOTHING;
  35
  36 list* songs[32] = {
  37 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
  38 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
  39 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
  40 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
  41 };
  42
  43 int positions[32];
  44
  45 static char* mus_name(mus_id id){
  46         switch(id){
  47                 case MUS_NOTHING: return "MUS_NOTHING";
  48                 case MUS_COOL: return "MUS_COOL";
  49                 case MUS_TEST1: return "MUS_TEST1";
  50                 default: return "(?)";
  51         }
  52 }
  53
  54 static int is_id_invalid(mus_id id){
  55         if(id >= 32) return 1;
  56         else return 0;
  57 }
  58
  59
  60 int music_load(char* filename, mus_id id){
  61         list* events;
  62
  63         if(id == MUS_NOTHING){
  64                 printf("music_load: you can't load a song into MUS_NOTHING\n");
  65                 return -1;
  66         }
  67
  68         if(is_id_invalid(id)){
  69                 printf("music_load: music id out of range (%d)\n", id);
  70                 return -1;
  71         }
  72
  73         if(songs[id] != NULL){
  74                 printf("music_load: slot %s not empty\n", mus_name(id));
  75                 return -1;
  76         }
  77
  78         events = midi_load(filename);
  79         if(events == NULL){
  80                 printf("music_load: unable to load \"%s\"\n", filename);
  81                 return -1;
  82         }
  83
  84         songs[id] = events;
  85         return 0;
  86 }
  87
  88 void music_unload(mus_id id){
  89         if(is_id_invalid(id)) return;
  90         if(songs[id] == NULL) return;
  91
  92         if(music_current() == id) music_stop(id);
  93
  94         list* ptr = songs[id]->next;
  95         while(ptr){
  96                 free(ptr->item);
  97                 ptr = ptr->next;
  98         }
  99
 100         recycle(songs[id]->next);
 101         songs[id] = NULL;
 102 }
 103
 104 mus_id music_current(){
 105         return current_id;
 106 }
 107
 108 void music_play(mus_id id){
 109         if(is_id_invalid(id)) return;
 110         if(songs[id] == NULL) return;
 111         if(music_current() == id) return;
 112
 113         music_stop(id);
 114         seq_load(songs[id]);
 115         seq_seek(positions[id]);
 116         seq_enable();
 117
 118         current_id = id;
 119 }
 120
 121
 122 void music_stop(mus_id id){
 123         if(is_id_invalid(id)) return;
 124         if(songs[id] == NULL) return;
 125         if(music_current() == id) seq_disable();
 126
 127         positions[id] = 0;
 128 }
 129
 130 void music_pause(){
 131         seq_disable();
 132         positions[music_current()] = seq_tell();
 133 }
 134
 135 void music_volume(int percent){
 136         /* somehow enqueue a special event */
 137 }
 138
 139 void music_fadeout(int seconds){
 140         /* somehow enqueue a special event */
 141 }
 142
 143 void music_print(mus_id id){
 144         list* ptr;
 145
 146         if(is_id_invalid(id)){
 147                 printf("%d is an invalid id\n", id);
 148                 return;
 149         }
 150
 151         if(songs[id] == NULL){
 152                 char* name = mus_name(id);
 153                 printf("%s is not loaded. use music_load(filename, %s)\n", name, name);
 154                 return;
 155         }
 156
 157         ptr = songs[id]->next;
 158         while(ptr){
 159                 event* e = ptr->item;
 160                 printf("(%d, %03x, %d, %d, %d)\n",
 161                         e->tick,
 162                         e->type,
 163                         e->chan,
 164                         e->val1,
 165                         e->val2
 166                 );
 167                 ptr = ptr->next;
 168         }
 169 }
 170
 171 void music_debug(){
 172         int i;
 173         printf("music:\n");
 174         for(i=0; i<32; i++){
 175                 char* name = mus_name(i);
 176                 int pos = positions[i];
 177
 178                 if(songs[i]){
 179                         int count = length(songs[i]);
 180                         printf("(%15s, %7de, %11d)\n", name, count, pos);
 181                 }
 182                 else{
 183                         printf("(%15s, %7s, %11d)\n", name, "_", pos);
 184                 }
 185         }
 186 }
 187