'
'
'       send information to a .wav file
'
'
$include "rapidq.inc"

dim file as qfilestream

declare sub makefile
declare sub closeprog
file.open ("wavefile.wav", fmcreate)

create form as qform
    height=180
    width=450
    center
    borderstyle=bsdialog
    
    create wavefilename as qedit
    top=10
    left=10
    width=100
    height=26
    end create
    create playbutton as qbutton
    caption="make"
    top=50
    left=150
    height=22
    onclick=makefile
    end create
    create closebutton as qbutton
    caption="close"
    top=10
    left=150
    height=22
    onclick=closeprog
    end create
showmodal
end create 

sub makefile
file.writestr("RIFF",4) ' indicates wave file header chunk
file.writenum(180,1) ' total length of package to follow, 4 bytes
file.writenum(1,1) ' ie. total length minus 8
file.writenum(0,1) ' if value is AABBCCDD write DDCCBBAA
file.writenum(0,1) ' "little endian" ie. little written first? :p
' seems bloody backwards to me
file.writestr("WAVE",4)

' begin format chunk
file.writestr("fmt ",4)
file.writenum(16,1) ' length of format chunk
file.writenum(0,1)
file.writenum(0,1)
file.writenum(0,1)
file.writenum(1,1) ' required
file.writenum(0,1) ' required
file.writenum(1,1) ' # of channels 1/mono 2/stereo
file.writenum(0,1) 
file.writenum(68,1) ' sample rate in Hz
file.writenum(172,1) ' 44100 = 0000ac44
file.writenum(0,1) ' ac=172, 44=68...
file.writenum(0,1)
file.writenum(136,1) ' bytes per second
file.writenum(88,1) ' 136,88,1,0=88200,16bit44100
file.writenum(1,1)
file.writenum(0,1)
file.writenum(2,1) ' bytes per sample
file.writenum(0,1) ' 1=8bit m, 2=8s or 16m, 4=16s 
file.writenum(16,1) ' bits per sample
file.writenum(0,1)

' begin data chunk
file.writestr("data",4)
file.writenum(144,1) ' length of data to follow, 4 bytes
file.writenum(1,1)
file.writenum(0,1)
file.writenum(0,1)

for t=1 to 100
file.writenum(255,1) ' data here to end
file.writenum(127,1)

file.writenum(0,1)
file.writenum(128,1) ' this second byte is the larger value,
' as for all data 0-127=positive value.. 128-255=negative value..
' note that 128=max. negative value, whereas 255=minimal negative value, 
' ie. just shy of the DC 0 line... geddit?
next t




file.close
rename (dir$("wavefile.wav",faanyfile),wavefilename.text+".wav")
end sub

sub closeprog
form.close
end
end sub