335 lines
6.8 KiB
C
335 lines
6.8 KiB
C
/* NetHack 3.5 sound.c $NHDT-Date$ $NHDT-Branch$:$NHDT-Revision$ */
|
|
/* NetHack 3.5 sound.c $Date: 2009/05/06 10:49:43 $ $Revision: 1.4 $ */
|
|
/* SCCS Id: @(#)sound.c 3.5 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 */
|