repos/blastem: mediaplayer.c annotate

annotate mediaplayer.c @ 2376:1c09f5be285b

Very basic UI for media player

author	Michael Pavone <pavone@retrodev.com>
date	Fri, 17 Nov 2023 01:05:32 -0800
parents	02c04196c2da
children	30e59954eab9

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 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	25 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	26 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	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 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	30 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	31 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	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 void ym_adjust(chip_info *chip)
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 ym2612_context *ym = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	37 if (ym->current_cycle >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	38 uint32_t deduction = ym->current_cycle - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	39 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	40 ym->current_cycle -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	41 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	42 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	43
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	44 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	45 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	46 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	47 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	48
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_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	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 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	52 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	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
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	55 void psg_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	56 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	57 psg_context *psg = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	58 if (psg->cycles >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	59 uint32_t deduction = psg->cycles - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	60 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	61 psg->cycles -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	62 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	63 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	64
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	65 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	66 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	67 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	68 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	69
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_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	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_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	73 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	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
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	76 void pcm_adjust(chip_info *chip)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	77 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	78 rf5c164 *pcm = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	79 if (pcm->cycle >= MAX_NO_ADJUST) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	80 uint32_t deduction = pcm->cycle - ADJUST_BUFFER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	81 chip->samples -= cycles_to_samples(chip->clock, deduction);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	82 pcm->cycle -= deduction;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	83 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	84 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	85
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	86 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	87 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	88 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	89 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	90
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_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	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 *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	94 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	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
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	97 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	98 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	99 if (!head) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	100 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	101 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	102 while (head->size < offset) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	103 offset -= head->size;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	104 head = head->next;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	105 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	106 if (head->size - offset < size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	107 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	108 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	109 return head->data + offset;
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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	112 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	113 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	114 chip_info *chips = player->chips;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	115 uint32_t num_chips = player->num_chips;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	116 while (samples > MAX_RUN_SAMPLES)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	117 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	118 vgm_wait(player, MAX_RUN_SAMPLES);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	119 samples -= MAX_RUN_SAMPLES;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	120 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	121 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	122 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	123 chips[i].samples += samples;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	124 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	125 chips[i].adjust(chips + i);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	126 }
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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	129 void vgm_stop(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	130 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	131 player->state = STATE_PAUSED;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	132 player->playback_time = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	133 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	134 player->loop_count = 2;
2289 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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	137 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	138 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	139 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	140 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	141 if (player->chips[i].cmd == cmd) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	142 return player->chips + i;
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 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	145 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	146 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	147
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	148 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	149 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	150 chip_info *chip = find_chip(player, cmd);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	151 return chip ? chip->context : NULL;
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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	154 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	155 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	156 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	157 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	158 if (player->chips[i].data_type == data_type) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	159 return &player->chips[i];
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 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	162 return NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	163 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	164
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	165 static uint8_t read_byte(media_player *player)
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 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	168 return buffer[player->current_offset++];
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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	171 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	172 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	173 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	174 uint16_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	175 value \|= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	176 return value;
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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	179 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	180 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	181 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	182 uint32_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	183 value \|= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	184 value \|= buffer[player->current_offset++] << 16;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	185 return value;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	186 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	187
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	188 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	189 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	190 uint8_t *buffer = player->media->buffer;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	191 uint32_t value = buffer[player->current_offset++];
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	192 value \|= buffer[player->current_offset++] << 8;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	193 value \|= buffer[player->current_offset++] << 16;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	194 value \|= buffer[player->current_offset++] << 24;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	195 return value;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	196 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	197
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	198 void vgm_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	199 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	200 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	201 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	202 if (player->wait_samples) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	203 uint32_t to_wait = player->wait_samples;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	204 if (to_wait > remaining_samples) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	205 to_wait = remaining_samples;
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 vgm_wait(player, to_wait);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	208 player->wait_samples -= to_wait;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	209 remaining_samples -= to_wait;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	210 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	211 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	212 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	213 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	214 if (player->current_offset >= player->media->size) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	215 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	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 uint8_t cmd = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	219 psg_context *psg;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	220 ym2612_context *ym;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	221 rf5c164 *pcm;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	222 switch (cmd)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	223 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	224 case CMD_PSG_STEREO:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	225 psg = find_chip_context(player, CMD_PSG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	226 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	227 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	228 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	229 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	230 psg->pan = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	231 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	232 case CMD_PSG:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	233 psg = find_chip_context(player, CMD_PSG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	234 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	235 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	236 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	237 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	238 psg_write(psg, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	239 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	240 case CMD_YM2612_0:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	241 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	242 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	243 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	244 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	245 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	246 ym_address_write_part1(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	247 ym_data_write(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	248 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	249 case CMD_YM2612_1:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	250 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	251 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	252 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	253 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	254 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	255 ym_address_write_part2(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	256 ym_data_write(ym, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	257 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	258 case CMD_WAIT: {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	259 if (player->current_offset > player->media->size - 2) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	260 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	261 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	262 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	263 player->wait_samples += read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	264 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	265 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	266 case CMD_WAIT_60:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	267 player->wait_samples += 735;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	268 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	269 case CMD_WAIT_50:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	270 player->wait_samples += 882;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	271 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	272 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	273 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	274 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	275 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	276 // 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	277 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	278 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	279 }
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 } 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	281 //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	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 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	285 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	286 case CMD_PCM_WRITE: {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	287 if (player->current_offset > player->media->size - 11) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	288 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	289 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	290 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	291 player->current_offset++; //skip compatibility command
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	292 uint8_t data_type = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	293 uint32_t read_offset = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	294 uint32_t write_offset = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	295 uint16_t size = read_24_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	296 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	297 if (!chip \|\| !chip->blocks) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	298 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	299 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	300 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	301 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	302 if (!src) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	303 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	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 switch (data_type)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	307 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	308 case DATA_RF5C68:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	309 case DATA_RF5C164:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	310 pcm = chip->context;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	311 write_offset \|= pcm->ram_bank;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	312 write_offset &= 0xFFFF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	313 if (size + write_offset > 0x10000) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	314 size = 0x10000 - write_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	315 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	316 memcpy(pcm->ram + write_offset, src, size);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	317 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	318 default:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	319 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	320 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	321 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	322 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	323 case CMD_PCM68_REG:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	324 pcm = find_chip_context(player, CMD_PCM68_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	325 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	326 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	327 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	328 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	329 uint8_t reg = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	330 uint8_t value = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	331 rf5c164_write(pcm, reg, value);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	332 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	333 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	334 case CMD_PCM164_REG:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	335 pcm = find_chip_context(player, CMD_PCM164_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	336 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	337 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	338 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	339 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	340 uint8_t reg = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	341 uint8_t value = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	342 rf5c164_write(pcm, reg, value);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	343 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	344 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	345 case CMD_PCM68_RAM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	346 pcm = find_chip_context(player, CMD_PCM68_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	347 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	348 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	349 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	350 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	351 uint16_t address = read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	352 address &= 0xFFF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	353 address \|= 0x1000;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	354 rf5c164_write(pcm, address, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	355 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	356 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	357 case CMD_PCM164_RAM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	358 pcm = find_chip_context(player, CMD_PCM164_REG);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	359 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	360 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	361 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	362 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	363 uint16_t address = read_word_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	364 address &= 0xFFF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	365 address \|= 0x1000;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	366 rf5c164_write(pcm, address, read_byte(player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	367 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	368 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	369 case CMD_DATA:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	370 if (player->current_offset > player->media->size - 6) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	371 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	372 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	373 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	374 player->current_offset++; //skip compat command
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	375 uint8_t data_type = read_byte(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	376 uint32_t data_size = read_long_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	377 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	378 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	379 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	380 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	381 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	382 if (chip) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	383 data_block **cur = &(chip->blocks);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	384 while (*cur)
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 cur = &((*cur)->next);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	387 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	388 *cur = calloc(1, sizeof(data_block));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	389 (*cur)->size = data_size;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	390 (*cur)->type = data_type;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	391 (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	392 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	393 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	394 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	395 player->current_offset += data_size;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	396 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	397 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	398 case CMD_DATA_SEEK:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	399 if (player->current_offset > player->media->size - 4) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	400 vgm_stop(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	401 return;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	402 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	403 uint32_t new_offset = read_long_le(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	404 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	405 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	406 if (!chip) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	407 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	408 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	409 player->ym_seek_block = chip->blocks;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	410 player->ym_seek_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	411 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	412 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	413 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	414 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	415 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	416 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	417 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	418 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	419 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	420 player->ym_seek_offset = new_offset;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	421 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	422 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	423 default:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	424 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	425 uint32_t wait_time = (cmd & 0xF) + 1;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	426 player->wait_samples += wait_time;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	427 } 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	428 if (player->ym_seek_block) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	429 ym = find_chip_context(player, CMD_YM2612_0);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	430 ym_address_write_part1(ym, 0x2A);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	431 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	432 player->ym_seek_offset++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	433 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	434 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	435 player->ym_block_offset = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	436 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	437 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	438 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	439 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	440 player->wait_samples += cmd & 0xF;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	441 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	442 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	443 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	444 goto frame_end;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	445 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	446 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	447 }
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	448 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	449 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	450 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	451 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	452 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	453
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	454 void wave_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	455 {
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	456 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	457 {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	458 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	459 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	460 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	461 player->state = STATE_PAUSED;
2376 1c09f5be285b Very basic UI for media player Michael Pavone <pavone@retrodev.com> parents: 2375 diff changeset	462 player->playback_time = 0;
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	463 return;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	464 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	465 if (player->wave->bits_per_sample == 16) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	466 int16_t value = read_word_le(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	467 if (player->wave->num_channels == 1) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	468 render_put_mono_sample(player->audio, value);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	469 } else {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	470 int16_t right = read_word_le(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	471 render_put_stereo_sample(player->audio, value, right);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	472 }
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 uint8_t sample = read_byte(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	475 int16_t value = sample * 257 - 128 * 257;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	476 if (player->wave->num_channels == 1) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	477 render_put_mono_sample(player->audio, value);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	478 } else {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	479 sample = read_byte(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	480 int16_t right = sample * 257 - 128 * 257;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	481 render_put_stereo_sample(player->audio, value, right);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	482 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	483 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	484
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	485 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	486 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	487
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	488 void flac_frame(media_player *player)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	489 {
2296 789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	490 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	491 {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	492 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	493 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	494 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	495 } else {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	496 player->state = STATE_PAUSED;
2376 1c09f5be285b Very basic UI for media player Michael Pavone <pavone@retrodev.com> parents: 2375 diff changeset	497 player->playback_time = 0;
2296 789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	498 return;
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	499 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	500 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	501 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	502
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	503 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	504 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	505 player->vgm = calloc(1, sizeof(vgm_header));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	506 player->vgm_ext = NULL;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	507 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	508 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	509 player->vgm->data_offset = 0xC;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	510 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	511 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	512 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	513 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	514 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	515 player->vgm->ym2612_clk = player->vgm->ym2413_clk;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	516 player->vgm->ym2413_clk = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	517 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	518 if (player->vgm->data_offset > 0xC) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	519 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	520 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	521 if (additional_header > sizeof(vgm_extended_header)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	522 additional_header = sizeof(vgm_extended_header);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	523 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	524 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	525 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	526 player->num_chips = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	527 if (player->vgm->sn76489_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	528 player->num_chips++;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	529 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	530 if (player->vgm->ym2612_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_ext && player->vgm_ext->rf5c68_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->rf5c164_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 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	540 uint32_t chip = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	541 if (player->vgm->ym2612_clk) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	542 ym2612_context *ym = calloc(1, sizeof(ym2612_context));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	543 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	544 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	545 .context = ym,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	546 .run = (chip_run_fun)ym_run,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	547 .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	548 .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	549 .no_scope = ym_no_scope,
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	550 .clock = player->vgm->ym2612_clk,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	551 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	552 .cmd = CMD_YM2612_0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	553 .data_type = DATA_YM2612_PCM
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	554 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	555 }
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	556 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	557 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	558 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	559 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	560 .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	561 .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	562 .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	563 .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	564 .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	565 .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	566 .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	567 .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	568 .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	569 };
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 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	571 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	572 rf5c164 *pcm = calloc(1, sizeof(rf5c164));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	573 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	574 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	575 .context = pcm,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	576 .run = (chip_run_fun)rf5c164_run,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	577 .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	578 .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	579 .no_scope = pcm_no_scope,
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	580 .clock = player->vgm_ext->rf5c68_clk,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	581 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	582 .cmd = CMD_PCM68_REG,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	583 .data_type = DATA_RF5C68
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	584 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	585 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	586 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	587 rf5c164 *pcm = calloc(1, sizeof(rf5c164));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	588 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	589 player->chips[chip++] = (chip_info) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	590 .context = pcm,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	591 .run = (chip_run_fun)rf5c164_run,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	592 .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	593 .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	594 .no_scope = pcm_no_scope,
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	595 .clock = player->vgm_ext->rf5c164_clk,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	596 .samples = 0,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	597 .cmd = CMD_PCM164_REG,
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	598 .data_type = DATA_RF5C164
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	599 };
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	600 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	601 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	602 player->loop_count = 2;
2289 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
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	605 static void wave_player_init(media_player *player)
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	606 {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	607 player->wave = calloc(1, sizeof(wave_header));
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	608 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	609 if (memcmp(player->wave->chunk.format, "WAVE", 4)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	610 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	611 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	612 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	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 (memcmp(player->wave->format_header.id, "fmt ", 4)) {
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 (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	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->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	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 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	625 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	626 goto format_error;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	627 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	628 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	629 player->current_offset = data_sub_chunk;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	630 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	631 return;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	632 format_error:
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	633 player->media_type = MEDIA_UNKNOWN;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	634 free(player->wave);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	635 }
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	636
2296 789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	637 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	638 {
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	639 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	640 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	641 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	642 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	643 }
789802d99629 Add basic FLAC decoder and add FLAC playback support to the media player Michael Pavone <pavone@retrodev.com> parents: 2290 diff changeset	644
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	645 static void resume_player(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	646 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	647 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	648 player->should_return = 0;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	649 while (!player->header.should_exit && !player->should_return)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	650 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	651 switch (player->state)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	652 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	653 case STATE_PLAY:
2376 1c09f5be285b Very basic UI for media player Michael Pavone <pavone@retrodev.com> parents: 2375 diff changeset	654 player->playback_time++;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	655 switch(player->media_type)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	656 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	657 case AUDIO_VGM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	658 vgm_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	659 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	660 case AUDIO_WAVE:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	661 wave_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	662 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	663 case AUDIO_FLAC:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	664 flac_frame(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	665 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	666 }
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 case STATE_PAUSED:
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	669 #ifndef IS_LIB
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	670 render_sleep_ms(15);
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	671 #endif
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	672 break;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	673 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	674 //TODO: Fix this for libretro build properly
0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	675 #ifndef IS_LIB
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	676 render_update_display();
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2296 diff changeset	677 #endif
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	678 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	679 }
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 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	682 {
2375 02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	683 if (pad != 1) {
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	684 return;
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	685 }
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	686 media_player player = (media_player )system;
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	687 if (player->button_state[button]) {
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	688 //already pressed
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	689 return;
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	690 }
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	691 player->button_state[button] = 1;
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	692 if (button == BUTTON_A \|\| button == BUTTON_C \|\| button == BUTTON_START) {
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	693 if (player->state == STATE_PAUSED) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	694 player->state = STATE_PLAY;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	695 puts("Now playing");
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	696 } else {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	697 player->state = STATE_PAUSED;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	698 puts("Now paused");
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 }
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 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	704 {
2375 02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	705 if (pad != 1) {
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	706 return;
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	707 }
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	708 media_player player = (media_player )system;
02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	709 player->button_state[button] = 0;
2289 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
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	712 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	713 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	714 resume_player(system);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	715 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	716
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	717 static void free_player(system_header *system)
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 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	720 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	721 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	722 //TODO properly free chips
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	723 free(player->chips[i].context);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	724 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	725 free(player->chips);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	726 free(player->vgm);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	727 free(player);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	728 }
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 uint8_t detect_media_type(system_media *media)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	731 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	732 if (media->size < 4) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	733 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	734 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	735 if (!memcmp(media->buffer, "Vgm ", 4)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	736 if (media->size < sizeof(vgm_header)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	737 return MEDIA_UNKNOWN;
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 AUDIO_VGM;
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 if (!memcmp(media->buffer, "RIFF", 4)) {
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	742 if (media->size < sizeof(wave_header)) {
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	743 return MEDIA_UNKNOWN;
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	744 }
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	745 return AUDIO_WAVE;
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 if (!memcmp(media->buffer, "fLaC", 4)) {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	748 return AUDIO_FLAC;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	749 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	750 return MEDIA_UNKNOWN;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	751 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	752
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	753 static void request_exit(system_header *system)
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	754 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	755 media_player player = (media_player )system;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	756 player->should_return = 1;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	757 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	758
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	759 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	760 {
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 #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	762 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	763 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	764 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	765 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	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 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	768 }
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 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	770 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	771 } 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	772 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	773 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	774 {
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	775 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	776 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	777 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	778 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	779 #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	780 }
97f164d1f0f6 Re-enable VGM looping. Enable oscilloscope in VGM player. Fix VGM player PSG output Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	781
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	782 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	783 {
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	784 media_player *player = calloc(1, sizeof(media_player));
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	785 player->header.start_context = start_player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	786 player->header.resume_context = resume_player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	787 player->header.request_exit = request_exit;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	788 player->header.free_context = free_player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	789 player->header.gamepad_down = gamepad_down;
2375 02c04196c2da Fix mediaplayer play/pause handling Michael Pavone <pavone@retrodev.com> parents: 2374 diff changeset	790 player->header.gamepad_up = gamepad_up;
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	791 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	792 player->header.type = SYSTEM_MEDIA_PLAYER;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	793 player->header.info.name = strdup(media->name);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	794
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	795 player->media = media;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	796 player->media_type = detect_media_type(media);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	797 player->state = STATE_PLAY;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	798 switch (player->media_type)
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 case AUDIO_VGM:
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	801 vgm_init(player, opts);
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	802 break;
2290 c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	803 case AUDIO_WAVE:
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	804 wave_player_init(player);
c4980d89614b Support WAVE files in media player Michael Pavone <pavone@retrodev.com> parents: 2289 diff changeset	805 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	806 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	807 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	808 break;
2289 92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	809 }
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	810
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	811 return player;
92449b47cce8 Integrate VGM player into main blastem binary Michael Pavone <pavone@retrodev.com> parents: diff changeset	812 }

Mercurial > repos > blastem

annotate mediaplayer.c @ 2376:1c09f5be285b