123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469 |
- #! /usr/bin/sdlbrt
- finp$="tune.vgm"
- '- .vgm to FamiTracker .txt converter - C03051 (x2) version
- '- copyleft Paulo Silva, oct'20
- '-------------------------------
- '- bugs:
- '- - an acute sound might appear because an issue related to volume 0 that VortexTracker doesnt support, R-- note used instead (and the converter should store which note/frequency is for a probable volume changing, and set back the note/frequency value back)
- '- - doesn't read yet the author/title information
- '- - 'L' will be useful for the loop point location
- '- - probably will need a sample counter before converting
- '- - missing noise support
- '- - frequncy inaccuracy from the germanic notation formula probably fixed, needs more testing
- '-------------------------------
- ' "....|..|--- .... ....|--- .... ....|--- .... ...."
- ' "ROW 00 : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ..."
- 'ltxtm$="....|..|--- .... ....|--- .... ....|--- .... ....":ltxcr$=ltxtm$
- ltxtm$="ROW .. : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ... : ... .. . ...":ltxcr$=ltxtm$
- freq0=0:freq1=0:freq2=0:vol0=0:vol1=0:vol2=0
- patsz=64:patc=0:patid=0:freqq=0
- hdram=0x40:vgmv=0:veof=0
- dim hdrv[256]
-
- if argc>2 then:finp$=argv(2):end if
- fout2$=finp$+"_famitracker.txt":fout3$=finp$+"_famitracker_debug.txt"
-
- frmc=0:frmr=300:trg=0
-
- frmi=735
- if argc>3 then:
- if argv(3)="1" or ucase$(argv(2))="-PAL" then
- frmi=882:end if:end if
-
- debug=0
- if argc>4 then:
- if argv(4)="1" or ucase$(argv(2))="-DEBUG" then
- debug=1:end if:end if
-
- '- 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=(119-(int((log(freqb*.99)/log(2))*12)))
- if tmq<1 then:tmq=1:end if
- if tmq>84 then:tmq=84:end if
- return mid$(e$,(tmq*3)-2,3)
- end function
-
- open finp$ for input as #1
- for i=0 to 255
- hdrv[i]=readbyte(1)
- next
- close #1
-
- hdram=0x040
- vgmv=hdrv[8]+hdrv[9]*256
- if vgmv>=0x0150 then:hdram=0x080:end if
- if vgmv>=0x0170 then:hdram=0x100:end if
- '- wrong information???
- ttsam=hdrv[0x18]+hdrv[0x19]*256+hdrv[0x1A]*65536+hdrv[0x1B]*16777216
- hsam$="PlayOrder=L0"
- for i=1 to (ttsam/(frmi*patsz))-1
- hsam$=hsam$+","+str$(i)
- next
-
- open finp$ for input as #1
- open fout2$ for output as #2
- open fout3$ for output as #3
- print #2,"# FamiTracker text format":print #2,""
- print #2,"# Module information"
- print #2,"TITLE \"\""
- print #2,"AUTHOR \"\""
- print #2,"COPYRIGHT \"\"":print #2,""
- print #2,"# Module comment"
- print #2,"COMMENT \"\"":print #2,""
- print #2,"# Global settings"
- print #2,"MACHINE 0"
- print #2,"FRAMERATE 0"
- print #2,"EXPANSION 16"
- print #2,"VIBRATO 1"
- print #2,"SPLIT 32":print #2,""
- print #2,"# Namco 163 global settings"
- print #2,"N163CHANNELS 8":print #2,""
- print #2,"# Macros":print #2,""
- print #2,"# DPCM samples":print #2,""
- print #2,"# Detune settings":print #2,""
- print #2,"# Grooves":print #2,""
- print #2,"# Tracks using default groove"
- print #2,"# Instruments"
- 'print #2,"INST2A03 0 -1 -1 -1 -1 -1 \"instrument01\"":print #2,""
- print #2,"INSTN163 0 -1 -1 -1 -1 -1 32 0 1 \"New instrument\""
- print #2,"N163WAVE 0 0 : 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"
- print #2,"# Tracks":print #2,""
- print #2,"TRACK "+str$(patsz)+" 1 128 \"test\""
- print #2,"COLUMNS : 1 1 1 1 1 1 1 1 1 1 1 1 1":print #2,""
- 'print #2,"ORDER 00 : 00 00 00 00 00 00 00 00 00 00 00 00 00"
- 'print #2,"ORDER 01 : 01 01 01 01 01 01 01 01 01 01 01 01 01"
- 'print #2,"ORDER 02 : 02 02 02 02 02 02 02 02 02 02 02 02 02"
- 'print #2,"ORDER 03 : 03 03 03 03 03 03 03 03 03 03 03 03 03"
- 'print #2,"ORDER 04 : 04 04 04 04 04 04 04 04 04 04 04 04 04"
- 'print #2,"ORDER 05 : 05 05 05 05 05 05 05 05 05 05 05 05 05"
- 'print #2,"ORDER 06 : 06 06 06 06 06 06 06 06 06 06 06 06 06"
- 'print #2,"ORDER 07 : 07 07 07 07 07 07 07 07 07 07 07 07 07"
- 'print #2,"ORDER 08 : 08 08 08 08 08 08 08 08 08 08 08 08 08"
- 'print #2,"ORDER 09 : 09 09 09 09 09 09 09 09 09 09 09 09 09"
- 'print #2,"ORDER 0A : 0A 0A 0A 0A 0A 0A 0A 0A 0A 0A 0A 0A 0A"
- 'print #2,"ORDER 0B : 0B 0B 0B 0B 0B 0B 0B 0B 0B 0B 0B 0B 0B"
- 'print #2,"ORDER 0C : 0C 0C 0C 0C 0C 0C 0C 0C 0C 0C 0C 0C 0C"
- 'print #2,"ORDER 0D : 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D"
- 'print #2,"ORDER 0E : 0E 0E 0E 0E 0E 0E 0E 0E 0E 0E 0E 0E 0E"
- 'print #2,"ORDER 0F : 0F 0F 0F 0F 0F 0F 0F 0F 0F 0F 0F 0F 0F"
- 'print #2,""
- 'print #2,"[Module]"
- 'print #2,"VortexTrackerII=1"
- 'print #2,"Version=3.6"
- 'print #2,"Title="
- 'print #2,"Author="
- 'print #2,"NoteTable=2"
- 'print #2,"Speed=1"
- 'print #2,hsam$
- 'print #2," "
- 'print #2,"[Ornament1]":print #2,"L0":print #2," "
- 'print #2,"[Sample1]":print #2,"Tne +000_ +00_ F_ L":print #2," "
- print #2,"Pattern 00"
-
- '- the amount of header bytes depends on vgm format version
- for eee=0 to hdram-1:q0=readbyte(1):next '- read offset byte first
- txou1$=" #("+str$(0)+")"
-
- while veof=0:
- q0=readbyte(1)
-
- '- vgm eof command
- if q0=0x66 then:
- veof=1
- print #3,"--vgm-eof--"
- print #2,""
- print #2,"# End of export"
- end if
-
- '- delay 1 byte (1..16 samples)
- if bitwiseand(q0,0x70)=0x70 then
- frmc=frmc+bitwiseand(q0,0xF)+1
- txou1$=" #("+str$(frmc)+")"
- 'print #3,txou1$
- end if
-
- '- delay 3 bytes (0..65535 samples)
- if q0=0x61 then
- q0=readbyte(1)
- frmc=frmc+q0
- q0=readbyte(1)
- frmc=frmc+(q0*256)
- txou1$=" #("+str$(frmc)+")"
- 'print #3,txou1$
- end if
-
- '- 1 ntsc frame delay, 735 samples
- if q0=0x62 then
- frmc=frmc+735
- txou1$=" #("+str$(frmc)+")"
- 'print #3,txou1$
- end if
-
- '- 1 pal frame delay, 882 samples
- if q0=0x63 then
- frmc=frmc+882
- txou1$=" #("+str$(frmc)+")"
- 'print #3,txou1$
- end if
- '- updates frameout pulses
- while frmr<frmc
- '- writes 1F in the first line of the first pattern
- 'if (patc<1 and patid=0) then
- 'ltxcr$=replace$(12,ltxcr$,"1F")
- 'ltxcr$=replace$(26,ltxcr$,"1F")
- 'ltxcr$=replace$(40,ltxcr$,"1F")
- 'end if
-
- '- creates a new pattern
- if patc>(patsz-1) then:
- print #2," "
- patid=patid+1:patc=0
- 'txou9$="Pattern "+str$(patid)+"]"
- txou9$="Pattern "+right$("00000"+ucase$(hex$(patid)),2)
- print #2,txou9$
- end if
-
- '- writes a pattern line in each frame
- if trg=0 then
- print #3,"--frameout-unchanged--"
- 'print #2,ltxtm$
- ltxcr$=ltxtm$
- ltxcr$=replace$(4,ltxcr$, right$("00000"+ucase$(hex$(patc)),2) ) '?????? <-----
- print #2,ltxcr$
- else
- print #3,"--frameout--"
- ltxcr$=replace$(4,ltxcr$, right$("00000"+ucase$(hex$(patc)),2) ) '?????? <-----
- print #2,ltxcr$
- ltxcr$=ltxtm$
- trg=0
- end if
-
- frmr=frmr+frmi
- patc=patc+1
- end while
- '- token 0xBB gets registers and values to C03051 output
- if q0=0xBB then
- q0=readbyte(1)
-
- '- channel 0, fine
- if q0=0 then
- q0=readbyte(1)
- freq0=q0 ' bitwiseor((bitwiseand(freq0,0xF00)),(bitwiseand(q0,0x0FF)))
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(9+75,ltxtm1$,nttfrq$(freq0))
- ltxcr$=replace$(9+75,ltxcr$,nttfrq$(freq0))
- ltxcr$=replace$(13+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 1, fine
- if q0=2 then
- q0=readbyte(1)
- freq1=q0 ' bitwiseor ( (bitwiseand(freq1,0xF00)),(bitwiseand(q0,0x0FF)) )
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(24+75,ltxtm1$,nttfrq$(freq1))
- ltxcr$=replace$(24+75,ltxcr$,nttfrq$(freq1))
- ltxcr$=replace$(28+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 2, fine
- if q0=4 then
- q0=readbyte(1)
- freq2=q0 ' bitwiseor ( (bitwiseand(freq2,0xF00)),(bitwiseand(q0,0x0FF)) )
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(39+75,ltxtm1$,nttfrq$(freq2))
- ltxcr$=replace$(39+75,ltxcr$,nttfrq$(freq2))
- ltxcr$=replace$(43+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
- '- channel 3, fine
- if q0=6 then
- q0=readbyte(1)
- freq3=q0 ' bitwiseor ( (bitwiseand(freq2,0xF00)),(bitwiseand(q0,0x0FF)) )
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(54+75,ltxtm1$,nttfrq$(freq2))
- ltxcr$=replace$(54+75,ltxcr$,nttfrq$(freq2))
- ltxcr$=replace$(58+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
- '- channel 4, fine
- if q0=0x80 then
- q0=readbyte(1)
- freq0=q0 ' bitwiseor((bitwiseand(freq0,0xF00)),(bitwiseand(q0,0x0FF)))
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(69+75,ltxtm1$,nttfrq$(freq0))
- ltxcr$=replace$(69+75,ltxcr$,nttfrq$(freq0))
- ltxcr$=replace$(73+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 5, fine
- if q0=0x82 then
- q0=readbyte(1)
- freq1=q0 ' bitwiseor ( (bitwiseand(freq1,0xF00)),(bitwiseand(q0,0x0FF)) )
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(84+75,ltxtm1$,nttfrq$(freq1))
- ltxcr$=replace$(84+75,ltxcr$,nttfrq$(freq1))
- ltxcr$=replace$(88+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 6, fine
- if q0=0x84 then
- q0=readbyte(1)
- freq2=q0 ' bitwiseor ( (bitwiseand(freq2,0xF00)),(bitwiseand(q0,0x0FF)) )
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(99+75,ltxtm1$,nttfrq$(freq2))
- ltxcr$=replace$(99+75,ltxcr$,nttfrq$(freq2))
- ltxcr$=replace$(103+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
- '- channel 7, fine
- if q0=0x86 then
- q0=readbyte(1)
- freq3=q0 ' bitwiseor ( (bitwiseand(freq2,0xF00)),(bitwiseand(q0,0x0FF)) )
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(114+75,ltxtm1$,nttfrq$(freq2))
- ltxcr$=replace$(114+75,ltxcr$,nttfrq$(freq2))
- ltxcr$=replace$(118+75,ltxcr$,"00")
- print #3,ltxtm2$
- trg=1
- end if
-
- '?????
- if q0=6 then
- print #3,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 #3,ltxtm2$
- ' trg=1
- ' end if
-
- '- channel 1, volume
- if q0=1 then
- q0=readbyte(1)
- vol0= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(16+75,ltxtm1$,ucase$(right$(hex$(0x10+vol0),1)))
- ltxcr$=replace$(16+75,ltxcr$,ucase$(right$(hex$(0x10+vol0),1)))
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 2, volume
- if q0=3 then
- q0=readbyte(1)
- vol1= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(31+75,ltxtm1$,ucase$(right$(hex$(0x10+vol1),1)))
- ltxcr$=replace$(31+75,ltxcr$,ucase$(right$(hex$(0x10+vol1),1)))
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 3, volume
- if q0=5 then
- q0=readbyte(1)
- vol2= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(46+75,ltxtm1$,ucase$(right$(hex$(0x10+vol2),1)))
- ltxcr$=replace$(46+75,ltxcr$,ucase$(right$(hex$(0x10+vol2),1)))
- print #3,ltxtm2$
- trg=1
- end if
- '- channel 4, volume
- if q0=7 then
- q0=readbyte(1)
- vol3= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(61+75,ltxtm1$,ucase$(right$(hex$(0x10+vol2),1)))
- ltxcr$=replace$(61+75,ltxcr$,ucase$(right$(hex$(0x10+vol2),1)))
- print #3,ltxtm2$
- trg=1
- end if
- '- channel 5, volume
- if q0=0x81 then
- q0=readbyte(1)
- vol0= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(76+75,ltxtm1$,ucase$(right$(hex$(0x10+vol0),1)))
- ltxcr$=replace$(76+75,ltxcr$,ucase$(right$(hex$(0x10+vol0),1)))
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 6, volume
- if q0=0x83 then
- q0=readbyte(1)
- vol1= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(91+75,ltxtm1$,ucase$(right$(hex$(0x10+vol1),1)))
- ltxcr$=replace$(91+75,ltxcr$,ucase$(right$(hex$(0x10+vol1),1)))
- print #3,ltxtm2$
- trg=1
- end if
-
- '- channel 7, volume
- if q0=0x85 then
- q0=readbyte(1)
- vol2= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(106+75,ltxtm1$,ucase$(right$(hex$(0x10+vol2),1)))
- ltxcr$=replace$(106+75,ltxcr$,ucase$(right$(hex$(0x10+vol2),1)))
- print #3,ltxtm2$
- trg=1
- end if
- '- channel 8, volume
- if q0=0x87 then
- q0=readbyte(1)
- vol3= bitwiseand(q0,0xF)
- ltxtm1$=ltxtm$
- ltxtm2$=replace$(121+75,ltxtm1$,ucase$(right$(hex$(0x10+vol2),1)))
- ltxcr$=replace$(121+75,ltxcr$,ucase$(right$(hex$(0x10+vol2),1)))
- print #3,ltxtm2$
- trg=1
- end if
-
- end if
- if eof(1)<>0 then
- veof=1
- print #2,""
- print #2,"# End of export"
- end if
- wend
- for eeq=0 to patid
- txou$="ORDER "+right$(hex$(0x100+eeq),2)+" :"
- for eer=0 to 12
- txou$=txou$+" "+right$(hex$(0x100+eeq),2)
- next
- print #2,txou$
- next
- print #2,""
- close #1:close #2:close #3
-
- if debug=0 then:
- shell("rm "+fout3$)
- end if
|