some PERL playing with JSON

[mirrors/Programs.git] / c / condrum / condrum.c

#include "bass.h"\r
#include <conio.h>\r
#include <stdlib.h>\r
#include <stdio.h>\r
\r
//#define DEBUG //Uncomment for debuging\r
#define MAX_CHANS 128 //Maximum lenght of line in loopfile (recomended 128 or 64)\r
\r
\r
// display error messages\r
void Error(const char *text) \r
{\r
	printf("Error(%d): %s\n",BASS_ErrorGetCode(),text);\r
	BASS_Free();\r
	exit(0);\r
}\r
\r
int main(int argc, char *argv)\r
{\r
    if (!BASS_Init(-1,44100,0,0,NULL)) {\r
       // couldn't initialize device\r
       printf("Error -1- Init");\r
       return(0);\r
       }\r
    \r
    char loopf[] = "loop.txt";\r
    int i = 0, t = 0, sch=sizeof(char), sleep = 500;  //t = total chanells\r
    HSAMPLE sample[MAX_CHANS];\r
    HCHANNEL channel[MAX_CHANS];\r
    char *line, bar[MAX_CHANS] = {'1', '0'};\r
    line = malloc(MAX_CHANS*sch);\r
    FILE *loop;\r
    \r
    loop = fopen(loopf, "r");\r
    \r
    printf("ConDrummer\nSimple Console Drumstation for Windows\nHarvie 2oo7\nFile: %s\n\n", loopf);\r
    \r
    while(1) {\r
             fgets(line, MAX_CHANS, loop);\r
             if(strstr(line, ";")) { \r
                             //printf("%s", line+sch);\r
                             continue;\r
                             }\r
             if(strstr(line, "!")) { \r
                             printf("%s", line+sch);\r
                             continue;\r
                             }\r
             if(strstr(line, ":")) {\r
                        line++;\r
                        memset( line+strlen(line)-1, 0, 1);\r
                        printf("Sample: %i = %s\n", i, line);\r
                        sprintf(line, "%s", line);\r
                        sample[i] =  BASS_SampleLoad(FALSE, line, 0, 0, 100, BASS_SAMPLE_MONO);\r
                        channel[i] = BASS_SampleGetChannel(sample[i], FALSE); // get a sample channel\r
                        i++;\r
                        t++;\r
                        line--;\r
                        continue;\r
                        }\r
                        \r
             if(strstr(line, "?")) {\r
                        sleep = atoi(line+sch);\r
                        #ifdef DEBUG\r
                        printf("Delay: %i\n", sleep);\r
                        #endif\r
                        continue;\r
                        }\r
             if(strstr(line, "@")) {\r
                        sleep = atoi(line+sch);\r
                        sleep = (60*1000)/(sleep*4);\r
                        #ifdef DEBUG\r
                        printf("Delay: %i\n", sleep);\r
                        #endif\r
                        continue;\r
                        }\r
                        \r
             if(strstr(line, "#")) {\r
                        break;\r
                        }\r
             }\r
     \r
    printf("Channels total: %i\nPlaying...\n\n", t);\r
     \r
    //DrumLOOP\r
    i = 0;\r
    while(1) {\r
             i = 0;\r
             while(1) {\r
                      fgets(line, MAX_CHANS, loop);\r
                      if(strstr(line, "-")) {\r
                                      sprintf(bar, "%s\x0", (line+sch));\r
                                      break;\r
                                      }\r
                        if(feof(loop)) {\r
                                        #ifdef DEBUG\r
                                               printf("rewind\n"); //Debug\r
                                        #endif\r
                                        rewind(loop);\r
                                        while(1) {\r
                                                 fgets(line, MAX_CHANS, loop);\r
                                                 if(strstr(line, "#")) { break; }\r
                                                 }\r
                                      }\r
                        }\r
    \r
             for(i = 0;i<t;i++) {\r
                   if (bar[i] == '1') {\r
                      BASS_ChannelPlay(channel[i], FALSE);\r
                   }\r
             }\r
        \r
             Sleep(sleep);\r
    \r
    }\r
    \r
	BASS_Free();\r
    return(0);\r
}\r
\r
/*\r
\r
TODO (unsorted):\r
     - better samples (Audacity or ER-0)\r
     - better (user friendly) loopfile syntax\r
     - BPM 2 sleep delay calculator\r
     - better icon\r
     - manual\r
     - sample patterns\r
     - Linux port (SDL???)\r
     - volume for each beat\r
     - recording to wav\r
\r
*/\r
\r
\r
\r