XM patterns for ImHex

xm_tracker.pat

#include "std/core.pat"

struct XMHeader {
    char module_head[0x11];
    char module_name[0x14];
    padding[1];
    char tracker_name[0x14];
    u8 version_min;
    u8 version_maj;
};

struct SongHeader {
    u32 header_size;
    u16 song_length;
    u16 restart_pos;
    u16 channel_num;
    u16 pattern_num;
    u16 instrument_num;
    u16 song_flags;
    u16 default_tempo;
    u16 default_bpm;
    u8 pattern_order_table[song_length];
    padding[0x100 - song_length];
};

struct PatternSection {
    u32 header_size;
    padding[1];
    u16 row_num;
    u16 data_size;
    u8 data[data_size];
};

struct InstrumentHeader {
    u32 header_size;
    char instrument_name[0x16];
    u8 instrument_type;
    u16 sample_num;
};

struct InstrumentEnvelopePoint {
    u16 x, y;
};

struct InstrumentExtraHeader {
    u32 sample_header_size;
    u8 note_numbers[0x60];
    InstrumentEnvelopePoint volume_points[0x0C];
    InstrumentEnvelopePoint panning_points[0x0C];
    u8 number_of_volume_points;
    u8 number_of_panning_points;
    u8 volume_sustain_point;
    u8 volume_loop_start_point;
    u8 volume_loop_end_point;
    u8 panning_sustain_point;
    u8 panning_loop_start_point;
    u8 panning_loop_end_point;
    u8 volume_type;
    u8 panning_type;
    u8 vibrato_type;
    u8 vibrato_sweep;
    u8 vibrato_depth;
    u8 vibrato_rate;
    u16 volume_fadeout;
};

struct SampleHeader {
    u32 sample_length;
    u32 loop_start;
    u32 loop_length;
    u8 volume;
    u8 finetune;
    u8 flags;
    u8 panning;
    u8 relative_note;
    padding[1];
    char sample_name[0x16];
};

struct SampleData {
    u8 data[parent.sample_header[std::core::array_index()].sample_length];
};

struct InstrumentSection {
    InstrumentHeader header;
    u32 extra_header_size = header.header_size - sizeof(header);
    
    if (header.sample_num > 0) {
        InstrumentExtraHeader extra_header;
        padding[extra_header_size - sizeof(extra_header)];
        SampleHeader sample_header[header.sample_num];
        SampleData sample_data[header.sample_num];
    }
};

XMHeader xm_header @ 0x00;
SongHeader song_header @ 0x3C;

PatternSection xm_patterns[song_header.pattern_num] @ $;
InstrumentSection xm_instruments[song_header.instrument_num] @ $;