From 352660262dfd05cc75b5f2099507c9f29953a270 Mon Sep 17 00:00:00 2001 From: Wohlstand Date: Sat, 21 Oct 2017 01:10:15 +0300 Subject: Move old files from root into separated folder --- _old_files/Makefile.cygwin | 26 ++ _old_files/Makefile.old | 24 ++ _old_files/Makefile.w32 | 24 ++ _old_files/Readme.txt | 125 ++++++++++ _old_files/depfun.mak | 197 +++++++++++++++ _old_files/docmaker.php | 125 ++++++++++ _old_files/make.rules | 170 +++++++++++++ _old_files/makediff.php | 497 ++++++++++++++++++++++++++++++++++++++ _old_files/midiplay.bas | 590 +++++++++++++++++++++++++++++++++++++++++++++ _old_files/progdesc.php | 176 ++++++++++++++ 10 files changed, 1954 insertions(+) create mode 100644 _old_files/Makefile.cygwin create mode 100644 _old_files/Makefile.old create mode 100644 _old_files/Makefile.w32 create mode 100644 _old_files/Readme.txt create mode 100644 _old_files/depfun.mak create mode 100644 _old_files/docmaker.php create mode 100644 _old_files/make.rules create mode 100644 _old_files/makediff.php create mode 100644 _old_files/midiplay.bas create mode 100644 _old_files/progdesc.php (limited to '_old_files') diff --git a/_old_files/Makefile.cygwin b/_old_files/Makefile.cygwin new file mode 100644 index 0000000..1424af8 --- /dev/null +++ b/_old_files/Makefile.cygwin @@ -0,0 +1,26 @@ +CC=i686-pc-mingw32-gcc -static +CXX=i686-pc-mingw32-g++ -static +CXXLINK=$(CXX) + +#DEBUG=-O0 -fno-inline -D_GLIBCXX_DEBUG -g -fstack-protector-all -fdata-sections + +DEBUG=-O3 -g -fexpensive-optimizations -ffast-math + +#DEBUG += -fno-tree-vectorize + +# -march=pentium -mno-sse -mno-sse2 -mno-sse3 -mmmx + +CPPFLAGS += $(SDL) + +CPPFLAGS += -ansi -Wall -W + +CC += -mwin32 -mconsole -mno-cygwin +CXX += -mwin32 -mconsole -mno-cygwin +CPPFLAGS += -I/usr/include/mingw -mno-cygwin -I/usr/include/w32api +LDLIBS += -L/usr/local/lib -L/usr/lib/w32api -lwinmm + +# ^For cygwin. For anything else, remove this line. + + +include make.rules + diff --git a/_old_files/Makefile.old b/_old_files/Makefile.old new file mode 100644 index 0000000..f1a2ead --- /dev/null +++ b/_old_files/Makefile.old @@ -0,0 +1,24 @@ +#CXX=i686-w64-mingw32-g++ -static +CC=gcc +CXX=g++ +CXXLINK=$(CXX) +MKDIR=mkdir -p +RM=rm +RM_F=rm -Rf + +#DEBUG=-O0 -fno-inline -D_GLIBCXX_DEBUG -g -fstack-protector-all -fdata-sections + +DEBUG=-Ofast -g + +#DEBUG += -fno-tree-vectorize + +# -march=pentium -mno-sse -mno-sse2 -mno-sse3 -mmmx + +CFLAGS += -DLIBADLMIDI_VISIBILITY + +CPPFLAGS += -DLIBADLMIDI_VISIBILITY + +CPPFLAGS += -std=c++11 -pedantic -Wall -Wextra + +include make.rules + diff --git a/_old_files/Makefile.w32 b/_old_files/Makefile.w32 new file mode 100644 index 0000000..c9c303f --- /dev/null +++ b/_old_files/Makefile.w32 @@ -0,0 +1,24 @@ +CXX=i686-w64-mingw32-g++ -static +#CXX=g++ +CXXLINK=$(CXX) +MD=md +RM=del +RM_F=del /Q /F /S + +#DEBUG=-O0 -fno-inline -D_GLIBCXX_DEBUG -g -fstack-protector-all -fdata-sections + +DEBUG=-Ofast -g + +#DEBUG += -fno-tree-vectorize + +# -march=pentium -mno-sse -mno-sse2 -mno-sse3 -mmmx + +CC += -mwin32 -mconsole +CXX += -mwin32 -mconsole +CPPFLAGS += -DLIBADLMIDI_VISIBILITY -I/usr/include/mingw -I/usr/include/w32api +LDLIBS += -L/usr/local/lib -L/usr/lib/w32api -lwinmm + +CPPFLAGS += -std=c++11 -pedantic -Wall -Wextra + +include make.rules + diff --git a/_old_files/Readme.txt b/_old_files/Readme.txt new file mode 100644 index 0000000..3cbe239 --- /dev/null +++ b/_old_files/Readme.txt @@ -0,0 +1,125 @@ +================================================================================== + libADLMIDI is a free MIDI to WAV conversion library with OPL3 emulation +================================================================================== + +Original ADLMIDI code: Copyright (c) 2010-2014 Joel Yliluoma +ADLMIDI Library API: Copyright (c) 2015-2017 Vitaly Novichkov + +Library is based on the ADLMIDI, a MIDI player for Linux and Windows with OPL3 emulation: +========================================= +http://iki.fi/bisqwit/source/adlmidi.html +========================================= + +========================================= + Differences with original tool +========================================= +* Reverb code has been removed. +* Doesn't contains platform specific code. + Library can be used with various purposes include making of a custom music decoders + for a media players and usage with a games + +========================================= + Key features +========================================= + +* OPL3 emulation with four-operator mode support +* FM patches from a number of known PC games, copied from files typical to AIL = Miles Sound System / DMX / HMI = Human Machine Interfaces / Creative IBK. +* Stereo sound +* Number of simulated soundcards can be specified as 1-100 (maximum channels 1800!) +* Pan (binary panning, i.e. left/right side on/off) +* Pitch-bender with adjustable range +* Vibrato that responds to RPN/NRPN parameters +* Sustain enable/disable +* MIDI and RMI file support +* loopStart / loopEnd tag support (Final Fantasy VII) +* Use automatic arpeggio with chords to relieve channel pressure +* Support for multiple concurrent MIDI synthesizers (per-track device/port select FF 09 message), can be used to overcome 16 channel limit + + +========================================= + How to build +========================================= +You can build shared version and additional tools on the Linux when you will run a "make" command and you will have libadlmidi.so and additional tools in the "bin" directory. + +You also can build library manually: +You need to make in the any IDE a library project and put into it next files +(or include those files into subfolder of your exist project instead if you want to use it statically): + +* adlmidi.h - Library API, use it to control library + +* dbopl.h - DOSBOX OPL Emulation header +* nukedopl3.h - Nuked OPL3 Emulation header +* fraction.h - Fraction number handling +* adldata.hh - bank structures definition +* adlmidi_private.hpp - header of internal private APIs +* adlmidi_mus2mid.h - MUS2MID converter header +* adlmidi_xmi2mid.h - XMI2MID converter header + +* dbopl.cpp - DOSBOX OPL Emulation code (used when ADLMIDI_USE_DOSBOX_OPL macro is defined) +* nukedopl3.c - Nuked OPL3 Emulation code (used by default) +* adlmidi.cpp - code of library +* adldata.cpp - Automatically generated dump of FM banks from "fm_banks" directory via "gen_adldata" tool +* adlmidi_load.cpp - Source of file loading and parsing processing +* adlmidi_midiplay.cpp - MIDI event sequencer +* adlmidi_opl3.cpp - OPL3 chips manager +* adlmidi_private.cpp - some internal functions sources +* adlmidi_mus2mid.c - MUS2MID converter source +* adlmidi_xmi2mid.c - XMI2MID converter source + +**Important**: Please use DosBox emulator on mobile devices because it requires small CPU power. + Nuked OPL synthesizer is very accurate (compared to real OPL3 chip), but it requires much more power + device and is high probability your device will lag and playback will be choppy. + +========================================= + Example +========================================= +In the src/midiplay you will found alone CPP file which an example of library usage. +That example is a simple audio player based on SDL Audio usage. + +To build that example you will need to have installed SDL2 library. + +========================================= + Todo +========================================= +* Time based Seek/Tell support +* Support of title and other meta-tags retrieving +* Support of real-time listening of incoming MIDI-commands. + That will allow to use library as software MIDI Output device + to play any MIDI via this library. + +========================================= +Changelog +========================================= +## 1.2.1 2017-07-30 + * Minor fixes + * Added 72'th bank by Sneakernets + * Updated "gen_adldata" utility to use ini file + +## 1.2.0 2017-02-15 + * Fixed 12'th bank where are drums and melodic sets are was swapped + * Fxied logariphmic volumes flag which autoreseted to false on playing begin moment + * Added TRUE support for MUS and XMI formats (added the conversion functions to make right MIDI data to play it) + +## 1.1.1 2016-12-09 + * Added a changable volume ranges models (Automatic for some banks, Generic, CMF, DMX, Apogee and 9X) + +## 1.1.0 2016-12-06 + * Added Nuked OPL3 emulator which is more accurate (but requires more CPU power, therefore kept ability to use DosBox OPL3 via macro) + * Fixed warnings of CLang code model plugin + * Fixed bend coefficient which makes hi-hats in DOOM banks be incorrectly + +## 1.0.3 2016-08-06 + * Added handling of 111'th controller as "loopStart" (which used by RPG-Maker) + * Fixed infinite loop caused by blank MIDI-files (add extra second of waiting if over 10000 0-waiting loops are been detected) + * Fixed damaged playing of IMF files (cased by wrong implementation of getc() function where return type must be int, not unsigned char) + +## 1.0.2 2016-03-16 + * Fixed infinite loop causes swapped loopEnd and loopStart (when loopEnd goes before loopStart) + * Fixed sielent volume tracks (when initial voule is zero, tracks wouldn't be playd even after applying fading in volume events) + * More accurate fine tuning for second voice for DMX-based banks (playback now is more like original DOOM than before!) + * Library's Output data now in short format (no more need to do extra conversions to make 16-bit audio stream from every 16-bit + sample stored into each 32-bit integer) + +## 1.0.0 2015-10-10 + * First release of library + diff --git a/_old_files/depfun.mak b/_old_files/depfun.mak new file mode 100644 index 0000000..64618c7 --- /dev/null +++ b/_old_files/depfun.mak @@ -0,0 +1,197 @@ +# This is Bisqwit's generic depfun.mak, included from Makefile. +# The same file is used in many different projects. +# +# depfun.mak version 1.6.2 +# +# Required vars: +# +# ${CPP} - C preprocessor name, usually "gcc" +# ${CPPFLAGS} - preprocessor flags (including defs) +# +# ${ARCHFILES} - All file names to include in archive +# .depend, depfun.mak and Makefile are +# automatically included. +# ${ARCHNAME} - Name of program. Example: testprog-0.0.1 +# +# Optional vars: +# +# ${ARCHDIR} - Directory for the archives. +# Must end with '/'. +# ${INSTALLPROGS} - Programs to be installed (space delimited) +# ${BINDIR} - Directory for installed programs (without /) +# Example: /usr/local/bin +# ${INSTALL} - Installer program, example: install +# ${DEPDIRS} - Optional dependency dirs to account in .depend +# +# ${EXTRA_ARCHFILES} - More files to include in archive, +# but without dependency checking + + +# Note: This requires perl. FIXME change it to sed +.depend: ${ARCHFILES} + @echo "Checking dependencies..." + @rm -f $@.tmp + @for dir in "" ${DEPDIRS}; \ + do n="`pwd`";\ + if [ ! -z "$$dir" ]; then cd "$$dir"; fi; \ + for s in *.c *.cc *.cpp; \ + do if echo "$$s"|grep -vq '^\*';\ + then \ + cd "$$n";\ + ${CPP} ${CPPFLAGS} -MM -MG "$$dir""$$s" |\ + perl -pe "s|^([^ ])|$$dir\\1|" \ + > $@."$$s";\ + fi&done; \ + cd "$$n"; \ + done; wait + @touch $@.dummy + @cat $@.* >$@ + @cp -f $@ $@.tmp + @sed 's/\.o:/.lo:/' <$@.tmp >>$@ + @rm -f $@.* + +depend dep: .depend + + +-include .depend + +git_release: ${ARCHFILES} ; + # Create the release commit + git commit --allow-empty -a -m 'Release version ${VERSION} (dev)' # commit in dev brach + git rev-parse HEAD > .git/PUSHED_HEAD + git checkout -f release || git checkout -b release + # + # Set the cache & index to exact copy of the original branch + # + git rm -fr --cached '*' &> /dev/null + git checkout PUSHED_HEAD . + # + # Limit the index to those files we publish + # + git rm -fr --cached '*' &> /dev/null + git add -f --ignore-errors ${ARCHFILES} ${EXTRA_ARCHFILES} depfun.mak Makefile + @if [ -f docmaker.php ]; then php -q docmaker.php ${ARCHNAME} > README.html; git add docmaker.php README.html; fi + @if [ -f makediff.php ]; then git add makediff.php; fi + # + # Create a merge commit + # + cp .git/PUSHED_HEAD .git/MERGE_HEAD + git commit -m 'Release version ${VERSION}' # commit in release + # + # Create the archive + # + @- mkdir ${ARCHDIR} 2>/dev/null + git archive --format=tar --prefix=${ARCHNAME}/ HEAD > ${ARCHDIR}${ARCHNAME}.tar + # Return to the original branch + git checkout -f $$(cd .git/refs/heads;grep -l `cat ../../PUSHED_HEAD` * || echo PUSHED_HEAD) + git update-server-info + @make arch_finish_pak + @make omabin_link${DEPFUN_OMABIN} + +git_test_release: ${ARCHFILES} + # Create the testing commit + git commit --allow-empty -a -m 'Test release ${VERSION} (dev)' # commit in dev branch + git rev-parse HEAD > .git/PUSHED_HEAD + git checkout release || git checkout -b release + # + # Backup the HEAD in release branch + # + git rev-parse release > .git/RELEASE_HEAD + # + # Set the cache & index to exact copy of the original branch + # + git rm -fr --cached '*' &> /dev/null + git checkout PUSHED_HEAD . + # + # Limit the index to those files we publish + # + git rm -fr --cached '*' &> /dev/null + git add -f --ignore-errors ${ARCHFILES} ${EXTRA_ARCHFILES} depfun.mak Makefile + @if [ -f docmaker.php ]; then php -q docmaker.php ${ARCHNAME} > README.html; git add docmaker.php README.html; fi + @if [ -f makediff.php ]; then git add makediff.php; fi + # + # Create a merge commit + # + cp .git/PUSHED_HEAD .git/MERGE_HEAD + git commit -m 'Test release' # commit in release + # + # Create the testing directory + # + rm -rf test_release + git archive --format=tar --prefix=test_release/ HEAD | tar xvf - | sed 's/^/ /' + # + # Reset the release branch to its previous state + # + git reset --hard RELEASE_HEAD + # Return to the original branch + git checkout -f $$(cd .git/refs/heads;grep -l `cat ../../PUSHED_HEAD` * || echo PUSHED_HEAD) + git update-server-info + git gc --quiet + @echo + @echo ---------------------------------------------------------------------- + @echo 'Would-be release extracted to test_release/ -- go ahead and try it.' + @echo ---------------------------------------------------------------------- + @echo + +UNUSED_archpak: ${ARCHFILES} ; + @if [ "${ARCHNAME}" = "" ]; then echo ARCHNAME not set\!;false;fi + - mkdir ${ARCHNAME} ${ARCHDIR} 2>/dev/null + cp --parents -lfr ${ARCHFILES} ${EXTRA_ARCHFILES} depfun.mak Makefile ${ARCHNAME}/ 2>&1 >/dev/null | while read line;do cp --parents -fr "`echo "$$line"|sed 's/.*${ARCHNAME}\///;s/'\''.*//'`" ${ARCHNAME}/; done + - if [ -f docmaker.php ]; then php -q docmaker.php ${ARCHNAME} >README.html; ln -f docmaker.php README.html ${ARCHNAME}/;fi + if [ -f makediff.php ]; then ln -f makediff.php ${ARCHNAME}/; fi + #- rm -f ${ARCHDIR}${ARCHNAME}.zip + #- zip -9rq ${ARCHDIR}${ARCHNAME}.zip ${ARCHNAME}/ + #- rar a ${ARCHDIR}${ARCHNAME}.rar -mm -m5 -r -s -inul ${ARCHNAME}/ + #tar cf ${ARCHDIR}${ARCHNAME}.tar ${ARCHNAME}/ + # + find ${ARCHNAME}/ -type d > .paktmp.txt + find ${ARCHNAME}/ -not -type d | rev | sort | rev >> .paktmp.txt + #find ${ARCHNAME}/|/ftp/backup/bsort >.paktmp.txt + tar -c --no-recursion -f ${ARCHDIR}${ARCHNAME}.tar -T.paktmp.txt + rm -rf .paktmp.txt ${ARCHNAME} + @make arch_finish_pak + +arch_finish_pak: + - if [ "${NOBZIP2ARCHIVES}" = "" ]; then bzip2 -9 >${ARCHDIR}${ARCHNAME}.tar.bz2 < ${ARCHDIR}${ARCHNAME}.tar; fi + if [ "${NOGZIPARCHIVES}" = "" ]; then gzip -f9 ${ARCHDIR}${ARCHNAME}.tar; wine /usr/local/bin/DeflOpt.exe ${ARCHDIR}${ARCHNAME}.tar.gz ; fi + rm -f ${ARCHDIR}${ARCHNAME}.tar + +# Makes the packages of various types... +UNUSED_pak: archpak ; + if [ -f makediff.php ]; then php -q makediff.php ${ARCHNAME} ${ARCHDIR} 1; fi + +omabin_link${DEPFUN_OMABIN}: + - @rm -f /WWW/src/arch/${ARCHNAME}.tar.{bz2,gz} + - ln -f ${ARCHDIR}${ARCHNAME}.tar.{bz2,gz} /WWW/src/arch/ + if [ -f progdesc.php ]; then cp -p --remove-destination progdesc.php /WWW/src/.desc-$(subst /,,$(dir $(subst -,/,$(ARCHNAME)))).php 2>/dev/null || cp -fp progdesc.php /WWW/src/.desc-$(subst /,,$(dir $(subst -,/,$(ARCHNAME)))).php; fi + +# This is Bisqwit's method to install the packages to web-server... +UNUSED_omabin${DEPFUN_OMABIN}: archpak + if [ -f makediff.php ]; then php -q makediff.php ${ARCHNAME} ${ARCHDIR}; fi + #- @rm -f /WWW/src/arch/${ARCHNAME}.{zip,rar,tar.{bz2,gz}} + #- ln -f ${ARCHDIR}${ARCHNAME}.{zip,rar,tar.{bz2,gz}} /WWW/src/arch/ + @make omabin_link${DEPFUN_OMABIN} + +install${DEPFUN_INSTALL}: ${INSTALLPROGS} + - if [ ! "${BINDIR}" = "" ]; then mkdir --parents $(BINDIR) 2>/dev/null; mkdir $(BINDIR) 2>/dev/null; \ + for s in ${INSTALLPROGS} ""; do if [ ! "$$s" = "" ]; then \ + ${INSTALL} -c -s -o bin -g bin -m 755 "$$s" ${BINDIR}/"$$s";fi;\ + done; \ + fi; \ + if [ ! "${MANDIR}" = "" ]; then mkdir --parents $(MANDIR) 2>/dev/null; mkdir $(MANDIR) 2>/dev/null; \ + for s in ${INSTALLMANS} ""; do if [ ! "$$s" = "" ]; then \ + ${INSTALL} -m 644 "$$s" ${MANDIR}/man"`echo "$$s"|sed 's/.*\.//'`"/"$$s";fi;\ + done; \ + fi + +uninstall${DEPFUN_INSTALL} deinstall${DEPFUN_INSTALL}: + for s in ${INSTALLPROGS}; do rm -f ${BINDIR}/"$$s";done + - for s in ${INSTALLLIBS}; do rm -f ${LIBDIR}/"$$s";done + for s in ${INSTALLMANS} ""; do if [ ! "$$s" = "" ]; then \ + rm -f ${MANDIR}/man"`echo "$$s"|sed 's/.*\.//'`"/"$$s";fi;\ + done; \ + +.PHONY: pak dep depend archpak omabin \ + install${DEPFUN_INSTALL} \ + deinstall${DEPFUN_INSTALL} \ + uninstall${DEPFUN_INSTALL} diff --git a/_old_files/docmaker.php b/_old_files/docmaker.php new file mode 100644 index 0000000..4576ed9 --- /dev/null +++ b/_old_files/docmaker.php @@ -0,0 +1,125 @@ + + + <?=htmlspecialchars($title)?> + + +

+

0. Contents

+ + This is the documentation of . +'.htmlspecialchars($url).'.
+ Check there for new versions. +'; +if(isset($git)) +{ + $k .= + '

'. + 'Additionally, the most recent source code (bleeding edge) for '.htmlspecialchars($progname). + ' can also be downloaded by cloning the Git repository'. + ' by:

    '. + '
  • git clone '.htmlspecialchars($git).'
    • '. + '
  • git checkout origin/release -b release
    • '. + '
  • git checkout origin/master -b master
    • '. + '

'; +} +$text['download:99999. Downloading'] = $k; + +include $docformatfn; + +$st1 = stat($docmodulefn); +$st2 = stat('docmaker.php'); +?> +

Generated from + (last updated: )
+ with docmaker.php (last updated: )
+ at +

+ + +/dev/null'); + } + else + print $s; +} diff --git a/_old_files/make.rules b/_old_files/make.rules new file mode 100644 index 0000000..cd3ab6d --- /dev/null +++ b/_old_files/make.rules @@ -0,0 +1,170 @@ +VERSION=1.0.0 +ARCHNAME=adlmidi-$(VERSION) +ARCHDIR=archives/ +NOGZIPARCHIVES=1 + +ARCHFILES=\ + src/adlmidi.cpp src/adlmidi.h \ + src/adlmidi_load.cpp src/adlmidi_midiplay.cpp src/adlmidi_opl3.cpp src/adlmidi_private.cpp \ + src/dbopl.cpp src/dbopl.h \ + src/adldata.cpp src/adldata.hh \ + src/dumpbank/dumpbank.cc src/dumpmiles/dumpmiles.cc \ + src/gen_adldata/gen_adldata.cc \ + midiplay.bas \ + progdesc.php \ + make.rules \ + fraction.h \ + \ + fm_banks/bnk_files/drum.bnk \ + fm_banks/bnk_files/file131.bnk \ + fm_banks/bnk_files/file132.bnk \ + fm_banks/bnk_files/file133.bnk \ + fm_banks/bnk_files/file134.bnk \ + fm_banks/bnk_files/file142.bnk \ + fm_banks/bnk_files/file143.bnk \ + fm_banks/bnk_files/file144.bnk \ + fm_banks/bnk_files/file145.bnk \ + fm_banks/bnk_files/file159.bnk \ + fm_banks/bnk_files/file167.bnk \ + fm_banks/bnk_files/file168.bnk \ + fm_banks/bnk_files/hamdrum.bnk \ + fm_banks/bnk_files/hammelo.bnk \ + fm_banks/bnk_files/intdrum.bnk \ + fm_banks/bnk_files/intmelo.bnk \ + fm_banks/bnk_files/melodic.bnk \ + fm_banks/bnk_files/rickdrum.bnk \ + fm_banks/bnk_files/rickmelo.bnk \ + fm_banks/bnk_files/d2drum.bnk \ + fm_banks/bnk_files/d2melo.bnk \ + fm_banks/bnk_files/normdrum.bnk \ + fm_banks/bnk_files/normmelo.bnk \ + fm_banks/bnk_files/ssdrum.bnk \ + fm_banks/bnk_files/ssmelo.bnk \ + fm_banks/doom2/genmidi.htc \ + fm_banks/doom2/genmidi.op2 \ + fm_banks/doom2/default.op2 \ + fm_banks/ibk_files/game.ibk \ + fm_banks/ibk_files/mt_fm.ibk \ + fm_banks/ibk_files/soccer-genmidi.ibk \ + fm_banks/ibk_files/soccer-percs.ibk \ + fm_banks/ibk_files/nitemare_3d.ibk \ + fm_banks/op3_files/fat2.op3 \ + fm_banks/op3_files/fat4.op3 \ + fm_banks/op3_files/jv_2op.op3 \ + fm_banks/op3_files/wallace.op3 \ + fm_banks/opl_files/file12.opl \ + fm_banks/opl_files/file13.opl \ + fm_banks/opl_files/file15.opl \ + fm_banks/opl_files/file16.opl \ + fm_banks/opl_files/file17.opl \ + fm_banks/opl_files/file19.opl \ + fm_banks/opl_files/file20.opl \ + fm_banks/opl_files/file21.opl \ + fm_banks/opl_files/file23.opl \ + fm_banks/opl_files/file24.opl \ + fm_banks/opl_files/file25.opl \ + fm_banks/opl_files/file26.opl \ + fm_banks/opl_files/file27.opl \ + fm_banks/opl_files/file29.opl \ + fm_banks/opl_files/file30.opl \ + fm_banks/opl_files/file31.opl \ + fm_banks/opl_files/file32.opl \ + fm_banks/opl_files/file34.opl \ + fm_banks/opl_files/file35.opl \ + fm_banks/opl_files/file36.opl \ + fm_banks/opl_files/file37.opl \ + fm_banks/opl_files/file41.opl \ + fm_banks/opl_files/file42.opl \ + fm_banks/opl_files/file47.opl \ + fm_banks/opl_files/file48.opl \ + fm_banks/opl_files/file49.opl \ + fm_banks/opl_files/file50.opl \ + fm_banks/opl_files/file53.opl \ + fm_banks/opl_files/file54.opl \ + fm_banks/opl_files/sample.ad \ + fm_banks/opl_files/sample.opl \ + fm_banks/opl_files/sc3.opl \ + fm_banks/opl_files/simfarm.ad \ + fm_banks/opl_files/simfarm.opl \ + fm_banks/opl_files/warcraft.ad \ + fm_banks/opl_files/nemesis.opl \ + fm_banks/opl_files/nhlpa.opl \ + fm_banks/tmb_files/d3dtimbr.tmb \ + fm_banks/tmb_files/swtimbr.tmb \ + fm_banks/raptor/genmidi.op2 + +INSTALLPROGS=adlmidi + +all: directories libadlmidi.so gen_adldata dumpmiles dumpbank + +directories: + ${MKDIR} obj + ${MKDIR} bin + +libadlmidi.so: obj/adlmidi.o obj/adlmidi_load.o obj/adlmidi_midiplay.o obj/adlmidi_opl3.o obj/adlmidi_private.o obj/adlmidi_xmi2mid.o obj/adlmidi_mus2mid.o obj/nukedopl3.o obj/adldata.o + $(CXXLINK) $^ $(DEBUG) -shared -o bin/$@ $(LDLIBS) + +obj/adlmidi.o: src/adlmidi.cpp src/adlmidi.h src/dbopl.h src/nukedopl3.h src/adldata.hh + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adlmidi_load.o: src/adlmidi_load.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adlmidi_midiplay.o: src/adlmidi_midiplay.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adlmidi_opl3.o: src/adlmidi_opl3.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adlmidi_private.o: src/adlmidi_private.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/dbopl.o: src/dbopl.cpp src/dbopl.h + $(CXX) $(CPPFLAGS) $< $(DEBUG) -DADLMIDI_USE_DOSBOX_OPL -c -fPIC -o $@ + +obj/nukedopl3.o: src/nukedopl3.c src/nukedopl3.h + $(CC) $(CFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adlmidi_xmi2mid.o: src/adlmidi_xmi2mid.c src/adlmidi_xmi2mid.h + $(CC) $(CFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adlmidi_mus2mid.o: src/adlmidi_mus2mid.c src/adlmidi_mus2mid.h + $(CC) $(CFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +obj/adldata.o: src/adldata.cpp src/adldata.hh + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -fPIC -o $@ + +gen_adldata: obj/gen_adldata.o obj/measurer.o obj/nukedopl3.o obj/progs_cache.o obj/ini_processing.o + $(CXXLINK) $^ $(DEBUG) -o bin/$@ $(LDLIBS) -lpthread + +obj/gen_adldata.o: src/gen_adldata/gen_adldata.cc + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -o $@ + +obj/measurer.o: src/gen_adldata/measurer.cpp src/nukedopl3.h + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -o $@ + +obj/progs_cache.o: src/gen_adldata/progs_cache.cpp + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -o $@ + +obj/ini_processing.o: src/gen_adldata/ini/ini_processing.cpp + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -o $@ + +dumpmiles: obj/dumpmiles.o + $(CXXLINK) $^ $(DEBUG) -o bin/$@ $(LDLIBS) + +obj/dumpmiles.o: src/dumpmiles/dumpmiles.cc + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -o $@ + +dumpbank: obj/dumpbank.o + $(CXXLINK) $^ $(DEBUG) -o bin/$@ $(LDLIBS) + +obj/dumpbank.o: src/dumpbank/dumpbank.cc + $(CXX) $(CPPFLAGS) $< $(DEBUG) -c -o $@ + +.PHONY: clean + +clean: + ${RM_F} obj bin + +include depfun.mak + diff --git a/_old_files/makediff.php b/_old_files/makediff.php new file mode 100644 index 0000000..22a21c8 --- /dev/null +++ b/_old_files/makediff.php @@ -0,0 +1,497 @@ += 2) + { + $oldest=''; $oldesttime=999999999; + foreach($openfiles as $fn => $puh) + { + $keep = 0; + foreach($keeplist as $keepfn) if($fn == $keepfn) { $keep=1; break; } + if($keep) continue; + if($puh['time'] < $oldesttime) { $oldesttime = $puh['time']; $oldest = $fn; } + } + if($oldest) + { + Close($oldest); + } + } + + $pick = ''; + foreach($files as $fn) + if(preg_match('@\.tar\.gz$@', $fn)) + { + $pick = $fn; + break; + } + + if(!$pick) + { + reset($files); + list($dummy, $pick) = each($files); + } + + GoTmp(); + + @mkdir($subtmpdir, 0700); + chdir($subtmpdir); + + if(preg_match('@\.tar\.gz$@', $pick)) + { + print "\ttar xfz ../".shellfix($pick)."\n"; + exec('tar xfz ../../'.shellfix($pick)); + } + else + { + print "\tbzip2 -d < ../".shellfix($pick)."| tar xf -\n"; + exec('bzip2 -d < ../../'.shellfix($pick).'| tar xf -'); + } + $thisdir = exec('echo *'); + exec('mv * ../'); + chdir('..'); + + global $timeind; + $openfiles[$pick] = array('dir' => $thisdir, 'time' => ++$timeind); + + return $thisdir; +} +function Close($fn) +{ + global $openfiles; + global $archtmpdir; + + $puh = $openfiles[$fn]; + if(!$puh) return; + + $prefix = IsInTmp() ? '' : $archtmpdir.'/'; + + $cmd = 'rm -rf '.shellfix($prefix.$puh['dir']); + print "\t$cmd\n"; + exec($cmd); + unset($openfiles[$fn]); +} +function CloseAll() +{ + global $openfiles; + global $archtmpdir; + + UnGoTmp(); + + $openfiles = Array(); + $cmd = 'rm -rf '.shellfix($archtmpdir); + print "\t$cmd\n"; + exec($cmd); +} +function MakeDiff($dir1, $dir2, $patchname) +{ + GoTmp(); + #print "## Building $patchname from $dir1 and $dir2\n"; + #passthru('ls -al'); + + /* + Before doing the diff, we should do the following: + - Remove all symlinks + - Remove all duplicate hardlinks + */ + + /* Gather up inode numbers. */ + + $data1 = FindInodes($dir1); + $data2 = FindInodes($dir2); + + $era1 = Array(); + $era2 = Array(); + + foreach($data1['if'] as $ino => $fils) + { + if(count($fils) > 1) + { + $bestcommoncount = 0; + $bestcommon = $fn; + $group2 = array(); + foreach($fils as $fn) + { + $ino2 = $data2['fi'][$fn]; + if(!isset($ino2))continue; + + $fils2 = $data2['if'][$ino2]; + + $common = array_intersect($fils, $fils2); + if(count($common) > $bestcommoncount) + { + $bestcommoncount = count($common); + $bestcommon = $fn; + $group2 = $fils2; + } + } + $common = array_intersect($fils, $group2); + + // Leave one file so that diff works + reset($common); + list($dummy, $fn) = each($common); + unset($common[$dummy]); + + foreach($common as $fn) + { + $era1[] = $fn; + $era2[] = $fn; + } + } + } + + if(count($era1)) + { + chdir($dir1); print "\tcd $dir1\n"; + $cmd = 'rm -f'; + foreach($era1 as $fn)$cmd .= ' '.shellfix($fn); + print "\t$cmd\n"; + exec($cmd); + chdir('..'); print "\tcd ..\n"; + } + if(count($era2)) + { + chdir($dir2); print "\tcd $dir2\n"; + $cmd = 'rm -f'; + foreach($era1 as $fn)$cmd .= ' '.shellfix($fn); + print "\t$cmd\n"; + exec($cmd); + chdir('..'); print "\tcd ..\n"; + } + + $cmd = 'LC_ALL=C LANG=C diff -NaHudr '.shellfix($dir1) . ' ' . shellfix($dir2).' > '.shellfix($patchname); + print "\t$cmd\n"; + exec($cmd); +} +function FindInodes($directory) +{ + for($try = 0; $try < 10; $try++) + { + $fp = @opendir($directory); + if($fp) break; + print "OPENDIR $directory failed (cwd=".getcwd()."), retrying\n"; + sleep(1); + } + if($try == 10) + { + print "OPENDIR $directory failed (cwd=".getcwd().")!\n"; + exit; + } + + $inofil = array(); + $filino = array(); + + while(($fn = readdir($fp))) + { + if($fn=='.' || $fn=='..')continue; + + if($directory != '.') + $fn = $directory.'/'.$fn; + + $st = stat($fn); + $ino = $st[0].':'.$st[1]; + + $inofil[$ino][] = $fn; + $filino[$fn] = $ino; + + if(is_dir($fn)) + { + $sub = FindInodes($fn); + $filino = $filino + $sub['fi']; + + foreach($sub['if'] as $ino => $fil) + { + $tgt = &$inofil[$ino]; + if(is_array($tgt)) + $tgt = array_merge($tgt, $fil); + else + $tgt = $fil; + } + unset($tgt); + } + } + closedir($fp); + return array('if' => $inofil, 'fi' => $filino); +} +function MakePatch($progname, $v1, $v2, $paks1, $paks2) +{ + // print "Make patch for $progname $v1 - $v2\n"; + // Available packages for prog1: print_r($paks1); + // Available packages for prog2: print_r($paks2); + + $v1 = preg_replace('/(-----)*$/', '', $v1); + $v2 = preg_replace('/(-----)*$/', '', $v2); + + $v1string = preg_replace('/\.$/', '', preg_replace('|(.....)|e', '(str_replace("-","","$1"))."."', $v1)); + $v2string = preg_replace('/\.$/', '', preg_replace('|(.....)|e', '(str_replace("-","","$1"))."."', $v2)); + + $files1 = Array(); + foreach($paks1 as $ext) + $files1[] = $progname . '-' . $v1string . '.' . $ext; + + $files2 = Array(); + foreach($paks2 as $ext) + $files2[] = $progname . '-' . $v2string . '.' . $ext; + + $keeplist = array_merge($files1, $files2); + $dir1 = Open($files1, $keeplist); + $dir2 = Open($files2, $keeplist); + + $patchname = "patch-$progname-$v1string-$v2string"; + + MakeDiff($dir1, $dir2, $patchname); + + GoTmp(); + + $cmd = "gzip -9 ".shellfix($patchname); + print "\t$cmd\n"; + exec($cmd); + + $cmd = "gzip -d < ".shellfix($patchname). ".gz | bzip2 -9 > ".shellfix($patchname).".bz2"; + print "\t$cmd\n"; + exec($cmd); + + $cmd = "mv -f ".shellfix($patchname).".{gz,bz2} ../"; + print "\t$cmd\n"; + exec($cmd); + + UnGoTmp(); + + $cmd = "touch -r".shellfix($files2[0])." ".shellfix($patchname).".{gz,bz2}"; + print "\t$cmd\n"; + exec($cmd); + + $cmd = "chown --reference ".shellfix($files2[0])." ".shellfix($patchname).".{gz,bz2}"; + print "\t$cmd\n"; + exec($cmd); + + global $argv; + if(!$argv[3]) + { + $cmd = 'ln -f '.shellfix($patchname).'.{gz,bz2} /WWW/src/arch/'; + print "\t$cmd\n"; + exec($cmd); + } +} + +$progs = array(); +$fp = opendir('.'); +$f = array(); +while(($fn = readdir($fp))) +{ + if(preg_match('@\.sh\.(gz|bz2)$@', $fn))continue; + if(preg_match('@^patch-.*-[0-9].*-[0-9].*\...*@', $fn)) + { + preg_match( + '/^patch-(.*(?:-opt)?)-([0-9][0-9.a-z-]*)-([0-9][0-9.a-z-]*)\.([a-z0-9]+)$/', $fn, $tab); + // tab[0] = fn + // tab[1] = progname + // tab[2] = old version + // tab[3] = new version + // tab[4] = compression type (gz, bz2) + + $progname = $tab[1]; + $version1 = calcversion($tab[2]); + $version2 = calcversion($tab[3]); + $archtype = $tab[4]; + + # print "patch prog {$tab[1]} vers1 {$tab[2]} vers2 {$tab[3]} comp {$tab[4]}\n"; + + $progs[$progname]['p'][$version1][$version2][$archtype] = $archtype; + } + else + { + preg_match('/(.*(?:-opt)?)-((?!-opt)[0-9][0-9.a-z-]*)\.(tar\.[a-z0-9]+|zip|rar)$/', $fn, $tab); + // tab[0] = fn + // tab[1] = progname + // tab[2] = version + // tab[3] = archive type (tar.gz, tar.bz2, zip, rar) + + #print "$fn:\n"; + #print_r($tab); + + $progname = $tab[1]; + $version = calcversion($tab[2]); + $archtype = $tab[3]; + + if($archtype != 'zip' && $archtype != 'rar') + { + # print "prog {$tab[1]} vers {$tab[2]} comp {$tab[3]}\n"; + + $progs[$progname]['v'][$version][$archtype] = $archtype; + } + } +} +closedir($fp); + +$argv[1] = preg_replace('@^[^-]*(?:-opt)?-([0-9])@', '\1', $argv[1]); +$wantversion = strlen($argv[1]) ? calcversion($argv[1]) : ''; + +foreach($progs as $progname => $data) +{ + $versions = $data['v']; + ksort($versions); + + $wantpatches = Array(); + + $verstabs = Array(); + for($c=1; $c<=6; $c++) + { + foreach($versions as $version => $paks) + { + $k = substr($version, 0, $c*5); + $verstabs[$c][$k] = $k; + } + asort($verstabs[$c]); + } + + $lastversio = ''; + foreach($versions as $version => $paks) + { + if($lastversio) + { + $did = Array($lastversio => 1); + + $wantpatches[$lastversio][$version] = 1; + + for($c=1; $c<=5; ++$c) + { + $prev = ''; + $k = substr($version, 0, $c*5); + + $test = str_pad($k, 5*6, '-'); + if($test != $version + && isset($versions[$test])) continue; + foreach($verstabs[$c] as $k2) + { + if($k2 == $k)break; + $prev = $k2; + } + + if($prev) + { + $prev = str_pad($prev, 5*6, '-'); + if(isset($versions[$prev]) && !$did[$prev]) + { + $did[$prev] = 1; + + // Extra + $wantpatches[$prev][$version] = 1; + } + } + } + } + $lastversio = $version; + } + + foreach($wantpatches as $version1 => $v2tab) + { + foreach($v2tab as $version2 => $dummy) + { + if(strlen($wantversion)) + { + if($version2 != $wantversion) + { + continue; + } + } + else if(isset($progs[$progname]['p'][$version1][$version2])) + { + continue; + } + + MakePatch($progname, $version1, $version2, + $versions[$version1], + $versions[$version2]); + } + } +} +print_r($thisdir); +CloseAll(); +UnGoTmp(); diff --git a/_old_files/midiplay.bas b/_old_files/midiplay.bas new file mode 100644 index 0000000..2aa1324 --- /dev/null +++ b/_old_files/midiplay.bas @@ -0,0 +1,590 @@ +0 REM MIDI PLAYER EXAMPLE PROGRAM COPYRIGHT (C) 2010 JOEL YLILUOMA +1 DEFINT A-Z: OPTION BASE 0: KEY OFF: REM http://iki.fi/bisqwit/ + +2 DIM adl(180, 11), chins(17), chpan(17), chpit(17) +3 FOR i = 0 TO 180: FOR x = 0 TO 11: READ adl(i, x): NEXT x, i +4 GOTO 100 ' Begin program + +5 'Set up OPL parameters (In: c = channel (0..17)) +6 'Out: p=I/O port, q = per-OPL channel (0..8), o=operator offset +7 p = &H388 + 2 * (c\9): q = c MOD 9: o = (q MOD 3) + 8 * (q\3): RETURN + +8 'OPL_NoteOff(c): c=channel. CHANGES: q,p,o +9 GOSUB 5: OUT p, &HB0 + q: OUT p+1, chpit(c) AND &HDF: RETURN + +10 'OPL_NoteOn(c,h#): c=channel,h#=hertz (0..131071). CHANGES: q,p,o,x +11 GOSUB 5 +12 x = &H2000: WHILE h# >= 1023.5: h# = h#/2: x=x+&H400: WEND 'Calculate octave +13 x = x + CINT(h#) +14 OUT p, &HA0 + q: OUT p+1, x AND 255: x = x \ 256 +15 OUT p, &HB0 + q: OUT p+1, x: chpit(c) = x: RETURN + +16 'Technically, AdLib requires some delay between consecutive OUT commands. +17 'However, BASIC is slow enough, that this is not an issue really. +18 'The paradigm "OUT p,index: OUT p+1,value" works perfectly. + +20 'OPL_Touch(c,v): c=channel, v=volume. CHANGES: q,p,o,i,v +21 'The formula below: SOLVE(V=127*127 * 2^( (A-63) / 8), A) +22 IF v < 72 THEN v = 0 ELSE v = LOG(v) * 11.541561# - 48.818955# +25 'OPL_Touch_Real(c,v): Same as OPL_Touch, except takes logarithmic volume. +26 GOSUB 5: i = chins(c) +27 OUT p, &H40+o: q = adl(i, 2): GOSUB 29 +28 OUT p, &H43+o: q = adl(i, 3) +29 OUT p+1, (q OR 63) - v + ((q AND 63) * v) \ 63: RETURN + +30 'OPL_Patch(c): c=channel. CHANGES: q,p,o,x,i +31 GOSUB 5: i = chins(c): q = p+1 +32 FOR x = 0 TO 1 +33 OUT p, &H20+o+x*3: OUT q, adl(i, 0+x) +34 OUT p, &H60+o+x*3: OUT q, adl(i, 4+x) +35 OUT p, &H80+o+x*3: OUT q, adl(i, 6+x) +36 OUT p, &HE0+o+x*3: OUT q, adl(i, 8+x) +37 NEXT: RETURN + +38 'OPL_Pan(c): c=channel. CHANGES: q,p,o +39 GOSUB 5: OUT p, &HC0+q: OUT p+1, adl(chins(c),10)-chpan(c): RETURN + +40 'OPL_Reset(). CHANGES: c,q,p,o,x,y,v,i +41 'Detect OPL3 (send pulses to timer, opl3 enable register) +42 c=0: GOSUB 5: FOR y = 3 TO 4: OUT p, 4: OUT p+1, y*32: NEXT: ?INP(p) +43 c=9: GOSUB 5: FOR y = 0 TO 2: OUT p, 5: OUT p+1, y AND 1: NEXT +44 'Reset OPL3 (turn off all notes, set vital settings) +45 c=0: GOSUB 5: OUT p, 1: OUT p+1, 32 'Enable wave +46 c=0: GOSUB 5: OUT p,&HBD:OUT p+1, 0 'Set melodic mode +47 c=9: GOSUB 5: OUT p, 5: OUT p+1, 1 'Enable OPL3 +48 c=9: GOSUB 5: OUT p, 4: OUT p+1, 0 'Select mode 0 (also try 63 for fun!) +50 'OPL_Silence(): Silence all OPL channels. CHANGES q,p,o,v,c,i +51 v = 0: FOR c = 0 TO 17: GOSUB 8: GOSUB 25: NEXT: RETURN + +70 'ReadString(): Read N bytes from file. Input: x. Output: s$. CHANGES x +71 s$ = "": WHILE x > 0: x = x - 1: GET #1: s$ = s$ + b$: WEND: RETURN + +75 'ReadVarLen(): Read variable length int from file. Output: x#. CHANGES x +76 x# = 0 +77 GET #1: x = ASC(b$): x# = x# * 128 + (x AND 127): IF x >= 128 THEN 77 +78 RETURN + +80 'ConvertInteger(): Parses s$ as big-endian integer, stores to x#. CHANGES x +81 x# = 0: FOR x=1 TO LEN(s$): x# = x# * 256 + ASC(MID$(s$, x, 1)): NEXT: RETURN +82 'The reason why # (DOUBLE) is used to store integer values +83 'is that GW-BASIC has only one integer type: INTEGER. +84 'It supports values in the range -32768..+32737. Making it unsuitable +85 'for storing values such as delta-times and track lengths, both of which +86 'are often greater than +32767 in common MIDI files. QuickBASIC supports +87 'the LONG datatype instead, but I was aiming for GW-BASIC compatibility +88 'in order to utilize my cool syntax highlighter for the majority +89 'of the duration of demonstrating this program on Youtube. :) + +94 'Ethical subroutine +95 GOTO 97 +96 KILL filename$ +97 RETURN + +100 '*** MAIN MIDI PLAYER PROGRAM *** +101 'Information about each track: +102 DIM tkPtr%(100), tkDelay#(100), tkStatus(100), playwait# +103 'The same, but for loop-beginning: +104 DIM loPtr%(100), loDelay#(100), loStatus(100), loopwait# +105 'The same, but cached just in case loop-beginning must be written: +106 DIM rbPtr%(100), rbDelay#(100), rbStatus(100) + +109 'Persistent settings for each MIDI channel. +110 DIM ChPatch(15), ChBend#(15), ChVolume(15), ChPanning(15), ChVibrato(15) + +120 'For each active note, we need the following: +121 ' Original note number (ORIGINAL, not simulated) +122 ' Keyoff (Search Key) +123 ' Aftertouch (Search Key) +124 ' Simulated note number +125 ' Keyon -> OPL_NoteOn +126 ' Bend -> OPL_NoteOn +127 ' Keyon/touch pressure +128 ' Ctrl:Volume +129 ' Adlib channel number +130 ' All of above +131 ' MIDI channel (multi search key) +132 ' Bend +133 ' Ctrl:Volume +134 ' Ctrl:Pan +140 DIM ActCount(15) 'number of active notes on each midi channel +141 DIM ActTone(15,127) 'orignotenumber -> simulated notenumber +142 DIM ActAdlChn(15,127) 'orignotenumber -> adlib channel +143 DIM ActVol(15,127) 'orignotenumber -> pressure +144 DIM ActRev(15,127) 'orignotenumber -> activeindex (index to ActList) +145 DIM ActList(15,99) 'activeindex -> orignotenumber (index to ActVol etc) + +146 DIM chon(17),chage#(17)'adlchannel -> is_on,age (for channel allocation) +148 DIM chm(17),cha(17) 'adlchannel -> midichn,activeindex (for collisions) +149 DIM chx(17),chc(17) 'adlchannel -> x coordinate, color (for graphics) + +160 filename$ = "chmmr.mid" '<- FILENAME OF THE MIDI TO BE PLAYED +161 GOSUB 40 ' Reset AdLib +162 GOSUB 40 ' ...twice (just in case someone misprogrammed OPL3 previously) +163 PLAYmode$ = "T255P64" +164 PLAYmode% = 255 * 64 'Event tick frequency +165 PLAYbuflen = 2 'Number of events to keep buffered +166 COLOR 8: CLS : txtline = 2: PRINT "Press Q to quit; Space to pause" +169 GOSUB 200 ' Load and play MIDI file + +170 'Begin main program (this simply monitors the playing status) +171 'Beware that the timer routine accesses a lot of global variables. +172 paused = 0 +173 hlt(0) = &HCBF4' HLT; RETF. +174 hlt = VARPTR(hlt(0)) +175 CALL hlt +176 ' ^This subroutine saves power. It also makes DOSBox faster. +177 ' However, QuickBASIC has a different syntax for calling ASM +178 ' subroutines, so the line 175 will have to be changed when +179 ' porting to QuickBASIC. Disable it, or try this (qb /Lqb.qlb): +180 'DEF SEG = VARSEG(hlt(0)): CALL ABSOLUTE(hlt) + +182 y$ = INKEY$ +183 IF y$ <> " " THEN 186 +184 paused = 1 - paused +185 IF paused THEN ? "Pause": PLAY STOP ELSE ? "Ok": PLAY ON +186 IF y$ <> "q" AND y$ <> CHR$(27) AND y$ <> CHR$(3) THEN 174 +190 PLAY OFF: PRINT "End!": GOSUB 50: KEY ON: END + +200 'Subroutine: Load MIDI file +210 OPEN filename$ FOR RANDOM AS #1 LEN = 1: FIELD #1, 1 AS b$ 'Open file + +211 'QuickBASIC has BINARY access mode, which allows to use INPUT$() rather +212 'than the silly fixed-size GET command, but GW-BASIC does not support +213 'BINARY, so we use RANDOM here. The difference between BINARY and INPUT +214 'is that INPUT chokes on EOF characters and translates CRLFs, making it +215 'unsuitable for working with MIDI files. + +220 x = 4: GOSUB 70: IF s$ <> "MThd" THEN ERROR 13'Invalid type file +230 x = 4: GOSUB 70: GOSUB 80: IF x# <> 6 THEN ERROR 13 +231 x = 2: GOSUB 70: GOSUB 80: Fmt = x# +232 x = 2: GOSUB 70: GOSUB 80: TrackCount = x#: IF TrackCount>100 THEN ERROR 6 +233 x = 2: GOSUB 70: GOSUB 80: DeltaTicks = x# +234 InvDeltaTicks# = PLAYmode% / (240000000# * DeltaTicks) +240 Tempo# = 1000000# * InvDeltaTicks# +241 bendsense# = 2 / 8192# +250 FOR tk = 1 TO TrackCount +251 x = 4: GOSUB 70: IF s$ <> "MTrk" THEN ERROR 13'Invalid type file +252 x = 4: GOSUB 70: GOSUB 80: TrackLength% = x#: y% = LOC(1) +253 GOSUB 75: tkDelay#(tk) = x# 'Read next event time +254 tkPtr%(tk) = LOC(1) 'Save first event file position +255 GET #1, y% + TrackLength% 'Skip to beginning of next track header +270 NEXT +275 FOR a = 0 TO 15: ChVolume(a) = 127: NEXT +281 PLAY ON: ON PLAY(PLAYbuflen) GOSUB 300 'Set up periodic event handler +282 began = 0: loopStart = 1: playwait# = 0: PLAY "MLMB" + +300 'Subroutine: Timer callback. Called when the PLAY buffer is exhausted. +301 IF began THEN playwait# = playwait# - 1# +302 'For each track where delay=0, parse events and read new delay. +303 WHILE playwait# < .5#: GOSUB 310: WEND +304 'Repopulate the PLAY buffer +305 WHILE PLAY(0) < PLAYbuflen: PLAY PLAYmode$: WEND: RETURN + +310 'Subroutine: Process events on any track that is due +311 FOR tk = 1 TO TrackCount +312 rbPtr%(tk) = tkPtr%(tk) +313 rbDelay#(tk) = tkDelay#(tk) +314 rbStatus(tk) = tkStatus(tk) +315 IF tkStatus(tk) < 0 OR tkDelay#(tk) > 0 THEN 319 +316 GOSUB 350 'Handle event +317 GOSUB 75: tkDelay#(tk) = tkDelay#(tk) + x# 'Read next event time +318 tkPtr%(tk) = LOC(1) 'Save modified file position +319 NEXT +320 IF loopStart = 0 THEN 338 +321 'Save loop begin +322 FOR tk = 1 TO TrackCount +323 loPtr%(tk) = rbPtr%(tk) +324 loDelay#(tk) = rbDelay#(tk) +325 loStatus(tk) = rbStatus(tk) +326 NEXT +327 loopwait# = playwait# +328 loopStart = 0 +329 GOTO 338 +330 'Return to loop beginning +331 FOR tk = 1 TO TrackCount +332 tkPtr%(tk) = loPtr%(tk) +333 tkDelay#(tk) = loDelay#(tk) +334 tkStatus(tk) = loStatus(tk) +335 NEXT +336 loopEnd = 0 +337 playwait# = loopwait# +338 'Find shortest delay from all tracks +339 nd# = -1 +340 FOR tk = 1 TO TrackCount +341 IF tkStatus(tk) < 0 THEN 343 +342 IF nd# = -1 OR tkDelay#(tk) < nd# THEN nd# = tkDelay#(tk) +343 NEXT +344 'Schedule the next playevent to be processed after that delay +345 FOR tk = 1 TO TrackCount: tkDelay#(tk) = tkDelay#(tk) - nd#: NEXT +346 t# = nd# * Tempo#: IF began THEN playwait# = playwait# + t# +347 FOR a = 0 TO 17: chage#(a) = chage#(a) + t#: NEXT +348 IF t# < 0 OR loopEnd THEN 330 ELSE RETURN 'Loop or done + +350 'Subroutine: Read an event from track, and read next delay. Input: tk + +351 'Note that we continuously access the disk file during playback. +352 'This is perfectly fine when we are running on a modern OS, possibly +353 'under the encapsulation of DOSBox, but if you're running this on +354 'vanilla MS-DOS without e.g. SMARTDRV, you are going to find this +355 'program very unsuitable for your MIDI playing needs, for the disk +356 'drive would probably make more noise than the soundcard does. +357 'We cannot cache tracks because of memory constraints in GW-BASIC. +358 'In QBASIC, we could do better, but it would be cumbersome to implement. + +359 GET #1, tkPtr%(tk) + 1: b = ASC(b$) +360 IF b < &HF0 THEN 380 +361 'Subroutine for Fx special events +362 '? tk;":";HEX$(b);" at $";hex$(LOC(1)) +363 IF b = &HF7 OR b = &HF0 THEN 76'SysEx. Ignore Varlen. +364 IF b = &HF3 THEN GET #1: RETURN +365 IF b = &HF2 THEN GET #1: GET #1: RETURN +370 'Subroutine for special event FF +371 GET #1: evtype = ASC(b$): GOSUB 75: x = x#: GOSUB 70 +372 IF evtype = &H2F THEN tkStatus(tk) = -1 +373 IF evtype = &H51 THEN GOSUB 80: Tempo# = x# * InvDeltaTicks# +374 IF evtype = 6 AND s$ = "loopStart" THEN loopStart = 1 +375 IF evtype = 6 AND s$ = "loopEnd" THEN loopEnd = 1 +376 IF evtype < 1 OR evtype > 6 THEN RETURN +377 txtline = 3 + (txtline - 2) MOD 20 +378 LOCATE txtline, 1: COLOR 8: PRINT "Meta"; evtype; ": "; s$: RETURN + +380 'Subroutine for any normal event (80..EF) +381 IF b < 128 THEN b = tkStatus(tk) OR &H80: GET #1, tkPtr%(tk) +382 MidCh = b AND 15: tkStatus(tk) = b +383 '? tk;":";HEX$(b);" at $";hex$(LOC(1)) +384 ON b\16 - 7 GOTO 400,420,460,470,490,492,495 'Choose event handler + +400 'Event: 8x Note Off +401 GET #1: note = ASC(b$): GET #1': vol=ASC(b$) +402 ChBend#(MidCh) = 0 +403 n = ActRev(MidCh,note): IF n = 0 THEN RETURN +404 m = MidCh: GOTO 600 'deallocate active note, and return + +420 'Event: 9x Note On +421 GET #1: note = ASC(b$): GET #1: vol = ASC(b$) +422 IF vol = 0 THEN 402' Sometimes noteoffs are optimized as 0-vol noteons +423 IF ActRev(MidCh,note) THEN RETURN 'Ignore repeat notes w/o keyoffs +424 'Determine the instrument and the note value (tone) +425 tone = note: i = ChPatch(MidCh) +426 IF MidCh = 9 THEN i = 128+note-35: tone = adl(i,11) 'Translate percussion +427 '(MIDI channel 9 always plays percussion and ignores the patch number) +429 'Allocate AdLib channel (the physical sound channel for the note) +430 bs# = -9: c = -1 +431 FOR a = 0 TO 17 +432 s# = chage#(a) +433 IF chon(a) = 0 THEN s# = s# + 3d3 ' Empty channel = privileged +434 IF chins(a) = i THEN s# = s# + .2# ' Same instrument = good +435 IF i<128 AND chins(a)>127 THEN s# = s#*2+9'Percussion is inferior to melody +436 IF s# > bs# THEN bs# = s#: c = a ' Best candidate wins +437 NEXT +438 IF chon(c) THEN m=chm(c): n=cha(c): GOSUB 600 'Collision: Kill old note +439 chon(c) = 1: chins(c) = i: chage#(c) = 0: began = 1 +440 'Allocate active note for MIDI channel +441 '"Active note" helps dealing with further events affecting this note. +442 n = ActCount(MidCh) + 1 +443 ActList(MidCh, n) = note +444 ActRev(MidCh,note) = n +445 ActCount(MidCh) = n +449 'Record info about this note +450 ActTone(MidCh,note) = tone +451 ActAdlChn(MidCh,note) = c +452 ActVol(MidCh,note) = vol +453 chm(c) = MidCh: cha(c) = n ' Save this note's origin so collision works. +454 GOSUB 30 ' OPL_Patch +455 GOSUB 530' OPL_Pan with ChPanning +456 GOSUB 540' OPL_Touch with ChVolume +457 chx(c) = 1 + (tone+63)MOD 80: chc(c) = 9+(chins(c)MOD 6) +458 LOCATE 20-c, chx(c): COLOR chc(c): PRINT "#"; +459 GOTO 520 ' OPL_NoteOn with ChBend, and return + +460 'Event: Ax Note touch +461 GET #1: note = ASC(b$): GET #1: vol = ASC(b$) +462 IF ActRev(MidCh,note) = 0 THEN RETURN'Ignore touch if note is not active +463 c = ActAdlChn(MidCh,note) +464 LOCATE 20-c, chx(c): COLOR chc(c): PRINT "&"; +465 ActVol(MidCh,note) = vol +466 GOTO 540 'update note volume, and return + +470 'Event: Bx Controller change +471 GET #1: ctrlno = ASC(b$): GET #1: value = ASC(b$) +472 IF ctrlno = 1 THEN ChVibrato(MidCh) = value 'TODO: handle +473 IF ctrlno = 6 THEN bendsense# = value / 8192# +474 IF ctrlno = 7 THEN ChVolume(MidCh) = value: mop = 2: GOTO 500 +475 IF ctrlno = 10 THEN 482 'Pan +476 IF ctrlno = 121 THEN 486 'Reset controllers +477 IF ctrlno = 123 THEN mop=5: GOTO 500 'All notes off on channel +478 'Other ctrls worth considering: +479 ' 0 = choose bank (bank+patch identifies the instrument) +480 ' 64 = sustain pedal (when used, noteoff does not produce an adlib keyoff) +481 RETURN +482 'Ctrl 10: Alter the panning of the channel: +483 p = 0: IF value < 48 THEN p = 32 ELSE IF value > 79 THEN p = 16 +484 ChPanning(MidCh) = p +485 mop=4: GOTO 500 +486 'Ctrl 121: Reset all controllers to their default values. +487 ChBend#(MidCh)=0: ChVibrato(MidCh)=0: ChPan(MidCh)=0 +488 mop=1: GOSUB 500: mop=2: GOSUB 500: mop=4: GOTO 500 + +490 'Event: Cx Patch change +491 GET #1: ChPatch(MidCh) = ASC(b$): RETURN + +492 'Event: Dx Channel after-touch +493 GET #1: vol = ASC(b$): mop=3:GOTO 500 'TODO: Verify, is this correct action? + +495 'Event: Ex Wheel/bend +496 GET #1: a = ASC(b$): GET #1 +497 ChBend#(MidCh) = (a + ASC(b$) * 128 - 8192) * bendsense# +498 mop = 1: GOTO 500 'Update pitches, and return + +500 'Subroutine: Update all live notes. Input: MidCh,mop +501 'Update when mop: 1=pitches; 2=volumes; 3=pressures; 4=pans, 5=off +502 x1 = ActCount(MidCh) +503 FOR a = 1 TO x1 +504 note = ActList(MidCh, a) +505 c = ActAdlChn(MidCh,note): ON mop GOSUB 508,509,510,530,511 +506 NEXT +507 RETURN +508 tone = ActTone(MidCh,note): GOTO 520 +509 vol = ActVol(MidCh, note): GOTO 540 +510 ActVol(MidCh,note) = vol: GOTO 540 +511 m = MidCh: n = a: GOTO 600 + +520 'Subroutine: Update note pitch. Input: c,MidCh,tone. CHANGES q,p,o,x,h# +521 ' 907*2^(n/12) * (8363) / 44100 +522 h# = 172.00093# * EXP(.057762265#*(tone+ChBend#(MidCh))): GOTO 10'OPL_NoteOn + +530 'Subroutine: Update note pan. Input: c,MidCh +531 chpan(c) = ChPanning(MidCh): GOTO 38 'OPL_Pan + +540 'Subroutine: Update note volume. Input: c,MidCh,vol. CHANGES q,p,o,v +541 v = vol * ChVolume(MidCh): GOTO 20 'OPL_Touch + +600 'Subroutine: Deallocate active note (m = MidCh, n = index). CHANGES c,x,q +601 'Uses m instead of MidCh because called also from alloc-collision code. +602 x = ActCount(m) ' Find how many active notes +603 q = ActList(m,n) ' q=note to be deactivated +604 ActRev(m,q) = 0 ' that note is no more +605 ActCount(m) = x-1 ' The list is now shorter +606 c = ActAdlChn(m,q) ' But wait, which adlib channel was it on, again? +607 chon(c)=0: chage#(c)=0: GOSUB 8'OPL_NoteOff +608 LOCATE 20-c, chx(c): COLOR 1: PRINT "."; +610 IF n = x THEN RETURN' Did we delete the last note? +611 q = ActList(m,x) ' q = last note in list +612 ActList(m,n) = q ' move into the deleted slot +613 ActRev(m,q) = n +614 cha(ActAdlChn(m,q)) = n +615 RETURN + +760 'This FM Instrument Data comes from Miles Sound System, as used +761 'in the following PC games: Star Control III and Asterix, under +762 'the name AIL (Audio Interface Library). Today, AIL has been +763 'released as "open-source freeware" under the name Miles Sound System. +764 'AIL was used in more than fifty PC games, but so far, I have found +765 'this particular set of General MIDI FM patches only in SC3 and Asterix. +766 'Other games using AIL used different sets of FM patches. There is no +767 'particular reason for preferring this patch set, and in fact, the +768 'descendant of this program, ADLMIDI, http://iki.fi/source/adlmidi.html , +769 'features a large set of different FM patch sets to choose from. + +773 'In the Youtube video, I enter this huge blob of DATA lines very quickly +774 'by using a preprogrammed input TSR, "inputter", which I made just for +775 'this purpose. +776 'It inputs the inline command "COLOR 0,4", turning text into black on red, +777 'and then starts entering DATA lines in an arbitrary geometrical fashion. +778 'After inputting, the text color is reset to normal with "COLOR 7,0". +779 'Of course, the whole time, the poor syntax highlighter TSR (synhili) +780 'does its best to make sense of whatever is being displayed on the screen, +781 'causing the text to stay red only for a short while, whereever the cursor +782 'was last. The resulting effect looks very cool, and most importantly, +783 'the long sequence of DATA gets input in a non-boring manner. + +790 'The data bytes are: +791 ' [0,1] AM/VIB/EG/KSR/Multiple bits for carrier and modulator respectively +792 ' [2,3] KSL/Attenuation settings for carrier and modulator respectively +793 ' [4,5] Attack and decay rates for carrier and modulator respectively +794 ' [6,7] Sustain and release rates for carrier and modulator respectively +795 ' [8,9] Wave select settings for carrier and modulator respectively +796 ' [10] Feedback/connection bits for the channel (also stereo/pan bits) +797 ' [11] For percussive instruments (GP35..GP87), the tone to play + +800 DATA 1, 1,143, 6,242,242,244,247,0,0, 56, 0: REM GM1:AcouGrandPiano +801 DATA 1, 1, 75, 0,242,242,244,247,0,0, 56, 0: REM GM2:BrightAcouGrand +802 DATA 1, 1, 73, 0,242,242,244,246,0,0, 56, 0: REM GM3:ElecGrandPiano +803 DATA 129, 65, 18, 0,242,242,247,247,0,0, 54, 0: REM GM4:Honky-tonkPiano +804 DATA 1, 1, 87, 0,241,242,247,247,0,0, 48, 0: REM GM5:Rhodes Piano +805 DATA 1, 1,147, 0,241,242,247,247,0,0, 48, 0: REM GM6:Chorused Piano +806 DATA 1, 22,128, 14,161,242,242,245,0,0, 56, 0: REM GM7:Harpsichord +807 DATA 1, 1,146, 0,194,194,248,248,0,0, 58, 0: REM GM8:Clavinet +808 DATA 12,129, 92, 0,246,243,244,245,0,0, 48, 0: REM GM9:Celesta +809 DATA 7, 17,151,128,243,242,242,241,0,0, 50, 0: REM GM10:Glockenspiel +810 DATA 23, 1, 33, 0, 84,244,244,244,0,0, 50, 0: REM GM11:Music box +811 DATA 152,129, 98, 0,243,242,246,246,0,0, 48, 0: REM GM12:Vibraphone +812 DATA 24, 1, 35, 0,246,231,246,247,0,0, 48, 0: REM GM13:Marimba +813 DATA 21, 1,145, 0,246,246,246,246,0,0, 52, 0: REM GM14:Xylophone +814 DATA 69,129, 89,128,211,163,243,243,0,0, 60, 0: REM GM15:Tubular Bells +815 DATA 3,129, 73,128,117,181,245,245,1,0, 52, 0: REM GM16:Dulcimer +816 DATA 113, 49,146, 0,246,241, 20, 7,0,0, 50, 0: REM GM17:Hammond Organ +817 DATA 114, 48, 20, 0,199,199, 88, 8,0,0, 50, 0: REM GM18:Percussive Organ +818 DATA 112,177, 68, 0,170,138, 24, 8,0,0, 52, 0: REM GM19:Rock Organ +819 DATA 35,177,147, 0,151, 85, 35, 20,1,0, 52, 0: REM GM20:Church Organ +820 DATA 97,177, 19,128,151, 85, 4, 4,1,0, 48, 0: REM GM21:Reed Organ +821 DATA 36,177, 72, 0,152, 70, 42, 26,1,0, 60, 0: REM GM22:Accordion +822 DATA 97, 33, 19, 0,145, 97, 6, 7,1,0, 58, 0: REM GM23:Harmonica +823 DATA 33,161, 19,137,113, 97, 6, 7,0,0, 54, 0: REM GM24:Tango Accordion +824 DATA 2, 65,156,128,243,243,148,200,1,0, 60, 0: REM GM25:Acoustic Guitar1 +825 DATA 3, 17, 84, 0,243,241,154,231,1,0, 60, 0: REM GM26:Acoustic Guitar2 +826 DATA 35, 33, 95, 0,241,242, 58,248,0,0, 48, 0: REM GM27:Electric Guitar1 +827 DATA 3, 33,135,128,246,243, 34,248,1,0, 54, 0: REM GM28:Electric Guitar2 +828 DATA 3, 33, 71, 0,249,246, 84, 58,0,0, 48, 0: REM GM29:Electric Guitar3 +829 DATA 35, 33, 74, 5,145,132, 65, 25,1,0, 56, 0: REM GM30:Overdrive Guitar +830 DATA 35, 33, 74, 0,149,148, 25, 25,1,0, 56, 0: REM GM31:Distorton Guitar +831 DATA 9,132,161,128, 32,209, 79,248,0,0, 56, 0: REM GM32:Guitar Harmonics +832 DATA 33,162, 30, 0,148,195, 6,166,0,0, 50, 0: REM GM33:Acoustic Bass +833 DATA 49, 49, 18, 0,241,241, 40, 24,0,0, 58, 0: REM GM34:Electric Bass 1 +834 DATA 49, 49,141, 0,241,241,232,120,0,0, 58, 0: REM GM35:Electric Bass 2 +835 DATA 49, 50, 91, 0, 81,113, 40, 72,0,0, 60, 0: REM GM36:Fretless Bass +836 DATA 1, 33,139, 64,161,242,154,223,0,0, 56, 0: REM GM37:Slap Bass 1 +837 DATA 33, 33,139, 8,162,161, 22,223,0,0, 56, 0: REM GM38:Slap Bass 2 +838 DATA 49, 49,139, 0,244,241,232,120,0,0, 58, 0: REM GM39:Synth Bass 1 +839 DATA 49, 49, 18, 0,241,241, 40, 24,0,0, 58, 0: REM GM40:Synth Bass 2 +840 DATA 49, 33, 21, 0,221, 86, 19, 38,1,0, 56, 0: REM GM41:Violin +841 DATA 49, 33, 22, 0,221,102, 19, 6,1,0, 56, 0: REM GM42:Viola +842 DATA 113, 49, 73, 0,209, 97, 28, 12,1,0, 56, 0: REM GM43:Cello +843 DATA 33, 35, 77,128,113,114, 18, 6,1,0, 50, 0: REM GM44:Contrabass +844 DATA 241,225, 64, 0,241,111, 33, 22,1,0, 50, 0: REM GM45:Tremulo Strings +845 DATA 2, 1, 26,128,245,133,117, 53,1,0, 48, 0: REM GM46:Pizzicato String +846 DATA 2, 1, 29,128,245,243,117,244,1,0, 48, 0: REM GM47:Orchestral Harp +847 DATA 16, 17, 65, 0,245,242, 5,195,1,0, 50, 0: REM GM48:Timpany +848 DATA 33,162,155, 1,177,114, 37, 8,1,0, 62, 0: REM GM49:String Ensemble1 +849 DATA 161, 33,152, 0,127, 63, 3, 7,1,1, 48, 0: REM GM50:String Ensemble2 +850 DATA 161, 97,147, 0,193, 79, 18, 5,0,0, 58, 0: REM GM51:Synth Strings 1 +851 DATA 33, 97, 24, 0,193, 79, 34, 5,0,0, 60, 0: REM GM52:SynthStrings 2 +852 DATA 49,114, 91,131,244,138, 21, 5,0,0, 48, 0: REM GM53:Choir Aahs +853 DATA 161, 97,144, 0,116,113, 57,103,0,0, 48, 0: REM GM54:Voice Oohs +854 DATA 113,114, 87, 0, 84,122, 5, 5,0,0, 60, 0: REM GM55:Synth Voice +855 DATA 144, 65, 0, 0, 84,165, 99, 69,0,0, 56, 0: REM GM56:Orchestra Hit +856 DATA 33, 33,146, 1,133,143, 23, 9,0,0, 60, 0: REM GM57:Trumpet +857 DATA 33, 33,148, 5,117,143, 23, 9,0,0, 60, 0: REM GM58:Trombone +858 DATA 33, 97,148, 0,118,130, 21, 55,0,0, 60, 0: REM GM59:Tuba +859 DATA 49, 33, 67, 0,158, 98, 23, 44,1,1, 50, 0: REM GM60:Muted Trumpet +860 DATA 33, 33,155, 0, 97,127,106, 10,0,0, 50, 0: REM GM61:French Horn +861 DATA 97, 34,138, 6,117,116, 31, 15,0,0, 56, 0: REM GM62:Brass Section +862 DATA 161, 33,134,131,114,113, 85, 24,1,0, 48, 0: REM GM63:Synth Brass 1 +863 DATA 33, 33, 77, 0, 84,166, 60, 28,0,0, 56, 0: REM GM64:Synth Brass 2 +864 DATA 49, 97,143, 0,147,114, 2, 11,1,0, 56, 0: REM GM65:Soprano Sax +865 DATA 49, 97,142, 0,147,114, 3, 9,1,0, 56, 0: REM GM66:Alto Sax +866 DATA 49, 97,145, 0,147,130, 3, 9,1,0, 58, 0: REM GM67:Tenor Sax +867 DATA 49, 97,142, 0,147,114, 15, 15,1,0, 58, 0: REM GM68:Baritone Sax +868 DATA 33, 33, 75, 0,170,143, 22, 10,1,0, 56, 0: REM GM69:Oboe +869 DATA 49, 33,144, 0,126,139, 23, 12,1,1, 54, 0: REM GM70:English Horn +870 DATA 49, 50,129, 0,117, 97, 25, 25,1,0, 48, 0: REM GM71:Bassoon +871 DATA 50, 33,144, 0,155,114, 33, 23,0,0, 52, 0: REM GM72:Clarinet +872 DATA 225,225, 31, 0,133,101, 95, 26,0,0, 48, 0: REM GM73:Piccolo +873 DATA 225,225, 70, 0,136,101, 95, 26,0,0, 48, 0: REM GM74:Flute +874 DATA 161, 33,156, 0,117,117, 31, 10,0,0, 50, 0: REM GM75:Recorder +875 DATA 49, 33,139, 0,132,101, 88, 26,0,0, 48, 0: REM GM76:Pan Flute +876 DATA 225,161, 76, 0,102,101, 86, 38,0,0, 48, 0: REM GM77:Bottle Blow +877 DATA 98,161,203, 0,118, 85, 70, 54,0,0, 48, 0: REM GM78:Shakuhachi +878 DATA 98,161,153, 0, 87, 86, 7, 7,0,0, 59, 0: REM GM79:Whistle +879 DATA 98,161,147, 0,119,118, 7, 7,0,0, 59, 0: REM GM80:Ocarina +880 DATA 34, 33, 89, 0,255,255, 3, 15,2,0, 48, 0: REM GM81:Lead 1 squareea +881 DATA 33, 33, 14, 0,255,255, 15, 15,1,1, 48, 0: REM GM82:Lead 2 sawtooth +882 DATA 34, 33, 70,128,134,100, 85, 24,0,0, 48, 0: REM GM83:Lead 3 calliope +883 DATA 33,161, 69, 0,102,150, 18, 10,0,0, 48, 0: REM GM84:Lead 4 chiff +884 DATA 33, 34,139, 0,146,145, 42, 42,1,0, 48, 0: REM GM85:Lead 5 charang +885 DATA 162, 97,158, 64,223,111, 5, 7,0,0, 50, 0: REM GM86:Lead 6 voice +886 DATA 32, 96, 26, 0,239,143, 1, 6,0,2, 48, 0: REM GM87:Lead 7 fifths +887 DATA 33, 33,143,128,241,244, 41, 9,0,0, 58, 0: REM GM88:Lead 8 brass +888 DATA 119,161,165, 0, 83,160,148, 5,0,0, 50, 0: REM GM89:Pad 1 new age +889 DATA 97,177, 31,128,168, 37, 17, 3,0,0, 58, 0: REM GM90:Pad 2 warm +890 DATA 97, 97, 23, 0,145, 85, 52, 22,0,0, 60, 0: REM GM91:Pad 3 polysynth +891 DATA 113,114, 93, 0, 84,106, 1, 3,0,0, 48, 0: REM GM92:Pad 4 choir +892 DATA 33,162,151, 0, 33, 66, 67, 53,0,0, 56, 0: REM GM93:Pad 5 bowedpad +893 DATA 161, 33, 28, 0,161, 49,119, 71,1,1, 48, 0: REM GM94:Pad 6 metallic +894 DATA 33, 97,137, 3, 17, 66, 51, 37,0,0, 58, 0: REM GM95:Pad 7 halo +895 DATA 161, 33, 21, 0, 17,207, 71, 7,1,0, 48, 0: REM GM96:Pad 8 sweep +896 DATA 58, 81,206, 0,248,134,246, 2,0,0, 50, 0: REM GM97:FX 1 rain +897 DATA 33, 33, 21, 0, 33, 65, 35, 19,1,0, 48, 0: REM GM98:FX 2 soundtrack +898 DATA 6, 1, 91, 0,116,165,149,114,0,0, 48, 0: REM GM99:FX 3 crystal +899 DATA 34, 97,146,131,177,242,129, 38,0,0, 60, 0: REM GM100:FX 4 atmosphere +900 DATA 65, 66, 77, 0,241,242, 81,245,1,0, 48, 0: REM GM101:FX 5 brightness +901 DATA 97,163,148,128, 17, 17, 81, 19,1,0, 54, 0: REM GM102:FX 6 goblins +902 DATA 97,161,140,128, 17, 29, 49, 3,0,0, 54, 0: REM GM103:FX 7 echoes +903 DATA 164, 97, 76, 0,243,129,115, 35,1,0, 52, 0: REM GM104:FX 8 sci-fi +904 DATA 2, 7,133, 3,210,242, 83,246,0,1, 48, 0: REM GM105:Sitar +905 DATA 17, 19, 12,128,163,162, 17,229,1,0, 48, 0: REM GM106:Banjo +906 DATA 17, 17, 6, 0,246,242, 65,230,1,2, 52, 0: REM GM107:Shamisen +907 DATA 147,145,145, 0,212,235, 50, 17,0,1, 56, 0: REM GM108:Koto +908 DATA 4, 1, 79, 0,250,194, 86, 5,0,0, 60, 0: REM GM109:Kalimba +909 DATA 33, 34, 73, 0,124,111, 32, 12,0,1, 54, 0: REM GM110:Bagpipe +910 DATA 49, 33,133, 0,221, 86, 51, 22,1,0, 58, 0: REM GM111:Fiddle +911 DATA 32, 33, 4,129,218,143, 5, 11,2,0, 54, 0: REM GM112:Shanai +912 DATA 5, 3,106,128,241,195,229,229,0,0, 54, 0: REM GM113:Tinkle Bell +913 DATA 7, 2, 21, 0,236,248, 38, 22,0,0, 58, 0: REM GM114:Agogo Bells +914 DATA 5, 1,157, 0,103,223, 53, 5,0,0, 56, 0: REM GM115:Steel Drums +915 DATA 24, 18,150, 0,250,248, 40,229,0,0, 58, 0: REM GM116:Woodblock +916 DATA 16, 0,134, 3,168,250, 7, 3,0,0, 54, 0: REM GM117:Taiko Drum +917 DATA 17, 16, 65, 3,248,243, 71, 3,2,0, 52, 0: REM GM118:Melodic Tom +918 DATA 1, 16,142, 0,241,243, 6, 2,2,0, 62, 0: REM GM119:Synth Drum +919 DATA 14,192, 0, 0, 31, 31, 0,255,0,3, 62, 0: REM GM120:Reverse Cymbal +920 DATA 6, 3,128,136,248, 86, 36,132,0,2, 62, 0: REM GM121:Guitar FretNoise +921 DATA 14,208, 0, 5,248, 52, 0, 4,0,3, 62, 0: REM GM122:Breath Noise +922 DATA 14,192, 0, 0,246, 31, 0, 2,0,3, 62, 0: REM GM123:Seashore +923 DATA 213,218,149, 64, 55, 86,163, 55,0,0, 48, 0: REM GM124:Bird Tweet +924 DATA 53, 20, 92, 8,178,244, 97, 21,2,0, 58, 0: REM GM125:Telephone +925 DATA 14,208, 0, 0,246, 79, 0,245,0,3, 62, 0: REM GM126:Helicopter +926 DATA 38,228, 0, 0,255, 18, 1, 22,0,1, 62, 0: REM GM127:Applause/Noise +927 DATA 0, 0, 0, 0,243,246,240,201,0,2, 62, 0: REM GM128:Gunshot +928 DATA 16, 17, 68, 0,248,243,119, 6,2,0, 56, 35: REM GP35:Ac Bass Drum +929 DATA 16, 17, 68, 0,248,243,119, 6,2,0, 56, 35: REM GP36:Bass Drum 1 +930 DATA 2, 17, 7, 0,249,248,255,255,0,0, 56, 52: REM GP37:Side Stick +931 DATA 0, 0, 0, 0,252,250, 5, 23,2,0, 62, 48: REM GP38:Acoustic Snare +932 DATA 0, 1, 2, 0,255,255, 7, 8,0,0, 48, 58: REM GP39:Hand Clap +933 DATA 0, 0, 0, 0,252,250, 5, 23,2,0, 62, 60: REM GP40:Electric Snare +934 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 47: REM GP41:Low Floor Tom +935 DATA 12, 18, 0, 0,246,251, 8, 71,0,2, 58, 43: REM GP42:Closed High Hat +936 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 49: REM GP43:High Floor Tom +937 DATA 12, 18, 0, 5,246,123, 8, 71,0,2, 58, 43: REM GP44:Pedal High Hat +938 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 51: REM GP45:Low Tom +939 DATA 12, 18, 0, 0,246,203, 2, 67,0,2, 58, 43: REM GP46:Open High Hat +940 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 54: REM GP47:Low-Mid Tom +941 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 57: REM GP48:High-Mid Tom +942 DATA 14,208, 0, 0,246,159, 0, 2,0,3, 62, 72: REM GP49:Crash Cymbal 1 +943 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 60: REM GP50:High Tom +944 DATA 14, 7, 8, 74,248,244, 66,228,0,3, 62, 76: REM GP51:Ride Cymbal 1 +945 DATA 14,208, 0, 10,245,159, 48, 2,0,0, 62, 84: REM GP52:Chinese Cymbal +946 DATA 14, 7, 10, 93,228,245,228,229,3,1, 54, 36: REM GP53:Ride Bell +947 DATA 2, 5, 3, 10,180,151, 4,247,0,0, 62, 65: REM GP54:Tambourine +948 DATA 78,158, 0, 0,246,159, 0, 2,0,3, 62, 84: REM GP55:Splash Cymbal +949 DATA 17, 16, 69, 8,248,243, 55, 5,2,0, 56, 83: REM GP56:Cow Bell +950 DATA 14,208, 0, 0,246,159, 0, 2,0,3, 62, 84: REM GP57:Crash Cymbal 2 +951 DATA 128, 16, 0, 13,255,255, 3, 20,3,0, 60, 24: REM GP58:Vibraslap +952 DATA 14, 7, 8, 74,248,244, 66,228,0,3, 62, 77: REM GP59:Ride Cymbal 2 +953 DATA 6, 2, 11, 0,245,245, 12, 8,0,0, 54, 60: REM GP60:High Bongo +954 DATA 1, 2, 0, 0,250,200,191,151,0,0, 55, 65: REM GP61:Low Bongo +955 DATA 1, 1, 81, 0,250,250,135,183,0,0, 54, 59: REM GP62:Mute High Conga +956 DATA 1, 2, 84, 0,250,248,141,184,0,0, 54, 51: REM GP63:Open High Conga +957 DATA 1, 2, 89, 0,250,248,136,182,0,0, 54, 45: REM GP64:Low Conga +958 DATA 1, 0, 0, 0,249,250, 10, 6,3,0, 62, 71: REM GP65:High Timbale +959 DATA 0, 0,128, 0,249,246,137,108,3,0, 62, 60: REM GP66:Low Timbale +960 DATA 3, 12,128, 8,248,246,136,182,3,0, 63, 58: REM GP67:High Agogo +961 DATA 3, 12,133, 0,248,246,136,182,3,0, 63, 53: REM GP68:Low Agogo +962 DATA 14, 0, 64, 8,118,119, 79, 24,0,2, 62, 64: REM GP69:Cabasa +963 DATA 14, 3, 64, 0,200,155, 73,105,0,2, 62, 71: REM GP70:Maracas +964 DATA 215,199,220, 0,173,141, 5, 5,3,0, 62, 61: REM GP71:Short Whistle +965 DATA 215,199,220, 0,168,136, 4, 4,3,0, 62, 61: REM GP72:Long Whistle +966 DATA 128, 17, 0, 0,246,103, 6, 23,3,3, 62, 44: REM GP73:Short Guiro +967 DATA 128, 17, 0, 9,245, 70, 5, 22,2,3, 62, 40: REM GP74:Long Guiro +968 DATA 6, 21, 63, 0, 0,247,244,245,0,0, 49, 69: REM GP75:Claves +969 DATA 6, 18, 63, 0, 0,247,244,245,3,0, 48, 68: REM GP76:High Wood Block +970 DATA 6, 18, 63, 0, 0,247,244,245,0,0, 49, 63: REM GP77:Low Wood Block +971 DATA 1, 2, 88, 0,103,117,231, 7,0,0, 48, 74: REM GP78:Mute Cuica +972 DATA 65, 66, 69, 8,248,117, 72, 5,0,0, 48, 60: REM GP79:Open Cuica +973 DATA 10, 30, 64, 78,224,255,240, 5,3,0, 56, 80: REM GP80:Mute Triangle +974 DATA 10, 30,124, 82,224,255,240, 2,3,0, 56, 64: REM GP81:Open Triangle +975 DATA 14, 0, 64, 8,122,123, 74, 27,0,2, 62, 72: REM GP82 +976 DATA 14, 7, 10, 64,228, 85,228, 57,3,1, 54, 73: REM GP83 +977 DATA 5, 4, 5, 64,249,214, 50,165,3,0, 62, 70: REM GP84 +978 DATA 2, 21, 63, 0, 0,247,243,245,3,0, 56, 68: REM GP85 +979 DATA 1, 2, 79, 0,250,248,141,181,0,0, 55, 48: REM GP86 +980 DATA 0, 0, 0, 0,246,246, 12, 6,0,0, 52, 53: REM GP87 diff --git a/_old_files/progdesc.php b/_old_files/progdesc.php new file mode 100644 index 0000000..20a5226 --- /dev/null +++ b/_old_files/progdesc.php @@ -0,0 +1,176 @@ + " + +
+ +
+This screenshot shows ADLMidi running on Linux, seen through +a SSH +session that runs in Cygwin +XTerm on Windows 7.
 +The lovely dithering pattern is generated by +animmerger, +another one of my pet projects…(The image above has only 16 colors)
+ +AdlMIDI is a commandline program that plays MIDI files +using software OPL3 emulation (FM synthesis). + +", 'features:1. Key features' => " + +
    +
  • OPL3 emulation with four-operator mode support
    • +
  • FM patches from a number of known PC games, copied from + files typical to + AIL = Miles Sound System / DMX / HMI = Human Machine Interfaces + / Creative IBK.
    • +
  • Stereo sound
    • +
  • Reverb filter based on code from SoX, + based on code from Freeverb. + A copy of either project is not needed.
    • +
  • Number of simulated soundcards can be specified as 1-100 (maximum channels 1800!)
    • +
  • xterm-256color support
    • +
  • WIN32 console support (also tested with HXRT / MS-DOS)
    • +
  • Pan (binary panning, i.e. left/right side on/off)
    • +
  • Pitch-bender with adjustable range
    • +
  • Vibrato that responds to RPN/NRPN parameters
    • +
  • Sustain enable/disable
    • +
  • MIDI and RMI file support
    • +
  • loopStart / loopEnd tag support (Final Fantasy VII)
    • +
  • Use automatic arpeggio with chords to relieve channel pressure
    • +
  • Support for multiple concurrent MIDI synthesizers (per-track device/port select FF 09 message), can be used to overcome 16 channel limit
    • +
+ +
+This project is developed in C++, but a GW-BASIC version is also provided +(MIDIPLAY.BAS). +This player was +first implemented in GW-BASIC for a Youtube demonstration video! +With alterations that take 15 seconds to implement, +it can be run in QBasic and QuickBASIC too. +Note: The GW-BASIC version does not contain all of the same features that the C++ version does. + +", 'usage: 1. Usage' => " + +
ADLMIDI: MIDI player for Linux and Windows with OPL3 emulation
+(C) -- http://iki.fi/bisqwit/source/adlmidi.html
+Usage: adlmidi  [  ] [  [  [ ] ] ]
+       adlmidi  -1   To enter instrument tester
+ -p Enables adlib percussion instrument mode
+ -t Enables tremolo amplification mode
+ -v Enables vibrato amplification mode
+ -s Enables scaling of modulator volumes
+ -nl Quit without looping
+ -w Write WAV file rather than playing
+    Banks: 0 = AIL (Star Control 3, Albion, Empire 2, Sensible Soccer, Settlers 2, many others)
+           1 = Bisqwit (selection of 4op and 2op)
+           2 = HMI (Descent, Asterix)
+           3 = HMI (Descent:: Int)
+           4 = HMI (Descent:: Ham)
+           5 = HMI (Descent:: Rick)
+           6 = HMI (Descent 2)
+           7 = HMI (Normality)
+           8 = HMI (Shattered Steel)
+           9 = HMI (Theme Park)
+          10 = HMI (3d Table Sports, Battle Arena Toshinden)
+          11 = HMI (Aces of the Deep)
+          12 = HMI (Earthsiege)
+          13 = HMI (Anvil of Dawn)
+          14 = DMX (Doom           :: partially pseudo 4op)
+          15 = DMX (Hexen, Heretic :: partially pseudo 4op)
+          16 = DMX (MUS Play       :: partially pseudo 4op)
+          17 = AIL (Discworld, Grandest Fleet, Pocahontas, Slob Zone 3d, Ultima 4, Zorro)
+          18 = AIL (Warcraft 2)
+          19 = AIL (Syndicate)
+          20 = AIL (Guilty, Orion Conspiracy, Terra Nova Strike Force Centauri :: 4op)
+          21 = AIL (Magic Carpet 2)
+          22 = AIL (Nemesis)
+          23 = AIL (Jagged Alliance)
+          24 = AIL (When Two Worlds War :: 4op, MISSING INSTRUMENTS)
+          25 = AIL (Bards Tale Construction :: MISSING INSTRUMENTS)
+          26 = AIL (Return to Zork)
+          27 = AIL (Theme Hospital)
+          28 = AIL (National Hockey League PA)
+          29 = AIL (Inherit The Earth)
+          30 = AIL (Inherit The Earth, file two)
+          31 = AIL (Little Big Adventure :: 4op)
+          32 = AIL (Wreckin Crew)
+          33 = AIL (Death Gate)
+          34 = AIL (FIFA International Soccer)
+          35 = AIL (Starship Invasion)
+          36 = AIL (Super Street Fighter 2 :: 4op)
+          37 = AIL (Lords of the Realm :: MISSING INSTRUMENTS)
+          38 = AIL (SimFarm, SimHealth :: 4op)
+          39 = AIL (SimFarm, Settlers, Serf City)
+          40 = AIL (Caesar 2 :: partially 4op, MISSING INSTRUMENTS)
+          41 = AIL (Syndicate Wars)
+          42 = AIL (Bubble Bobble Feat. Rainbow Islands, Z)
+          43 = AIL (Warcraft)
+          44 = AIL (Terra Nova Strike Force Centuri :: partially 4op)
+          45 = AIL (System Shock :: partially 4op)
+          46 = AIL (Advanced Civilization)
+          47 = AIL (Battle Chess 4000 :: partially 4op, melodic only)
+          48 = AIL (Ultimate Soccer Manager :: partially 4op)
+          49 = AIL (Air Bucks, Blue And The Gray, America Invades, Terminator 2029)
+          50 = AIL (Ultima Underworld 2)
+          51 = AIL (Kasparov's Gambit)
+          52 = AIL (High Seas Trader :: MISSING INSTRUMENTS)
+          53 = AIL (Master of Magic, Master of Orion 2 :: 4op, std percussion)
+          54 = AIL (Master of Magic, Master of Orion 2 :: 4op, orchestral percussion)
+          55 = SB (Action Soccer)
+          56 = SB (3d Cyberpuck :: melodic only)
+          57 = SB (Simon the Sorcerer :: melodic only)
+          58 = OP3 (The Fat Man 2op set)
+          59 = OP3 (The Fat Man 4op set)
+          60 = OP3 (JungleVision 2op set :: melodic only)
+          61 = OP3 (Wallace 2op set, Nitemare 3D :: melodic only)
+          62 = TMB (Duke Nukem 3D)
+          63 = TMB (Shadow Warrior)
+          64 = DMX (Raptor)
+     Use banks 2-5 to play Descent \"q\" soundtracks.
+     Look up the relevant bank number from descent.sng.
+
+     The fourth parameter can be used to specify the number
+     of four-op channels to use. Each four-op channel eats
+     the room of two regular channels. Use as many as required.
+     The Doom & Hexen sets require one or two, while
+     Miles four-op set requires the maximum of numcards*6.
+ +", 'copying:1. Copying and contributing' => " + +ADLMIDI is distributed under the terms of the +General Public License +version 3 (GPL3). +
+The OPL3 emulator within is from DOSBox is licensed under GPL2+. +
+The FM soundfonts (patches) used in the program are +imported from various PC games without permission +from their respective authors. The question of copyright, when +it comes to sets of 11 numeric bytes, is somewhat vague, especially +considering that most of those sets are simply descendants of the +patch sets originally published by AdLib Inc. for everyone's free use. +

+Patches (as in source code modifications) +and other related material can be submitted +to the primary author +".GetEmail('by e-mail at:', 'Joel Yliluoma', 'bisqwi'. 't@iki.fi')." +

+The author also wishes to hear if you use adlmidi, and for what you +use it and what you think of it. + +"); +include '/WWW/progdesc.php'; -- cgit v1.2.3