From 4e5db6aef938106eb6de89b5d61c5c5ad110fa38 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 23 Aug 2020 12:36:39 +0100 Subject: dump a soundfound as a C header --- esp32/soundfont2-to-c-header | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 esp32/soundfont2-to-c-header diff --git a/esp32/soundfont2-to-c-header b/esp32/soundfont2-to-c-header new file mode 100644 index 0000000..51b4cea --- /dev/null +++ b/esp32/soundfont2-to-c-header @@ -0,0 +1,23 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +open my $sf, '<:raw', $ARGV[0] + or die "give me a readable sf2 file\n"; + +open my $ch, '>', $ARGV[1] + or die "give me a writable h file\n"; + +my $data = do { local $/; <$sf> }; + +print $ch "const static unsigned char SoundFont[] PROGMEM = {\n"; + +for my $i ( 0 .. length($data) ) { + my $v = substr($data,$i,1); + printf $ch "0x%02x,",ord($v); + if ($i%16 == 15) { + print $ch "\n"; + } +} + +print $ch "\n};\n"; -- cgit v1.2.3