Any C programmers wanna help convert code to convert between MIDI + CSV?

Code: (Select All)

Option Explicit

$NoPrefix

$Console:Only



Const WAVFILE_SAMPLES_PER_SECOND = 44100



Const SEEK_SET = 0



Type WAVFILE_HEADER

    As String * 4 riff_tag

    As Long riff_length

    As String * 4 wave_tag, fmt_tag

    As Long fmt_length

    As Integer audio_format, num_channels

    As Long sample_rate, byte_rate

    As Integer block_align, bits_per_sample

    As String * 4 data_tag

    As Long data_length

End Type



Declare CustomType Library

    Function fopen%& (filename As String, mode As String)

    Sub fwrite (ByVal buffer As Offset, Byval size As Offset, Byval count As Offset, Byval stream As Offset)

    Sub fflush (ByVal stream As Offset)

    Function ftell& (ByVal stream As Offset)

    Sub fseek (ByVal stream As Offset, Byval offset As Long, Byval origin As Long)

    Sub fclose (ByVal stream As Offset)

End Declare



Const NUM_SAMPLES = WAVFILE_SAMPLES_PER_SECOND * 2

Dim As Integer waveform(0 To NUM_SAMPLES - 1)

Dim As Double frequency: frequency = 440.0

Dim As Long volume: volume = 32000



Dim As Long i

For i = 0 To NUM_SAMPLES - 1

    Dim As Double t: t = i / WAVFILE_SAMPLES_PER_SECOND

    waveform(i) = volume * Sin(frequency * t * 2 * Pi)

Next



Dim As Offset f: f = wavfile_open("sound.wav")

wavfile_write f, waveform(), NUM_SAMPLES

wavfile_close f



Function wavfile_open%& (filename As String)

    Dim As WAVFILE_HEADER header

    Dim As Long samples_per_second: samples_per_second = WAVFILE_SAMPLES_PER_SECOND

    Dim As Long bits_per_sample: bits_per_sample = 16



    header.riff_tag = "RIFF"

    header.wave_tag = "WAVE"

    header.fmt_tag = "fmt "

    header.data_tag = "data"



    header.riff_length = 0

    header.fmt_length = 16

    header.audio_format = 1

    header.num_channels = 1

    header.sample_rate = samples_per_second

    header.byte_rate = samples_per_second * (bits_per_sample / 8)

    header.block_align = bits_per_sample / 8

    header.bits_per_sample = bits_per_sample

    header.data_length = 0



    Dim As Offset file: file = fopen(filename + Chr$(0), "wb+" + Chr$(0))

    If file = 0 Then Exit Function

    fwrite Offset(header), Len(header), 1, file



    fflush file



    wavfile_open = file

End Function



Sub wavfile_write (file As Offset, wav_data() As Integer, length As Long)

    fwrite Offset(wav_data()), 2, length, file

End Sub



Sub wavfile_close (file As Offset)

    Dim As Long file_length: file_length = ftell(file)

    Dim As WAVFILE_HEADER header



    Dim As Long data_length: data_length = file_length - Len(header)

    fseek file, Len(header) - 4, SEEK_SET

    fwrite Offset(data_length), Len(data_length), 1, file



    Dim As Long riff_length: riff_length = file_length - 8

    fseek file, 4, SEEK_SET

    fwrite Offset(riff_length), Len(riff_length), 1, file



    fclose file

End Sub

Code: (Select All)

Option Explicit

$NoPrefix

$Console:Only



Const WAVFILE_SAMPLES_PER_SECOND = 44100



Type WAVFILE_HEADER

    As String * 4 riff_tag

    As Long riff_length

    As String * 4 wave_tag, fmt_tag

    As Long fmt_length

    As Integer audio_format, num_channels

    As Long sample_rate, byte_rate

    As Integer block_align, bits_per_sample

    As String * 4 data_tag

    As Long data_length

End Type



Const NUM_SAMPLES = WAVFILE_SAMPLES_PER_SECOND * 2

Dim As Integer waveform(0 To NUM_SAMPLES - 1)

Dim As Double frequency: frequency = 440.0

Dim As Long volume: volume = 32000



Dim As Long i

For i = 0 To NUM_SAMPLES - 1

    Dim As Double t: t = i / WAVFILE_SAMPLES_PER_SECOND

    waveform(i) = volume * Sin(frequency * t * 2 * Pi)

Next



Dim As Long f: f = wavfile_open("sound.wav")

wavfile_write f, waveform()

wavfile_close f



Function wavfile_open& (filename As String)

    Dim As WAVFILE_HEADER header

    Dim As Long samples_per_second: samples_per_second = WAVFILE_SAMPLES_PER_SECOND

    Dim As Long bits_per_sample: bits_per_sample = 16



    header.riff_tag = "RIFF"

    header.wave_tag = "WAVE"

    header.fmt_tag = "fmt "

    header.data_tag = "data"



    header.riff_length = 0

    header.fmt_length = 16

    header.audio_format = 1

    header.num_channels = 1

    header.sample_rate = samples_per_second

    header.byte_rate = samples_per_second * (bits_per_sample / 8)

    header.block_align = bits_per_sample / 8

    header.bits_per_sample = bits_per_sample

    header.data_length = 0



    If FileExists(filename) Then Kill filename

    Dim As Long file: file = FreeFile

    Open "B", file, filename

    Put file, , header



    wavfile_open = file

End Function



Sub wavfile_write (file As Long, wav_data() As Integer)

    Put file, , wav_data()

End Sub



Sub wavfile_close (file As Long)

    Dim As Long file_length: file_length = LOF(file)

    Dim As WAVFILE_HEADER header



    Dim As Long data_length: data_length = file_length - Len(header)

    Put file, Len(header) - 3, data_length



    Dim As Long riff_length: riff_length = file_length - 8

    Put file, 5, riff_length



    Close file

End Sub