Vgm2VortexTrackerTxtAy_03b.sdlbas

#! /usr/bin/sdlbrt
finp$="Nemesis_msx_02_Challenger1985.vgm"
fout$=finp$+"_vortextracker_pre.txt"

frmc=0
frmi=735
frmr=300
trg=0
ltxtm$="....|..|--- .... ....|--- .... ....|--- .... ...."
freq0=0
freq1=0
freq2=0
vol0=0
vol1=0
vol2=0
freqq=0
debug=1

'- fix: 0x0FE=440hz=A-4
function nttfrq$(freqb)
  e$=   "C-1C#1D-1D#1E-1F-1F#1G-1G#1A-1A#1B-1"
  e$=e$+"C-2C#2D-2D#2E-2F-2F#2G-2G#2A-2A#2B-2"
  e$=e$+"C-3C#3D-3D#3E-3F-3F#3G-3G#3A-3A#3B-3"
  e$=e$+"C-4C#4D-4D#4E-4F-4F#4G-4G#4A-4A#4B-4"
  e$=e$+"C-5C#5D-5D#5E-5F-5F#5G-5G#5A-5A#5B-5"
  e$=e$+"C-6C#6D-6D#6E-6F-6F#6G-6G#6A-6A#6B-6"
  e$=e$+"C-7C#7D-7D#7E-7F-7F#7G-7G#7A-7A#7B-7"
  e$=e$+"C-8C#8D-8D#8E-8F-8F#8G-8G#8A-8A#8B-8"
  tmq=141-(int((log(freqb)/log(2))*12))
  if tmq<1 then:tmq=1:end if
  if tmq>96 then:tmq=96:end if
  return mid$(e$,(tmq*3)-2,3)
  end function


open finp$ for input as #1
open fout$ for output as #2

'- read 256 dummy bytes from the header - i have to know how to deal with this better later
for eee=0 to 0x7F:q0=readbyte(1):next  '- read offset byte first

txou1$="    #("+str$(0)+")"

while eof(1)=0

q0=readbyte(1)

if bitwiseand(q0,0x70)=0x70 then
  frmc=frmc+bitwiseand(q0,0xF)+1
  txou1$="    #("+str$(frmc)+")"
  'print #2,txou1$
  end if

if q0=0x61 then
  q0=readbyte(1)
  frmc=frmc+q0
  q0=readbyte(1)
  frmc=frmc+(q0*256)
  txou1$="    #("+str$(frmc)+")"
  'print #2,txou1$
  end if

if q0=0x62 then
  frmc=frmc+735
  txou1$="    #("+str$(frmc)+")"
  'print #2,txou1$
  end if


while frmr<frmc
  if trg=0 then
    print #2,"--frameout-unchanged--"
  else
    print #2,"--frameout--"
    trg=0
    end if
  frmr=frmr+frmi
  end while



if q0=0xA0 then
  q0=readbyte(1)

  if q0=0 then
    q0=readbyte(1)
    freq0= bitwiseor ( (bitwiseand(freq0,0xF00)),(bitwiseand(q0,0x0FF)) )
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,8)+ nttfrq$(freq0) +right$(ltxtm1$,38)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=1 then
    q0=readbyte(1)
    freq0= bitwiseor ( (bitwiseand(q0*256,0xF00)),(bitwiseand(freq0,0x0FF)) )
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,8)+nttfrq$(freq0) +right$(ltxtm1$,38)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=2 then
    q0=readbyte(1)
    freq1= bitwiseor ( (bitwiseand(freq1,0xF00)),(bitwiseand(q0,0x0FF)) )
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,22)+ nttfrq$(freq1) +right$(ltxtm1$,24)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=3 then
    q0=readbyte(1)
    freq1= bitwiseor ( (bitwiseand(q0*256,0xF00)),(bitwiseand(freq1,0x0FF)) )
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,22)+ nttfrq$(freq1) +right$(ltxtm1$,24)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=4 then
    q0=readbyte(1)
    freq2= bitwiseor ( (bitwiseand(freq2,0xF00)),(bitwiseand(q0,0x0FF)) )
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,36)+ nttfrq$(freq2) +right$(ltxtm1$,10)+txou1$
    print #2,ltxtm2$

    trg=1
    end if

  if q0=5 then
    q0=readbyte(1)
    freq2= bitwiseor ( (bitwiseand(q0*256,0xF00)),(bitwiseand(freq2,0x0FF)) )
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,36)+ nttfrq$(freq2) +right$(ltxtm1$,10)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=6 then
    print #2,ltxtm$
    end if

  'if q0=7 then
  '  q0=readbyte(1)
  '  ltxtm1$=ltxtm$
  '  ltxtm2$=left$(ltxtm1$,31)+  right$(bin$(512+q0),8)  +right$(ltxtm1$,2)+txou1$
  '  print #2,ltxtm2$
  '  trg=1
  '  end if

  if q0=8 then
    q0=readbyte(1)
    vol0= bitwiseand(q0,0xF)
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,15)+ ucase$( right$(hex$(0x10+vol0),1) ) +right$(ltxtm1$,33)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=9 then
    q0=readbyte(1)
    vol1= bitwiseand(q0,0xF)
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,29)+ ucase$( right$(hex$(0x10+vol1),1) ) +right$(ltxtm1$,19)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  if q0=10 then
    q0=readbyte(1)
    vol2= bitwiseand(q0,0xF)
    ltxtm1$=ltxtm$
    ltxtm2$=left$(ltxtm1$,43)+ ucase$( right$(hex$(0x10+vol2),1) ) +right$(ltxtm1$,5)+txou1$
    print #2,ltxtm2$
    trg=1
    end if

  end if



wend

close #1:close #2

'setdisplay(320,240,32,1):paper(8^8-1):ink(0):pen(0):cls
'loadimage("pic1.png",1):pasteicon(0,0,1)
'grab(1,0,0,320,240):saveimage("pic1b.bmp",1)
'waitkey


'a-4 =0x0FE