/*
 *    Record samples from line-in and save to out.mp3
 *
*/

#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <olectl.h>
#include <ole2.h>


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <conio.h>
#include <dos.h>
#include <conio.h>


#include "../include/libzplay.h"


using namespace libZPlay;

ZPlay* player;

 
int nRate = 100;
int nPitch = 100;
int nTempo = 100;
int fCenterCut = 0;
int fSideCut = 0;
int fMixChannels = 0;
int lVolume = 100;
int rVolume = 100;


int fPause = 0;
int fEcho = 0;
int fEq = 0;
int fReverse = 0;
TStreamStatus status;
TStreamTime pos;



int main(int argc, char **argv)
{
    // clear screen
    system("CLS");


    // create class instance
    player = CreateZPlay();

    // chek if we have class instance
    if(player == 0)
    {
        printf("Error: Can't create class instance !\nPress key to exit.\n");
        getch();
        return 0;    
    }

    // get library version
    int ver = player->GetVersion();
    // check if we have version 2.00 and above
    if(ver < 200)
    {
        printf("Error: Need library version 2.00 and above !\nPress key to exit.\r\n");
        getch();
        player->Release();
        return 0;
    }


    // display version info
    printf("libZPlay v.%i.%02i\r\n\r\n", ver / 100, ver % 100);


    printf( "x: play    \tj: fade out   \ti: side cut   \td: pitch down\r\n"
                "c: pause   \tk: fade in    \to: center cut \tf: pitch up\r\n"
                "v: stop    \tl: loop       \tn: volume down\tg: tempo down\r\n"
                "y: rew     \tp: equalizer  \tm: volume up  \th: tempo up\r\n"
                "b: fwd     \te: echo       \ta: rate down  \r\n"
                "r: reverse \tt: channel mix\ts: rate up    \tq: quit\r\n\r\n");
        


        // open wavein using Line In
         if(player->OpenFile("wavein://src=line;volume=50;", sfAutodetect) == 0)
        {
            printf("Error: %s\nPress key to exit.\r\n", player->GetError());
            getch();
            player->Release();
            return 0;
        }

        // set wave output to disk file, mp3 encoding
        if(player->SetWaveOutFile("out.mp3", sfMp3, 1) == 0)
        {
            printf("Error: %s\nPress key to exit.\r\n", player->GetError());
            getch();
            player->Release();
            return 0;

        }

    // get stream info
    TStreamInfo pInfo;

    player->GetStreamInfo(&pInfo);


    // display info about stream
    char *sVbr = "CBR";
    if(pInfo.VBR)
        sVbr = "VBR";

     printf("\r\n%s %i Hz %s  Channel: %u  Length: %02i:%02i:%02i:%02i\r\n\r\n",
            pInfo.Description,
            pInfo.SamplingRate,
            sVbr,
            pInfo.ChannelNumber,
            pInfo.Length.hms.hour,
            pInfo.Length.hms.minute,
            pInfo.Length.hms.second,
            pInfo.Length.hms.millisecond);


    printf("Status| kbps |  POS:  |Echo|Equ|Cut|Fade|Rev|Rate|Pitch|Tempo|Vol|Loop|Ch mix|\r\n");


    // start playing
    if(player->Play() == 0)
    {
        printf("Error: %s\nPress key to exit.\r\n", player->GetError());
        player->Release(); // delete ZPlay class
        return 0;
    }

    

    while(1)
    {

        // get current status
         player->GetStatus(&status); 

        char *st = 0;
        if(status.fPlay)
            st = "Play ";
        else if(status.fPause)
            st = "Pause";
        else
            st = "Stop ";        
    
        // get current position
        player->GetPosition(&pos);


         printf("%s   %04i  %02i:%02i:%02i   %i   %i   %i   %i    %i   %03i  %03i   %03i  %03i   %i    %i\r", 
                st,
                player->GetBitrate(0),
                pos.hms.hour,
                pos.hms.minute,
                pos.hms.second,
                status.fEcho,
                status.fEqualizer,
                status.fVocalCut,
                status.fSlideVolume,
                status.fReverse,
                player->GetRate(),
                player->GetPitch(),
                player->GetTempo(),
                lVolume,
                status.nLoop,
                fMixChannels
                );



        if(kbhit())
        {
               int a = getch();

            
            switch(a)
            {

                case 'i':    // side cut
                    fSideCut = !fSideCut;
                    player->StereoCut(fSideCut, 1, 0);
                    fCenterCut = 0;
                break;

                case 'o':    // center
                    fCenterCut = !fCenterCut;
                    player->StereoCut(fCenterCut, 0, 0);
                    fSideCut = 0;
                break;

                case 's':    // higher rate
                    nRate += 5;
                    player->SetRate(nRate);
                break;

                case 'a':    // lower rate
                    nRate -= 5;
                    if(nRate < 0)
                        nRate = 0;
                    player->SetRate(nRate);
                break;

                case 'd':    // lower pitch
                    nPitch -= 5;
                    if(nPitch < 0)
                        nPitch = 0;
                    player->SetPitch(nPitch);
                break;

                case 'f':    // higher pitch
                    nPitch += 5;
                    player->SetPitch(nPitch);
                break;


                case 'g':    // lower tempo
                    nTempo -= 5;
                    if(nTempo < 0)
                        nTempo = 0;
                    player->SetTempo(nTempo);
                break;

                case 'h':    // higher tempo
                    nTempo += 5;
                    player->SetTempo(nTempo);
                break;

                case 'r':    // reverse mode
                    fReverse = !fReverse;

                    if(player->ReverseMode(fReverse) == 0)
                    {
                        printf("Error: %s\n", player->GetError());
                        fReverse = 0;
                    }
                break;


                case 'p':    // enable or disable equalizer
                {
                    fEq = !fEq;

                    player->EnableEqualizer(fEq);

                    if(fEq)
                    {
                        player->SetEqualizerPreampGain(-100000);
                        player->SetEqualizerBandGain(0, 104000);
                        player->SetEqualizerBandGain(1, 104000);
                        player->SetEqualizerBandGain(2, 104000);

                    }

                    
                }
                break;

                case 'l': // play loop
                {
                    TStreamTime pCurrentTime;
                    player->GetPosition(&pCurrentTime);
                    TStreamTime pEndTime;
                    pEndTime.ms = pCurrentTime.ms + 5000;
                    player->PlayLoop(tfMillisecond, &pCurrentTime, tfMillisecond, &pEndTime ,5, 1);
                }
                break;

                case 'j': // fade out volume
                {
                    TStreamTime start;
                    TStreamTime end;
            
                    player->GetPosition(&start);
                    
                    end.sec = start.sec + 5;
                    player->SlideVolume( tfSecond, &start, 100,100, tfSecond, &end, 0,0);
        

                }
                break;

                case 'k': // fade in volume
                {
                    TStreamTime start;
                    player->GetPosition(&start);
                    TStreamTime end;
                    end.sec = start.sec + 5;
                    player->SlideVolume( tfSecond, &start, 0,0, tfSecond, &end, 100, 100);
                }
                break;

                
                case 'e': // enable echo
                {
                    fEcho = !fEcho;
                    player->EnableEcho(fEcho);
                }
                break;
                
                case 'x': // play
                    if(player->Play() == 0)
                        printf("Err: %s\n", player->GetError());
                    fPause = 0;
                break;

                case 'v': // stop
                    player->Stop();
                    fPause = 0;
                break;

                case 'c':    // pause
                    if(fPause)
                    {
                        player->Resume();
                        fPause = 0;
                    }
                    else
                    {
                        player->Pause();
                        fPause = 1;
                    }
                break;

                case 'y': // jump back 5 seconds
                {
                    TStreamTime pTime;
                    pTime.sec = 5;
                    player->Seek(tfSecond, &pTime, smFromCurrentBackward);
                }
                break;

                case 'b': // jump forward 5 seconds
                {
                    TStreamTime pTime;
                    pTime.sec = 5;
                    player->Seek(tfSecond, &pTime, smFromCurrentForward);
            
                }
                break;

                case 't':
                {
                    // mix stereo channels to mono
                    fMixChannels = !fMixChannels;
                    player->MixChannels(fMixChannels, 50, 50);

                }
                break;

                case 'n':    // volume down
                    if(lVolume >= 5)
                        lVolume -= 5;

                    if(rVolume >= 5)
                        rVolume -= 5;

                    player->SetMasterVolume(lVolume, rVolume);
                break;

                case 'm':    // volume up
                    if(lVolume <= 95)
                        lVolume += 5;

                    if(rVolume <= 95)
                        rVolume += 5;

                    player->SetMasterVolume(lVolume, rVolume);
                break;

                case 'q':
                case 'Q':
                    player->Release();    
                return 0; 
            }
        }

        Sleep(50);
    }
}