repos/blastem: mediaplayer.c annotate

annotate mediaplayer.c @ 2374:97f164d1f0f6

Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output

author	Michael Pavone <pavone@retrodev.com>
date	Wed, 15 Nov 2023 23:23:52 -0800
parents	0343f0d5add0
children	02c04196c2da

rev	line source
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	1 #include <stdlib.h>
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	2 #include <stddef.h>
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	3 #include <limits.h>
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	4 #include <string.h>
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	5 #include "mediaplayer.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	6 #include "io.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	7 #include "ym2612.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	8 #include "psg.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	9 #include "rf5c164.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	10 #include "util.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	11 #include "render.h"
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	12
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	13 #define ADJUST_BUFFER (12500000)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	14 #define MAX_NO_ADJUST (UINT_MAX-ADJUST_BUFFER)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	15 #define MAX_RUN_SAMPLES 128
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	16
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	17 enum {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	18 AUDIO_VGM,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	19 AUDIO_WAVE,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	20 AUDIO_FLAC,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	21 MEDIA_UNKNOWN
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	22 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	23
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	24 enum {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	25 STATE_PLAY,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	26 STATE_PAUSED
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	27 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	28
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	29 uint32_t cycles_to_samples(uint32_t clock_rate, uint32_t cycles)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	30 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	31 return ((uint64_t)cycles) * ((uint64_t)44100) / ((uint64_t)clock_rate);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	32 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	33
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	34 uint32_t samples_to_cycles(uint32_t clock_rate, uint32_t cycles)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	35 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	36 return ((uint64_t)cycles) * ((uint64_t)clock_rate) / ((uint64_t)44100);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	37 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	38
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	39 void ym_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	40 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	41 ym2612_context *ym = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	42 if (ym->current_cycle >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	43 uint32_t deduction = ym->current_cycle - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	44 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	45 ym->current_cycle -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	46 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	47 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	48
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	49 void ym_scope(chip_info chip, oscilloscope scope)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	50 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	51 ym_enable_scope(chip->context, scope, chip->clock);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	52 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	53
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	54 void ym_no_scope(void *context)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	55 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	56 ym2612_context *ym = context;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	57 ym->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	58 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	59
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	60 void psg_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	61 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	62 psg_context *psg = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	63 if (psg->cycles >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	64 uint32_t deduction = psg->cycles - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	65 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	66 psg->cycles -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	67 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	68 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	69
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	70 void psg_scope(chip_info chip, oscilloscope scope)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	71 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	72 psg_enable_scope(chip->context, scope, chip->clock);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	73 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	74
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	75 void psg_no_scope(void *context)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	76 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	77 psg_context *psg = context;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	78 psg->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	79 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	80
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	81 void pcm_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	82 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	83 rf5c164 *pcm = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	84 if (pcm->cycle >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	85 uint32_t deduction = pcm->cycle - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	86 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	87 pcm->cycle -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	88 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	89 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	90
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	91 void pcm_scope(chip_info chip, oscilloscope scope)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	92 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	93 rf5c164_enable_scope(chip->context, scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	94 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	95
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	96 void pcm_no_scope(void *context)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	97 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	98 rf5c164 *pcm = context;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	99 pcm->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	100 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	101
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	102 uint8_t find_block(data_block head, uint32_t offset, uint32_t size)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	103 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	104 if (!head) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	105 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	106 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	107 while (head->size < offset) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	108 offset -= head->size;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	109 head = head->next;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	110 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	111 if (head->size - offset < size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	112 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	113 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	114 return head->data + offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	115 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	116
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	117 void vgm_wait(media_player *player, uint32_t samples)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	118 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	119 chip_info *chips = player->chips;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	120 uint32_t num_chips = player->num_chips;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	121 while (samples > MAX_RUN_SAMPLES)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	122 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	123 vgm_wait(player, MAX_RUN_SAMPLES);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	124 samples -= MAX_RUN_SAMPLES;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	125 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	126 for (uint32_t i = 0; i < num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	127 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	128 chips[i].samples += samples;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	129 chips[i].run(chips[i].context, samples_to_cycles(chips[i].clock, chips[i].samples));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	130 chips[i].adjust(chips + i);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	131 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	132 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	133
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	134 void vgm_stop(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	135 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	136 player->state = STATE_PAUSED;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	137 player->playback_time = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	138 player->current_offset = player->vgm->data_offset + offsetof(vgm_header, data_offset);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	139 player->loop_count = 2;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	140 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	141
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	142 chip_info find_chip(media_player player, uint8_t cmd)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	143 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	144 for (uint32_t i = 0; i < player->num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	145 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	146 if (player->chips[i].cmd == cmd) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	147 return player->chips + i;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	148 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	149 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	150 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	151 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	152
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	153 void find_chip_context(media_player player, uint8_t cmd)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	154 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	155 chip_info *chip = find_chip(player, cmd);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	156 return chip ? chip->context : NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	157 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	158
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	159 chip_info find_chip_by_data(media_player player, uint8_t data_type)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	160 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	161 for (uint32_t i = 0; i < player->num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	162 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	163 if (player->chips[i].data_type == data_type) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	164 return &player->chips[i];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	165 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	166 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	167 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	168 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	169
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	170 static uint8_t read_byte(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	171 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	172 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	173 return buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	174 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	175
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	176 static uint16_t read_word_le(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	177 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	178 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	179 uint16_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	180 value \|= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	181 return value;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	182 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	183
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	184 static uint32_t read_24_le(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	185 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	186 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	187 uint32_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	188 value \|= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	189 value \|= buffer[player->current_offset++] << 16;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	190 return value;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	191 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	192
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	193 static uint32_t read_long_le(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	194 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	195 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	196 uint32_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	197 value \|= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	198 value \|= buffer[player->current_offset++] << 16;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	199 value \|= buffer[player->current_offset++] << 24;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	200 return value;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	201 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	202
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	203 void vgm_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	204 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	205 for (uint32_t remaining_samples = 44100 / 60; remaining_samples > 0;)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	206 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	207 if (player->wait_samples) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	208 uint32_t to_wait = player->wait_samples;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	209 if (to_wait > remaining_samples) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	210 to_wait = remaining_samples;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	211 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	212 vgm_wait(player, to_wait);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	213 player->wait_samples -= to_wait;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	214 remaining_samples -= to_wait;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	215 if (player->wait_samples) {
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	216 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	217 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	218 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	219 if (player->current_offset >= player->media->size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	220 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	221 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	222 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	223 uint8_t cmd = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	224 psg_context *psg;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	225 ym2612_context *ym;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	226 rf5c164 *pcm;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	227 switch (cmd)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	228 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	229 case CMD_PSG_STEREO:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	230 psg = find_chip_context(player, CMD_PSG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	231 if (!psg \|\| player->current_offset > player->media->size - 1) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	232 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	233 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	234 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	235 psg->pan = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	236 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	237 case CMD_PSG:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	238 psg = find_chip_context(player, CMD_PSG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	239 if (!psg \|\| player->current_offset > player->media->size - 1) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	240 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	241 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	242 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	243 psg_write(psg, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	244 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	245 case CMD_YM2612_0:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	246 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	247 if (!ym \|\| player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	248 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	249 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	250 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	251 ym_address_write_part1(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	252 ym_data_write(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	253 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	254 case CMD_YM2612_1:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	255 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	256 if (!ym \|\| player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	257 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	258 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	259 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	260 ym_address_write_part2(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	261 ym_data_write(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	262 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	263 case CMD_WAIT: {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	264 if (player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	265 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	266 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	267 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	268 player->wait_samples += read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	269 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	270 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	271 case CMD_WAIT_60:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	272 player->wait_samples += 735;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	273 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	274 case CMD_WAIT_50:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	275 player->wait_samples += 882;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	276 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	277 case CMD_END:
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	278 if (player->vgm->loop_offset && --player->loop_count) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	279 player->current_offset = player->vgm->loop_offset + offsetof(vgm_header, loop_offset);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	280 if (player->current_offset < player->vgm->data_offset + offsetof(vgm_header, data_offset)) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	281 // invalid loop offset
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	282 vgm_stop(player);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	283 goto frame_end;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	284 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	285 } else {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	286 //TODO: fade out?
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	287 vgm_stop(player);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	288 goto frame_end;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	289 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	290 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	291 case CMD_PCM_WRITE: {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	292 if (player->current_offset > player->media->size - 11) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	293 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	294 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	295 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	296 player->current_offset++; //skip compatibility command
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	297 uint8_t data_type = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	298 uint32_t read_offset = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	299 uint32_t write_offset = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	300 uint16_t size = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	301 chip_info *chip = find_chip_by_data(player, data_type);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	302 if (!chip \|\| !chip->blocks) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	303 warning("Failed to find data block list for type %d\n", data_type);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	304 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	305 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	306 uint8_t *src = find_block(chip->blocks, read_offset, size);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	307 if (!src) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	308 warning("Failed to find data offset %X with size %X for chip type %d\n", read_offset, size, data_type);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	309 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	310 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	311 switch (data_type)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	312 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	313 case DATA_RF5C68:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	314 case DATA_RF5C164:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	315 pcm = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	316 write_offset \|= pcm->ram_bank;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	317 write_offset &= 0xFFFF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	318 if (size + write_offset > 0x10000) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	319 size = 0x10000 - write_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	320 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	321 memcpy(pcm->ram + write_offset, src, size);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	322 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	323 default:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	324 warning("Unknown PCM write read_offset %X, write_offset %X, size %X\n", read_offset, write_offset, size);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	325 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	326 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	327 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	328 case CMD_PCM68_REG:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	329 pcm = find_chip_context(player, CMD_PCM68_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	330 if (!pcm \|\| player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	331 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	332 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	333 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	334 uint8_t reg = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	335 uint8_t value = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	336 rf5c164_write(pcm, reg, value);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	337 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	338 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	339 case CMD_PCM164_REG:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	340 pcm = find_chip_context(player, CMD_PCM164_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	341 if (!pcm \|\| player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	342 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	343 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	344 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	345 uint8_t reg = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	346 uint8_t value = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	347 rf5c164_write(pcm, reg, value);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	348 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	349 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	350 case CMD_PCM68_RAM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	351 pcm = find_chip_context(player, CMD_PCM68_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	352 if (!pcm \|\| player->current_offset > player->media->size - 3) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	353 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	354 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	355 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	356 uint16_t address = read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	357 address &= 0xFFF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	358 address \|= 0x1000;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	359 rf5c164_write(pcm, address, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	360 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	361 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	362 case CMD_PCM164_RAM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	363 pcm = find_chip_context(player, CMD_PCM164_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	364 if (!pcm \|\| player->current_offset > player->media->size - 3) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	365 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	366 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	367 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	368 uint16_t address = read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	369 address &= 0xFFF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	370 address \|= 0x1000;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	371 rf5c164_write(pcm, address, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	372 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	373 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	374 case CMD_DATA:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	375 if (player->current_offset > player->media->size - 6) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	376 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	377 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	378 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	379 player->current_offset++; //skip compat command
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	380 uint8_t data_type = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	381 uint32_t data_size = read_long_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	382 if (data_size > player->media->size \|\| player->current_offset > player->media->size - data_size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	383 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	384 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	385 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	386 chip_info *chip = find_chip_by_data(player, data_type);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	387 if (chip) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	388 data_block **cur = &(chip->blocks);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	389 while (*cur)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	390 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	391 cur = &((*cur)->next);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	392 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	393 *cur = calloc(1, sizeof(data_block));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	394 (*cur)->size = data_size;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	395 (*cur)->type = data_type;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	396 (cur)->data = ((uint8_t )player->media->buffer) + player->current_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	397 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	398 fprintf(stderr, "Skipping data block with unrecognized type %X\n", data_type);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	399 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	400 player->current_offset += data_size;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	401 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	402 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	403 case CMD_DATA_SEEK:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	404 if (player->current_offset > player->media->size - 4) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	405 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	406 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	407 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	408 uint32_t new_offset = read_long_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	409 if (!player->ym_seek_block \|\| new_offset < player->ym_seek_offset) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	410 chip_info *chip = find_chip(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	411 if (!chip) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	412 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	413 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	414 player->ym_seek_block = chip->blocks;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	415 player->ym_seek_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	416 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	417 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	418 while (player->ym_seek_block && (player->ym_seek_offset - player->ym_block_offset + player->ym_seek_block->size) < new_offset)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	419 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	420 player->ym_seek_offset += player->ym_seek_block->size - player->ym_block_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	421 player->ym_seek_block = player->ym_seek_block->next;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	422 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	423 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	424 player->ym_block_offset += new_offset - player->ym_seek_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	425 player->ym_seek_offset = new_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	426 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	427 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	428 default:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	429 if (cmd >= CMD_WAIT_SHORT && cmd < (CMD_WAIT_SHORT + 0x10)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	430 uint32_t wait_time = (cmd & 0xF) + 1;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	431 player->wait_samples += wait_time;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	432 } else if (cmd >= CMD_YM2612_DAC && cmd < CMD_DAC_STREAM_SETUP) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	433 if (player->ym_seek_block) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	434 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	435 ym_address_write_part1(ym, 0x2A);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	436 ym_data_write(ym, player->ym_seek_block->data[player->ym_block_offset++]);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	437 player->ym_seek_offset++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	438 if (player->ym_block_offset > player->ym_seek_block->size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	439 player->ym_seek_block = player->ym_seek_block->next;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	440 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	441 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	442 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	443 fputs("Encountered DAC write command but data seek pointer is invalid!\n", stderr);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	444 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	445 player->wait_samples += cmd & 0xF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	446 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	447 warning("unimplemented command: %X at offset %X\n", cmd, player->current_offset);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	448 vgm_stop(player);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	449 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	450 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	451 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	452 }
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	453 frame_end:
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	454 if (player->scope) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	455 scope_render(player->scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	456 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	457 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	458
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	459 void wave_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	460 {
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	461 for (uint32_t remaining_samples = player->wave->sample_rate / 60; remaining_samples > 0; remaining_samples--)
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	462 {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	463 uint32_t sample_size = player->wave->bits_per_sample * player->wave->num_channels / 8;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	464 if (sample_size > player->media->size \|\| player->current_offset > player->media->size - sample_size) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	465 player->current_offset = player->wave->format_header.size + offsetof(wave_header, audio_format);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	466 player->state = STATE_PAUSED;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	467 return;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	468 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	469 if (player->wave->bits_per_sample == 16) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	470 int16_t value = read_word_le(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	471 if (player->wave->num_channels == 1) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	472 render_put_mono_sample(player->audio, value);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	473 } else {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	474 int16_t right = read_word_le(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	475 render_put_stereo_sample(player->audio, value, right);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	476 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	477 } else {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	478 uint8_t sample = read_byte(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	479 int16_t value = sample * 257 - 128 * 257;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	480 if (player->wave->num_channels == 1) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	481 render_put_mono_sample(player->audio, value);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	482 } else {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	483 sample = read_byte(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	484 int16_t right = sample * 257 - 128 * 257;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	485 render_put_stereo_sample(player->audio, value, right);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	486 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	487 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	488
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	489 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	490 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	491
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	492 void flac_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	493 {
2296 789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	494 for (uint32_t remaining_samples = player->flac->sample_rate / 60; remaining_samples > 0; remaining_samples--)
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	495 {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	496 int16_t samples[2];
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	497 if (flac_get_sample(player->flac, samples, 2)) {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	498 render_put_stereo_sample(player->audio, samples[0], samples[1]);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	499 } else {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	500 player->state = STATE_PAUSED;
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	501 return;
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	502 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	503 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	504 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	505
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	506 void vgm_init(media_player *player, uint32_t opts)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	507 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	508 player->vgm = calloc(1, sizeof(vgm_header));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	509 player->vgm_ext = NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	510 memcpy(player->vgm, player->media->buffer, sizeof(vgm_header));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	511 if (player->vgm->version < 0x150 \|\| !player->vgm->data_offset) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	512 player->vgm->data_offset = 0xC;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	513 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	514 if (player->vgm->data_offset + offsetof(vgm_header, data_offset) > player->media->size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	515 player->vgm->data_offset = player->media->size - offsetof(vgm_header, data_offset);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	516 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	517 if (player->vgm->version <= 0x101 && player->vgm->ym2413_clk > 4000000) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	518 player->vgm->ym2612_clk = player->vgm->ym2413_clk;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	519 player->vgm->ym2413_clk = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	520 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	521 if (player->vgm->data_offset > 0xC) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	522 player->vgm_ext = calloc(1, sizeof(vgm_extended_header));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	523 size_t additional_header = player->vgm->data_offset + offsetof(vgm_header, data_offset) - sizeof(vgm_header);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	524 if (additional_header > sizeof(vgm_extended_header)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	525 additional_header = sizeof(vgm_extended_header);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	526 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	527 memcpy(player->vgm_ext, ((uint8_t *)player->media->buffer) + sizeof(vgm_header), additional_header);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	528 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	529 player->num_chips = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	530 if (player->vgm->sn76489_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	531 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	532 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	533 if (player->vgm->ym2612_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	534 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	535 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	536 if (player->vgm_ext && player->vgm_ext->rf5c68_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	537 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	538 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	539 if (player->vgm_ext && player->vgm_ext->rf5c164_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	540 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	541 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	542 player->chips = calloc(player->num_chips, sizeof(chip_info));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	543 uint32_t chip = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	544 if (player->vgm->ym2612_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	545 ym2612_context *ym = calloc(1, sizeof(ym2612_context));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	546 ym_init(ym, player->vgm->ym2612_clk, 1, opts);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	547 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	548 .context = ym,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	549 .run = (chip_run_fun)ym_run,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	550 .adjust = ym_adjust,
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	551 .scope = ym_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	552 .no_scope = ym_no_scope,
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	553 .clock = player->vgm->ym2612_clk,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	554 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	555 .cmd = CMD_YM2612_0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	556 .data_type = DATA_YM2612_PCM
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	557 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	558 }
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	559 if (player->vgm->sn76489_clk) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	560 psg_context *psg = calloc(1, sizeof(psg_context));
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	561 psg_init(psg, player->vgm->sn76489_clk, 16);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	562 player->chips[chip++] = (chip_info) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	563 .context = psg,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	564 .run = (chip_run_fun)psg_run,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	565 .adjust = psg_adjust,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	566 .scope = psg_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	567 .no_scope = ym_no_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	568 .clock = player->vgm->sn76489_clk,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	569 .samples = 0,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	570 .cmd = CMD_PSG,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	571 .data_type = 0xFF
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	572 };
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	573 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	574 if (player->vgm_ext && player->vgm_ext->rf5c68_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	575 rf5c164 *pcm = calloc(1, sizeof(rf5c164));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	576 rf5c164_init(pcm, player->vgm_ext->rf5c68_clk, 1);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	577 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	578 .context = pcm,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	579 .run = (chip_run_fun)rf5c164_run,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	580 .adjust = pcm_adjust,
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	581 .scope = pcm_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	582 .no_scope = pcm_no_scope,
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	583 .clock = player->vgm_ext->rf5c68_clk,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	584 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	585 .cmd = CMD_PCM68_REG,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	586 .data_type = DATA_RF5C68
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	587 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	588 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	589 if (player->vgm_ext && player->vgm_ext->rf5c164_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	590 rf5c164 *pcm = calloc(1, sizeof(rf5c164));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	591 rf5c164_init(pcm, player->vgm_ext->rf5c164_clk, 1);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	592 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	593 .context = pcm,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	594 .run = (chip_run_fun)rf5c164_run,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	595 .adjust = pcm_adjust,
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	596 .scope = pcm_scope,
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	597 .no_scope = pcm_no_scope,
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	598 .clock = player->vgm_ext->rf5c164_clk,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	599 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	600 .cmd = CMD_PCM164_REG,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	601 .data_type = DATA_RF5C164
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	602 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	603 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	604 player->current_offset = player->vgm->data_offset + offsetof(vgm_header, data_offset);
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	605 player->loop_count = 2;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	606 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	607
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	608 static void wave_player_init(media_player *player)
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	609 {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	610 player->wave = calloc(1, sizeof(wave_header));
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	611 memcpy(player->wave, player->media->buffer, offsetof(wave_header, data_header));
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	612 if (memcmp(player->wave->chunk.format, "WAVE", 4)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	613 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	614 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	615 if (player->wave->chunk.size < offsetof(wave_header, data_header)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	616 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	617 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	618 if (memcmp(player->wave->format_header.id, "fmt ", 4)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	619 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	620 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	621 if (player->wave->format_header.size < offsetof(wave_header, data_header) - offsetof(wave_header, audio_format)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	622 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	623 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	624 if (player->wave->bits_per_sample != 8 && player->wave->bits_per_sample != 16) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	625 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	626 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	627 uint32_t data_sub_chunk = player->wave->format_header.size + offsetof(wave_header, audio_format);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	628 if (data_sub_chunk > player->media->size \|\| player->media->size - data_sub_chunk < sizeof(riff_sub_chunk)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	629 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	630 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	631 memcpy(&player->wave->data_header, ((uint8_t *)player->media->buffer) + data_sub_chunk, sizeof(riff_sub_chunk));
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	632 player->current_offset = data_sub_chunk;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	633 player->audio = render_audio_source("Audio File", player->wave->sample_rate, 1, player->wave->num_channels);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	634 return;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	635 format_error:
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	636 player->media_type = MEDIA_UNKNOWN;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	637 free(player->wave);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	638 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	639
2296 789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	640 static void flac_player_init(media_player *player)
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	641 {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	642 player->flac = flac_file_from_buffer(player->media->buffer, player->media->size);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	643 if (player->flac) {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	644 player->audio = render_audio_source("Audio File", player->flac->sample_rate, 1, 2);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	645 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	646 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	647
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	648 static void resume_player(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	649 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	650 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	651 player->should_return = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	652 while (!player->header.should_exit && !player->should_return)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	653 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	654 switch (player->state)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	655 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	656 case STATE_PLAY:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	657 switch(player->media_type)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	658 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	659 case AUDIO_VGM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	660 vgm_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	661 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	662 case AUDIO_WAVE:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	663 wave_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	664 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	665 case AUDIO_FLAC:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	666 flac_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	667 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	668 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	669 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	670 case STATE_PAUSED:
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	671 #ifndef IS_LIB
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	672 render_sleep_ms(15);
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	673 #endif
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	674 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	675 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	676 //TODO: Fix this for libretro build properly
0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	677 #ifndef IS_LIB
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	678 render_update_display();
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	679 #endif
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	680 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	681 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	682
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	683 static void gamepad_down(system_header *system, uint8_t pad, uint8_t button)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	684 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	685 if (button >= BUTTON_A && button <= BUTTON_C) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	686 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	687 if (player->state == STATE_PAUSED) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	688 player->state = STATE_PLAY;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	689 puts("Now playing");
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	690 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	691 player->state = STATE_PAUSED;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	692 puts("Now paused");
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	693 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	694 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	695 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	696
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	697 static void gamepad_up(system_header *system, uint8_t pad, uint8_t button)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	698 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	699 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	700
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	701 static void start_player(system_header system, char statefile)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	702 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	703 resume_player(system);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	704 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	705
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	706 static void free_player(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	707 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	708 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	709 for (uint32_t i = 0; i < player->num_chips; i++)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	710 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	711 //TODO properly free chips
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	712 free(player->chips[i].context);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	713 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	714 free(player->chips);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	715 free(player->vgm);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	716 free(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	717 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	718
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	719 uint8_t detect_media_type(system_media *media)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	720 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	721 if (media->size < 4) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	722 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	723 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	724 if (!memcmp(media->buffer, "Vgm ", 4)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	725 if (media->size < sizeof(vgm_header)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	726 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	727 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	728 return AUDIO_VGM;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	729 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	730 if (!memcmp(media->buffer, "RIFF", 4)) {
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	731 if (media->size < sizeof(wave_header)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	732 return MEDIA_UNKNOWN;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	733 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	734 return AUDIO_WAVE;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	735 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	736 if (!memcmp(media->buffer, "fLaC", 4)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	737 return AUDIO_FLAC;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	738 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	739 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	740 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	741
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	742 static void request_exit(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	743 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	744 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	745 player->should_return = 1;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	746 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	747
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	748 static void toggle_debug_view(system_header *system, uint8_t debug_view)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	749 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	750 #ifndef IS_LIB
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	751 media_player player = (media_player )system;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	752 if (debug_view == DEBUG_OSCILLOSCOPE && player->chips) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	753 if (player->scope) {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	754 for (uint32_t i = 0; i < player->num_chips; i++)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	755 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	756 player->chips[i].no_scope(player->chips[i].context);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	757 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	758 scope_close(player->scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	759 player->scope = NULL;
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	760 } else {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	761 player->scope = create_oscilloscope();
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	762 for (uint32_t i = 0; i < player->num_chips; i++)
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	763 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	764 player->chips[i].scope(player->chips + i, player->scope);
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	765 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	766 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	767 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	768 #endif
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	769 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	770
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	771 media_player alloc_media_player(system_media media, uint32_t opts)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	772 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	773 media_player *player = calloc(1, sizeof(media_player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	774 player->header.start_context = start_player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	775 player->header.resume_context = resume_player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	776 player->header.request_exit = request_exit;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	777 player->header.free_context = free_player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	778 player->header.gamepad_down = gamepad_down;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	779 player->header.gamepad_up = gamepad_down;
2374 97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	780 player->header.toggle_debug_view = toggle_debug_view;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	781 player->header.type = SYSTEM_MEDIA_PLAYER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	782 player->header.info.name = strdup(media->name);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	783
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	784 player->media = media;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	785 player->media_type = detect_media_type(media);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	786 player->state = STATE_PLAY;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	787 switch (player->media_type)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	788 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	789 case AUDIO_VGM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	790 vgm_init(player, opts);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	791 break;
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	792 case AUDIO_WAVE:
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	793 wave_player_init(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	794 break;
2296 789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	795 case AUDIO_FLAC:
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	796 flac_player_init(player);
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	797 break;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	798 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	799
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	800 return player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	801 }

Mercurial > repos > blastem

annotate mediaplayer.c @ 2374:97f164d1f0f6