/***************************************************************************
* NAME: PLAY3DI.C
**
** Copyright (C) 1992,1993 by Focal Point 3D Audio and FORTE
** All Rights Reserved
**
** "This software is furnished under a license and may be used,
** copied, or disclosed only in accordance with the terms of such
** license and with the inclusion of the above copyright notice.
** This software or any other copies thereof may not be provided or
** otherwise made available to any other person. No title to and
** ownership of the software is hereby transfered."
****************************************************************************
* CREATION DATE: 11/18/92
*--------------------------------------------------------------------------*
* VERSION DATE NAME DESCRIPTION
*> 1.0 05/01/93 Original
***************************************************************************/
/*********************************************************************
*
* Example program for playing a 3D Sound track
*
*********************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#include <math.h>
#include <alloc.h>
#include "forte.h"
#include "gf1proto.h"
#include "extern.h"
#include "ultraerr.h"
#include "threed.h"
#include "hdr3d.h"
/* Caution: Don't make BSIZE too small. It won't be able to feed */
/* data to the UltraSound fast enough .... */
#define BSIZE 30*1024
#define ULTRA_BSIZE (long)(128L*1024L)
/* Joystick stuff */
int center_x=0;
int right_x=0;
int left_x=1000;
int center_z=0;
int fwrd_z=1000;
int back_z=0;
void
usage()
{
printf("\nUsage: play3di filename\n");
}
/* This function will load DRAM with the next data in the file */
unsigned long
load_dram(fp,sound,dramloc,dramsize,pcsize,pcbuffer)
FILE *fp; /* File pointer */
SOUND_3D *sound; /* 3d sound handle */
unsigned long dramloc; /* Where to put it */
unsigned long dramsize; /* How much to read & transfer */
unsigned int pcsize; /* How big is the PC buffer for DMA */
void far *pcbuffer; /* pointer to pc DMA buffer */
{
int i;
unsigned int length;
unsigned long total=0L;
int num;
int remaining;
num = dramsize / (long)pcsize;
remaining = dramsize - (long)((long)pcsize*(long)num);
/* Send as many full buffers as possible */
for (i=0;i<num;i++)
{
length = fread(pcbuffer,1,pcsize,fp);
if (length == pcsize)
{
UltraDownload(pcbuffer,sound->dmode,dramloc,length,TRUE);
dramloc += length;
total += length;
}
else
break;
}
/* Send amount left over */
if (remaining != 0)
{
length = fread(pcbuffer,1,remaining,fp);
if (length == remaining)
{
UltraDownload(pcbuffer,sound->dmode,dramloc,length,TRUE);
dramloc += length;
total += length;
}
}
return(total);
}
void
main(argc,argv)
int argc;
char *argv[];
{
FILE *fp;
int i;
int key_char;
int done;
ULTRA_CFG config;
SOUND_3D sound_3d;
void far *buffer;
int val;
int new_xpos,new_zpos;
int last_x,last_z;
unsigned int temp_it;
char filename[80];
int x_pos,z_pos,x_pos2,z_pos2,buttons;
unsigned long memloc;
unsigned long middle;
unsigned long where;
unsigned long length;
int first_buff = TRUE;
int first_track;
if (argc < 2)
{
usage();
printf("\nYou need to specify a file to play.\n");
exit(-1);
}
strcpy(filename,argv[argc-1]);
fp = fopen(filename,"rb");
if (fp == NULL)
{
printf("Unable to open %s\n",filename);
exit(-1);
}
/* Get the ULTRASND environment string parameters */
UltraGetCfg(&config);
if (UltraProbe(config.base_port) == NO_ULTRA)
{
printf("No card found\n");
exit(-1);
}
if (UltraOpen(&config,28) == NO_ULTRA)
{
printf("No card found\n");
exit(-1);
}
/* allocate memory in PC AND UltraSound */
buffer = malloc((unsigned int)BSIZE);
if (buffer == NULL)
{
printf("Unable to get PC memory\n");
goto done1;
}
val = UltraSetup3dInterleave(&sound_3d,filename,(long)ULTRA_BSIZE);
if (val != ULTRA_OK)
{
printf("Couldn't load 3d interleaved sound file. Err code %d\n",val);
goto failure;
}
/* Now prime the buffer with data from file */
fseek(fp,(long)sizeof(FILEHDR_3D),0);
for (i=0;i<6;i++)
{
if (sound_3d.vdata[i].voicenum != -1)
{
first_track = sound_3d.vdata[i].voicenum;
memloc = sound_3d.vdata[i].start;
break;
}
}
middle = memloc + ULTRA_BSIZE/2L;
/* Prime the buffer with data */
length = load_dram(fp,&sound_3d,memloc,ULTRA_BSIZE,BSIZE,buffer);
if (length != ULTRA_BSIZE)
{
printf("Not enough data\n");
goto done1;
}
UltraEnableOutput();
read_joystick(&x_pos,&z_pos,&x_pos2,&z_pos2,&buttons);
last_x = left_x = right_x = center_x = x_pos;
last_z = fwrd_z = back_z = center_z = z_pos;
/* Start the sound */
UltraStart3d(&sound_3d);
where = memloc;
done = FALSE;
while (!done)
{
if( fast_kbhit() ) /* Exit when a key is hit */
{
key_char = getch(); /* read the character */
done = TRUE;
break;
}
read_joystick(&x_pos,&z_pos,&x_pos2,&z_pos2,&buttons);
if (x_pos < center_x )
{
if (x_pos < left_x)
left_x = x_pos;
}
else
{
if (x_pos > right_x)
right_x = x_pos;
}
if (z_pos < center_z )
{
if (z_pos < fwrd_z)
fwrd_z = z_pos;
}
else
{
if (z_pos > back_z)
back_z = z_pos;
}
new_xpos = 0;
new_zpos = 0;
temp_it = abs((x_pos - center_x))<<8;
if (x_pos > center_x)
{
new_xpos = temp_it/(right_x-center_x+1);
}
else
{
new_xpos = -1*(temp_it/(center_x-left_x+1));
}
temp_it = abs(z_pos - center_z)<<8;
if (z_pos > center_z)
{
new_zpos = -1*(temp_it/(back_z-center_z+1));
}
else
{
new_zpos = temp_it/(center_z-fwrd_z+1);
}
printf("%03d %03d \r",new_xpos,new_zpos);
if ((abs(new_xpos-last_x) > 3) || (abs(new_zpos-last_z) > 3))
UltraAbsPosition3d(&sound_3d,new_xpos,0,new_zpos);
last_x = new_xpos;
last_z = new_zpos;
if (!(buttons & 0x10))
{
UltraStart3d(&sound_3d);
}
/* See if we need more data */
where = UltraReadVoice(first_track);
/* Are we waiting for first half to finish playing ? */
if (first_buff) /* yes */
{
if (where > middle)
{
/* fill in first half */
length = load_dram(fp,&sound_3d,memloc,ULTRA_BSIZE/2L,BSIZE,buffer);
if (length != ULTRA_BSIZE/2L)
{
done = TRUE;
}
first_buff = FALSE; /* now looking at second buff */
}
}
else /* how about second */
{
if (where < middle) /* has it looped back to beginning? */
{
/* fill in second half ... */
length = load_dram(fp,&sound_3d,middle,ULTRA_BSIZE/2L,BSIZE,buffer);
if (length != ULTRA_BSIZE/2L)
{
done = TRUE;
}
first_buff = TRUE; /* now looking at second buff */
}
}
}
/* Stop the sound */
UltraStop3d(&sound_3d,FALSE);
/* Free up resources */
UltraRelease3dInterleave(&sound_3d);
failure:
free(buffer);
done1:
/* close 3D sound track */
fclose(fp);
/* Shut sound down & re-init hardware ... */
UltraClose();
}
