2021-07-10 15:48:45 +02:00
// VAGDEMO2020 by Schnappy
// December 2020
// Based on VAGDEMO_FIXED by Yagotzirck
// Based on VAGDEMO by Shadow
// based on psyq/addons/sound/TUTO3.C
//
//
// Load two VAG file to SPU sound buffer and play them back alternatively or simultaneously.
//
// WAV creation: use ffmpeg to create a 16-bit ADPCM mono WAV file - change -ar to reduce filesize (and quality)
// $ ffmpeg -i input.mp3 -acodec pcm_s16le -ac 1 -ar 44100 output.wav
//
// WAV to VAG convertion using WAV2VAG : https://github.com/ColdSauce/psxsdk/blob/master/tools/wav2vag.c
// change -freq according to the -ar setting above
// $ wav2vag input.wav output.vag -sraw16 -freq=44100 (-L)
//
// Alternatively, you can use PsyQ VAGEDIT.EXE to change the sampling frequency of an existing VAG file.
//
// Docs : see libformat47.pdf p.209
// libover47.pdf, p.271
// libref47.pdf, p.980
// URLS : http://psx.arthus.net/code/VAG/
# include <sys/types.h>
# include <stdio.h>
# include <libgte.h>
# include <libetc.h>
# include <libgpu.h>
// Sound system
# include <libsnd.h>
# include <libspu.h>
# define VMODE 0 // Video Mode : 0 : NTSC, 1: PAL
# define SCREENXRES 320
# define SCREENYRES 240
# define CENTERX SCREENXRES / 2
# define CENTERY SCREENYRES / 2
# define MARGINX 0 // margins for text display
# define MARGINY 32
# define FONTSIZE 8 * 7 // Text Field Height
DISPENV disp [ 2 ] ; // Double buffered DISPENV and DRAWENV
DRAWENV draw [ 2 ] ;
short db = 0 ; // index of which buffer is used, values 0, 1
// Sound stuff
# define MALLOC_MAX 3 // Max number of time we can call SpuMalloc
//~ // convert Little endian to Big endian
# define SWAP_ENDIAN32(x) (((x)>>24) | (((x)>>8) & 0xFF00) | (((x)<<8) & 0x00FF0000) | ((x)<<24))
typedef struct VAGheader { // All the values in this header must be big endian
char id [ 4 ] ; // VAGp 4 bytes -> 1 char * 4
unsigned int version ; // 4 bytes
unsigned int reserved ; // 4 bytes
unsigned int dataSize ; // (in bytes) 4 bytes
unsigned int samplingFrequency ; // 4 bytes
char reserved2 [ 12 ] ; // 12 bytes -> 1 char * 12
char name [ 16 ] ; // 16 bytes -> 1 char * 16
// Waveform data after that
} VAGhdr ;
SpuCommonAttr commonAttributes ; // structure for changing common voice attributes
SpuVoiceAttr voiceAttributes ; // structure for changing individual voice attributes
u_long hello_spu_address ; // address allocated in memory for first sound file
u_long poly_spu_address ; // address allocated in memory for second sound file
// DEBUG : these allow printing values for debugging
u_long hello_spu_start_address ;
u_long hello_get_start_addr ;
u_long hello_transSize ;
u_long poly_spu_start_address ;
u_long poly_get_start_addr ;
u_long poly_transSize ;
# define HELLO SPU_0CH // Play first vag on channel 0
# define POLY SPU_2CH // Play second vag on channel 2
// Memory management table ; allow MALLOC_MAX calls to SpuMalloc() - ibref47.pdf p.1044
char spu_malloc_rec [ SPU_MALLOC_RECSIZ * ( 2 + MALLOC_MAX + 1 ) ] ;
// VAG files
// We're using GrumpyCoder's Nugget wrapper to compile the code with a modern GCC : https://github.com/grumpycoders/pcsx-redux/tree/main/src/mips/psyq
// To include binary files in the exe, add your VAG files to the SRCS variable in Makefile
// and in common.mk, add this rule to include *.vag files :
//
//~ %.o: %.vag
//~ $(PREFIX)-objcopy -I binary --set-section-alignment .data=4 --rename-section .data=.rodata,alloc,load,readonly,data,contents -O elf32-tradlittlemips -B mips $< $@
// hello.vag - 44100 Khz
extern unsigned char _binary____VAG_hello_vag_start [ ] ; // filename must begin with _binary____ followed by the full path, with . and / replaced, and then suffixed with _ and end with _start[]; or end[];
extern unsigned char _binary____VAG_hello_vag_end [ ] ; // https://discord.com/channels/642647820683444236/663664210525290507/780866265077383189
// poly.vag - 44100 Khz
extern unsigned char _binary____VAG_poly_vag_start [ ] ;
extern unsigned char _binary____VAG_poly_vag_end [ ] ;
void initGraph ( void )
{
ResetGraph ( 0 ) ;
SetDefDispEnv ( & disp [ 0 ] , 0 , 0 , SCREENXRES , SCREENYRES ) ;
SetDefDispEnv ( & disp [ 1 ] , 0 , SCREENYRES , SCREENXRES , SCREENYRES ) ;
SetDefDrawEnv ( & draw [ 0 ] , 0 , SCREENYRES , SCREENXRES , SCREENYRES ) ;
SetDefDrawEnv ( & draw [ 1 ] , 0 , 0 , SCREENXRES , SCREENYRES ) ;
if ( VMODE )
{
SetVideoMode ( MODE_PAL ) ;
disp [ 0 ] . screen . y + = 8 ;
disp [ 1 ] . screen . y + = 8 ;
}
2021-07-22 10:40:41 +02:00
SetDispMask ( 1 ) ; // Display on screen
2021-07-10 15:48:45 +02:00
setRGB0 ( & draw [ 0 ] , 50 , 50 , 50 ) ;
setRGB0 ( & draw [ 1 ] , 50 , 50 , 50 ) ;
draw [ 0 ] . isbg = 1 ;
draw [ 1 ] . isbg = 1 ;
PutDispEnv ( & disp [ db ] ) ;
PutDrawEnv ( & draw [ db ] ) ;
FntLoad ( 960 , 0 ) ;
FntOpen ( 8 , 60 , 304 , 200 , 0 , 500 ) ;
}
void display ( void )
{
DrawSync ( 0 ) ;
VSync ( 0 ) ;
PutDispEnv ( & disp [ db ] ) ;
PutDrawEnv ( & draw [ db ] ) ;
db = ! db ;
}
// Audio initialisation & functions
void initSnd ( void ) {
SpuInitMalloc ( MALLOC_MAX , spu_malloc_rec ) ; // Maximum number of blocks, mem. management table address.
commonAttributes . mask = ( SPU_COMMON_MVOLL | SPU_COMMON_MVOLR ) ; // Mask which attributes to set
commonAttributes . mvol . left = 0x3fff ; // Master volume left
commonAttributes . mvol . right = 0x3fff ; // see libref47.pdf, p.1058
SpuSetCommonAttr ( & commonAttributes ) ; // set attributes
SpuSetIRQ ( SPU_OFF ) ;
}
u_long sendVAGtoRAM ( unsigned int VAG_data_size , unsigned char * VAG_data ) {
u_long size ;
SpuSetTransferMode ( SpuTransByDMA ) ; // DMA transfer; can do other processing during transfer
size = SpuWrite ( VAG_data + sizeof ( VAGhdr ) , VAG_data_size ) ; // transfer VAG_data_size bytes from VAG_data address to sound buffer
SpuIsTransferCompleted ( SPU_TRANSFER_WAIT ) ; // Checks whether transfer is completed and waits for completion
return size ;
}
void setVoiceAttr ( unsigned int pitch , long channel , unsigned long soundAddr ) {
voiceAttributes . mask = //~ Attributes (bit string, 1 bit per attribute)
(
SPU_VOICE_VOLL |
SPU_VOICE_VOLR |
SPU_VOICE_PITCH |
SPU_VOICE_WDSA |
SPU_VOICE_ADSR_AMODE |
SPU_VOICE_ADSR_SMODE |
SPU_VOICE_ADSR_RMODE |
SPU_VOICE_ADSR_AR |
SPU_VOICE_ADSR_DR |
SPU_VOICE_ADSR_SR |
SPU_VOICE_ADSR_RR |
SPU_VOICE_ADSR_SL
) ;
voiceAttributes . voice = channel ; //~ Voice (low 24 bits are a bit string, 1 bit per voice )
voiceAttributes . volume . left = 0x1000 ; //~ Volume
voiceAttributes . volume . right = 0x1000 ; //~ Volume
voiceAttributes . pitch = pitch ; //~ Interval (set pitch)
voiceAttributes . addr = soundAddr ; //~ Waveform data start address
voiceAttributes . a_mode = SPU_VOICE_LINEARIncN ; //~ Attack rate mode = Linear Increase - see libref47.pdf p.1091
voiceAttributes . s_mode = SPU_VOICE_LINEARIncN ; //~ Sustain rate mode = Linear Increase
voiceAttributes . r_mode = SPU_VOICE_LINEARDecN ; //~ Release rate mode = Linear Decrease
voiceAttributes . ar = 0x0 ; //~ Attack rate
voiceAttributes . dr = 0x0 ; //~ Decay rate
voiceAttributes . rr = 0x0 ; //~ Release rate
voiceAttributes . sr = 0x0 ; //~ Sustain rate
voiceAttributes . sl = 0xf ; //~ Sustain level
SpuSetVoiceAttr ( & voiceAttributes ) ; // set attributes
}
void playSFX ( unsigned long fx ) {
SpuSetKey ( SpuOn , fx ) ;
}
int main ( void )
{
short counter = 0 ;
const VAGhdr * HellofileHeader = ( VAGhdr * ) _binary____VAG_hello_vag_start ; // get header of first VAG file
const VAGhdr * PolyfileHeader = ( VAGhdr * ) _binary____VAG_poly_vag_start ; // get header of second VAG file
// From libover47.pdf :
// The sampling frequency of the original audio file can be used to determine the pitch
// at which to play the VAG. pitch = (sampling frequency << 12)/44100L
// Ex: 44.1kHz=0x1000 22.05kHz=0x800 etc
unsigned int Hellopitch = ( SWAP_ENDIAN32 ( HellofileHeader - > samplingFrequency ) < < 12 ) / 44100L ;
unsigned int Polypitch = ( SWAP_ENDIAN32 ( PolyfileHeader - > samplingFrequency ) < < 12 ) / 44100L ;
SpuInit ( ) ; // Initialize SPU. Called only once.
initSnd ( ) ;
// First VAG
hello_spu_address = SpuMalloc ( SWAP_ENDIAN32 ( HellofileHeader - > dataSize ) ) ; // Allocate an area of dataSize bytes in the sound buffer.
hello_spu_start_address = SpuSetTransferStartAddr ( hello_spu_address ) ; // Sets a starting address in the sound buffer
hello_get_start_addr = SpuGetTransferStartAddr ( ) ; // SpuGetTransferStartAddr() returns current sound buffer transfer start address.
hello_transSize = sendVAGtoRAM ( SWAP_ENDIAN32 ( HellofileHeader - > dataSize ) , _binary____VAG_hello_vag_start ) ;
// First VAG
poly_spu_address = SpuMalloc ( SWAP_ENDIAN32 ( PolyfileHeader - > dataSize ) ) ; // Allocate an area of dataSize bytes in the sound buffer.
poly_spu_start_address = SpuSetTransferStartAddr ( poly_spu_address ) ; // Sets a starting address in the sound buffer
poly_get_start_addr = SpuGetTransferStartAddr ( ) ; // SpuGetTransferStartAddr() returns current sound buffer transfer start address.
poly_transSize = sendVAGtoRAM ( SWAP_ENDIAN32 ( PolyfileHeader - > dataSize ) , _binary____VAG_poly_vag_start ) ;
// set VAG to channel
setVoiceAttr ( Hellopitch , HELLO , hello_spu_address ) ; // SPU_0CH == hello
setVoiceAttr ( Polypitch , POLY , poly_spu_address ) ; // SPU_2CH == poly
initGraph ( ) ;
while ( 1 )
{
if ( ! counter ) {
playSFX ( HELLO ) ; // Play first VAG
counter = 240 ;
}
if ( counter = = 160 ) {
playSFX ( POLY ) ; // Play second VAG
}
if ( counter = = 80 ) {
playSFX ( HELLO | POLY ) ; // Play both VAGs simultaneously
}
FntPrint ( " First VAG: " ) ;
FntPrint ( " \n Pitch : %08x-%dKhz " , Hellopitch , ( SWAP_ENDIAN32 ( HellofileHeader - > samplingFrequency ) ) ) ;
FntPrint ( " \n Set Start addr : %08x " , hello_spu_address ) ;
FntPrint ( " \n Return start addr : %08x " , hello_spu_start_address ) ;
FntPrint ( " \n Get Start addr : %08x " , hello_get_start_addr ) ;
FntPrint ( " \n Send size : %08x " , SWAP_ENDIAN32 ( HellofileHeader - > dataSize ) ) ;
FntPrint ( " \n Return size : %08x \n " , hello_transSize ) ;
FntPrint ( " \n Second VAG: " ) ;
FntPrint ( " \n Pitch : %08x-%dKhz " , Polypitch , ( SWAP_ENDIAN32 ( HellofileHeader - > samplingFrequency ) ) ) ;
FntPrint ( " \n Set Start addr : %08x " , poly_spu_address ) ;
FntPrint ( " \n Return start addr : %08x " , poly_spu_start_address ) ;
FntPrint ( " \n Get Start addr : %08x " , poly_get_start_addr ) ;
FntPrint ( " \n Send size : %08x " , SWAP_ENDIAN32 ( PolyfileHeader - > dataSize ) ) ;
FntPrint ( " \n Return size : %08x \n " , poly_transSize ) ;
FntPrint ( " \n Counter : %d \n " , counter ) ;
FntFlush ( - 1 ) ;
counter - - ;
display ( ) ;
}
return 0 ;
}