/*   SCCS Id: @(#)sound.c   3.4     1996/02/19                        */
/*   Copyright (c) NetHack PC Development Team 1993,1995            */
/*   NetHack may be freely redistributed.  See license for details. */
/*                                                                  */
/*
 * sound.c - Hardware sound support
 *
 *Edit History:
 *     Initial Creation                              93/10/01
 *     Added PC Speaker Support for BC compilers     95/06/14
 *     Completed various fixes			     96/02/19
 *
 */

#include "hack.h"
#include <stdio.h>
#include "portio.h"

#include <dos.h>
#include <ctype.h>

#ifndef TESTING

#define printf	pline

int
assign_soundcard(sopt)
char *sopt;
{

	iflags.hassound = 0;
#  ifdef PCMUSIC
	iflags.usepcspeaker = 0;
#  endif

	if (strncmpi(sopt,"def",3) == 0) {              /* default */
		/* do nothing - default */
	}
#  ifdef PCMUSIC
	else if (strncmpi(sopt,"speaker",7) == 0) {	/* pc speaker */
		iflags.usepcspeaker = 1;
	}
#  endif
	else if (strncmpi(sopt,"auto",4) == 0) {	/* autodetect */
	/*
	 * Auto-detect Priorities (arbitrary for now):
	 *	Just pcspeaker
	 */
		if (0) ;
#  ifdef PCMUSIC
		else iflags.usepcspeaker = 1;
#  endif
	} else {
		return 0;
	}
	return 1;

}
#endif

#ifdef PCMUSIC

/* 8254/3 Control Word Defines */

#define CTR0SEL (0<<6)
#define	CTR1SEL	(1<<6)
#define	CTR2SEL	(2<<6)
#define RDBACK	(3<<6)

#define LATCH	(0<<4)
#define	RW_LSB	(1<<4)
#define RW_MSB	(2<<4)	/* If both LSB and MSB are read, LSB is done first */

#define MODE0	(0<<1)	/* Interrupt on terminal count */
#define MODE1	(1<<1)	/* Hardware One-Shot */
#define MODE2	(2<<1)	/* Pulse Generator */
#define MODE3	(3<<1)	/* Square Wave Generator */
#define MODE4	(4<<1)	/* Software Triggered Strobe */
#define MODE5	(5<<1)	/* Hardware Triggered Strobe */

#define BINARY	(0<<0)	/* Binary counter (16 bits) */
#define BCD	(1<<0)	/* Binary Coded Decimal (BCD) Counter (4 Decades) */

/* Misc 8254/3 Defines */

#define TIMRFRQ (1193180UL)	/* Input frequency to the clock (Hz) */

/* Speaker Defines */

#define TIMER	(1<<0)	/* Timer 2 Output connected to Speaker */
#define SPKR_ON	(1<<1)	/* Turn on/off Speaker */

/* Port Definitions */

/* 8254/3 Ports */

#define CTR0	0x40
#define CTR1	0x41
#define CTR2	0x42
#define CTRL	0x43

/* Speaker Port */

#define SPEAKER	0x61

void
startsound (unsigned freq)
{
	/* To start a sound on the PC:
	 *
	 * First, set the second counter to have the correct frequency:
	 */

	unsigned count;

	if (freq == 0) freq = 523;

	count = TIMRFRQ / freq; /* Divide frequencies to get count. */

#ifdef TESTING
	printf ("freq = %u, count = %u\n", freq, count);
#endif

	outportb (CTRL, CTR2SEL|RW_LSB|RW_MSB|MODE3|BINARY);
	outportb (CTR2, count & 0x0FF);
	outportb (CTR2, count / 0x100);

	/* Next, turn on the speaker */

        outportb (SPEAKER, inportb(SPEAKER)|TIMER|SPKR_ON);
}

void
stopsound (void)
{
        outportb (SPEAKER, inportb(SPEAKER) & ~(TIMER|SPKR_ON));
}

static unsigned tempo, length, octave, mtype;

/* The important numbers here are 287700UL for the factors and 4050816000UL
 * which gives the 440 Hz for the A below middle C. "middle C" is assumed to
 * be the C at octave 3. The rest are computed by multiplication/division of
 * 2^(1/12) which came out to 1.05946 on my calculator.  It is assumed that
 * no one will request an octave beyond 6 or below 0.  (At octave 7, some
 * notes still come out ok, but by the end of the octave, the "notes" that
 * are produced are just ticks.

 * These numbers were chosen by a process based on the C64 tables (which
 * weren't standardized) and then were 'standardized' by giving them the
 * closest value.  That's why they don't seem to be based on any sensible
 * number.
 */

unsigned long notefactors[12] = { 483852, 456695, 431063, 406869, 384033,
	362479, 342135, 322932, 304808, 287700, 271553, 256312 };

void
note (long notenum)
{
	startsound ((unsigned) (4050816000UL / notefactors[notenum % 12]
			   >> (7 - notenum / 12)));
}

int notes[7] = { 9, 11, 0, 2, 4, 5, 7 };

char *
startnote (char *c)
{
	long n;

	n = notes[toupper(*c++) - 'A'] + octave * 12;
	if (*c == '#' || *c == '+') { n++; c++; }
	else if (*c == '-') { if (n) n--; c++; }

	note (n);

	return --c;
}

void
delaytime (unsigned time)
{
	/* time and twait are in units of milliseconds */

	unsigned twait;

	switch (toupper (mtype)) {
	   case 'S': twait = time / 4; break;
	   case 'L': twait = 0; break;
	   default: twait = time / 8; break;
	}

	msleep (time - twait);
	stopsound ();
	msleep (twait);
}

char *
delaynote (char *c)
{
	unsigned time = 0;

	while (isdigit(*c)) time = time * 10 + (*c++ - '0');

	if (!time) time = length;

	time = (unsigned)(240000 / time / tempo);

	while (*c == '.') { time = time * 3 / 2; c++; }

	delaytime (time);

	return c;
}

void
initspeaker (void)
{
	tempo = 120, length = 4, octave = 3, mtype = 'N';
}


void
play (char *tune)
{
	char *c, *n;
	unsigned num;

	for (c = tune; *c; ) {
	    sscanf (c + 1, "%u", &num);
	    for (n = c + 1; isdigit(*n); n++) /* do nothing */;
	    if (isspace(*c)) c++;
	    else switch (toupper(*c)) {
		case 'A':
		case 'B':
		case 'C':
		case 'D':
		case 'E':
		case 'F':
		case 'G':
		    c = startnote (c);
		case 'P':
		    c = delaynote (++c);
		    break;
#if 0
		case 'M': c++; mtype = *c; c++; break;
		case 'T':
		    if (num) tempo = num;
		    else printf ("Zero Tempo (%s)!\n", c);
		    c = n;
		    break;
		case 'L':
		    if (num) length = num;
		    else printf ("Zero Length (%s)!\n", c);
		    c = n;
		    break;
		case 'O':
		    if (num <= 7)
			octave = num;
		    c = n;
		    break;
		case 'N':
		    note (num);
		    delaytime ((240000/length/tempo));
		    c = n;
		    break;
		case '>': if (octave < 7) octave++; c++; break;
		case '<': if (octave) octave--; c++; break;
#endif
		case ' ': c++; break;
		default:
		    printf ("Unrecognized play value (%s)!\n", c);
                    return;
	    }
	}
}

#ifndef TESTING
void
pc_speaker (struct obj *instr, char *tune)
{
    if (!iflags.usepcspeaker) return;
    initspeaker ();
    switch (instr->otyp)
    {
	case WOODEN_FLUTE:
	case MAGIC_FLUTE:
	    octave = 5; /* up one octave */
	    break;
	case TOOLED_HORN:
	case FROST_HORN:
	case FIRE_HORN:
	    octave = 2; /* drop two octaves */
	    break;
	case BUGLE:
	    break;
	case WOODEN_HARP:
	case MAGIC_HARP:
	    length = 8;
	    mtype = 'L'; /* fast, legato */
	    break;
    }
    play (tune);
}

#else

main ()
{
	char s[80];
	int tool;

	initspeaker();
	printf ("1) flute\n2) horn\n3) harp\n4) other\n");
	fgets (s, 80, stdin);
	sscanf (s, "%d", &tool);
	switch (tool) {
	case 1: octave = 5; break;
	case 2: octave = 2; break;
	case 3: length = 8; mtype = 'L'; break;
	default: break;
	}
	printf ("Enter tune:");
	fgets(s, 80, stdin);
	play (s);
}
#endif

#endif /* PCMUSIC */

/* sound.c */