Convert Sound Into String Data? (for media-less sound/music)

Author

Message

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 21st Jun 2012 21:18

Link

I was really impressed with Jukuma's "Pac Man":
http://forum.thegamecreators.com/?m=forum_view&t=174784&b=6

Especially the way he created music from strings of data!

(Looks like Hexadecimal to me...??)

Does DBPro have the ability to reverse-engineer sound in this way?
In other words, to load a WAV file and then dump it all into a string file..???

Thanks in advance.

D.D.

Back to top

Profile PM

Fallout

23

Years of Service

User Offline

Joined: 1st Sep 2002

Location: Basingstoke, England

Posted: 21st Jun 2012 22:09

Link

There's a MAKE MEMBLOCK FROM SOUND command, so with that you have access to all the bytes of data and can manipulate it in anyway you wish. You could change each byte into two hexadecimal characters if you wanted to.

Back to top

Profile PM

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 22nd Jun 2012 00:29

Link

by going byte by byte you can get whatever you want

Back to top

Profile PM Email Website

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 22nd Jun 2012 00:34

Link

honestly, his project is really good.

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 22nd Jun 2012 02:21 Edited at: 22nd Jun 2012 02:22

Link

@Derek Darkly

Quote: "Does DBPro have the ability to reverse-engineer sound in this way?
In other words, to load a WAV file and then dump it all into a string file..???

Thanks in advance."

This isn't really whats going on in the pac man example. The data statements are actually a HEX dump of a midi file. The midi file can be prepared ahead of time by what ever means, then one can use just about any hex editor and dump the file to text. I think it's very clever that Jukuma did that.

You then save your data statements (in this case stings) converted back to binary in a file thus recreating the midi file.

Here's a small dump of the "Close Encounters" communication:

+ Code Snippet

_close:
data "4d54686400000006000000"
data "0103c04d54726b0000006e"
data "00c05700ff5902000000ff"
data "510307a12000903e7f8740"
data "803e000090407f87408040"
data "0000903c7f8740803c0000"
data "90307f8740803000009037"
data "7f9e008037000090327f87"
data "408032000090347f874080"
data "34000090307f8740803000"
data "0090247f87408024000090"
data "2b7f9e00802b0000ff2f00"
data "EOF"

Each byte in the actual midi file is 2 string bytes. The first byte to convert is 4d = 77 .

When you convert all of the string bytes and save them to a file, you rebuild the midi file. Since midi files are very small (much smaller than wav or mp3 or ogg) you can feasibly have a decent sized song stored as data statements.

Enjoy your day.

Back to top

Profile PM

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 22nd Jun 2012 05:08 Edited at: 22nd Jun 2012 05:16

Link

Quote: "The data statements are actually a HEX dump of a midi file. "

Ah, so midi music is the way to go for self-contained tunes...
(And perhaps short WAVs?) I'm really digging the whole concept.

D.D.

Back to top

Profile PM

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 22nd Jun 2012 06:56 Edited at: 22nd Jun 2012 19:34

Link

I think I've got the hang of it, check me out...

open to write 1,"new.mus"
repeat
read i
if i<>7777 then write byte 1, i
until i=7777
close file 1
load music "new.mus",1
play music 1
wait key
data 77,84,104,100,0,0,0,6,0,1,0,11,0,240,77,84,114,107,0,0
data 0,19,0,255,88,4,4,2,24,8,0,255,81,3,8,102,59,0,255,47,0
data 77,84,114,107,0,0,0,88,0,255,1,4,66,65,83,83,0,192,36,11
data 192,33,64,144,52,127,49,128,52,64,119,144,50,127,50,128,50
data 64,129,13,144,46,127,46,128,46,64,11,144,45,122,51,128,45
data 64,2,144,43,127,63,128,43,64,129,94,144,36,127,72,128,36,64
data 8,144,37,127,41,192,36,19,128,37,64,48,144,28,127,129,1,128
data 28,64,0,255,47,0,77,84,114,107,0,0,0,147,0,255,1,6,71,85,73
data 84,65,82,0,193,26,0,177,7,87,93,145,74,122,9,225,0,66,6,225
data 0,73,5,225,0,81,7,225,0,90,6,225,0,103,7,225,0,112,6,225,0
data 119,4,129,74,64,68,225,0,64,34,145,74,121,48,129,74,64,129
data 2,225,0,67,0,145,69,98,6,225,0,75,6,225,0,82,6,225,0,86,7
data 225,0,89,7,225,0,92,19,225,0,88,5,225,0,80,7,225,0,64,58,145
data 67,116,3,129,69,64,46,129,67,64,129,112,145,60,95,66,129,60,64
data 3,145,61,91,56,129,61,64,55,145,64,95,64,129,64,64,0,255,47,0,77
data 84,114,107,0,0,0,82,0,255,1,5,66,82,65,83,83,0,195,61,86,147,79
data 127,44,131,79,64,126,147,76,127,41,131,76,64,129,2,147,70,126,52
data 131,70,64,3,147,69,127,55,131,69,64,6,147,67,127,52,131,67,64,129
data 108,147,72,127,56,131,72,64,8,147,73,127,52,131,73,64,64,147,76,127
data 70,131,76,64,0,255,47,0,77,84,114,107,0,0,0,101,0,255,1,8,65,76,84,79
data 32,83,65,88,0,196,65,82,148,74,121,45,132,74,64,117,148,71,122,46,132
data 71,64,129,10,148,67,117,44,132,67,64,6,148,66,111,58,132,66,64,2,148
data 64,117,55,132,64,64,129,113,148,60,106,64,148,61,106,8,132,60,64,40,132
data 61,64,65,148,67,103,0,148,70,104,1,148,62,97,87,132,62,64,0,132,67,64,3
data 132,70,64,0,255,47,0,77,84,114,107,0,0,0,89,0,255,1,12,66,65,82,73,84,79
data 78,69,32,83,65,88,0,197,67,82,149,52,116,55,133,52,64,111,149,50,111,44
data 133,50,64,129,1,149,46,109,44,133,46,64,11,149,45,103,53,133,45,64,12,149
data 43,109,58,133,43,64,129,113,149,38,112,42,133,38,64,18,149,39,103,61,133
data 39,64,49,149,40,117,66,133,40,64,0,255,47,0,77,84,114,107,0,0,0,94,0,255
data 1,9,84,69,78,79,82,32,83,65,88,0,198,66,85,150,71,106,49,134,71,64,113,150
data 69,107,48,134,69,64,129,2,150,62,92,59,150,63,100,2,134,62,64,59,150,64,100
data 4,134,63,64,60,134,64,64,129,92,150,54,98,58,134,54,64,5,150,53,91,53,134,53
data 64,72,150,52,103,0,150,56,109,83,134,56,64,1,134,52,64,0,255,47,0,77,84,114,107
data 0,0,0,100,0,255,1,5,68,114,117,109,115,0,201,0,73,153,43,127,31,137,43,64,129,15
data 153,45,127,37,137,45,64,129,0,153,48,124,34,137,48,64,33,153,47,127,32,137,47,64
data 38,153,45,127,34,137,45,64,129,116,153,40,111,44,137,40,64,25,153,40,127,65,137
data 40,64,58,153,46,127,6,153,35,127,16,153,42,127,27,137,46,64,129,26,137,35,64,13
data 137,42,64,0,255,47,0,77,84,114,107,0,0,0,98,0,255,1,6,68,82,85,77,83,50,73,159,43
data 127,31,143,43,64,129,15,159,45,127,37,143,45,64,129,0,159,48,124,34,143,48,64,33,159
data 47,127,32,143,47,64,38,159,45,127,34,143,45,64,129,116,159,40,111,44,143,40,64,25,159
data 40,127,65,143,40,64,58,159,46,127,6,159,35,127,16,159,42,127,27,143,46,64,129,26,143
data 35,64,13,143,42,64,0,255,47,0,77,84,114,107,0,0,0,89,0,255,1,5,66,65,83,83,50,0,204,36
data 11,204,33,64,156,52,127,49,140,52,64,119,156,50,127,50,140,50,64,129,13,156,46,127,46
data 140,46,64,11,156,45,122,51,140,45,64,2,156,43,127,63,140,43,64,129,94,156,36,127,72,140
data 36,64,8,156,37,127,41,204,36,19,140,37,64,48,156,28,127,129,1,140,28,64,0,255,47,0,77,84
data 114,107,0,0,0,83,0,255,1,6,66,82,65,83,83,50,0,206,61,86,158,79,127,44,142,79,64,126,158
data 76,127,41,142,76,64,129,2,158,70,126,52,142,70,64,3,158,69,127,55,142,69,64,6,158,67,127
data 52,142,67,64,129,108,158,72,127,56,142,72,64,8,158,73,127,52,142,73,64,64,158,76,127,70,142
data 76,64,0,255,47,0,7777

+ Code Snippet

open to write 1,"new.mus"
repeat
read i
if i<>7777 then write byte 1, i
until i=7777
close file 1
load music "new.mus",1
play music 1
wait key
data 77,84,104,100,0,0,0,6,0,1,0,11,0,240,77,84,114,107,0,0
data 0,19,0,255,88,4,4,2,24,8,0,255,81,3,8,102,59,0,255,47,0
data 77,84,114,107,0,0,0,88,0,255,1,4,66,65,83,83,0,192,36,11
data 192,33,64,144,52,127,49,128,52,64,119,144,50,127,50,128,50
data 64,129,13,144,46,127,46,128,46,64,11,144,45,122,51,128,45
data 64,2,144,43,127,63,128,43,64,129,94,144,36,127,72,128,36,64
data 8,144,37,127,41,192,36,19,128,37,64,48,144,28,127,129,1,128
data 28,64,0,255,47,0,77,84,114,107,0,0,0,147,0,255,1,6,71,85,73
data 84,65,82,0,193,26,0,177,7,87,93,145,74,122,9,225,0,66,6,225
data 0,73,5,225,0,81,7,225,0,90,6,225,0,103,7,225,0,112,6,225,0
data 119,4,129,74,64,68,225,0,64,34,145,74,121,48,129,74,64,129
data 2,225,0,67,0,145,69,98,6,225,0,75,6,225,0,82,6,225,0,86,7
data 225,0,89,7,225,0,92,19,225,0,88,5,225,0,80,7,225,0,64,58,145
data 67,116,3,129,69,64,46,129,67,64,129,112,145,60,95,66,129,60,64
data 3,145,61,91,56,129,61,64,55,145,64,95,64,129,64,64,0,255,47,0,77
data 84,114,107,0,0,0,82,0,255,1,5,66,82,65,83,83,0,195,61,86,147,79
data 127,44,131,79,64,126,147,76,127,41,131,76,64,129,2,147,70,126,52
data 131,70,64,3,147,69,127,55,131,69,64,6,147,67,127,52,131,67,64,129
data 108,147,72,127,56,131,72,64,8,147,73,127,52,131,73,64,64,147,76,127
data 70,131,76,64,0,255,47,0,77,84,114,107,0,0,0,101,0,255,1,8,65,76,84,79
data 32,83,65,88,0,196,65,82,148,74,121,45,132,74,64,117,148,71,122,46,132
data 71,64,129,10,148,67,117,44,132,67,64,6,148,66,111,58,132,66,64,2,148
data 64,117,55,132,64,64,129,113,148,60,106,64,148,61,106,8,132,60,64,40,132
data 61,64,65,148,67,103,0,148,70,104,1,148,62,97,87,132,62,64,0,132,67,64,3
data 132,70,64,0,255,47,0,77,84,114,107,0,0,0,89,0,255,1,12,66,65,82,73,84,79
data 78,69,32,83,65,88,0,197,67,82,149,52,116,55,133,52,64,111,149,50,111,44
data 133,50,64,129,1,149,46,109,44,133,46,64,11,149,45,103,53,133,45,64,12,149
data 43,109,58,133,43,64,129,113,149,38,112,42,133,38,64,18,149,39,103,61,133
data 39,64,49,149,40,117,66,133,40,64,0,255,47,0,77,84,114,107,0,0,0,94,0,255
data 1,9,84,69,78,79,82,32,83,65,88,0,198,66,85,150,71,106,49,134,71,64,113,150
data 69,107,48,134,69,64,129,2,150,62,92,59,150,63,100,2,134,62,64,59,150,64,100
data 4,134,63,64,60,134,64,64,129,92,150,54,98,58,134,54,64,5,150,53,91,53,134,53
data 64,72,150,52,103,0,150,56,109,83,134,56,64,1,134,52,64,0,255,47,0,77,84,114,107
data 0,0,0,100,0,255,1,5,68,114,117,109,115,0,201,0,73,153,43,127,31,137,43,64,129,15
data 153,45,127,37,137,45,64,129,0,153,48,124,34,137,48,64,33,153,47,127,32,137,47,64
data 38,153,45,127,34,137,45,64,129,116,153,40,111,44,137,40,64,25,153,40,127,65,137
data 40,64,58,153,46,127,6,153,35,127,16,153,42,127,27,137,46,64,129,26,137,35,64,13
data 137,42,64,0,255,47,0,77,84,114,107,0,0,0,98,0,255,1,6,68,82,85,77,83,50,73,159,43
data 127,31,143,43,64,129,15,159,45,127,37,143,45,64,129,0,159,48,124,34,143,48,64,33,159
data 47,127,32,143,47,64,38,159,45,127,34,143,45,64,129,116,159,40,111,44,143,40,64,25,159
data 40,127,65,143,40,64,58,159,46,127,6,159,35,127,16,159,42,127,27,143,46,64,129,26,143
data 35,64,13,143,42,64,0,255,47,0,77,84,114,107,0,0,0,89,0,255,1,5,66,65,83,83,50,0,204,36
data 11,204,33,64,156,52,127,49,140,52,64,119,156,50,127,50,140,50,64,129,13,156,46,127,46
data 140,46,64,11,156,45,122,51,140,45,64,2,156,43,127,63,140,43,64,129,94,156,36,127,72,140
data 36,64,8,156,37,127,41,204,36,19,140,37,64,48,156,28,127,129,1,140,28,64,0,255,47,0,77,84
data 114,107,0,0,0,83,0,255,1,6,66,82,65,83,83,50,0,206,61,86,158,79,127,44,142,79,64,126,158
data 76,127,41,142,76,64,129,2,158,70,126,52,142,70,64,3,158,69,127,55,142,69,64,6,158,67,127
data 52,142,67,64,129,108,158,72,127,56,142,72,64,8,158,73,127,52,142,73,64,64,158,76,127,70,142
data 76,64,0,255,47,0,7777

D.D.

Back to top

Profile PM

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 22nd Jun 2012 10:59

Link

Thanks guys but how to get the notes such as: do re me ........

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 22nd Jun 2012 11:37

Link

Quote: "I think I've got the hang of it, check me out..."

Hey, pretty cool! What's interesting about using a single string of hex values, is the size it saves in the data statements. 4 byte entries look like

data "4d546864"

as opposed to the decimal equivalent of

data 77,84,104,100

So with a larger file, you can really squeeze in more data by using the hex dump. You just have to convert the bytes at run time so it might be a slight trade off between data statement style and saving/loading time.

@basjak

Quote: "Thanks guys but how to get the notes such as: do re me ........"

With what we've been talking about, you have to make the midi file ahead of time. That means your file is already built with the notes in it. You can use a lot of different tools to do it. Anvil Studio is pretty good and I think there's a free limited version. Once you have a midi file, you use a hex editor or some other tool to convert the midi file to raw data to be used in your data statements.

If you are talking about creating the notes from scratch, then you'd have to know the midi specification/format if you wanted to use midi. If you wanted to create general "sound" then you need a little knowledge about wave forms and such. You could build your own sound generator by using a memblock and converting that data to a DB sound.

Enjoy your day.

Back to top

Profile PM

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 22nd Jun 2012 13:06

Link

Weird... After reading this over the last few days and thinking about the days on the Atari ST and converting files to data statements I thought I'd do that for you...

Here's a code snippet that converts an input file to a DBP include file of data statements:

//
// convert a file to data statements
//

file_in$  = "myfile"
file_out$ = "myinclude.dba"

// label to add at the header of the data statements

data_label$  = "mylabel:"

// string to add at the footer of the data statments

data_footer$ = "data -1"

// number of bytes per line of data

line_count = 20

line_curr = 0

if file exist( file_in$ )

if file exist( file_out$ ) then delete file file_out$
    
    file_size = file size( file_in$ )

open to read  1, file_in$
    open to write 2, file_out$
    
    line_str$ = data_label$
    
    while file end( 1 ) = 0
        
        // write out the data statement string now?
        
        if line_curr = 0
            write string 2, line_str$
            
            // reset the byte count and the string
            
            line_curr = line_count
            line_str$ = "data "
        endif
        
        read byte 1, temp
        
        line_str$ = line_str$ + str$( temp )
        
        dec line_curr
        
        // add the comman if we're still reading bytes for this line
        
        if line_curr > 0
            line_str$ = line_str$ + ", "
        endif
        
    ENDWHILE
    
    // check if a string still needs writing
    
    if len( line_str$ )
        write string 2, line_str$
    endif
    
    // write the footer string
    
    write string 2, data_footer$
    
    close file 2
    close file 1
    
endif

+ Code Snippet

//
// convert a file to data statements
//

file_in$  = "myfile"
file_out$ = "myinclude.dba"

// label to add at the header of the data statements

data_label$  = "mylabel:"

// string to add at the footer of the data statments

data_footer$ = "data -1"

// number of bytes per line of data

line_count = 20

line_curr = 0

if file exist( file_in$ )

    if file exist( file_out$ ) then delete file file_out$
    
    file_size = file size( file_in$ )

    open to read  1, file_in$
    open to write 2, file_out$
    
    line_str$ = data_label$
    
    while file end( 1 ) = 0
        
        // write out the data statement string now?
        
        if line_curr = 0
            write string 2, line_str$
            
            // reset the byte count and the string
            
            line_curr = line_count
            line_str$ = "data "
        endif
        
        read byte 1, temp
        
        line_str$ = line_str$ + str$( temp )
        
        dec line_curr
        
        // add the comman if we're still reading bytes for this line
        
        if line_curr > 0
            line_str$ = line_str$ + ", "
        endif
        
    ENDWHILE
    
    // check if a string still needs writing
    
    if len( line_str$ )
        write string 2, line_str$
    endif
    
    // write the footer string
    
    write string 2, data_footer$
    
    close file 2
    close file 1
    
endif

Fingers crossed that it's correct...

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

Back to top

Profile PM Email Website

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 22nd Jun 2012 15:34

Link

amazing. sometimes things are in our hands but we don't see it.

Back to top

Profile PM Email Website

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 22nd Jun 2012 19:39

Link

@Latch

Quote: "Hey, pretty cool! What's interesting about using a single string of hex values, is the size it saves in the data statements. 4 byte entries look like

data "4d546864"

as opposed to the decimal equivalent of

data 77,84,104,100"

Great point!

I'll try it that way in the little mini-game I'm working on.

D.D.

Back to top

Profile PM

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 22nd Jun 2012 19:43

Link

@basjak

Quote: "Thanks guys but how to get the notes such as: do re me ........"

What I did was open a pre-made MIDI file and then when each byte was read, I re-wrote it as a string like str$(i) to another file with commas like str$(i)+","

Then I just copied and pasted all that into DATA lines.

D.D.

Back to top

Profile PM

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 22nd Jun 2012 19:48

Link

@WLGfx

Quote: "Here's a code snippet that converts an input file to a DBP include file of data statements:"

Nice!
That could turn into a whole extractor/editor app.

I'm always torn between making stuff that's practical and stuff that's just fun, but one usually begets the other.

D.D.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Convert Sound Into String Data? (for media-less sound/music)