jurjen.ladeniusandClaude Opus 4.8
f3340e86c6
Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
86 lines
2.8 KiB
C
86 lines
2.8 KiB
C
// ────────────────────────────────────────────────────────────────────────────
|
|
// MSXgl example: play a single VGM produced by the MSX MML Music Generator
|
|
// (Claude → MML → VGM). Works with both PSG (AY-3-8910) and MSX-Music (YM2413)
|
|
// VGM files exported by the web app. Loops forever.
|
|
//
|
|
// Build (from MSXgl/projects/samples/, after copying these files there):
|
|
// bash build.sh s_mymusic
|
|
// Run (PSG): openmsx -machine C-BIOS_MSX2+ -cart out/s_mymusic.rom
|
|
// Run (MSX-Music): openmsx -machine C-BIOS_MSX2+ -ext fmpac -cart out/s_mymusic.rom
|
|
// ────────────────────────────────────────────────────────────────────────────
|
|
#include "msxgl.h"
|
|
#include "psg.h"
|
|
#include "vgm/vgm_player.h"
|
|
#if (VGM_USE_SCC)
|
|
#include "scc.h"
|
|
#endif
|
|
#if (VGM_USE_MSXMUSIC)
|
|
#include "msx-music.h"
|
|
#endif
|
|
#if (VGM_USE_MSXAUDIO)
|
|
#include "msx-audio.h"
|
|
#endif
|
|
|
|
// Your music, generated with: node tools/bin2c.mjs your.vgm music_vgm.h g_Music
|
|
#include "music_vgm.h"
|
|
|
|
#define MSX_GL "\x02\x03\x04\x05"
|
|
#include "font/font_mgl_sample8.h"
|
|
|
|
//-----------------------------------------------------------------------------
|
|
// Program entry point
|
|
void main()
|
|
{
|
|
// Screen
|
|
VDP_SetMode(VDP_MODE_SCREEN1);
|
|
VDP_SetColor2(COLOR_BLACK, COLOR_WHITE);
|
|
VDP_ClearVRAM();
|
|
VDP_EnableVBlank(TRUE);
|
|
|
|
// Init the chips the VGM player can drive (compiled in via VGM_USE_*)
|
|
#if (VGM_USE_SCC)
|
|
SCC_Initialize();
|
|
#endif
|
|
#if (VGM_USE_MSXMUSIC)
|
|
MSXMusic_Initialize();
|
|
#endif
|
|
#if (VGM_USE_MSXAUDIO)
|
|
MSXAudio_Initialize();
|
|
#endif
|
|
|
|
// Title
|
|
Print_SetTextFont(g_Font_MGL_Sample8, 1);
|
|
Print_DrawText(MSX_GL " MY MSX MUSIC");
|
|
Print_DrawLineH(0, 1, 32);
|
|
|
|
// Start playing (loop = TRUE) and report what the header decoded to
|
|
bool ok = VGM_Play(g_Music, TRUE);
|
|
|
|
Print_SetPosition(0, 3);
|
|
Print_DrawFormat("Header: %s\n", ok ? "OK" : "INVALID");
|
|
Print_DrawFormat("Version: %1x.%1x%1x\n",
|
|
(u8)(g_VGM_Header->Version >> 8) & 0xF,
|
|
(u8)(g_VGM_Header->Version >> 4) & 0xF,
|
|
(u8)(g_VGM_Header->Version) & 0xF);
|
|
Print_DrawFormat("PSG: %c\n", VGM_ContainsPSG() ? '\x0C' : '\x0B');
|
|
Print_DrawFormat("MSX-Mus: %c\n", VGM_ContainsMSXMusic() ? '\x0C' : '\x0B');
|
|
Print_DrawFormat("Size: %i bytes\n", (u16)sizeof(g_Music));
|
|
|
|
Print_SetPosition(0, 10);
|
|
Print_DrawText("Playing, looping...");
|
|
|
|
// Main loop: advance the player once per frame (60 Hz)
|
|
u8 anim = 0;
|
|
while (1)
|
|
{
|
|
Halt(); // wait for VBlank
|
|
VGM_Decode(); // play one frame of VGM
|
|
#if (PSG_ACCESS == PSG_INDIRECT)
|
|
PSG_Apply();
|
|
#endif
|
|
|
|
Print_SetPosition(31, 0);
|
|
Print_DrawChar("|/-\\"[(anim++ >> 3) & 3]);
|
|
}
|
|
}
|