sfx/ 40775 764 764 0 6737716413 10330 5ustar stevestevesfx/ChangeLog.sfx100644 764 764 1667 6653073474 13006 0ustar stevestevever.0.4.2 - Add setfx command. - Add lock option. - Support for virtual bank file. - Support for preset mapping - Merge global variables to one option structure. - Change from Makefile to Imakefile - Create AWElib for easy use of patch loading - Fix a getopt bug. - Fix a bug in calculation of envelope hold time - Fix a bug in calculation of coarse loop addresses - Sfxload tells if the file is not found - Add keynote option in gusload - Change sfxtest arguments ver.0.4.1 development versions ver.0.4.0 TOTALLY REWRITEN. - Remove -i option: always remove samples if not speicifed -b option. - Remove other obsolte options, -I, -s, -m. (though they're remained for comaptibility.) - Add attenuation control options, -A and -a. - Add memory display option, -M. - Do not support SFX file in sfxload utility. - Read & write S-expression style text file. - Add partial loading - Use default rc file - Support long options sfx/INSTALL100644 764 764 1447 6653073474 11462 0ustar stevesteve==================================================================== ** INSTALLATION OF UTILIITY PROGRAMS FOR AWEDRV ** ==================================================================== 0. Requirements - AWE32 driver v0.4.2 or newer AWE32 driver and utilities can be downloaded from: http://bahamut.mm.t.u-tokyo.ac.jp/~iwai/awedrv/ 1. Edit awelib/config.h + Define MAKE_SHARED_LIBRARY to create shared AWElib. + Change DEFAULT_SF_PATH for the search path of soundfont files. + Change DEFAULT_VOLUME for the default volume. + Change DEF_ATTEN_SENSE for attenuation sensitivity (-a option). + The system resource file is defined by RCFILE and SYSTEM_RCFILE. 2. Make Makefiles via xmkmf % xmkmf % make Makefiles 3. Make and install the programs % make all % make install sfx/Imakefile100644 764 764 2545 6653073474 12242 0ustar stevesteve/* * Imakefile for awesfx package */ #include "awelib/config.h" #define IHaveSubdirs SUBDIRS = awelib include #define PassCDebugFlags 'CDEBUGFLAGS=$(CDEBUGFLAGS)' /* binary and manual directories */ BINDIR = /usr/local/bin MANDIR = /usr/local/man/man1 MANSUFFIX = 1 /* include directory for awelib */ INCLUDES += -Iinclude #ifdef FreeBSDArchitecture /* search path of awe_voice.h. */ INCLUDES += -I/usr/src/sys/i386/isa/sound #endif INCLUDES += -I/usr/src/linux/include #ifdef MAKE_SHARED_LIBRARY DEPLIB = awelib/libawe.so #else DEPLIB = awelib/libawe.a #endif AWELIB = -Lawelib -lawe NormalProgramTarget(sfxload, sfxload.o seq.o, $(DEPLIB), $(AWELIB), -lm) AllTarget(sfxload) InstallProgram(sfxload, $(BINDIR)) InstallManPage(sfxload, $(MANDIR)) NormalProgramTarget(setfx, setfx.o seq.o, $(DEPLIB), $(AWELIB), -lm) AllTarget(setfx) InstallProgram(setfx, $(BINDIR)) NormalProgramTarget(sf2text, sf2text.o, $(DEPLIB), $(AWELIB), -lm) AllTarget(sf2text) InstallProgram(sf2text, $(BINDIR)) NormalProgramTarget(text2sf, text2sf.o, $(DEPLIB), $(AWELIB), -lm) AllTarget(text2sf) InstallProgram(text2sf, $(BINDIR)) NormalProgramTarget(gusload, gusload.o seq.o,,, -lm) AllTarget(gusload) InstallProgram(gusload, $(BINDIR)) NormalProgramTarget(sfxtest, sfxtest.o seq.o,,, -lm) AllTarget(sfxtest) InstallProgram(sfxtest, $(BINDIR)) NamedMakeSubdirs($(DEPLIB),$(SUBDIRS)) sfx/Makefile100664 764 764 56401 6653073474 12113 0ustar stevesteve# Makefile generated by imake - do not edit! # $TOG: imake.c /main/97 1997/06/20 20:23:51 kaleb $ # ---------------------------------------------------------------------- # Makefile generated from "Imake.tmpl" and # $TOG: Imake.tmpl /main/245 1997/05/20 10:05:47 kaleb $ # # # # # $XFree86: xc/config/cf/Imake.tmpl,v 3.32.2.8 1998/02/08 11:19:24 dawes Exp $ # ---------------------------------------------------------------------- all:: .SUFFIXES: .i # $TOG: Imake.cf /main/28 1997/06/25 08:31:36 barstow $ # $XFree86: xc/config/cf/Imake.cf,v 3.34.2.3 1997/07/27 02:41:02 dawes Exp $ # ----------------------------------------------------------------------- # site-specific configuration parameters that need to come before # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def /main/revisionist/4 1996/12/31 08:02:07 kaleb $ # site: $XFree86: xc/config/cf/site.def,v 3.17.2.1 1997/06/22 10:32:21 dawes Exp $ # $XFree86: xc/config/cf/xf86site.def,v 3.101.2.15 1998/02/24 19:05:42 hohndel Exp $ # ---------------------------------------------------------------------- # platform-specific configuration parameters - edit linux.cf to change # platform: $TOG: linux.cf /main/36 1997/06/16 22:21:03 kaleb $ # platform: $XFree86: xc/config/cf/linux.cf,v 3.57.2.12 1998/03/01 01:57:10 dawes Exp $ # operating system: Linux 2.0.34 i686 [ELF] (2.0.34) # libc: (6.0.7) # binutils: (29) # $XConsortium: lnxLib.rules /main/13 1996/09/28 16:11:01 rws $ # $XFree86: xc/config/cf/lnxLib.rules,v 3.28.2.3 1997/06/22 10:32:20 dawes Exp $ # $XFree86: xc/config/cf/xfree86.cf,v 3.129.2.22 1998/02/24 19:05:43 hohndel Exp $ # $XConsortium: xfree86.cf /main/34 1996/12/06 11:45:18 rws $ LINKKITDIR = $(USRLIBDIR)/Server XF98LINKKITDIR = $(USRLIBDIR)/Server XF86SRC = $(SERVERSRC)/hw/xfree86 XF86ACCELSRC = $(XF86SRC)/accel XF86COMSRC = $(XF86SRC)/common XF86CONFIGSRC = $(XF86COMSRC) XF86HWSRC = $(XF86SRC)/common_hw XF86OSSRC = $(XF86SRC)/os-support VGADRIVERSRC = $(XF86SRC)/vga256/drivers VGA16DRIVERSRC = $(XF86SRC)/vga16/drivers VGA2DRIVERSRC = $(XF86SRC)/vga2/drivers MONODRIVERSRC = $(XF86SRC)/mono/drivers S3DRIVERSRC = $(XF86SRC)/accel/s3/drivers S3VDRIVERSRC = $(XF86SRC)/accel/s3_virge/drivers XF68SRC = $(SERVERSRC)/hw/xfree68 XF68COMSRC = $(XF68SRC)/common XF68CONFIGSRC = $(XF68COMSRC) XF68OSSRC = $(XF68SRC)/os-support XF98SRC = $(SERVERSRC)/hw/xfree98 XF98ACCELSRC = $(XF98SRC)/accel XF98COMSRC = $(XF98SRC)/common XF98CONFIGSRC = $(XF98COMSRC) XF98HWSRC = $(XF98SRC)/common_hw/generic XF98HWNECSRC = $(XF98SRC)/common_hw/nec XF98HWPWSKBSRC = $(XF98SRC)/common_hw/pwskb XF98HWPWLBSRC = $(XF98SRC)/common_hw/pwlb XF98HWGA968SRC = $(XF98SRC)/common_hw/ga968 XF98OSSRC = $(XF98SRC)/os-support XF98VGADRIVERSRC = $(XF98SRC)/vga256/drivers XF98VGA16DRIVERSRC = $(XF98SRC)/vga16/drivers XF98VGA2DRIVERSRC = $(XF98SRC)/vga2/drivers XF98MONODRIVERSRC = $(XF98SRC)/mono/drivers XF98NECS3DRIVERSRC = $(XF98SRC)/accel/s3nec/drivers XF98PWSKBDRIVERSRC = $(XF98SRC)/accel/s3pwskb/drivers XF98PWLBDRIVERSRC = $(XF98SRC)/accel/s3pwlb/drivers XF98GA968DRIVERSRC = $(XF98SRC)/accel/s3ga968/drivers XFREE86DOCDIR = $(LIBDIR)/doc XFREE86PSDOCDIR = $(XFREE86DOCDIR)/PostScript XFREE86HTMLDOCDIR = $(XFREE86DOCDIR)/html XFREE86JAPANESEDOCDIR = $(XFREE86DOCDIR)/Japanese # $XConsortium: xf86.rules /main/9 1996/10/31 14:54:26 kaleb $ # $XFree86: xc/config/cf/xf86.rules,v 3.16.2.1 1997/05/18 12:00:01 dawes Exp $ # ---------------------------------------------------------------------- # site-specific configuration parameters that go after # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def /main/revisionist/4 1996/12/31 08:02:07 kaleb $ # site: $XFree86: xc/config/cf/site.def,v 3.17.2.1 1997/06/22 10:32:21 dawes Exp $ # --------------------------------------------------------------------- # Imake rules for building libraries, programs, scripts, and data files # rules: $TOG: Imake.rules /main/222 1997/07/17 20:04:40 kaleb $ # rules: $XFree86: xc/config/cf/Imake.rules,v 3.33.2.7 1998/02/06 09:02:17 dawes Exp $ _NULLCMD_ = @ echo -n TKLIBNAME = TKLIBDIR = TCLLIBNAME = TCLIBDIR = PATHSEP = / SHELL = /bin/sh TOP = . CURRENT_DIR = . IMAKE = imake DEPEND = gccmakedep MKDIRHIER = mkdir -p EXPORTLISTGEN = CONFIGSRC = $(TOP)/config IMAKESRC = $(CONFIGSRC)/imake DEPENDSRC = $(CONFIGSRC)/util INCROOT = /usr/X11R6/include USRLIBDIR = /usr/X11R6/lib VARLIBDIR = /var/lib SHLIBDIR = /usr/X11R6/lib LINTLIBDIR = $(USRLIBDIR)/lint MANPATH = /usr/X11R6/man MANSOURCEPATH = $(MANPATH)/man MANDIR = $(MANSOURCEPATH)1 LIBMANDIR = $(MANSOURCEPATH)3 FILEMANDIR = $(MANSOURCEPATH)5 AR = ar clq BOOTSTRAPCFLAGS = CC = gcc AS = as .SUFFIXES: .cc CXX = c++ CXXFILT = c++filt CXXLIB = CXXDEBUGFLAGS = -O2 -fno-strength-reduce CXXDEPENDINCLUDES = CXXEXTRA_DEFINES = CXXEXTRA_INCLUDES = CXXSTD_DEFINES = -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(CXXPROJECT_DEFINES) CXXOPTIONS = CXXINCLUDES = $(INCLUDES) $(TOP_INCLUDES) $(CXXEXTRA_INCLUDES) CXXDEFINES = $(CXXINCLUDES) $(CXXSTD_DEFINES) $(THREADS_CXXDEFINES) $(CXXEXTRA_DEFINES) $(DEFINES) CXXFLAGS = $(CXXDEBUGFLAGS) $(CXXOPTIONS) $(THREADS_CXXFLAGS) $(CXXDEFINES) COMPRESS = compress GZIPCMD = gzip CPP = /lib/cpp $(STD_CPP_DEFINES) PREPROCESSCMD = gcc -E $(STD_CPP_DEFINES) INSTALL = install INSTALLFLAGS = -c LD = ld LEX = flex -l LEXLIB = -lfl YACC = bison -y CCYACC = bison -y LINT = lint LINTLIBFLAG = -C LINTOPTS = -axz LN = ln -s MAKE = make MV = mv -f CP = cp RANLIB = ranlib RANLIBINSTFLAGS = RM = rm -f MANSUFFIX = 1x LIBMANSUFFIX = 3x FILEMANSUFFIX = 5x TROFF = psroff NROFF = nroff MSMACROS = -ms MANMACROS = -man TBL = tbl EQN = eqn NEQN = neqn COL = col DVIPS = dvips LATEX = latex STD_INCLUDES = STD_CPP_DEFINES = -traditional -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(PROJECT_DEFINES) STD_DEFINES = -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(PROJECT_DEFINES) EXTRA_LOAD_FLAGS = EXTRA_LDOPTIONS = EXTRA_LIBRARIES = TAGS = ctags PARALLELMFLAGS = SHAREDCODEDEF = SHLIBDEF = SHLIBLDFLAGS = -shared PICFLAGS = -fPIC CXXPICFLAGS = -fPIC PROTO_DEFINES = -DFUNCPROTO=15 -DNARROWPROTO INSTPGMFLAGS = -s INSTBINFLAGS = -m 0755 INSTUIDFLAGS = -m 4711 INSTLIBFLAGS = -m 0644 INSTINCFLAGS = -m 0444 INSTMANFLAGS = -m 0444 INSTDATFLAGS = -m 0444 INSTKMEMFLAGS = -m 4711 PROJECTROOT = /usr/X11R6 CDEBUGFLAGS = -O2 -fno-strength-reduce CCOPTIONS = ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES) ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(THREADS_DEFINES) $(DEFINES) CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(THREADS_CFLAGS) $(ALLDEFINES) LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) $(DEPEND_DEFINES) LDPRELIB = -L$(USRLIBDIR) LDPOSTLIB = LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(EXTRA_LDOPTIONS) $(THREADS_LDFLAGS) $(LOCAL_LDFLAGS) $(LDPRELIBS) CXXLDOPTIONS = $(CXXDEBUGFLAGS) $(CXXOPTIONS) $(EXTRA_LDOPTIONS) $(THREADS_CXXLDFLAGS) $(LOCAL_LDFLAGS) $(LDPRELIBS) LDLIBS = $(LDPOSTLIBS) $(THREADS_LIBS) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) CCLINK = $(CC) CXXLINK = $(CXX) LDSTRIPFLAGS = -x LDCOMBINEFLAGS = -r DEPENDFLAGS = # Not sure this belongs here TKLIBDIR = TKINCDIR = TKLIBNAME = TKLIBRARY = -L$(TKLIBDIR) -l$(TKLIBNAME) TCLLIBDIR = TCLINCDIR = TCLLIBNAME = TCLLIBRARY = -L$(TCLLIBDIR) -l$(TCLLIBNAME) MACROFILE = linux.cf RM_CMD = $(RM) IMAKE_DEFINES = IRULESRC = $(CONFIGDIR) IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES) ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/X11.tmpl $(IRULESRC)/site.def $(IRULESRC)/$(MACROFILE) $(IRULESRC)/xfree86.cf $(IRULESRC)/xf86.rules $(IRULESRC)/xf86site.def $(IRULESRC)/host.def $(EXTRA_ICONFIGFILES) # $TOG: X11.rules /main/4 1997/04/30 15:23:24 kaleb $ # ---------------------------------------------------------------------- # X Window System Build Parameters and Rules # $TOG: X11.tmpl /main/292 1997/05/20 10:05:59 kaleb $ # # # # # $XFree86: xc/config/cf/X11.tmpl,v 1.8.2.4 1998/01/23 12:35:08 dawes Exp $ # ----------------------------------------------------------------------- # X Window System make variables; these need to be coordinated with rules XTOP = $(TOP) BINDIR = /usr/X11R6/bin BUILDINCROOT = $(TOP)/exports BUILDINCDIR = $(BUILDINCROOT)/include BUILDINCTOP = ../.. BUILDLIBDIR = $(TOP)/exports/lib BUILDLIBTOP = ../.. BUILDBINDIR = $(TOP)/exports/bin BUILDBINTOP = ../.. XBUILDINCROOT = $(XTOP)/exports XBUILDINCDIR = $(XBUILDINCROOT)/include/X11 XBUILDINCTOP = ../../.. XBUILDBINDIR = $(XBUILDINCROOT)/bin INCDIR = $(INCROOT) ADMDIR = /usr/adm LIBDIR = $(USRLIBDIR)/X11 TOP_X_INCLUDES = -I$(XPROJECTROOT)/include VARDIR = /var/X11 FONTDIR = $(LIBDIR)/fonts XINITDIR = $(LIBDIR)/xinit XDMDIR = $(LIBDIR)/xdm XDMVARDIR = $(VARLIBDIR)/xdm TWMDIR = $(LIBDIR)/twm XSMDIR = $(LIBDIR)/xsm NLSDIR = $(LIBDIR)/nls XLOCALEDIR = $(LIBDIR)/locale PEXAPIDIR = $(LIBDIR)/PEX LBXPROXYDIR = $(LIBDIR)/lbxproxy PROXYMANAGERDIR = $(LIBDIR)/proxymngr XPRINTDIR = $(LIBDIR) XAPPLOADDIR = $(LIBDIR)/app-defaults FONTCFLAGS = -t INSTAPPFLAGS = $(INSTDATFLAGS) RGB = rgb FONTC = bdftopcf MKFONTDIR = mkfontdir DOCUTILSRC = $(XTOP)/doc/util CLIENTSRC = $(TOP)/clients DEMOSRC = $(TOP)/demos XDOCMACROS = $(DOCUTILSRC)/macros.t XIDXMACROS = $(DOCUTILSRC)/indexmacros.t PROGRAMSRC = $(TOP)/programs LIBSRC = $(XTOP)/lib FONTSRC = $(XTOP)/fonts INCLUDESRC = $(BUILDINCROOT)/include XINCLUDESRC = $(INCLUDESRC)/X11 SERVERSRC = $(XTOP)/programs/Xserver CONTRIBSRC = $(XTOP)/../contrib UNSUPPORTEDSRC = $(XTOP)/unsupported DOCSRC = $(XTOP)/doc RGBSRC = $(XTOP)/programs/rgb BDFTOPCFSRC = $(PROGRAMSRC)/bdftopcf MKFONTDIRSRC = $(PROGRAMSRC)/mkfontdir FONTSERVERSRC = $(PROGRAMSRC)/xfs FONTINCSRC = $(XTOP)/include/fonts EXTINCSRC = $(XTOP)/include/extensions TRANSCOMMSRC = $(LIBSRC)/xtrans TRANS_INCLUDES = -I$(TRANSCOMMSRC) XENVLIBDIR = $(USRLIBDIR) CLIENTENVSETUP = LD_LIBRARY_PATH=$(XENVLIBDIR) # $XConsortium: lnxLib.tmpl,v 1.5 95/01/11 21:44:44 kaleb Exp $ # $XFree86: xc/config/cf/lnxLib.tmpl,v 3.9 1996/02/24 04:32:52 dawes Exp $ XLIBSRC = $(LIBSRC)/X11 SOXLIBREV = 6.1 DEPXONLYLIB = XONLYLIB = -lX11 LINTXONLY = $(LINTLIBDIR)/llib-lX11.ln XLIBONLY = $(XONLYLIB) XEXTLIBSRC = $(LIBSRC)/Xext SOXEXTREV = 6.3 DEPEXTENSIONLIB = EXTENSIONLIB = -lXext LINTEXTENSION = $(LINTLIBDIR)/llib-lXext.ln LINTEXTENSIONLIB = $(LINTEXTENSION) DEPXLIB = $(DEPEXTENSIONLIB) $(DEPXONLYLIB) XLIB = $(EXTENSIONLIB) $(XONLYLIB) LINTXLIB = $(LINTXONLYLIB) XSSLIBSRC = $(LIBSRC)/Xss DEPXSSLIB = $(USRLIBDIR)/libXss.a XSSLIB = -lXss LINTXSS = $(LINTLIBDIR)/llib-lXss.ln XXF86MISCLIBSRC = $(LIBSRC)/Xxf86misc DEPXXF86MISCLIB = $(USRLIBDIR)/libXxf86misc.a XXF86MISCLIB = -lXxf86misc LINTXXF86MISC = $(LINTLIBDIR)/llib-lXxf86misc.ln XXF86VMLIBSRC = $(LIBSRC)/Xxf86vm DEPXXF86VMLIB = $(USRLIBDIR)/libXxf86vm.a XXF86VMLIB = -lXxf86vm LINTXXF86VM = $(LINTLIBDIR)/llib-lXxf86vm.ln XXF86DGALIBSRC = $(LIBSRC)/Xxf86dga DEPXXF86DGALIB = $(USRLIBDIR)/libXxf86dga.a XXF86DGALIB = -lXxf86dga LINTXXF86DGA = $(LINTLIBDIR)/llib-lXxf86dga.ln XDPMSLIBSRC = $(LIBSRC)/Xdpms DEPXDPMSLIB = $(USRLIBDIR)/libXdpms.a XDPMSLIB = -lXdpms LINTXDPMS = $(LINTLIBDIR)/llib-lXdpms.ln XAUTHSRC = $(LIBSRC)/Xau DEPXAUTHLIB = $(USRLIBDIR)/libXau.a XAUTHLIB = -lXau LINTXAUTH = $(LINTLIBDIR)/llib-lXau.ln XDMCPLIBSRC = $(LIBSRC)/Xdmcp DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a XDMCPLIB = -lXdmcp LINTXDMCP = $(LINTLIBDIR)/llib-lXdmcp.ln XMUSRC = $(LIBSRC)/Xmu SOXMUREV = 6.0 DEPXMULIB = XMULIB = -lXmu LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln OLDXLIBSRC = $(LIBSRC)/oldX DEPOLDXLIB = $(USRLIBDIR)/liboldX.a OLDXLIB = -loldX LINTOLDX = $(LINTLIBDIR)/llib-loldX.ln XPLIBSRC = $(LIBSRC)/Xp SOXPREV = 6.2 DEPXPLIB = XPLIB = -lXp LINTXP = $(LINTLIBDIR)/llib-lXp.ln TOOLKITSRC = $(LIBSRC)/Xt SOXTREV = 6.0 DEPXTOOLONLYLIB = XTOOLONLYLIB = -lXt LINTXTOOLONLY = $(LINTLIBDIR)/llib-lXt.ln DEPXTOOLLIB = $(DEPXTOOLONLYLIB) $(DEPSMLIB) $(DEPICELIB) XTOOLLIB = $(XTOOLONLYLIB) $(SMLIB) $(ICELIB) LINTXTOOLLIB = $(LINTXTOOLONLYLIB) XALIBSRC = $(LIBSRC)/Xa SOXAREV = 1.0 DEPXALIB = XALIB = -lXa LINTXA = $(LINTLIBDIR)/llib-lXa.ln AWIDGETSRC = $(LIBSRC)/Xaw SOXAWREV = 6.1 DEPXAWLIB = XAWLIB = -lXaw LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln XILIBSRC = $(LIBSRC)/Xi SOXINPUTREV = 6.0 DEPXILIB = XILIB = -lXi LINTXI = $(LINTLIBDIR)/llib-lXi.ln XTESTLIBSRC = $(LIBSRC)/Xtst SOXTESTREV = 6.1 DEPXTESTLIB = XTESTLIB = -lXtst LINTXTEST = $(LINTLIBDIR)/llib-lXtst.ln PEXLIBSRC = $(LIBSRC)/PEX5 SOPEXREV = 6.0 DEPPEXLIB = PEXLIB = -lPEX5 LINTPEX = $(LINTLIBDIR)/llib-lPEX5.ln XIELIBSRC = $(LIBSRC)/XIE SOXIEREV = 6.0 DEPXIELIB = XIELIB = -lXIE LINTXIE = $(LINTLIBDIR)/llib-lXIE.ln PHIGSLIBSRC = $(LIBSRC)/PHIGS DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a PHIGSLIB = -lphigs LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a XBSDLIB = -lXbsd LINTXBSD = $(LINTLIBDIR)/llib-lXbsd.ln ICESRC = $(LIBSRC)/ICE SOICEREV = 6.3 DEPICELIB = ICELIB = -lICE LINTICE = $(LINTLIBDIR)/llib-lICE.ln SMSRC = $(LIBSRC)/SM SOSMREV = 6.0 DEPSMLIB = SMLIB = -lSM LINTSM = $(LINTLIBDIR)/llib-lSM.ln XKEYSRC = $(LIBSRC)/Xkey SOXKEYREV = 6.0 DEPXKEYLIB = XKEYLIB = -lXkey LINTXKEY = $(LINTLIBDIR)/llib-lXkey.ln FSLIBSRC = $(LIBSRC)/FS DEPFSLIB = $(USRLIBDIR)/libFS.a FSLIB = -lFS LINTFS = $(LINTLIBDIR)/llib-lFS.ln FONTLIBSRC = $(LIBSRC)/font DEPFONTLIB = $(USRLIBDIR)/libfont.a FONTLIB = -lfont LINTFONT = $(LINTLIBDIR)/llib-lfont.ln XPMLIBSRC = $(LIBSRC)/Xpm DEPXPMLIB = $(USRLIBDIR)/libXpm.a XPMLIB = -lXpm LINTXPM = $(LINTLIBDIR)/llib-lXpm.ln XKBFILELIBSRC = $(LIBSRC)/xkbfile DEPXKBFILELIB = $(USRLIBDIR)/libxkbfile.a XKBFILELIB = -lxkbfile LINTXKBFILE = $(LINTLIBDIR)/llib-lxkbfile.ln XKBCOMPCMD = xkbcomp XKBUILIBSRC = $(LIBSRC)/xkbui DEPXKBUILIB = $(USRLIBDIR)/libxkbui.a XKBUILIB = -lxkbui LINTXKBUI = $(LINTLIBDIR)/llib-lxkbui.ln DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) DEPLIBS1 = $(DEPLIBS) DEPLIBS2 = $(DEPLIBS) DEPLIBS3 = $(DEPLIBS) DEPLIBS4 = $(DEPLIBS) DEPLIBS5 = $(DEPLIBS) DEPLIBS6 = $(DEPLIBS) DEPLIBS7 = $(DEPLIBS) DEPLIBS8 = $(DEPLIBS) DEPLIBS9 = $(DEPLIBS) DEPLIBS10 = $(DEPLIBS) XMULIBONLY = -lXmu XMULIB = $(XMULIBONLY) $(XTOOLLIB) $(XLIB) CONFIGDIR = $(LIBDIR)/config USRLIBDIRPATH = $(USRLIBDIR) LDPRELIBS = -L$(USRLIBDIR) LDPOSTLIBS = TOP_INCLUDES = -I$(INCROOT) $(TOP_X_INCLUDES) PROJECT_DEFINES = CXXPROJECT_DEFINES = # ---------------------------------------------------------------------- # start of Imakefile SUBDIRS = awelib include BINDIR = /usr/local/bin MANDIR = /usr/local/man/man1 MANSUFFIX = 1 INCLUDES += -Iinclude INCLUDES += -I/home/steve/kern/linux36p/include DEPLIB = awelib/libawe.a AWELIB = -Lawelib -lawe sfxload: sfxload.o seq.o $(DEPLIB) $(RM) $@ $(CCLINK) -o $@ $(LDOPTIONS) sfxload.o seq.o $(AWELIB) $(LDLIBS) -lm $(EXTRA_LOAD_FLAGS) clean:: $(RM) sfxload all:: sfxload install:: sfxload @if [ -d $(DESTDIR) $(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(BINDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTPGMFLAGS) sfxload $(DESTDIR) $(BINDIR)/sfxload install.man:: sfxload.man @if [ -d $(DESTDIR) $(MANDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(MANDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTMANFLAGS) sfxload.man $(DESTDIR) $(MANDIR)/sfxload.$(MANSUFFIX) setfx: setfx.o seq.o $(DEPLIB) $(RM) $@ $(CCLINK) -o $@ $(LDOPTIONS) setfx.o seq.o $(AWELIB) $(LDLIBS) -lm $(EXTRA_LOAD_FLAGS) clean:: $(RM) setfx all:: setfx install:: setfx @if [ -d $(DESTDIR) $(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(BINDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTPGMFLAGS) setfx $(DESTDIR) $(BINDIR)/setfx sf2text: sf2text.o $(DEPLIB) $(RM) $@ $(CCLINK) -o $@ $(LDOPTIONS) sf2text.o $(AWELIB) $(LDLIBS) -lm $(EXTRA_LOAD_FLAGS) clean:: $(RM) sf2text all:: sf2text install:: sf2text @if [ -d $(DESTDIR) $(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(BINDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTPGMFLAGS) sf2text $(DESTDIR) $(BINDIR)/sf2text text2sf: text2sf.o $(DEPLIB) $(RM) $@ $(CCLINK) -o $@ $(LDOPTIONS) text2sf.o $(AWELIB) $(LDLIBS) -lm $(EXTRA_LOAD_FLAGS) clean:: $(RM) text2sf all:: text2sf install:: text2sf @if [ -d $(DESTDIR) $(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(BINDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTPGMFLAGS) text2sf $(DESTDIR) $(BINDIR)/text2sf gusload: gusload.o seq.o $(RM) $@ $(CCLINK) -o $@ $(LDOPTIONS) gusload.o seq.o $(LDLIBS) -lm $(EXTRA_LOAD_FLAGS) clean:: $(RM) gusload all:: gusload install:: gusload @if [ -d $(DESTDIR) $(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(BINDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTPGMFLAGS) gusload $(DESTDIR) $(BINDIR)/gusload sfxtest: sfxtest.o seq.o $(RM) $@ $(CCLINK) -o $@ $(LDOPTIONS) sfxtest.o seq.o $(LDLIBS) -lm $(EXTRA_LOAD_FLAGS) clean:: $(RM) sfxtest all:: sfxtest install:: sfxtest @if [ -d $(DESTDIR) $(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR) $(BINDIR)); fi $(INSTALL) $(INSTALLFLAGS) $(INSTPGMFLAGS) sfxtest $(DESTDIR) $(BINDIR)/sfxtest $(DEPLIB):: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo "making" $(DEPLIB) "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) 'CDEBUGFLAGS=$(CDEBUGFLAGS)' all; \ done # ---------------------------------------------------------------------- # common rules for all Makefiles - do not edit .c.i: $(RM) $@ $(CC) -E $(CFLAGS) $(_NOOP_) $*.c > $@ emptyrule:: clean:: $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut "#"* Makefile:: -@if [ -f Makefile ]; then set -x; \ $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ else exit 0; fi $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR) tags:: $(TAGS) -w *.[ch] $(TAGS) -xw *.[ch] > TAGS man_keywords:: # ---------------------------------------------------------------------- # rules for building in SUBDIRS - do not edit install:: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo "installing" "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) DESTDIR=$(DESTDIR) install; \ done install.man:: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo "installing man pages" "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) DESTDIR=$(DESTDIR) install.man; \ done install.linkkit:: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo "installing link kit" "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) DESTDIR='$(DESTDIR)' install.linkkit; \ done clean:: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo "cleaning" "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) clean; \ done tags:: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo "tagging" "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) TAGS='$(TAGS)' tags; \ done $(ONESUBDIR)/Makefile: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[n]*) executeit="no";; esac; done; \ cd $(ONESUBDIR) && \ if [ "$$executeit" != "no" ]; then \ $(IMAKE_CMD) -DTOPDIR=$(IMAKETOP) -DCURDIR=$(ONECURDIR)$(ONESUBDIR); \ fi; Makefiles:: -@for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[n]*) executeit="no";; esac; done; \ for i in $(SUBDIRS) ;\ do \ case "$(CURRENT_DIR)" in \ .) curdir= ;; \ *) curdir=$(CURRENT_DIR)/ ;; \ esac; \ echo "making Makefiles in $$curdir$$i..."; \ itmp=`echo $$i | sed -e 's;^\./;;g' -e 's;/\./;/;g'`; \ curtmp="$(CURRENT_DIR)" \ toptmp=""; \ case "$$itmp" in \ ../?*) \ while echo "$$itmp" | grep '^\.\./' > /dev/null;\ do \ toptmp="/`basename $$curtmp`$$toptmp"; \ curtmp="`dirname $$curtmp`"; \ itmp="`echo $$itmp | sed 's;\.\./;;'`"; \ done \ ;; \ esac; \ case "$$itmp" in \ */?*/?*/?*/?*) newtop=../../../../..;; \ */?*/?*/?*) newtop=../../../..;; \ */?*/?*) newtop=../../..;; \ */?*) newtop=../..;; \ *) newtop=..;; \ esac; \ newtop="$$newtop$$toptmp"; \ case "$(TOP)" in \ /?*) imaketop=$(TOP) \ imakeprefix= ;; \ .) imaketop=$$newtop \ imakeprefix=$$newtop/ ;; \ *) imaketop=$$newtop/$(TOP) \ imakeprefix=$$newtop/ ;; \ esac; \ $(RM) $$i/Makefile.bak; \ if [ -f $$i/Makefile ]; then \ echo " $(MV) Makefile Makefile.bak"; \ if [ "$$executeit" != "no" ]; then \ $(MV) $$i/Makefile $$i/Makefile.bak; \ fi; \ fi; \ $(MAKE) $(MFLAGS) $(MAKE_OPTS) ONESUBDIR=$$i ONECURDIR=$$curdir IMAKETOP=$$imaketop IMAKEPREFIX=$$imakeprefix $$i/Makefile; \ if [ -d $$i ] ; then \ cd $$i; \ $(MAKE) $(MFLAGS) Makefiles; \ cd $$newtop; \ else \ exit 1; \ fi; \ done includes:: @for flag in ${MAKEFLAGS} ''; do \ case "$$flag" in *=*) ;; *[ik]*) set +e;; esac; done; \ for i in $(SUBDIRS) ;\ do \ echo including "in $(CURRENT_DIR)/$$i..."; \ $(MAKE) -C $$i $(MFLAGS) $(PARALLELMFLAGS) includes; \ done # ---------------------------------------------------------------------- # dependencies generated by makedepend sfx/README100644 764 764 25661 6653073474 11335 0ustar stevesteve================================================================ AWE32 Sound Driver Utility Programs for Linux / FreeBSD version 0.4.2; Sep. 15, 1997 ================================================================ ---------------------------------------------------------------- * GENERAL NOTES Thie package includes a couple of utilities for AWE32 sound driver on Linux and FreeBSD systems. You need to use these utilities to enable sounds on the driver properly. Some minor changes has been done in sfxload utility from ver.0.3 programs. See the options -a, -A and -d section. ---------------------------------------------------------------- * SFXLOAD Sfxload is a utility program to transfer the sound wave and instruments data in a SoundFont file to the AWE32 sound driver. This program is necessary for playing MIDI samples via sequencer programs supporting AWE driver. Basically, sfxload behaves as two ways. % sfxload fontfile % sfxload -b1 fontfile The first usage is to read SF2 (or SBK) file and transfer to the awe driver. In this case, the samples which were loaded on the driver are replaced with the new one. In the second case, sfxload reads the file and appends it to the pre-loaded samples on the driver with specified bank number. The old samples remain in the driver. The additional samples can be cleared via -x option (see below). The sound files are searched through the path list. The path list is defined as built-in. If the environment variable SFBANKDIR or the command line option -P is given, it replaces the default search list. The file extension .sf2, and .sbk can be abbreviated. The new sfxload can deal with a virtual bank file. It contains a list of presets from various soundfonts. See the virtual bank file section for more details. OPTIONS: -x, --remove[=bool] Remove the optional samples previouly loaded via -b option. Otherwise, all new samples are simply appended. If this option is specified alone without soundfont file arguments, sfxload does onlay remove samples. Either of "on", "off", "yes", "no", "true", or "false" can be specified as an optional argument. -b, --bank=number Append the sound samples on the specified bank. Without this option, all samples in the driver are reset, and new samples are loaded. This option is necessary to load user bank, usually in bank one. eg) % sfxload synthgm.sbk % sfxload -b1 surprise.sf2 -l, --lock[=bool] Lock the font. The locked font is no longer removed via remove option (-x) even if it's loaded together with -b option. -A, --sense=sensitivity -a, --atten=attenuation These options are used to control the attenuation of samples. The former defines the sensitivity of initial attenuation parameter of each instrument in SoundFont file. In the program, the actual attenuaton is calculated from the divided value by this sensitivity from the original parameter. Then, 1.0 means to use the original parameter without modification. Generally, smaller number makes drum sounds louder. The default value is 10. (I think -A 2 would be similar to Windows sounds.) The latter option defines the minimum attenuation. The value is given in the raw parameter for AWE driver, that is, in 8/3 dB unit. The default value is 32. Note that since -A option will change the minimum attenuation automatically, the option -a must be speicifed later from -A option. -d, --decay=scale Set the scale of envelope decay time. Default value is 50.0. Sounds decay fast when larger number is set. The ver.0.3 sfxload uses 54.8. If you want to keep the same sound, use this number instead. -B, --addblank[=bool] Add 48 size of blank loop on each sample data. Usually, this option is not necessary. Most of soundfont files are designed well for enough blank loops for each sample. -M, --memory[=0|1] Display the left memory size of DRAM on the AWE32 card. -c, --chorus=percent -r, --reverb=percent Specify the effects of chorus and reverb, respectively. The value is in percent, from 0 to 100. The default is unspecified. Note: these values may be overwritten by MIDI control messages. -L, --extract=source[:map] Extract and load only the specified preset(s). This option is usually employed by drvmidi. The preset is given as same as in virtual bank file. -v, --verbose[=level] Increase or set the verbosity level. -V, --volume=percent Set the total volume of sounds, provided in percent. Default volume is 70%. -P, --path=path1:path2:... Specify the search path for sound files. It overrides both the system path and environment variable SFBANKDIR. VIRTUAL BANK FILE: The virtual bank file is a list of presets treated as one soundfont file. The syntax of virtual bank is as follows: # comments source:map[:soundfont [preset-name] source:map[:soundfont [preset-name] ... The first and second items are the source and mapped presets, respectively. The former is the existing preset in the soundfont, and the latter is the actual preset loaded on the sound driver. The preset is described by the following three values, preset/bank/keynote If bank and keynote are omitted, bank 0 and keynote -1 (meaning to search all keys) are applied. The third item is the name of soundfont file. The file is searched from the prescribed search-path. The remaining arguments are ignored in sfxload. If the soundfont name is omitted, sfxload loads them as preset mapping. It just behaves like a symbolic link of file opposing to copying of the file. Any sample data is not referred at this time, but searched first when the note is played. A couple of special commands can be used together with the virtual presets above. "default" command is used to specify the default soundfont file. Any other presets which are not defined in the virtual preset lists are loaded from this default font. For example, in the following virtual bank, 2mbgmgs.sf2 is used except for standard drumsets which employs drum.sf2: 0/128:0/128:drum.sf2 default 2mbgmgs.sf2 Another special command is "include" command. This simply includes another virtual bank file under the current position. For example, default standard.sf2 0/128:0/128:drum.sf2 include xgsfx.bnk SYSTEM RESOURCE FILE: You can set default option arguments in the system resource file. There're two files loaded as default. $HOME/.sfxloadrc /etc/sfxloadrc The syntax is as follows: fontname options.. The first argument is soundfont file name for each option. The remaining arguments are identical with command line options. The font name "default" is used for default options for all sound fonts. The default options are overridden by specific options or command line options. For example, to set attenuation scale 10.0 except synthgm font, you need to make a resource file ~/.sfxloadrc like that: default --scale=10.0 synthgm --scale=2.0 --atten=10 ENVIRONMENT: SFBANKDIR Search path for sound files. The current directory is always searched at first. ---------------------------------------------------------------- * SETFX Setfx reads a configuration file and downloads the user defined chorus/reverb effect parameters on the sound driver. % setfx test.cfg The format of configuration file is as follows: type:mode:name:include:parameters.. type this specifies either "chorus" or "reverb". mode the mode index in integer value from 8 to 31. name the name of this effect in any string (except colon) include include from the pre-defined mode. This is valid only on reverb definition. If this index is specified, the parameter lists become "pos=value pos=value.." where 'pos' is a position of the parameter (from 0 to 27) and 'value' is the new replaced value. parameters effect parameters. All values are written in hex code. In chorus mode, this contains five values, while in reverb mode, 28 values must be listed. The configuratoin file is searched according to the pre-defined soundfont path search list. ---------------------------------------------------------------- * SF2TEXT Sf2text converts the specified SoundFont file to the text file which is editable easily. Both SBK and SF2 formats can be converted. % sf2text sample.sf2 sample.txt The converted text file contains five categories. 1. major and minor versions 2. sample data position and size 3. preset information 4. instrument information 5. sample data information The present sf2text program employes an S-expression list. This text file can be converted to SoundFont format again via text2sf utility program below. ---------------------------------------------------------------- * TEXT2SF Text2sf works as an opposite convertor from text file to SoundFont format file. It reads an S-expression list and write it on the new SoundFont file. % text2sf sample.txt sample.sf2 new.sf2 The second argument is the original SoundFont file, and the last is the new SoundFont file. The original file is necessary to duplicate INFO list and wave samples to the new file. ---------------------------------------------------------------- * GUSLOAD Gusload is a tool to load a GUS compatible patch file to AWE32 driver. % gusload [-v] [-b bank] [-p preset] [-k keynote] GUSfile The voices are loaded as a preset with the prescribed instrument number in each patch unless -p option is specified. The bank number is also changed by -b option. The option -k is used to specify the fixed key note for the patch. eg) % gusload -b 0 -p 53 doo.pat ---------------------------------------------------------------- * SFXTEST Sfxtest is a sample program to control awe sound driver. % sfxtest commands ... For example, to play a trumpet voice (preset 56) on key middle C (60) for two seconds in channel access mode, execute as follows: % sfxtest X p 56 n 60 127 t 200 K 60 You can see the debug message of the awe driver by setting debug mode. % sfxtest X D 9 p 47 n 62 100 t 150 K 47 D 0 Multiple channels can be used at the same time. % sfxtest X x 0 p 0 n 60 127 x 1 p 5 n 72 110 t 150 x 0 K 60 x 1 K 72 ---------------------------------------------------------------- * COPYRIGHT Copyright (C) 1996,1997 by Takashi Iwai These programs are free software; you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. These programs are distributed in the hope that they will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ---------------------------------------------------------------- Takashi Iwai iwai@dragon.mm.t.u-tokyo.ac.jp http://bahamut.mm.t.u-tokyo.ac.jp/~iwai sfx/SBKtoSF2.txt100644 764 764 6634 6653073474 12472 0ustar stevesteve================================================================ SoundFont 1 (sbk) --> SoundFont 2 (sf2) Conversion ================================================================ The following conversion rules are on the basis of my experience. Please do not consult to Creative about this. -- iwai ================================================================ modenv, volenv, lfo1, lfo2 delay time msec attack time msec hold time msec decay time msec release time msec -- sf2 time cents sf2 = log2(sbk/1000) * 1200 ================================================================ vol sustain 0-127 (or larger) -- sf2 cB below full scale sf2 = 1000 - 10.5 * sbk when sbk < 96 sf2 = 0 when sbk >= 96 Note: the default sustain level is 1000 in SBK, while 0 in SF2. ================================================================ mod sustain 0-96 (96 = zero attenuation, 0 = minimum) -- sf2 0.1% below full scale sf2 = 1000 * (96 - val) / 96 when sbk < 96 sf2 = 0 when sbk >= 96 Note: the default sustain level is 1000 in SBK, while 0 in SF2. ================================================================ time change per key ?? -- sf2 timecent per key sf2 = sbk * 5.55 (??) ================================================================ pan position 0-127 (just same as MIDI) -- sf2 0.1% (left=0, center=500) sf2 = sbk * 1000 / 127 - 500 ================================================================ init attenuation 0-127 (127 = full scale, 0 = minimum) -- sf2 cB from full scale (see the note below) sf2 = -200 * log10(sbk / 127) [note: SF2 spec document says initial attenuation is in unit of centibels, but actual data looks like 2 to 10 times greater. The above conversion does NOT include this correction.] ================================================================ chorus 0-255 reverb -- sf2 0.1% sf2 = sbk * 1000 / 255 ================================================================ initFilterFc -- sf2 absolute cents sf2 = 59 * sbk + 4366 when sbk < 127 (alternatively, sf2 = 50 * sbk + 4721 (4721=125Hz)) sf2 = 14400 when sbk = 127 ================================================================ initFilterQ -- sf2 cB above DC gain sf2 = sbk * 3 / 2 ================================================================ LFO1 freq LFO2 freq -- sf2 absolte cents sf2 = 1200 * log10(sbk) / log10(2) - 7925 ================================================================ modenv pitch shift LFO1 pitch shift LFO2 pitch shift -- sf2 cents sf2 = (1200 * sbk / 64 + 1) / 2 ================================================================ moenv cutoff shift LFO1 cutoff shift -- sf2 cents sf2 = (1200 * ratio * sbk) / 64 ratio = 6 when modenv ratio = 3 when lfo1 ================================================================ lfo1 tremolo volume -- sf2 cB sf2 = (120 * sbk) / 64 ================================================================ scale tuning 0/1 -- sf2 semitone sf2 = 100 when sbk = 0 sf2 = 50 when sbk = 1 NOTE: scale tuning can overwrite in preset layer to instruments. don't add the "converted" value. Otherwise, convert after adding the value. ================================================================ sample pitch (SF1 only; reserved3(#55) in SF2) -- sf2 N/A sf2 rootkey = sbk / 100 sf2 finetune = -sbk % 100 if finetune <= -50 then rootkey++ finetune = 100 + finetune endif ================================================================ sfx/awelib/ 40755 764 764 0 6737716413 11571 5ustar stevestevesfx/awelib/awe_parm.c100644 764 764 23066 6653073474 13654 0ustar stevesteve/*================================================================ * awe_parm.c * convert Emu8000 parameters *================================================================*/ #include #include #include #include "awe_parm.h" #include "sfopts.h" /*================================================================ * unit conversion *================================================================*/ /* * convert timecents to msec */ int awe_timecent_to_msec(int timecent) { return (int)(1000 * pow(2.0, (double)timecent / 1200.0)); } /* * convert msec to timecents */ int awe_msec_to_timecent(int msec) { if (msec <= 0) msec = 1; return (int)(log((double)msec / 1000.0) / log(2.0) * 1200.0); } /* * convert abstract cents to mHz */ int awe_abscent_to_mHz(int abscents) { return (int)(8176.0 * pow(2.0, (double)abscents / 1200.0)); } /* * convert from mHz to abstract cents */ int awe_mHz_to_abscent(int mHz) { return (int)(log((double)mHz / 8176.0) / log(2.0) * 1200.0); } /* * convert abstract cents to Hz */ int awe_abscent_to_Hz(int abscents) { return (int)(8.176 * pow(2.0, (double)abscents / 1200.0)); } /* * convert from Hz to abstract cents */ int awe_Hz_to_abscent(int Hz) { return (int)(log((double)Hz / 8.176) / log(2.0) * 1200.0); } /*================================================================ * Emu8000 pitch offset conversion *================================================================*/ /* * Sample pitch offset for the specified sample rate * rate=44100 is no offset, each 4096 is 1 octave (twice). * eg, when rate is 22050, this offset becomes -4096. */ short awe_calc_rate_offset(int Hz) { if (Hz == 44100) return 0; return (short)(log((double)Hz / 44100) / log(2.0) * 4096.0); } /*================================================================ * initialize Emu8000 parameters *================================================================*/ void awe_init_voice(awe_voice_info *vp) { vp->sf_id = 0; vp->sample = 0; vp->start = 0; vp->end = 0; vp->loopstart = 0; vp->loopend = 0; vp->rate_offset = 0; vp->mode = 0; vp->root = 60; vp->tune = 0; vp->low = 0; vp->high = 127; vp->vellow = 0; vp->velhigh = 127; vp->fixkey = -1; vp->fixvel = -1; vp->fixpan = -1; vp->pan = -1; vp->exclusiveClass = 0; vp->amplitude = 127; vp->attenuation = 0; vp->scaleTuning = 100; awe_init_parm(&vp->parm); } void awe_init_parm(awe_voice_parm *pp) { pp->moddelay = 0x8000; pp->modatkhld = 0x7f7f; pp->moddcysus = 0x7f7f; pp->modrelease = 0x807f; pp->modkeyhold = 0; pp->modkeydecay = 0; pp->voldelay = 0x8000; pp->volatkhld = 0x7f7f; pp->voldcysus = 0x7f7f; pp->volrelease = 0x807f; pp->volkeyhold = 0; pp->volkeydecay = 0; pp->lfo1delay = 0x8000; pp->lfo2delay = 0x8000; pp->pefe = 0; pp->fmmod = 0; pp->tremfrq = 0; pp->fm2frq2 = 0; pp->cutoff = 0xff; pp->filterQ = 0; pp->chorus = 0; pp->reverb = 0; } /*================================================================ * Emu8000 parameters conversion *================================================================*/ /* * Delay time * sf: timecents * parm: 0x8000 - msec * 0.725 */ unsigned short awe_calc_delay(int tcents) { int msec = awe_timecent_to_msec(tcents); return (unsigned short)(0x8000 - msec * 1000 / 725); } /* * Attack and Hold time * This parameter is difficult... * * ADIP says: * bit15 = always 0 * upper byte = 0x7f - hold time / 92, max 11.68sec at 0, no hold at 0x7f. * bit7 = always 0 * lower byte = encoded attack time, 0 = never attack, * 1 = max 11.68sec, 0x7f = min 6msec. * * In VVSG, * if AttackTime_ms >= 360ms: * RegisterValue = 11878/AttackTime_ms - 1 * if AttackTime_ms < 360ms and AttackTime != 0: * RegisterValue = 32 + [16/log(2)] * log(360_ms/AttackTime_ms) * if AttackTime_ms == 0 * RegisterValue = 0x7F */ unsigned short awe_calc_atkhld(int atktime, int hldtime) { int atkmsec = awe_timecent_to_msec(atktime); int hldmsec = awe_timecent_to_msec(hldtime); int up, lw; up = (int)((0x7f * 92 - hldmsec) / 92); if (up < 1) up = 1; if (up > 127) up = 127; if (atkmsec == 0) lw = 0x7f; else if (atkmsec >= 360) lw = (unsigned char)(11878 / atkmsec); else if (atkmsec < 360) lw = (unsigned char)(32 + 53.15085 * log10(360.0/atkmsec)); else lw = 0x7f; if (lw < 1) lw = 1; if (lw > 127) lw = 127; return (unsigned short)((up << 8) | lw); } /* * Sustain level * sf: centibels * parm: 0x7f - sustain_level(dB) * 0.75 */ unsigned char awe_calc_sustain(int sust_cB) { int up; /* sustain level */ if (sust_cB <= 0) return 0x7f; else if (sust_cB >= 1000) return 1; up = (0x7f * 40 - sust_cB * 3) / 40; /* sustain level must be greater than zero to be audible.. */ if (up < 1) up = 1; return up; } /* * Modulation sustain level * sf: 0.1% * parm: 0x7f - sustain_level(dB) * 0.75 */ unsigned char awe_calc_mod_sustain(int tenth_percent) { int up; if (tenth_percent < 0) tenth_percent = 0; else if (tenth_percent > 1000) tenth_percent = 1000; if (tenth_percent == 1000) up = 1; else { /*up = (int)(0x7f + 20.0 * 0.75 * log10((double)(1000 - tenth_percent) / 1000.0));*/ up = (0x7f * 40 - tenth_percent * 3) / 40; if (up < 1) up = 1; } return up; } /* * This parameter is also difficult to understand... * * ADIP says the value means decay rate, 0x7f minimum time is of 240usec/dB, * 0x01 being the max time of 470msec/dB, and 0 begin no decay. * * In VVSG, 2 * log(0.5) * log(23756/[ms]) (0x7F...0ms), but this is * obviously incorrect. But, the max time 23756 seems to be correct. * (actually, in NRPN control, decay time is within 0.023 and 23.7 secs.) * */ unsigned char awe_calc_decay(int dcytime) { int dcymsec = awe_timecent_to_msec(dcytime); int lw; /* decay time */ if (dcymsec == 0) lw = 127; else { /*lw = 0x7f - (int)((double)0x7f / 2.2 * log10(dcymsec / 23.04));*/ /* it looks almost ok.. */ lw = (int)(0x7f - awe_option.decay_sense * log10(dcymsec / 23.04)); /* ADIP way */ /* linear aprox; lw = 0x7f - ((dcymsec * 1000 / 100) * 0x7e) / (470000 - 240);*/ /* log aprox; lw = (int)(0x7f - 38.2759 * log10(dcymsec / 24.0)); */ /* same as above; lw = (int)(0x7f - 38.2759 * (dcytime * 0.30103 / 1200 + 1.61979));*/ } if (lw < 1) lw = 1; if (lw > 127) lw = 127; return (unsigned char)lw; } /* * Cutoff frequency; return (0-255) * sf: abs cents (cents above 8.176Hz) * parm: quarter semitone; 0 = 125Hz, 0xff=8kHz? * (in VVS, cutoff(Hz) = value * 31.25 + 100) */ unsigned char awe_calc_cutoff(int abscents) { int cutoff; if (abscents == 0) /* no cutoff */ return 0xff; #if 0 /* maybe it's incorrect.. */ cutoff = awe_abscent_to_Hz(abscents); if (cutoff < 125) return 0; else if (cutoff >= 8000) return 255; cutoff = cutoff * 4 / 125; #else /*cutoff = abscents / 25 - 189;*/ cutoff = (abscents - 4721) / 25; /* 4721=125Hz */ #endif if (cutoff < 0) cutoff = 0; if (cutoff > 255) cutoff = 255; return (unsigned char)cutoff; } /* * Initial filter Q; return (0-15) * sf: centibels above DC gain. * parm: 0 = no attenuation, 15 = 24dB */ unsigned char awe_calc_filterQ(int gain_cB) { int Q; Q = (gain_cB * 2) / 30; if (Q < 0) Q = 0; else if (Q > 15) Q = 15; return (unsigned char)Q; } /* * Pitch modulation height (0-255) * sf: cents, 100 = 1 semitone * parm: signed char, 0x80 = 1 octave */ unsigned char awe_calc_pitch_shift(int cents) { int val; val = (cents * 0x80) / 1200; if (val < -128) val = -128; if (val > 127) val = 127; if (val < 0) return (unsigned char)(0x100 + val); else return (unsigned char)val; } /* * Filter cutoff modulation height (0-255) * sf: 1200 = +1 octave * par: 0x80 = +3(lfo1) or +6(modenv) octave */ unsigned char awe_calc_cutoff_shift(int cents, int octave_shift) { int val; val = (cents * 0x80) / (octave_shift * 1200); if (val < -128) val = -128; if (val > 127) val = 127; if (val < 0) return (unsigned char)(0x100 + val); else return (unsigned char)val; } /* * Tremolo volume (0-255) * sf: cB, 10 = 1dB * parm: 0x7f = +/-12dB, 0x80 = -/+12dB */ unsigned short awe_calc_tremolo(int vol_cB) { int val; val = (vol_cB * 0x80) / 120; if (val < -128) val = -128; if (val > 127) val = 127; if (val < 0) val = 0x100 + val; return (unsigned char)val; } /* * Envelope/LFO frequency (0-255) * sf: cents * parm: mHz / 42 (42mHz step; 0xff=10.72Hz) */ unsigned char awe_calc_freq(int abscents) { int mHz, val; mHz = awe_abscent_to_mHz(abscents); val = mHz / 42; if (val < 0) val = 0; if (val > 255) val = 255; return (unsigned char)val; } /* * Panning position (0-127) * sf: (left) -500 - 500 (right) (0=center) * parm: (left) 0 - 127 (right), as same as MIDI parameter. * * NOTE: * The value above is converted in the driver to the actual emu8000 * parameter, 8bit, 0 (right) - 0xff (left). */ char awe_calc_pan(int val) { if (val < -500) return 0; else if (val > 500) val = 127; return (char)((val + 500) * 127 / 1000); } /* * Chorus strength * sf: 0 - 1000 (max) * parm: 0 - 255 (max) */ unsigned char awe_calc_chorus(int val) { if (val < 0) return 0; else if (val > 1000) val = 255; return (unsigned char)(val * 255 / 1000); } /* * Reverb strength * sf: 0 - 1000 (max) * parm: 0 - 255 (max) */ unsigned char awe_calc_reverb(int val) { if (val < 0) return 0; else if (val > 1000) val = 255; return (unsigned char)(val * 255 / 1000); } /* * Initial volume attenuation (0-255) * sf: centibels, eg. 60 = 6dB below from full scale * parm: dB * 8 / 3 */ unsigned char awe_calc_attenuation(int att_cB) { if (att_cB < 0) return 0; else if (att_cB > 956) return 255; return (unsigned char)(att_cB * 8 / 30); } sfx/awelib/bool.c100644 764 764 4263 6653073474 12772 0ustar stevesteve/*================================================================ * check boolean string *================================================================*/ #include #include #include #include #include "util.h" /* search delimiers */ char *strschr(char *str, char *dels) { char *p; for (p = str; *p; p++) { if (strchr(dels, *p)) return p; } return NULL; } /* case insensitive comparison */ int strlcmp(char *ap, char *bp) { int a, b; for (;;) { a = tolower(*ap); b = tolower(*bp); if (a != b) return (a - b); if (a == 0) return 0; ap++; bp++; } } /* check boolean string; on, true, yes */ int bool_val(char *val) { if (strlcmp(val, "on") == 0 || strlcmp(val, "true") == 0 || strlcmp(val, "yes") == 0) return 1; else if (strlcmp(val, "off") == 0 || strlcmp(val, "false") == 0 || strlcmp(val, "no") == 0) return 0; else return (int)strtol(val, NULL, 0); } /*================================================================ * get a token separated by space letters * almost equal with strtok(str, spaces) but this checks quote * letters. *================================================================*/ #define DELIM " \t\n\r" static void remove_letter(char *p) { if (! *p) return; for (;; p++) { *p = p[1]; if (! *p) return; } } char *strtoken(char *src) { static char *buf = NULL, *vptr; char *retptr; if (src) { if (buf) free(buf); buf = safe_strdup(src); vptr = buf; } else if (buf == NULL) { fprintf(stderr, "illegal strtoken call\n"); exit(1); } /* skip delimiters at head */ while (*vptr && strchr(DELIM, *vptr)) vptr++; if (!*vptr) return NULL; retptr = vptr; while (*vptr && strchr(DELIM, *vptr) == NULL) { if (*vptr == '\\') { remove_letter(vptr); if (!*vptr) break; vptr++; } else if (*vptr == '"' || *vptr == '\'') { int prev, quote; prev = quote = *vptr; remove_letter(vptr); for (; *vptr; prev = *vptr, vptr++) { if (*vptr == '\\') { remove_letter(vptr); if (*vptr) break; } else if (*vptr == quote) { remove_letter(vptr); break; } } } else vptr++; } if (*vptr) *vptr++ = 0; return retptr; } sfx/awelib/config.h100644 764 764 766 6653073474 13275 0ustar stevesteve/* * configuration */ /* make shared library */ /* #define MAKE_SHARED_LIBRARY */ /* install AWElib */ /* #define INSTALL_AWELIB */ /* default SoundFont path */ #define DEFAULT_SF_PATH "/usr/local/lib/sfbank:/mnt/c/Program Files/Creative/ctsnd/sfbank" /* default volume (in percent) */ #define DEFAULT_VOLUME 70 /* default attenuation sense (-a option) */ #define DEF_ATTEN_SENSE 10 /* rc file & command line options */ #define SYSTEM_RCFILE "/etc/sfxloadrc" #define RCFILE ".sfxloadrc" sfx/awelib/dynload.h100644 764 764 664 6653073474 13457 0ustar stevesteve/*---------------------------------------------------------------- * sample marker functions *----------------------------------------------------------------*/ #ifndef DYNLOAD_H_DEF #define DYNLOAD_H_DEF void awe_init_marks(void); void awe_free_marks(void); void awe_add_sample(int sample); void awe_add_marked_sample(int sample); int awe_is_listed_sample(int id); void awe_mark_sample(int id); int awe_is_marked(int id); #endif sfx/awelib/cmpopen.c100644 764 764 4440 6653073474 13475 0ustar stevesteve/*================================================================ * cmpopen.c: * search / open a compressed file *================================================================*/ #include #include #include #include "util.h" typedef struct _DecompRec { char *ext; char *format; } DecompRec; typedef struct _DecompList { DecompRec v; struct _DecompList *next; } DecompList; static DecompRec declist[] = { {".gz", "gunzip -c"}, {".z", "gunzip -c"}, {".Z", "zcat"}, {".zip", "unzip -p"}, {".lha", "lha -pq"}, {".lzh", "lha -pq"}, }; static DecompList *decopts = NULL; void CmpAddList(char *ext, char *format) { DecompList *rec; rec = (DecompList*)safe_malloc(sizeof(DecompList)); if (*ext != '.') { rec->v.ext = (char*)safe_malloc(strlen(ext) + 2); rec->v.ext[0] = '.'; strcpy(rec->v.ext + 1, ext); } else rec->v.ext = safe_strdup(ext); rec->v.format = safe_strdup(format); rec->next = decopts; decopts = rec; } static int CheckExt(char *name, int len, DecompRec *p) { int exlen = strlen(p->ext); if (len > exlen && strcmp(name + (len - exlen), p->ext) == 0) return TRUE; else return FALSE; } static DecompRec *CmpSearchFile(char *name) { int i, len, extlen; char *ext; DecompList *p; if (access(name, R_OK) != 0) return NULL; len = strlen(name); for (p = decopts; p; p = p->next) { if (CheckExt(name, len, &p->v)) return &p->v; } for (i = 0; i < numberof(declist); i++) { if (CheckExt(name, len, &declist[i])) return &declist[i]; } return NULL; } char *CmpGetExtension(char *name) { DecompRec *rec; char *ext; if ((rec = CmpSearchFile(name)) != NULL) { return name + strlen(name) - strlen(rec->ext); } return strrchr(name, '.'); } FILE *CmpOpenFile(char *name, int *flag) { FILE *fp; DecompRec *rec; char str[256]; *flag = 0; if (strcmp(name, "-") == 0) { /* use standard input */ *flag = 2; return stdin; } if ((rec = CmpSearchFile(name)) != NULL) { if (strstr(rec->format, "%s") != NULL) sprintf(str, rec->format, name); else sprintf(str, "%s \"%s\"", rec->format, name); if ((fp = popen(str, "r")) != NULL) { *flag = 1; return fp; } } return fopen(name, "r"); } void CmpCloseFile(FILE *fp, int flag) { switch (flag) { case 0: fclose(fp); break; case 1: pclose(fp); break; } } sfx/awelib/dynload.c100644 764 764 10152 6653073474 13503 0ustar stevesteve/*---------------------------------------------------------------- * partial loading mechanism *----------------------------------------------------------------*/ #include #include #include #include "util.h" #include "aweseq.h" #include "dynload.h" static void set_preset(SFPatchRec *pat, char *arg); /*----------------------------------------------------------------*/ LoadList *add_loadlist(LoadList *list, SFPatchRec *pat, SFPatchRec *map) { LoadList *rec; rec = (LoadList*)safe_malloc(sizeof(LoadList)); rec->pat = *pat; if (map) rec->map = *map; else rec->map = *pat; rec->loaded = FALSE; rec->next = list; return rec; } /* add the elements in the latter list to the former one */ LoadList *merge_loadlist(LoadList *list, LoadList *old) { LoadList *p; for (p = old; p; p = p->next) { list = add_loadlist(list, &p->pat, &p->map); list->loaded = p->loaded; } return list; } /* free all the elements in the list */ void free_loadlist(LoadList *p) { LoadList *next; for (; p; p = next) { next = p->next; safe_free(p); } } /* parse source and mapping presets and return the remaining string; * the original argument will be broken */ int awe_parse_loadlist(char *arg, SFPatchRec *pat, SFPatchRec *map, char **strp) { char *next; if ((next = strschr(arg, ":=")) != NULL) *next++ = 0; set_preset(pat, arg); if (next == NULL) { *map = *pat; if (strp) *strp = NULL; return TRUE; } arg = next; if ((next = strschr(arg, ":=")) != NULL) *next++ = 0; set_preset(map, arg); if (strp) *strp = next; return TRUE; } /* parse preset/bank/keynote */ static void set_preset(SFPatchRec *pat, char *arg) { char *next; if ((next = strschr(arg, "/: \t\n")) != NULL) *next++ = 0; pat->preset = atoi(arg); pat->bank = 0; pat->keynote = -1; arg = next; if (arg) { if ((next = strschr(arg, "/: \t\n")) != NULL) *next++ = 0; if (isdigit(*arg)) pat->bank = atoi(arg); else if (*arg == '*' || *arg == '-') pat->bank = -1; if (next) { if (isdigit(*next)) pat->keynote = atoi(next); else if (*next == '-' || *next == '*') pat->keynote = -1; } } } /*----------------------------------------------------------------*/ /* linked list of sample record */ typedef struct _DynSample { int id, marked; struct _DynSample *next; } DynSample; static int nsamples; static DynSample *dynsample; /* initialize lists */ void awe_init_marks(void) { nsamples = 0; dynsample = NULL; } /* free allocated lists */ void awe_free_marks(void) { DynSample *sp, *sp_next; for (sp = dynsample; sp; sp = sp_next) { sp_next = sp->next; safe_free(sp); } } /* check the preset matches to the given pattern (rec) */ int awe_match_preset(SFPatchRec *rec, SFPatchRec *pat) { if (rec->preset != -1 && pat->preset != -1 && rec->preset != pat->preset) return FALSE; if (rec->bank != -1 && pat->bank != -1 && rec->bank != pat->bank) return FALSE; if (rec->keynote != -1 && pat->keynote != -1 && rec->keynote != pat->keynote) return FALSE; return TRUE; } /* mark the sample */ static void add_sample(int sample, int marked) { DynSample *sp; for (sp = dynsample; sp; sp = sp->next) { if (sp->id == sample) return; } sp = (DynSample*)safe_malloc(sizeof(DynSample)); sp->id = sample; sp->marked = marked; sp->next = dynsample; dynsample = sp; nsamples++; } void awe_add_sample(int sample) { add_sample(sample, FALSE); } void awe_add_marked_sample(int sample) { add_sample(sample, TRUE); } /* search the sample element with the specified id */ static DynSample *search_sample(int id) { DynSample *sp; for (sp = dynsample; sp; sp = sp->next) { if (sp->id == id) return sp; } return NULL; } /* check if the specified sample matches the sample list */ int awe_is_listed_sample(int id) { if (search_sample(id)) return TRUE; return FALSE; } /* mark up the sample */ void awe_mark_sample(int id) { DynSample *sp; if ((sp = search_sample(id)) != NULL) sp->marked = TRUE; } /* check if the specified sample is loaded on the driver */ int awe_is_marked(int id) { DynSample *sp; if ((sp = search_sample(id)) != NULL) return sp->marked; return FALSE; } sfx/awelib/fskip.c100644 764 764 672 6653073474 13133 0ustar stevesteve/*---------------------------------------------------------------- * skip file position *----------------------------------------------------------------*/ #include void fskip(int size, FILE *fd, int seekable) { if (seekable) fseek(fd, size, SEEK_CUR); else { char tmp[1024]; while (size >= sizeof(tmp)) { fread(tmp, 1, sizeof(tmp), fd); size -= sizeof(tmp); } if (size > 0) fread(tmp, 1, size, fd); } } sfx/awelib/gentxt.c100644 764 764 5462 6653073474 13352 0ustar stevesteve/*================================================================ * generator label table *================================================================*/ #include "sflayer.h" char *sf_gen_text[SF_EOF] = { "startAddrs", /* sample start address -4 (0 to * 0xffffff) */ "endAddrs", "startloopAddrs", /* loop start address -4 (0 to * 0xffffff) */ "endloopAddrs", /* loop end address -3 (0 to * 0xffffff) */ "startAddrsHi", /* high word of startAddrs */ "lfo1ToPitch", /* main fm: lfo1-> pitch */ "lfo2ToPitch", /* aux fm: lfo2-> pitch */ "env1ToPitch", /* pitch env: env1(aux)-> pitch */ "initialFilterFc", /* initial filter cutoff */ "initialFilterQ", /* filter Q */ "lfo1ToFilterFc", /* filter modulation: lfo1 -> filter * cutoff */ "env1ToFilterFc", /* filter env: env1(aux)-> filter * cutoff */ "endAddrsHi", /* high word of endAddrs */ "lfo1ToVolume", /* tremolo: lfo1-> volume */ "env2ToVolume", /* Env2Depth: env2-> volume */ "chorusEffectsSend", /* chorus */ "reverbEffectsSend", /* reverb */ "panEffectsSend", /* pan */ "auxEffectsSend", /* pan auxdata (internal) */ "sampleVolume", /* used internally */ "unused3", "delayLfo1", /* delay 0x8000-n*(725us) */ "freqLfo1", /* frequency */ "delayLfo2", /* delay 0x8000-n*(725us) */ "freqLfo2", /* frequency */ "delayEnv1", /* delay 0x8000 - n(725us) */ "attackEnv1", /* attack */ "holdEnv1", /* hold */ "decayEnv1", /* decay */ "sustainEnv1", /* sustain */ "releaseEnv1", /* release */ "autoHoldEnv1", "autoDecayEnv1", "delayEnv2", /* delay 0x8000 - n(725us) */ "attackEnv2", /* attack */ "holdEnv2", /* hold */ "decayEnv2", /* decay */ "sustainEnv2", /* sustain */ "releaseEnv2", /* release */ "autoHoldEnv2", "autoDecayEnv2", "instrument", /* */ "nop", "keyRange", /* */ "velRange", /* */ "startloopAddrsHi", /* high word of startloopAddrs */ "keynum", /* */ "velocity", /* */ "initAtten", /* */ "keyTuning", "endloopAddrsHi", /* high word of endloopAddrs */ "coarseTune", "fineTune", "sampleId", "sampleFlags", "samplePitch", /* SF1 only */ "scaleTuning", "keyExclusiveClass", "rootKey", }; sfx/awelib/loadbank.c100644 764 764 26166 6653073475 13641 0ustar stevesteve/*================================================================ * load soundfont and virtual bank *================================================================*/ #include #include #include #include #ifdef linux #include #include #else #include #include #endif #include "util.h" #include "awebank.h" #include "aweseq.h" #include "sfopts.h" #include "config.h" /*---------------------------------------------------------------- * prototypes *----------------------------------------------------------------*/ /* virtual bank record */ typedef struct _VBank { char *name; LoadList *list; struct _VBank *next; } VBank; static int is_virtual_bank(char *path); static int load_virtual_bank(char *path, LoadList *part_list, int locked); static int load_patch(char *path, LoadList *lp, LoadList *exlp, int locked, int load_alt); static int load_map(LoadList *lp, int locked); static LoadList *make_virtual_list(VBank *v, LoadList *part_list); static void make_bank_table(FILE *fp); static void include_bank_table(char *name); static void free_bank_table(void); static int do_load_banks(int locked); static int load_one_bank(VBank *v, int locked); static int load_mapping_fonts(int locked); static int load_default_fonts(int locked); static void mark_loaded_presets(LoadList *pat, LoadList *list); /*----------------------------------------------------------------*/ /* extensions to be searched */ static char *path_ext[] = { ".sf2", ".SF2", ".sbk", ".SBK", NULL, }; static char *path_ext_all[] = { ".bnk", ".sf2", ".SF2", ".sbk", ".SBK", NULL, }; static char *path_ext_bank[] = { ".bnk", NULL, }; /* search path for font and bank files */ static char *search_path; /*---------------------------------------------------------------- * load arbitrary file with specified loading list *----------------------------------------------------------------*/ int awe_load_bank(char *name, LoadList *list, int locked) { int rc; char sfpath[256]; if (awe_option.search_path) search_path = safe_strdup(awe_option.search_path); else { char *p = getenv("SFBANKDIR"); if (p == NULL || *p == 0) p = DEFAULT_SF_PATH; search_path = safe_strdup(p); } if (search_file_name(sfpath, name, search_path, path_ext_all)) { if (is_virtual_bank(sfpath)) rc = load_virtual_bank(sfpath, list, locked); else rc = load_patch(name, list, NULL, locked, TRUE); } else rc = AWE_RET_NOT_FOUND; free(search_path); return rc; } /*---------------------------------------------------------------- * virtual bank record handlers *----------------------------------------------------------------*/ static VBank *vbanks, *vmap, *vmapkey; static char *default_font; static int bank_list_rebuilt; static LoadList *bank_list, *excl_list; /* check the extension */ static int is_virtual_bank(char *path) { char *p; if ((p = strrchr(path, '.')) == NULL) return FALSE; if (strcmp(p + 1, "bnk") == 0) return TRUE; return FALSE; } /* read a virtual bank config file and load the specified fonts */ static int load_virtual_bank(char *path, LoadList *part_list, int locked) { int rc; FILE *fp; if ((fp = fopen(path, "r")) == NULL) { fprintf(stderr, "awe: can't open virtual bank %s\n", path); return AWE_RET_ERR; } vbanks = NULL; vmap = vmapkey = NULL; default_font = NULL; bank_list = part_list; bank_list_rebuilt = FALSE; excl_list = NULL; make_bank_table(fp); fclose(fp); rc = do_load_banks(locked); if (default_font) free(default_font); if (bank_list_rebuilt) free_loadlist(bank_list); if (excl_list) free_loadlist(excl_list); free_bank_table(); return rc; } /* load banks */ static int do_load_banks(int locked) { int rc; VBank *v; if (vmap || vmapkey) { rc = load_mapping_fonts(locked); if (rc != AWE_RET_OK && rc != AWE_RET_SKIP) return rc; } for (v = vbanks; v; v = v->next) { rc = load_one_bank(v, locked); if (rc != AWE_RET_OK && rc != AWE_RET_SKIP) return rc; } if (default_font) { if (bank_list) rc = load_default_fonts(locked); else rc = load_patch(default_font, NULL, excl_list, locked, TRUE); } return rc; } /* load one soundfont file in virtual bank */ static int load_one_bank(VBank *v, int locked) { int rc; LoadList *vlist; if (bank_list == NULL) { if (v->list == NULL) return AWE_RET_OK; excl_list = merge_loadlist(excl_list, v->list); return load_patch(v->name, v->list, NULL, locked, TRUE); } vlist = make_virtual_list(v, bank_list); if (vlist == NULL) return AWE_RET_OK; rc = load_patch(v->name, vlist, NULL, locked, TRUE); mark_loaded_presets(vlist, bank_list); free_loadlist(vlist); return rc; } /* mark the presets as actually loaded */ static void mark_loaded_presets(LoadList *pat, LoadList *list) { LoadList *p, *q; for (p = pat; p; p = p->next) { if (! p->loaded) continue; for (q = list; q; q = q->next) { if (!q->loaded && awe_match_preset(&p->map, &q->map)) q->loaded = TRUE; } } } /* load map fonts */ static int load_mapping_fonts(int locked) { LoadList *vmaplist, *p, *q, *t; LoadList *new_bank; int rc; if (vmap) { rc = load_map(vmap->list, locked); mark_loaded_presets(vmap->list, bank_list); } if ((rc == AWE_RET_OK || rc == AWE_RET_SKIP) && vmapkey) { rc = load_map(vmapkey->list, locked); mark_loaded_presets(vmapkey->list, bank_list); } if (bank_list == NULL) { if (vmap) excl_list = merge_loadlist(excl_list, vmap->list); if (vmapkey) excl_list = merge_loadlist(excl_list, vmapkey->list); return rc; } /* make preset map list */ vmaplist = NULL; if (vmapkey) vmaplist = make_virtual_list(vmapkey, bank_list); if (vmap) { SFPatchRec pat, map; for (p = vmap->list; p; p = p->next) { for (q = bank_list; q; q = q->next) { if (! awe_match_preset(&q->map, &p->map)) continue; pat = p->pat; map = q->map; if (pat.keynote == -1) pat.keynote = q->pat.keynote; for (t = vmaplist; t; t = t->next) { if (awe_match_preset(&t->map, &map)) break; } if (t == NULL) vmaplist = add_loadlist(vmaplist, &pat, &map); } } } /* check if the source preset is loaded */ new_bank = NULL; for (p = vmaplist; p; p = p->next) { for (q = bank_list; q; q = q->next) { if (awe_match_preset(&q->map, &p->pat)) break; } if (q == NULL) new_bank = add_loadlist(new_bank, &p->pat, &p->pat); } if (new_bank) { bank_list = merge_loadlist(new_bank, bank_list); bank_list_rebuilt = TRUE; } free_loadlist(vmaplist); return rc; } /* load default font file */ static int load_default_fonts(int locked) { LoadList *vlist, *p, *q; int rc; /* make the list of fonts not loaded */ vlist = NULL; for (p = bank_list; p; p = p->next) { if (!p->loaded) vlist = add_loadlist(vlist, &p->pat, &p->map); } if (vlist == NULL) return AWE_RET_OK; rc = load_patch(default_font, vlist, NULL, locked, TRUE); free_loadlist(vlist); return rc; } /* make part list for each virtual bank */ static LoadList *make_virtual_list(VBank *v, LoadList *part_list) { LoadList *p, *q, *list; list = NULL; for (p = part_list; p; p = p->next) { for (q = v->list; q; q = q->next) { if (awe_match_preset(&p->map, &q->map)) { list = add_loadlist(list, &q->pat, &q->map); } } } return list; } /* read a virtual bank config file and build bank table */ static void make_bank_table(FILE *fp) { char line[256], *p, *name; SFPatchRec pat, map; VBank *v; int len; while (fgets(line, sizeof(line), fp)) { /* discard the linefeed */ len = strlen(line); if (len > 0 && line[len-1] == '\n') line[len-1] = 0; /* skip spaces & comments */ for (p = line; isspace(*p); p++) ; if (!*p || *p == '#' || *p == '!' || *p == '%') continue; if (isalpha(*p)) { char *arg; arg = strschr(p, " \t\r\n"); if (arg) { char *tmp = strschr(arg, " \t\r\n"); if (tmp) *tmp = 0; arg++; } switch (*p) { case 'i': case 'I': include_bank_table(arg); break; case 'd': case 'D': if (default_font) free(default_font); default_font = safe_strdup(arg); break; default: fprintf(stderr, "awe: illegal bank command %s", line); break; } continue; } else if (isdigit(*p)) { if (! awe_parse_loadlist(p, &pat, &map, &name)) continue; } else continue; if (name && *name) { /* discard garbage letters */ if ((p = strschr(name, " \t\n#")) != NULL) *p = 0; } if (name == NULL || !*name) { if (map.keynote != -1) v = vmapkey; else v = vmap; if (v == NULL) { v = (VBank*)safe_malloc(sizeof(VBank)); v->list = NULL; v->name = NULL; if (map.keynote != -1) vmapkey = v; else vmap = v; } } else { for (v = vbanks; v; v = v->next) { if (strcmp(v->name, name) == 0) break; } } if (v == NULL) { v = (VBank*)safe_malloc(sizeof(VBank)); v->list = NULL; v->name = safe_strdup(name); v->next = vbanks; vbanks = v; } v->list = add_loadlist(v->list, &pat, &map); } } /* include another bank file */ static void include_bank_table(char *name) { char path[256]; FILE *fp; if (search_file_name(path, name, search_path, path_ext_bank) && (fp = fopen(path, "r")) != NULL) { make_bank_table(fp); fclose(fp); } else { fprintf(stderr, "awe: can't include bank file %s\n", name); } } /* free bank record table */ static void free_bank_table(void) { VBank *v, *next; for (v = vbanks; v; v = next) { next = v->next; if (v->name) safe_free(v->name); free_loadlist(v->list); safe_free(v); } vbanks = NULL; if (vmap) { free_loadlist(vmap->list); safe_free(vmap); } if (vmapkey) { free_loadlist(vmapkey->list); safe_free(vmapkey); } } /*---------------------------------------------------------------- * load sample & info on the sound driver *----------------------------------------------------------------*/ static int load_patch(char *name, LoadList *lp, LoadList *exlp, int locked, int load_alt) { FILE *fd; char path[256]; int rc; static SFInfo sfinfo; if (! search_file_name(path, name, search_path, path_ext)) { fprintf(stderr, "awe: can't find font file %s\n", name); return AWE_RET_SKIP; } if ((fd = fopen(path, "r")) == NULL) { fprintf(stderr, "awe: can't open SoundFont file %s\n", path); return AWE_RET_SKIP; } if (load_soundfont(&sfinfo, fd, TRUE) < 0) { fprintf(stderr, "awe: can't load SoundFont %s\n", path); return AWE_RET_SKIP; } correct_samples(&sfinfo); if (! awe_is_ram_fonts(&sfinfo)) { fclose(fd); fd = NULL; } awe_open_font(&sfinfo, fd, locked); rc = awe_load_font_buffered(&sfinfo, lp, exlp, load_alt); awe_close_font(&sfinfo); free_soundfont(&sfinfo); if (fd) fclose(fd); return rc; } /*---------------------------------------------------------------- * load preset mapping *----------------------------------------------------------------*/ static int load_map(LoadList *lp, int locked) { int rc; if (awe_open_patch("map", AWE_PAT_TYPE_MAP, locked) < 0) { fprintf(stderr, "awe: can't access to sequencer\n"); return AWE_RET_SKIP; } for (; lp; lp = lp->next) { if ((rc = awe_load_map(lp)) != AWE_RET_OK) return rc; lp->loaded = TRUE; } awe_close_patch(); return AWE_RET_OK; } sfx/awelib/loadtext.c100644 764 764 14756 6653073475 13714 0ustar stevesteve/*================================================================ * loadtext.c: * load textized soundfont information *================================================================*/ #include #include #include "slist.h" #include "util.h" #include "sffile.h" #include "sflayer.h" /*---------------------------------------------------------------- * prototypes *----------------------------------------------------------------*/ static void load_sflist(SFInfo *sf, SList list); static void load_preset(SFInfo *sf, SList at); static void load_inst(SFInfo *lp, SList at); static void load_layers(SFHeader *hdr, SList at); static void load_lists(SFGenLayer *lay, SList at); static int sf_index(char *str); static void load_sample(SFInfo *sf, SList at); /*---------------------------------------------------------------- * load the text file *----------------------------------------------------------------*/ void load_textinfo(SFInfo *sf, FILE *fp) { SList list; while ((list = SReadFile(fp)) != NIL) { /*print_list(list);*/ load_sflist(sf, list); SFree(list); } } /*---------------------------------------------------------------- * parse a list *----------------------------------------------------------------*/ static void load_sflist(SFInfo *sf, SList list) { if (! SListP(list)) return; list = SCar(list); if (! SFunP(list)) return; if (SFunIs(list, "Name")) { sf->sf_name = safe_strdup(SStr(SCdr(list))); } else if (SFunIs(list, "SamplePos")) { sf->samplepos = SInt(SCdr(list)); sf->samplesize = SInt(SCdr(SCdr(list))); } else if (SFunIs(list, "SoundFont")) { sf->version = SInt(SCdr(list)); sf->minorversion = SInt(SCdr(SCdr(list))); } else if (SFunIs(list, "InfoPos")) { sf->infopos = SInt(SCdr(list)); sf->infosize = SInt(SCdr(SCdr(list))); } else if (SFunIs(list, "Presets")) { load_preset(sf, SCdr(list)); } else if (SFunIs(list, "Instruments")) { load_inst(sf, SCdr(list)); } else if (SFunIs(list, "SampleInfo")) { load_sample(sf, SCdr(list)); } else { fprintf(stderr, "unknown tag %s\n", SFun(list)); } } /*---------------------------------------------------------------- * parse preset list *----------------------------------------------------------------*/ static void load_preset(SFInfo *sf, SList at) { int i; SFPresetHdr *p; for (; at != NIL && !SListP(at); at = SCdr(at)) ; if (at == NIL) return; if ((sf->npresets = SIndex(at)) <= 0) { sf->npresets = 0; return; } sf->preset = (SFPresetHdr*)safe_malloc (sizeof(SFPresetHdr) * sf->npresets); at = SCar(at); p = sf->preset; for (i = 0; i < sf->npresets && at != NIL; i++) { SList list = SCar(at); list = SCdr(list); /* skip index */ strncpy(p->hdr.name, SStr(list), 20); list = SCdr(list); p->preset = SInt(SCdr(SCar(list))); list = SCdr(list); p->bank = SInt(SCdr(SCar(list))); list = SCdr(list); load_layers(&p->hdr, list); at = SCdr(at); p++; } } /*---------------------------------------------------------------- * parse instrument list *----------------------------------------------------------------*/ static void load_inst(SFInfo *sf, SList at) { int i; SFInstHdr *p; for (; at != NIL && !SListP(at); at = SCdr(at)) ; if (at == NIL) return; if ((sf->ninsts = SIndex(at)) <= 0) { sf->ninsts = 0; return; } sf->inst = (SFInstHdr*)safe_malloc(sizeof(SFInstHdr) * sf->ninsts); at = SCar(at); p = sf->inst; for (i = 0; i < sf->ninsts && at != NIL; i++) { SList list = SCar(at); list = SCdr(list); /* skip index */ strncpy(p->hdr.name, SStr(list), 20); list = SCdr(list); load_layers(&p->hdr, list); at = SCdr(at); p++; } } /*---------------------------------------------------------------- * parse preset/inst layer list *----------------------------------------------------------------*/ static void load_layers(SFHeader *hdr, SList at) { int i; SFGenLayer *p; if ((hdr->nlayers = SIndex(at)) <= 0) { hdr->nlayers = 0; return; } hdr->layer = (SFGenLayer*)safe_malloc(sizeof(SFGenLayer) * hdr->nlayers); p = hdr->layer; at = SCar(at); for (i = 0; i < hdr->nlayers; i++) { load_lists(p, at); p++; at = SCdr(at); } } /*---------------------------------------------------------------- * parse layered elements *----------------------------------------------------------------*/ static void load_lists(SFGenLayer *lay, SList at) { int i; SFGenRec *p; lay->nlists = SIndex(at) - 1; if (lay->nlists < 0) { lay->nlists = 0; lay->list = NULL; return; } lay->list = (SFGenRec*)safe_malloc(sizeof(SFGenRec) * lay->nlists); p = lay->list; at = SCdr(SCar(at)); for (i = 0; i < lay->nlists; i++) { SList list = SCar(at); p->oper = sf_index(SFun(list)); p->amount = SInt(SCdr(list)); p++; at = SCdr(at); } } /*---------------------------------------------------------------- * convert string to SF id number *----------------------------------------------------------------*/ static int sf_index(char *str) { int i; for (i = 0; i < SF_EOF; i++) { if (strcmp(sf_gen_text[i], str) == 0) return i; } return SF_EOF; } /*---------------------------------------------------------------- * parse sample info list *----------------------------------------------------------------*/ static void load_sample(SFInfo *sf, SList at) { int i; SFSampleInfo *p; int in_rom; for (; at != NIL && !SListP(at); at = SCdr(at)) ; if (at == NIL) return; if ((sf->nsamples = SIndex(at)) <= 0) { sf->nsamples = 0; return; } sf->sample = (SFSampleInfo*)safe_malloc (sizeof(SFSampleInfo) * sf->nsamples); at = SCar(at); p = sf->sample; in_rom = 1; /* data may start from ROM samples */ for (i = 0; i < sf->nsamples; i++) { SList list = SCar(at); list = SCdr(list); /* skip index */ strncpy(p->name, SStr(list), 20); list = SCdr(list); p->startsample = SInt(SCar(list)); p->endsample = SInt(SCdr(SCar(list))); list = SCdr(list); p->startloop = SInt(SCar(list)); p->endloop = SInt(SCdr(SCar(list))); list = SCdr(list); if (list != NIL && sf->version > 1) { list = SCar(list); p->samplerate = SInt(list); list = SCdr(list); p->originalPitch = SInt(list); list = SCdr(list); p->pitchCorrection = SInt(list); list = SCdr(list); p->samplelink = SInt(list); list = SCdr(list); p->sampletype = SInt(list); } else { p->samplerate = 44100; p->originalPitch = 60; p->pitchCorrection = 0; p->samplelink = 0; /* the first RAM data starts from address 0 */ if (p->startsample == 0) in_rom = 0; if (in_rom) p->sampletype = 0x8001; else p->sampletype = 1; } p++; at = SCdr(at); } } sfx/awelib/malloc.c100644 764 764 715 6653073475 13265 0ustar stevesteve/* */ #include #include #include #include void *safe_malloc(int size) { void *p; p = (void*)calloc(size, 1); if (p == NULL) { fprintf(stderr, "can't malloc buffer for size %d!!\n", size); exit(1); } return p; } void safe_free(void *buf) { if (buf) free(buf); } char *safe_strdup(char *src) { char *p; if ((p = strdup(src)) == NULL) { fprintf(stderr, "can't strdup\n"); exit(1); } return p; } sfx/awelib/mygetopt.c100644 764 764 5123 6653073475 13704 0ustar stevesteve/* */ #include #include #include "util.h" static int check_error = 1; static int argc = 0; static char **argv = NULL; static char *next_flag = NULL; static int do_shortoption(char *p, char *optstr); static int do_longoption(char *p, awe_option_args *args, int *idxp); int awe_get_argument(int argc, char **argv, char *optstr, awe_option_args *args) { int c, dummy; check_error = 0; while ((c = awe_getopt(argc, argv, optstr, args, &dummy)) != -1) ; check_error = 1; return optind; } int awe_getopt(int new_argc, char **new_argv, char *optstr, awe_option_args *args, int *idxp) { char *p; if (new_argc != argc || new_argv != argv) { argc = new_argc; argv = new_argv; optind = 0; } if (idxp) *idxp = -1; optarg = NULL; if (next_flag && *next_flag) { p = next_flag; next_flag = NULL; } else { next_flag = NULL; optind++; /* skip to next */ if (optind >= argc) { argc = 0; argv = NULL; return -1; } p = argv[optind]; /* option terminated */ if (*p != '-' || p[1] == 0) { argc = 0; argv = NULL; return -1; } p++; } if (*p == '-') { /* long option */ if (p[1] == 0) { /* only '--'; leave the left arguments */ optind++; argc = 0; argv = NULL; return -1; } return do_longoption(p + 1, args, idxp); } return do_shortoption(p, optstr); } /* short option */ static int do_shortoption(char *p, char *optstr) { char *q; for (q = optstr; *q; q++) { if (*q == *p) { if (q[1] == ':') { if (p[1]) optarg = p + 1; else { optind++; if (optind >= argc) { if (check_error) fprintf(stderr, "option: no argument is given for option -%c\n", *q); return '?'; } optarg = argv[optind]; } } else next_flag = p + 1; return *p; } } if (check_error) fprintf(stderr, "unknown option -%c\n", *p); return '?'; } /* long option */ static int do_longoption(char *p, awe_option_args *args, int *idxp) { int i; char *q; char tmp[512]; if (args == NULL) return '?'; if (strlen(p) > sizeof(tmp)-1) { if (check_error) fprintf(stderr, "too long options!\n"); return '?'; } strcpy(tmp, p); if ((q = strchr(tmp, '=')) != NULL) *q = 0; if ((q = strchr(p, '=')) != NULL) q++; for (i = 0; args[i].str; i++) { if (strcmp(args[i].str, tmp) == 0) { if (idxp) *idxp = i; if (args[i].flag) *args[i].flag = args[i].val; optarg = q; if (args[i].has_arg == 1 && optarg == NULL) { if (check_error) fprintf(stderr, "option: no argument is given for option --%s\n", args[i].str); return '?'; } return args[i].val; } } return '?'; } sfx/awelib/optfile.c100644 764 764 10701 6653073475 13514 0ustar stevesteve/*---------------------------------------------------------------- * parse options *----------------------------------------------------------------*/ #include #include #include #include #include "util.h" #include "sfopts.h" #include "config.h" #define DEFAULT_ID "default" typedef struct OptionFile { int argc; char **argv; struct OptionFile *next; } OptionFile; static OptionFile *optlist = NULL; #define MAX_ARGC 100 static void read_option_file(void) { char *p, rcfile[256]; char line[256]; FILE *fp; OptionFile *rec; *rcfile = 0; if ((p = getenv("HOME")) != NULL && *p) { sprintf(rcfile, "%s/%s", p, RCFILE); if (access(rcfile, R_OK) != 0) rcfile[0] = 0; } if (! *rcfile) { #ifdef SYSTEM_RCFILE strcpy(rcfile, SYSTEM_RCFILE); if (access(rcfile, R_OK) != 0) return; #else return; #endif } optlist = NULL; if ((fp = fopen(rcfile, "r")) == NULL) return; while (fgets(line, sizeof(line), fp)) { char *argv[MAX_ARGC]; int i, argc; argv[0] = strtok(line, " \t\n"); if (*argv[0] == '#') continue; /* skip comments */ for (argc = 1; argc < MAX_ARGC; argc++) { argv[argc] = strtok(NULL, " \t\n"); if (argv[argc] == NULL) break; } rec = (OptionFile*)safe_malloc(sizeof(OptionFile)); rec->argv = (char**)safe_malloc(sizeof(char*) * argc); rec->argc = argc; for (i = 0; i < argc; i++) rec->argv[i] = safe_strdup(argv[i]); rec->next = optlist; optlist = rec; } fclose (fp); } static void parse_named_option(char *fname) { OptionFile *p; for (p = optlist; p; p = p->next) { if (strcmp(p->argv[0], fname) == 0) { while (awe_parse_options(p->argc, p->argv, 0, 0, 0) == 0) ; } } } void awe_read_option_file(char *fname) { char tmp[256], *base, *ep; if (optlist == NULL) { read_option_file(); if (optlist == NULL) return; } parse_named_option(DEFAULT_ID); if (fname) { strcpy(tmp, fname); if ((base = strrchr(tmp, '/')) == NULL) base = tmp; /* no directory path is attached */ else base++; /* next of slash letter */ /* remove extension */ if ((ep = strchr(base, '.')) != NULL) *ep = 0; if (strcmp(base, DEFAULT_ID) != 0) parse_named_option(base); } } #define DEFAULT_OPTION_NUM 9 static awe_option_args long_options[40] = { {"addblank", 2, 0, 'B'}, {"bank", 2, 0, 'b'}, {"chorus", 1, 0, 'c'}, {"reverb", 1, 0, 'r'}, {"path", 1, 0, 'P'}, {"sense", 1, 0, 'A'}, {"atten", 1, 0, 'a'}, {"decay", 1, 0, 'd'}, {"volume", 1, 0, 'V'}, }; #define OPTION_FLAGS "b:c:r:P:A:a:d:V:" #define set_bool() (optarg ? bool_val(optarg) : TRUE) int awe_parse_options(int argc, char **argv, char *optflags, awe_option_args *long_opts, int *optidx) { int c; int ival; double dval; static char options[100]; strcpy(options, OPTION_FLAGS); if (optflags) strcat(options, optflags); c = DEFAULT_OPTION_NUM; if (long_opts) { awe_option_args *p; for (p = long_opts; p->str; p++) long_options[c++] = *p; } long_options[c].str = 0; if ((c = awe_getopt(argc, argv, options, long_options, optidx)) == -1) return -1; switch (c) { case 'b': ival = atoi(optarg); if (ival > 127) fprintf(stderr, "awe: illegal bank number %d\n", ival); else awe_option.default_bank = ival; break; case 'B': awe_option.auto_add_blank = set_bool(); break; case 'V': ival = atoi(optarg); if (ival < 0 || ival > 100) fprintf(stderr, "awe: illegal default volume value %d\n", ival); else awe_option.default_volume = ival; break; case 'c': ival = atoi(optarg); if (ival < 0 || ival > 100) fprintf(stderr, "awe: illegal default chorus value %d\n", ival); else awe_option.default_chorus = ival; break; case 'r': ival = atoi(optarg); if (ival < 0 || ival > 100) fprintf(stderr, "awe: illegal default reverb value %d\n", ival); else awe_option.default_reverb = ival; break; case 'P': if (awe_option.search_path) free(awe_option.search_path); awe_option.search_path = safe_strdup(optarg); break; case 'A': dval = atof(optarg); if (dval <= 0) fprintf(stderr, "awe: illegal atten sense parameter %g\n", dval); else { awe_option.atten_sense = dval; awe_option.default_atten = awe_calc_def_atten(dval); } break; case 'a': ival = atoi(optarg); if (ival < 0 || ival > 255) fprintf(stderr, "awe: illegal attenuation parameter %d\n", ival); else awe_option.default_atten = ival; break; case 'd': awe_option.decay_sense = atof(optarg); break; default: return c; } return 0; } sfx/awelib/parsesf.c100644 764 764 67477 6737715731 13544 0ustar stevesteve/*================================================================ * parsesf.c * parse SoundFonr layers and convert it to AWE driver patch * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include #include #include #ifdef linux #include #include #else #include #include #endif #include "awe_parm.h" #include "itypes.h" #include "sffile.h" #include "sflayer.h" #include "sfitem.h" #include "aweseq.h" #include "util.h" #include "sfopts.h" #include "dynload.h" /*---------------------------------------------------------------- * prototypes *----------------------------------------------------------------*/ #define P_GLOBAL 1 #define P_LAYER 2 typedef int (*Loader)(SFInfo *sf, int sample); typedef int (*Mapper)(SFPatchRec *pat, SFPatchRec *map, LayerTable *tbl); static int awe_load_patch(void *patch, int len); static int awe_load_data(SFInfo *sf, FILE *fp, int sample, int *memsize); static LoadList *is_matched_preset(LoadList *list, SFPatchRec *pat); static int buffer_map(SFPatchRec *pat, SFPatchRec *map, LayerTable *tbl); static int buffer_sample(SFInfo *sf, int sample); static int buffer_load(SFInfo *sf, int sample); static int mark_samples_in_list(SFInfo *sf); static int dynamic_map(SFPatchRec *pat, SFPatchRec *map, LayerTable *tbl); static int dynamic_load(SFInfo *sf, int sample); static int load_font(SFInfo *sf, SFPresetHdr *preset, SFPatchRec *pat, Mapper map, Loader loader); static void search_def_drum_inst(SFInfo *sf); static int parse_layer(SFInfo *sf, SFPatchRec *pat, LayerTable *tbl, Mapper mapper, Loader loader, int level); static void set_to_table(SFInfo *sf, LayerTable *tbl, SFGenLayer *lay, int level); static void add_item_to_table(LayerTable *tbl, int oper, int amount, int level); static int sanity_range(LayerTable *tbl); static int in_range(LayerTable *tbl, int key); static void clear_table(LayerTable *tbl); static void merge_table(SFInfo *sf, LayerTable *dst, LayerTable *src); static void init_and_merge_table(SFInfo *sf, LayerTable *dst, LayerTable *src); static int make_patch(SFInfo *sf, SFPatchRec *pat, LayerTable *tbl); static void make_info(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_sample_info(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_init_info(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_rootkey(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_modenv(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_volenv(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_lfo1(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static void set_lfo2(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl); static int find_inst(SFGenLayer *layer); static int is_global(SFGenLayer *layer); /*---------------------------------------------------------------- * local common variables *----------------------------------------------------------------*/ static int def_drum_inst; static FILE *sample_fd; static int mem_avail; static SFPatchRec *sample_map; static LoadList *part_list, *exclude_list; /*================================================================ * open / close patch *================================================================*/ int awe_open_patch(char *name, int type, int locked) { struct open_patch_rec { awe_patch_info head; awe_open_parm parm; } rec; rec.head.type = AWE_OPEN_PATCH; rec.head.len = AWE_OPEN_PARM_SIZE; rec.parm.type = type; if (locked) rec.parm.type |= AWE_PAT_LOCKED; strncpy(rec.parm.name, name, sizeof(rec.parm.name)); return awe_load_patch(&rec, sizeof(rec)); } int awe_open_font(SFInfo *sf, FILE *fp, int locked) { def_drum_inst = -1; sample_fd = fp; mem_avail = awe_dev; ioctl(seqfd, SNDCTL_SYNTH_MEMAVL, &mem_avail); mem_avail = 4*1024*1024; sample_map = NULL; part_list = NULL; awe_init_marks(); #if 0 /* set zero attenuation level; this doesn't use seqbuf */ _AWE_CMD_NOW(seqfd, awe_dev, 0, _AWE_MISC_MODE, AWE_MD_ZERO_ATTEN, awe_option.default_atten); #endif return awe_open_patch(sf->sf_name, AWE_PAT_TYPE_GS, locked); } int awe_close_patch(void) { awe_patch_info head; head.key = AWE_PATCH; head.type = AWE_CLOSE_PATCH; head.len = 0; return awe_load_patch(&head, sizeof(head)); } void awe_close_font(SFInfo *sf) { def_drum_inst = -1; sample_fd = NULL; sample_map = NULL; part_list = NULL; awe_free_marks(); awe_close_patch(); } /*----------------------------------------------------------------*/ int awe_is_ram_fonts(SFInfo *sf) { int i; for (i = 0; i < sf->nsamples; i++) { if (sf->sample[i].size > 0) return TRUE; } return FALSE; } /*---------------------------------------------------------------- * load a preset map *----------------------------------------------------------------*/ int awe_load_map(LoadList *lp) { struct open_patch_rec { awe_patch_info head; awe_voice_map parm; } rec; rec.head.type = AWE_MAP_PRESET; rec.head.len = sizeof(awe_voice_map); rec.parm.src_bank = lp->pat.bank; rec.parm.src_instr = lp->pat.preset; rec.parm.src_key = lp->pat.keynote; rec.parm.map_bank = lp->map.bank; rec.parm.map_instr = lp->map.preset; rec.parm.map_key = lp->map.keynote; if (awe_load_patch(&rec, sizeof(rec)) == -1) return AWE_RET_ERR; return AWE_RET_OK; } /*---------------------------------------------------------------- * load a patch data *----------------------------------------------------------------*/ static int awe_load_patch(void *patch, int len) { awe_patch_info *p; p = (awe_patch_info*)patch; p->key = AWE_PATCH; p->device_no = awe_dev; p->sf_id = 0; return write(seqfd, patch, len); } /*---------------------------------------------------------------- * load sample wave data on the driver *----------------------------------------------------------------*/ typedef struct patch_rec { awe_patch_info patch; awe_sample_info hdr; unsigned short data[1]; } patch_rec; static int awe_load_data(SFInfo *sf, FILE *fp, int sample, int *memsize) { SFSampleInfo *sp; patch_rec *rec; sp = sf->sample + sample; if (*memsize < sp->size * 2) return AWE_RET_NOMEM; *memsize -= sp->size * 2; /* allocate temporary buffer for all the sample */ rec = (patch_rec*)safe_malloc(sizeof(*rec) + sp->size * 2); /* set sample info */ rec->hdr.sf_id = 0; rec->hdr.sample = sample; rec->hdr.start = sp->startsample; rec->hdr.end = sp->endsample; rec->hdr.loopstart = sp->startloop; rec->hdr.loopend = sp->endloop; rec->hdr.size = sp->size; rec->hdr.checksum_flag = 0; rec->hdr.mode_flags = 0; rec->hdr.checksum = 0; /* if this is not ROM sample, load it */ if (rec->hdr.size > 0) { int pos = rec->hdr.start * 2; if (fp == NULL) return AWE_RET_ERR; if (pos < 0 || pos > sf->samplesize) { fprintf(stderr, "awe: illegal file pos %d\n", pos); return AWE_RET_ERR; } pos += sf->samplepos; fseek(fp, pos, SEEK_SET); fread(rec->data, rec->hdr.size, 2, fp); /* clear the blank data at tail */ memset(rec->data + rec->hdr.end - rec->hdr.start, 0, (rec->hdr.size - rec->hdr.end + rec->hdr.start) * 2); } /* ok, loading the patch.. */ rec->patch.optarg = 0; rec->patch.len = AWE_SAMPLE_INFO_SIZE + rec->hdr.size * 2; /* not including the patch header size */ rec->patch.type = AWE_LOAD_DATA; rec->patch.reserved = 0; if (awe_load_patch(rec, AWE_PATCH_INFO_SIZE + rec->patch.len) == -1) { safe_free(rec); return AWE_RET_ERR; } safe_free(rec); return AWE_RET_OK; } /*================================================================ * load font info *================================================================*/ /* load the whole file at once */ int awe_load_font_buffered(SFInfo *sf, LoadList *plist, LoadList *elist, int load_alt) { int rc, i, nsamples; int nomem; LoadList *p; int missing; part_list = plist; exclude_list = elist; nomem = 0; if (plist == NULL) search_def_drum_inst(sf); if (plist || elist) { if ((rc = mark_samples_in_list(sf)) == AWE_RET_ERR) return rc; } if (load_alt) { /* replace to alternative fonts if the fonts not exist */ missing = FALSE; for (p = part_list; p; p = p->next) { if (p->loaded) continue; if (p->pat.bank == 128) { if (p->pat.preset != 0) { p->pat.preset = 0; missing = TRUE; } } else if (p->pat.bank != 0) { p->pat.bank = 0; missing = TRUE; } } if (missing) { if ((rc = mark_samples_in_list(sf)) == AWE_RET_ERR) return rc; } } /* corret number of samples; SF2 includes EOS at the last sample which is a dummy sample meaning End Of Sample. SBK doens't have it. */ if (sf->version == 1) nsamples = sf->nsamples; else nsamples = sf->nsamples - 1; for (i = 0; i < nsamples; i++) { if ((plist||elist) && !awe_is_listed_sample(i)) continue; rc = awe_load_data(sf, sample_fd, i, &mem_avail); if (rc == AWE_RET_ERR) return rc; else if (rc == AWE_RET_NOMEM) nomem = 1; else { if (plist||elist) awe_mark_sample(i); else awe_add_marked_sample(i); } } for (i = 0; i < sf->npresets; i++) { SFPatchRec tmp; tmp.preset = sf->preset[i].preset; tmp.bank = sf->preset[i].bank; tmp.keynote = -1; if (plist == NULL || is_matched_preset(plist, &tmp)) { rc = load_font(sf, &sf->preset[i], &tmp, buffer_map, buffer_load); if (rc == AWE_RET_ERR) return rc; } } if (nomem) return AWE_RET_NOMEM; return AWE_RET_OK; } static int mark_samples_in_list(SFInfo *sf) { int i, rc; LoadList *p = NULL; for (i = 0; i < sf->npresets; i++) { SFPatchRec tmp; tmp.preset = sf->preset[i].preset; tmp.bank = sf->preset[i].bank; tmp.keynote = -1; if (part_list == NULL || (p = is_matched_preset(part_list, &tmp)) != NULL) { rc = load_font(sf, &sf->preset[i], &tmp, buffer_map, buffer_sample); if (rc == AWE_RET_ERR) return rc; if (p) p->loaded = TRUE; } } return AWE_RET_OK; } static int buffer_map(SFPatchRec *pat, SFPatchRec *map, LayerTable *tbl) { LoadList *p; for (p = exclude_list; p; p = p->next) { if (! awe_match_preset(pat, &p->map)) continue; if (p->map.keynote == -1) return AWE_RET_SKIP; if (in_range(tbl, p->map.keynote)) return AWE_RET_SKIP; } if (part_list == NULL) { *map = *pat; return AWE_RET_OK; } for (p = part_list; p; p = p->next) { if (! awe_match_preset(pat, &p->pat)) continue; if (p->pat.keynote != -1) { if (! in_range(tbl, p->pat.keynote)) continue; if (p->map.keynote != -1) { tbl->val[SF_keyRange] = RANGE(p->map.keynote, p->map.keynote); if (! tbl->set[SF_keynum]) { tbl->val[SF_keynum] = p->pat.keynote; tbl->set[SF_keynum] = P_LAYER; } } } *map = p->map; if (p->map.bank == -1) map->bank = pat->bank; return AWE_RET_OK; } return AWE_RET_SKIP; } /* check if the specified preset matches the preset list */ static LoadList *is_matched_preset(LoadList *list, SFPatchRec *pat) { LoadList *p; for (p = list; p; p = p->next) { if (awe_match_preset(&p->pat, pat)) return p; } return NULL; } static int buffer_sample(SFInfo *sf, int sample) { awe_add_sample(sample); return AWE_RET_SKIP; /* do not send info */ } static int buffer_load(SFInfo *sf, int sample) { if (! awe_is_marked(sample)) return AWE_RET_SKIP; return AWE_RET_OK; } /*----------------------------------------------------------------*/ /* load each preset */ int awe_load_font(SFInfo *sf, SFPatchRec *pat, SFPatchRec *map) { int rc, i; sample_map = map; for (i = 0; i < sf->npresets; i++) { SFPatchRec tmp; tmp.preset = sf->preset[i].preset; tmp.bank = sf->preset[i].bank; tmp.keynote = -1; if (awe_match_preset(&tmp, pat)) { rc = load_font(sf, &sf->preset[i], pat, dynamic_map, dynamic_load); if (rc == AWE_RET_ERR || rc == AWE_RET_NOMEM) return rc; return AWE_RET_OK; } } return AWE_RET_SKIP; } static int dynamic_map(SFPatchRec *pat, SFPatchRec *map, LayerTable *tbl) { if (sample_map == NULL) { *map = *pat; return AWE_RET_OK; } *map = *sample_map; if (pat->keynote == -1) return AWE_RET_OK; if (! in_range(tbl, pat->keynote)) return AWE_RET_SKIP; tbl->val[SF_keyRange] = RANGE(sample_map->keynote, sample_map->keynote); if (! tbl->set[SF_keynum]) { tbl->val[SF_keynum] = pat->keynote; tbl->set[SF_keynum] = P_LAYER; } return AWE_RET_OK; } static int dynamic_load(SFInfo *sf, int sample) { int rc; if (awe_is_marked(sample)) return AWE_RET_OK; if ((rc = awe_load_data(sf, sample_fd, sample, &mem_avail)) != AWE_RET_OK) return rc; awe_mark_sample(sample); return AWE_RET_OK; } /*----------------------------------------------------------------*/ static int load_font(SFInfo *sf, SFPresetHdr *preset, SFPatchRec *pat, Mapper mapper, Loader loader) { int rc, j, nlayers; SFGenLayer *layp, *globalp; /* if layer is empty, skip it */ if ((nlayers = preset->hdr.nlayers) <= 0 || (layp = preset->hdr.layer) == NULL) return AWE_RET_SKIP; /* check global layer */ globalp = NULL; if (is_global(layp)) { globalp = layp; layp++; nlayers--; } /* parse for each preset layer */ for (j = 0; j < nlayers; j++, layp++) { LayerTable tbl; /* set up table */ clear_table(&tbl); if (globalp) set_to_table(sf, &tbl, globalp, P_GLOBAL); set_to_table(sf, &tbl, layp, P_LAYER); /* parse the instrument */ rc = parse_layer(sf, pat, &tbl, mapper, loader, 0); /* fatal error */ if (rc == AWE_RET_ERR || rc == AWE_RET_NOMEM) return rc; } return AWE_RET_OK; } /*----------------------------------------------------------------*/ /* find instrument id of default drumset #0: * the standard drumset is often included in other drumsets. */ static void search_def_drum_inst(SFInfo *sf) { int i; SFGenLayer *layp; def_drum_inst = -1; for (i = 0; i < sf->npresets; i++) { if (sf->preset[i].bank == 128 && sf->preset[i].preset == 0) { /* check the first layer */ if ((layp = sf->preset[i].hdr.layer) == NULL) continue; if (!is_global(layp)) def_drum_inst = find_inst(layp); break; } } } /*----------------------------------------------------------------*/ /* parse a preset layer and convert it to the patch structure */ static int parse_layer(SFInfo *sf, SFPatchRec *pat, LayerTable *tbl, Mapper mapper, Loader loader, int level) { SFInstHdr *inst; int rc, i, nlayers; SFGenLayer *lay, *globalp; if (level >= 2) { fprintf(stderr, "parse_layer: too deep instrument level\n"); return AWE_RET_ERR; } /* instrument must be defined */ if (!tbl->set[SF_instrument]) return AWE_RET_SKIP; /* if non-standard drumset includes standard drum instruments, skip it to avoid duplicate the data */ inst = &sf->inst[tbl->val[SF_instrument]]; if (def_drum_inst >= 0 && pat->bank == 128 && pat->preset != 0 && tbl->val[SF_instrument] == def_drum_inst) return AWE_RET_SKIP; /* if layer is empty, skip it */ if ((nlayers = inst->hdr.nlayers) <= 0 || (lay = inst->hdr.layer) == NULL) return AWE_RET_SKIP; /* check global layer */ globalp = NULL; if (is_global(lay)) { globalp = lay; lay++; nlayers--; } /* parse for each layer */ for (i = 0; i < nlayers; i++, lay++) { LayerTable ctbl; clear_table(&ctbl); if (globalp) set_to_table(sf, &ctbl, globalp, P_GLOBAL); set_to_table(sf, &ctbl, lay, P_LAYER); if (!ctbl.set[SF_sampleId]) { /* recursive loading */ merge_table(sf, &ctbl, tbl); if (! sanity_range(&ctbl)) continue; if ((rc = parse_layer(sf, pat, &ctbl, mapper, loader, level+1)) != AWE_RET_OK) { if (rc != AWE_RET_SKIP) return rc; } } else { SFPatchRec map; init_and_merge_table(sf, &ctbl, tbl); if (! sanity_range(&ctbl)) continue; /* if the keynote is specified, check and remap it */ if ((rc = mapper(pat, &map, &ctbl)) != AWE_RET_OK) continue; /* load or mark up the sample */ rc = loader(sf, ctbl.val[SF_sampleId]); if (rc == AWE_RET_ERR || rc == AWE_RET_NOMEM) return rc; else if (rc == AWE_RET_SKIP) continue; /* load the info data */ if ((rc = make_patch(sf, &map, &ctbl)) != AWE_RET_OK) return rc; } } return AWE_RET_OK; } /*---------------------------------------------------------------- * find instrument *----------------------------------------------------------------*/ static int find_inst(SFGenLayer *layer) { int i; for (i = 0; i < layer->nlists; i++) { if (layer->list[i].oper == SF_instrument) return layer->list[i].amount; } return -1; } static int is_global(SFGenLayer *layer) { int i; for (i = 0; i < layer->nlists; i++) { if (layer->list[i].oper == SF_instrument || layer->list[i].oper == SF_sampleId) return 0; } return 1; } /*---------------------------------------------------------------- * layer table handlers *----------------------------------------------------------------*/ /* initialize layer table */ static void clear_table(LayerTable *tbl) { memset(tbl->val, 0, sizeof(tbl->val)); memset(tbl->set, 0, sizeof(tbl->set)); } /* set items in a layer to the table */ static void set_to_table(SFInfo *sf, LayerTable *tbl, SFGenLayer *lay, int level) { int i; for (i = 0; i < lay->nlists; i++) { SFGenRec *gen = &lay->list[i]; /* copy the value regardless of its copy policy */ tbl->val[gen->oper] = gen->amount; tbl->set[gen->oper] = level; } } /* add an item to the table */ static void add_item_to_table(LayerTable *tbl, int oper, int amount, int level) { LayerItem *item = &layer_items[oper]; int o_lo, o_hi, lo, hi; switch (item->copy) { case L_INHRT: tbl->val[oper] += amount; break; case L_OVWRT: tbl->val[oper] = amount; break; case L_PRSET: case L_INSTR: /* do not overwrite */ if (!tbl->set[oper]) tbl->val[oper] = amount; break; case L_RANGE: if (!tbl->set[oper]) { tbl->val[oper] = amount; } else { o_lo = LOWNUM(tbl->val[oper]); o_hi = HIGHNUM(tbl->val[oper]); lo = LOWNUM(amount); hi = HIGHNUM(amount); if (lo < o_lo) lo = o_lo; if (hi > o_hi) hi = o_hi; tbl->val[oper] = RANGE(lo, hi); } break; } } /* merge two tables */ static void merge_table(SFInfo *sf, LayerTable *dst, LayerTable *src) { int i; for (i = 0; i < SF_EOF; i++) { if (src->set[i]) { if (sf->version == 1) { if (!dst->set[i] || i == SF_keyRange || i == SF_velRange) /* just copy it */ dst->val[i] = src->val[i]; } else add_item_to_table(dst, i, src->val[i], P_GLOBAL); dst->set[i] = P_GLOBAL; } } } /* merge and set default values */ static void init_and_merge_table(SFInfo *sf, LayerTable *dst, LayerTable *src) { int i; /* default value is not zero */ if (sf->version == 1) { layer_items[SF_sustainEnv1].defv = 1000; layer_items[SF_sustainEnv2].defv = 1000; layer_items[SF_freqLfo1].defv = -725; layer_items[SF_freqLfo2].defv = -15600; } else { layer_items[SF_sustainEnv1].defv = 0; layer_items[SF_sustainEnv2].defv = 0; layer_items[SF_freqLfo1].defv = 0; layer_items[SF_freqLfo2].defv = 0; } /* set default */ for (i = 0; i < SF_EOF; i++) { if (!dst->set[i]) dst->val[i] = layer_items[i].defv; } merge_table(sf, dst, src); /* convert from SBK to SF2 */ if (sf->version == 1) { for (i = 0; i < SF_EOF; i++) { if (dst->set[i]) dst->val[i] = sbk_to_sf2(i, dst->val[i]); } } } /*---------------------------------------------------------------- * check key and velocity range *----------------------------------------------------------------*/ static int sanity_range(LayerTable *tbl) { int lo, hi; lo = LOWNUM(tbl->val[SF_keyRange]); hi = HIGHNUM(tbl->val[SF_keyRange]); if (lo < 0 || lo > 127 || hi < 0 || hi > 127 || hi < lo) return 0; lo = LOWNUM(tbl->val[SF_velRange]); hi = HIGHNUM(tbl->val[SF_velRange]); if (lo < 0 || lo > 127 || hi < 0 || hi > 127 || hi < lo) return 0; return 1; } static int in_range(LayerTable *tbl, int key) { int lo, hi; lo = LOWNUM(tbl->val[SF_keyRange]); hi = HIGHNUM(tbl->val[SF_keyRange]); if (key >= lo && key <= hi) return TRUE; return FALSE; } /*---------------------------------------------------------------- * create patch record from the stored data table *----------------------------------------------------------------*/ static int make_patch(SFInfo *sf, SFPatchRec *pat, LayerTable *tbl) { static awe_voice_rec_patch vrec; /* set voice header */ if (pat->bank > 0 || awe_option.default_bank < 0) vrec.hdr.bank = pat->bank; else vrec.hdr.bank = awe_option.default_bank; vrec.hdr.instr = pat->preset; vrec.hdr.nvoices = 1; vrec.hdr.write_mode = AWE_WR_APPEND; make_info(sf, &vrec.info, tbl); /* set patch header */ vrec.patch.optarg = 0; vrec.patch.len = AWE_VOICE_REC_SIZE + AWE_VOICE_INFO_SIZE; vrec.patch.type = AWE_LOAD_INFO; vrec.patch.reserved = 0; /* then, put it to sequencer */ if (awe_load_patch(&vrec, sizeof(vrec)) < 0) return AWE_RET_ERR; return AWE_RET_OK; } /*----------------------------------------------------------------*/ /* conver to awe_voice_info parameter */ static void make_info(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { set_sample_info(sf, vp, tbl); set_init_info(sf, vp, tbl); set_rootkey(sf, vp, tbl); set_modenv(sf, vp, tbl); set_volenv(sf, vp, tbl); set_lfo1(sf, vp, tbl); set_lfo2(sf, vp, tbl); memset(vp->parm.reserved, 0, sizeof(vp->parm.reserved)); } /*----------------------------------------------------------------*/ /* set sample address */ static void set_sample_info(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { SFSampleInfo *sp; vp->sf_id = 0; vp->sample = tbl->val[SF_sampleId]; sp = &sf->sample[vp->sample]; vp->start = (tbl->val[SF_startAddrsHi] << 15) + tbl->val[SF_startAddrs]; vp->end = (tbl->val[SF_endAddrsHi] << 15) + tbl->val[SF_endAddrs]; vp->loopstart = (tbl->val[SF_startloopAddrsHi] << 15) + tbl->val[SF_startloopAddrs]; vp->loopend = (tbl->val[SF_endloopAddrsHi] << 15) + tbl->val[SF_endloopAddrs]; vp->rate_offset = awe_calc_rate_offset(sp->samplerate); /* sample mode */ vp->mode = 0; if (sp->sampletype & 0x8000) vp->mode |= AWE_MODE_ROMSOUND; if (tbl->val[SF_sampleFlags] == 1 || tbl->val[SF_sampleFlags] == 3) /* looping */ vp->mode |= AWE_MODE_LOOPING; else { /* short-shot; set a small blank loop at the tail */ if (sp->loopshot > 8) { vp->loopstart = sp->endsample + 8 - sp->startloop; vp->loopend = sp->endsample + sp->loopshot - 8 - sp->endloop; } else { fprintf(stderr, "loop size is too short: %d\n", sp->loopshot); exit(1); } } } /*----------------------------------------------------------------*/ /* set global information */ static void set_init_info(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { /* key range */ vp->low = LOWNUM(tbl->val[SF_keyRange]); vp->high = HIGHNUM(tbl->val[SF_keyRange]); /* velocity range */ vp->vellow = LOWNUM(tbl->val[SF_velRange]); vp->velhigh = HIGHNUM(tbl->val[SF_velRange]); /* fixed key & velocity */ vp->fixkey = tbl->val[SF_keynum]; vp->fixvel = tbl->val[SF_velocity]; /* panning position */ vp->pan = awe_calc_pan(tbl->val[SF_panEffectsSend]); vp->fixpan = -1; /* initial volume */ vp->amplitude = awe_option.default_volume * 127 / 100; /* this is not a centibel? */ vp->attenuation = awe_calc_attenuation((int)(tbl->val[SF_initAtten] / awe_option.atten_sense)); /* chorus & reverb effects */ if (tbl->set[SF_chorusEffectsSend]) vp->parm.chorus = awe_calc_chorus(tbl->val[SF_chorusEffectsSend]); else vp->parm.chorus = awe_option.default_chorus * 255 / 100; if (tbl->set[SF_reverbEffectsSend]) vp->parm.reverb = awe_calc_reverb(tbl->val[SF_chorusEffectsSend]); else vp->parm.reverb = awe_option.default_reverb * 255 / 100; /* initial cutoff & resonance */ vp->parm.cutoff = awe_calc_cutoff(tbl->val[SF_initialFilterFc]); vp->parm.filterQ = awe_calc_filterQ(tbl->val[SF_initialFilterQ]); /* exclusive class key */ vp->exclusiveClass = tbl->val[SF_keyExclusiveClass]; } /*----------------------------------------------------------------*/ /* calculate root key & fine tune */ static void set_rootkey(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { SFSampleInfo *sp = &sf->sample[vp->sample]; /* scale tuning */ vp->scaleTuning = tbl->val[SF_scaleTuning]; /* set initial root key & fine tune */ if (sf->version == 1 && tbl->set[SF_samplePitch]) { /* set from sample pitch */ vp->root = tbl->val[SF_samplePitch] / 100; vp->tune = -tbl->val[SF_samplePitch] % 100; if (vp->tune <= -50) { vp->root++; vp->tune = 100 + vp->tune; } if (vp->scaleTuning == 50) vp->tune /= 2; } else { /* from sample info */ vp->root = sp->originalPitch; vp->tune = sp->pitchCorrection; } /* orverride root key */ if (tbl->set[SF_rootKey]) vp->root += tbl->val[SF_rootKey] - sp->originalPitch; /* tuning */ if (sf->version == 1) vp->tune += tbl->val[SF_coarseTune] * vp->scaleTuning + (int)tbl->val[SF_fineTune] * (int)vp->scaleTuning / 100; else vp->tune += tbl->val[SF_coarseTune] * 100 + tbl->val[SF_fineTune]; /* correct too high pitch */ if (vp->root >= vp->high + 60) vp->root -= 60; } /*----------------------------------------------------------------*/ #define TO_WORD(hi,lo) (((unsigned short)(hi) << 8) | (unsigned short)(lo)) /* modulation envelope parameters */ static void set_modenv(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { /* delay */ vp->parm.moddelay = awe_calc_delay(tbl->val[SF_delayEnv1]); /* attack & hold */ vp->parm.modatkhld = awe_calc_atkhld(tbl->val[SF_attackEnv1], tbl->val[SF_holdEnv1]); /* decay & sustain */ vp->parm.moddcysus = TO_WORD(awe_calc_mod_sustain(tbl->val[SF_sustainEnv1]), awe_calc_decay(tbl->val[SF_decayEnv1])); /* release */ vp->parm.modrelease = TO_WORD(0x80, awe_calc_decay(tbl->val[SF_releaseEnv1])); /* key hold/decay */ vp->parm.modkeyhold = tbl->val[SF_autoHoldEnv1]; vp->parm.modkeydecay = tbl->val[SF_autoDecayEnv1]; /* pitch / cutoff shift */ vp->parm.pefe = TO_WORD(awe_calc_pitch_shift(tbl->val[SF_env1ToPitch]), awe_calc_cutoff_shift(tbl->val[SF_env1ToFilterFc], 6)); } /* volume envelope parameters */ static void set_volenv(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { /* delay */ vp->parm.voldelay = awe_calc_delay(tbl->val[SF_delayEnv2]); /* attack & hold */ vp->parm.volatkhld = awe_calc_atkhld(tbl->val[SF_attackEnv2], tbl->val[SF_holdEnv2]); /* decay & sustain */ vp->parm.voldcysus = TO_WORD(awe_calc_sustain(tbl->val[SF_sustainEnv2]), awe_calc_decay(tbl->val[SF_decayEnv2])); /* release */ vp->parm.volrelease = TO_WORD(0x80, awe_calc_decay(tbl->val[SF_releaseEnv2])); /* key hold/decay */ vp->parm.volkeyhold = tbl->val[SF_autoHoldEnv2]; vp->parm.volkeydecay = tbl->val[SF_autoDecayEnv2]; } /* lfo1 parameters (tremolo & vibrato) */ static void set_lfo1(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { vp->parm.lfo1delay = awe_calc_delay(tbl->val[SF_delayLfo1]); vp->parm.fmmod = TO_WORD(awe_calc_pitch_shift(tbl->val[SF_lfo1ToPitch]), awe_calc_cutoff_shift(tbl->val[SF_lfo1ToFilterFc], 3)); vp->parm.tremfrq = TO_WORD(awe_calc_tremolo(tbl->val[SF_lfo1ToVolume]), awe_calc_freq(tbl->val[SF_freqLfo1])); } /* lfo2 parameters (vibrato only) */ static void set_lfo2(SFInfo *sf, awe_voice_info *vp, LayerTable *tbl) { vp->parm.lfo2delay = awe_calc_delay(tbl->val[SF_delayLfo2]); vp->parm.fm2frq2 = TO_WORD(awe_calc_pitch_shift(tbl->val[SF_lfo2ToPitch]), awe_calc_freq(tbl->val[SF_freqLfo2])); } sfx/awelib/sfout.c100644 764 764 21767 6653073475 13230 0ustar stevesteve/*---------------------------------------------------------------- * sfout.c: * save to soundfont format *----------------------------------------------------------------*/ #include #include #include #include "util.h" #include "sffile.h" /*---------------------------------------------------------------- * prototypes *----------------------------------------------------------------*/ static void write_header(SFInfo *sf, FILE *fin, FILE *fout); static void write_info(SFInfo *sf, FILE *fin, FILE *fout); static void write_sdta(SFInfo *sf, FILE *fin, FILE *fout); static int calc_pdta_size(SFInfo *sf); static void write_pdta(SFInfo *sf, FILE *fin, FILE *fout); static void copy_file(int size, FILE *fin, FILE *fout); #define READCHUNK(var,fd) fread(&var, 8, 1, fd) #define WRITECHUNK(var,fd) fwrite(&var, 8, 1, fd) #define WRITEID(str,fd) fwrite(str, 4, 1, fd) #define WRITESTR(str,fd) fwrite(str, 20, 1, fd) #define WRITEB(var,fd) fwrite(&var, 1, 1, fd) #define WRITEW(var,fd) fwrite(&var, 2, 1, fd) #define WRITEDW(var,fd) fwrite(&var, 4, 1, fd) /*---------------------------------------------------------------- * save the soundfont info to a file *----------------------------------------------------------------*/ void save_soundfont(SFInfo *sf, FILE *fin, FILE *fout) { write_header(sf, fin, fout); write_info(sf, fin, fout); write_sdta(sf, fin, fout); write_pdta(sf, fin, fout); } /*---------------------------------------------------------------- * write RIFF header and sfbk id *----------------------------------------------------------------*/ static void write_header(SFInfo *sf, FILE *fin, FILE *fout) { int32 size; WRITEID("RIFF", fout); size = 4; /* sfbk header */ size += sf->infosize + 4 + 8; /* info list */ size += sf->samplesize + 8 + 4 + 8; /* sdta */ if (sf->version == 1) size += sf->nsamples * 20 + 8; /* snam */ size += calc_pdta_size(sf) + 8; /* pdta */ WRITEDW(size, fout); WRITEID("sfbk", fout); } /*---------------------------------------------------------------- * write info list *----------------------------------------------------------------*/ static void write_info(SFInfo *sf, FILE *fin, FILE *fout) { int32 size, left; WRITEID("LIST", fout); size = sf->infosize + 4; /* size with 'INFO' id */ WRITEDW(size, fout); WRITEID("INFO", fout); left = sf->infosize; fseek(fin, sf->infopos, SEEK_SET); while (left > 0) { SFChunk chunk; READCHUNK(chunk, fin); left -= 8; /* replace INAM */ if (strncmp(chunk.id, "INAM", 4) == 0) { char term = 0; WRITECHUNK(chunk, fout); fwrite(sf->sf_name, chunk.size - 1, 1, fout); WRITEB(term, fout); /* write zero terminator */ fseek(fin, chunk.size, SEEK_CUR); } else { WRITECHUNK(chunk, fout); copy_file(chunk.size, fin, fout); } left -= chunk.size; } } /*---------------------------------------------------------------- * write sdta list *----------------------------------------------------------------*/ static void write_sdta(SFInfo *sf, FILE *fin, FILE *fout) { int32 size; int i; WRITEID("LIST", fout); size = 4; /* size of 'sdta' id */ if (sf->version == 1) size += sf->nsamples * 20 + 8; /* size of 'snam' chunk */ if (sf->samplesize > 0) size += sf->samplesize + 8; /* size of 'smpl' chunk */ WRITEDW(size, fout); WRITEID("sdta", fout); if (sf->version == 1) { WRITEID("snam", fout); size = sf->nsamples * 20; WRITEDW(size, fout); for (i = 0; i < sf->nsamples; i++) { WRITESTR(sf->sample[i].name, fout); } } if (sf->samplesize > 0) { WRITEID("smpl", fout); size = sf->samplesize; WRITEDW(size, fout); fseek(fin, sf->samplepos, SEEK_SET); copy_file(sf->samplesize, fin, fout); } } /*---------------------------------------------------------------- * calculate pdta list size *----------------------------------------------------------------*/ static int calc_pdta_size(SFInfo *sf) { int32 size = 0; int i, j; uint16 bag, gen; /* pdta id */ size = 4; /* phdr chunk */ size += sf->npresets * 38 + 8; /* pbag chunk */ bag = 0; for (i = 0; i < sf->npresets; i++) { if (sf->preset[i].hdr.nlayers <= 0) bag++; else bag += sf->preset[i].hdr.nlayers; } size += bag * 4 + 8; /* pmod chunk */ size += 8; /* pgen chunk */ gen = 0; for (i = 0; i < sf->npresets; i++) { for (j = 0; j < sf->preset[i].hdr.nlayers; j++) gen += sf->preset[i].hdr.layer[j].nlists; } size += gen * 4 + 8; /* ihdr chunk */ size += sf->ninsts * 22 + 8; /* ibag chunk */ bag = 0; for (i = 0; i < sf->ninsts; i++) { if (sf->inst[i].hdr.nlayers <= 0) bag++; else bag += sf->inst[i].hdr.nlayers; } size += bag * 4 + 8; /* imod chunk */ size += 8; /* igen chunk */ gen = 0; for (i = 0; i < sf->ninsts; i++) { for (j = 0; j < sf->inst[i].hdr.nlayers; j++) gen += sf->inst[i].hdr.layer[j].nlists; } size += gen * 4 + 8; /* shdr chunk */ if (sf->version == 1) size += sf->nsamples * 16 + 8; else size += sf->nsamples * 46 + 8; return size; } /*---------------------------------------------------------------- * write pdta list *----------------------------------------------------------------*/ static void write_pdta(SFInfo *sf, FILE *fin, FILE *fout) { int32 size, total_size; int i, j, k; uint16 bag, gen; WRITEID("LIST", fout); size = calc_pdta_size(sf); WRITEDW(size, fout); WRITEID("pdta", fout); total_size = 4; WRITEID("phdr", fout); size = sf->npresets * 38; WRITEDW(size, fout); total_size += size + 8; /* calculate bag size */ bag = 0; for (i = 0; i < sf->npresets; i++) { int32 dummy = 0; WRITESTR(sf->preset[i].hdr.name, fout); WRITEW(sf->preset[i].preset, fout); WRITEW(sf->preset[i].bank, fout); WRITEW(bag, fout); WRITEDW(dummy, fout); WRITEDW(dummy, fout); WRITEDW(dummy, fout); if (sf->preset[i].hdr.nlayers <= 0) bag++; else bag += sf->preset[i].hdr.nlayers; } WRITEID("pbag", fout); size = bag * 4; WRITEDW(size, fout); total_size += size + 8; /* calculate generators size */ gen = 0; for (i = 0; i < sf->npresets; i++) { SFHeader *p = &sf->preset[i].hdr; int16 dummy = 0; if (p->nlayers <= 0) { WRITEW(gen, fout); WRITEW(dummy, fout); continue; } for (j = 0; j < p->nlayers; j++) { WRITEW(gen, fout); WRITEW(dummy, fout); gen += p->layer[j].nlists; } } WRITEID("pmod", fout); size = 0; WRITEDW(size, fout); total_size += size + 8; WRITEID("pgen", fout); size = gen * 4; WRITEDW(size, fout); total_size += size + 8; for (i = 0; i < sf->npresets; i++) { SFHeader *p = &sf->preset[i].hdr; for (j = 0; j < p->nlayers; j++) { for (k = 0; k < p->layer[j].nlists; k++) { WRITEW(p->layer[j].list[k].oper, fout); WRITEW(p->layer[j].list[k].amount, fout); } } } WRITEID("inst", fout); size = sf->ninsts * 22; WRITEDW(size, fout); total_size += size + 8; bag = 0; for (i = 0; i < sf->ninsts; i++) { WRITESTR(sf->inst[i].hdr.name, fout); WRITEW(bag, fout); if (sf->inst[i].hdr.nlayers <= 0) bag++; else bag += sf->inst[i].hdr.nlayers; } WRITEID("ibag", fout); size = bag * 4; WRITEDW(size, fout); total_size += size + 8; gen = 0; for (i = 0; i < sf->ninsts; i++) { SFHeader *p = &sf->inst[i].hdr; int16 dummy = 0; if (p->nlayers <= 0) { WRITEW(gen, fout); WRITEW(dummy, fout); continue; } for (j = 0; j < p->nlayers; j++) { WRITEW(gen, fout); WRITEW(dummy, fout); gen += p->layer[j].nlists; } } WRITEID("imod", fout); size = 0; WRITEDW(size, fout); total_size += size + 8; WRITEID("igen", fout); size = gen * 4; WRITEDW(size, fout); total_size += size + 8; for (i = 0; i < sf->ninsts; i++) { SFHeader *p = &sf->inst[i].hdr; for (j = 0; j < p->nlayers; j++) { for (k = 0; k < p->layer[j].nlists; k++) { WRITEW(p->layer[j].list[k].oper, fout); WRITEW(p->layer[j].list[k].amount, fout); } } } WRITEID("shdr", fout); if (sf->version == 1) size = sf->nsamples * 16; else size = sf->nsamples * 46; WRITEDW(size, fout); total_size += size + 8; for (i = 0; i < sf->nsamples; i++) { if (sf->version > 1) WRITESTR(sf->sample[i].name, fout); WRITEDW(sf->sample[i].startsample, fout); WRITEDW(sf->sample[i].endsample, fout); WRITEDW(sf->sample[i].startloop, fout); WRITEDW(sf->sample[i].endloop, fout); if (sf->version > 1) { /* SF2 only */ WRITEDW(sf->sample[i].samplerate, fout); WRITEB(sf->sample[i].originalPitch, fout); WRITEB(sf->sample[i].pitchCorrection, fout); WRITEW(sf->sample[i].samplelink, fout); WRITEW(sf->sample[i].sampletype, fout); } } if ((size = calc_pdta_size(sf)) != total_size) { fprintf(stderr, "pdta total size differ: %d %d\n", total_size, size); } } /*---------------------------------------------------------------- * copy a block from file to file *----------------------------------------------------------------*/ static void copy_file(int size, FILE *fin, FILE *fout) { static char buf[1024]; int s; for (s = size; s >= sizeof(buf); s -= sizeof(buf)) { fread(buf, sizeof(buf), 1, fin); fwrite(buf, sizeof(buf), 1, fout); } if (s > 0) { fread(buf, s, 1, fin); fwrite(buf, s, 1, fout); } } sfx/awelib/path.c100644 764 764 2055 6653073475 12771 0ustar stevesteve/*---------------------------------------------------------------- * search a file from path list *----------------------------------------------------------------*/ #include #include #include #include #include "util.h" static int file_exists(char *path, char **ext) { char *lastp; if (access(path, R_OK) == 0) return 1; if (ext == NULL) return 0; lastp = path + strlen(path); for (; *ext; ext++) { strcpy(lastp, *ext); if (access(path, R_OK) == 0) return 1; } return 0; } int search_file_name(char *fresult, char *fname, char *path, char **ext) { char *tok; /* search the current path at first */ strcpy(fresult, fname); if (file_exists(fresult, ext)) return 1; /* then search along path list */ if (fname[0] != '/' && path && *path) { for (tok = strtok(path, ":"); tok; tok = strtok(NULL, ":")) { strcpy(fresult, tok); if (*tok && tok[strlen(tok)-1] != '/') strcat(fresult, "/"); strcat(fresult, fname); if (file_exists(fresult, ext)) return 1; } } return 0; } sfx/awelib/sample.c100644 764 764 3673 6653073475 13325 0ustar stevesteve/*================================================================ * sample.c * convert SBK parameters and calculate loop sizes * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include "sffile.h" #include "sfitem.h" #include "util.h" /* add blank loop for each data */ int auto_add_blank = 0; void correct_samples(SFInfo *sf) { int i; SFSampleInfo *sp; int prev_end; prev_end = 0; for (sp = sf->sample, i = 0; i < sf->nsamples; i++, sp++) { /* correct sample positions for SBK file */ if (sf->version == 1) { sp->startloop++; sp->endloop += 2; } /* calculate sample data size */ if (sp->sampletype & 0x8000) sp->size = 0; else if (sp->startsample < prev_end && sp->startsample != 0) sp->size = 0; else { sp->size = -1; if (!auto_add_blank && i != sf->nsamples-1) sp->size = sp[1].startsample - sp->startsample; if (sp->size < 0) sp->size = sp->endsample - sp->startsample + 48; } prev_end = sp->endsample; /* calculate short-shot loop size */ if (auto_add_blank || i == sf->nsamples-1) sp->loopshot = 48; else { sp->loopshot = sp[1].startsample - sp->endsample; if (sp->loopshot < 0 || sp->loopshot > 48) sp->loopshot = 48; } } } sfx/awelib/sbkconv.c100644 764 764 10773 6653073475 13530 0ustar stevesteve/*================================================================ * SBK --> SF2 Conversion * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include "sffile.h" #include "sfitem.h" #include "awe_parm.h" /*---------------------------------------------------------------- * prototypes *----------------------------------------------------------------*/ static int sbk_cutoff(int gen, int val); static int sbk_filterQ(int gen, int val); static int sbk_tenpct(int gen, int val); static int sbk_panpos(int gen, int val); static int sbk_atten(int gen, int val); static int sbk_scale(int gen, int val); static int sbk_time(int gen, int val); static int sbk_tm_key(int gen, int val); static int sbk_freq(int gen, int val); static int sbk_pshift(int gen, int val); static int sbk_cshift(int gen, int val); static int sbk_tremolo(int gen, int val); static int sbk_volsust(int gen, int val); static int sbk_modsust(int gen, int val); /*---------------------------------------------------------------- * convertor function table *----------------------------------------------------------------*/ static SBKConv sbk_convertors[T_EOT] = { NULL, NULL, NULL, NULL, NULL, sbk_cutoff, sbk_filterQ, sbk_tenpct, sbk_panpos, sbk_atten, sbk_scale, sbk_time, sbk_tm_key, sbk_freq, sbk_pshift, sbk_cshift, sbk_tremolo, sbk_modsust, sbk_volsust, }; /*---------------------------------------------------------------- * sbk --> sf2 conversion *----------------------------------------------------------------*/ int sbk_to_sf2(int oper, int amount) { LayerItem *item = &layer_items[oper]; if (item->type < 0 || item->type >= T_EOT) { fprintf(stderr, "illegal gen item type %d\n", item->type); return amount; } if (sbk_convertors[item->type]) return sbk_convertors[item->type](oper, amount); return amount; } /*---------------------------------------------------------------- * conversion rules for each type *----------------------------------------------------------------*/ /* initial cutoff */ static int sbk_cutoff(int gen, int val) { if (val == 127) return 14400; else return 59 * val + 4366; /*return 50 * val + 4721;*/ } /* initial resonance */ static int sbk_filterQ(int gen, int val) { return val * 3 / 2; } /* chorus/reverb */ static int sbk_tenpct(int gen, int val) { return val * 1000 / 256; } /* pan position */ static int sbk_panpos(int gen, int val) { return val * 1000 / 127 - 500; } /* initial attenuation */ static int sbk_atten(int gen, int val) { if (val == 0) return 1000; return (int)(-200.0 * log10((double)val / 127.0) * 10); } /* scale tuning */ static int sbk_scale(int gen, int val) { return (val ? 50 : 100); } /* env/lfo time parameter */ static int sbk_time(int gen, int val) { return awe_msec_to_timecent(val); } /* time change per key */ static int sbk_tm_key(int gen, int val) { return (int)(val * 5.55); } /* lfo frequency */ static int sbk_freq(int gen, int val) { if (val == 0) { if (gen == SF_freqLfo1) return -725; else /* SF_freqLfo2*/ return -15600; } /*return (int)(3986.0 * log10((double)val) - 7925.0);*/ return (int)(1200 * log10((double)val) / log10(2.0) - 7925.0); } /* lfo/env pitch shift */ static int sbk_pshift(int gen, int val) { return (1200 * val / 64 + 1) / 2; } /* lfo/env cutoff freq shift */ static int sbk_cshift(int gen, int val) { if (gen == SF_lfo1ToFilterFc) return (1200 * 3 * val) / 64; else return (1200 * 6 * val) / 64; } /* lfo volume shift */ static int sbk_tremolo(int gen, int val) { return (120 * val) / 64; } /* mod env sustain */ static int sbk_modsust(int gen, int val) { if (val < 96) return 1000 * (96 - val) / 96; else return 0; } /* vol env sustain */ static int sbk_volsust(int gen, int val) { if (val < 96) return (2000 - 21 * val) / 2; else return 0; } sfx/awelib/sffile.c100644 764 764 37346 6653073475 13340 0ustar stevesteve/*================================================================ * sffile.c * read SoundFont file (SBK/SF2) and store the layer lists * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include #include "sffile.h" #include "util.h" /*================================================================ * preset / instrument bag record *================================================================*/ typedef struct _SFBags { int nbags; uint16 *bag; int ngens; SFGenRec *gen; } SFBags; static SFBags prbags, inbags; /*---------------------------------------------------------------- * function prototypes *----------------------------------------------------------------*/ #define NEW(type,nums) (type*)safe_malloc(sizeof(type) * (nums)) #define READCHUNK(var,fd) fread(&var, 8, 1, fd) #define READID(var,fd) fread(var, 4, 1, fd) #define READSTR(var,fd) fread(var, 20, 1, fd) #define READDW(var,fd) fread(&var, 4, 1, fd) #define READW(var,fd) fread(&var, 2, 1, fd) #define READB(var,fd) fread(&var, 1, 1, fd) #define SKIPB(fd) {char dummy; fread(&dummy, 1, 1, fd);} #define SKIPW(fd) {short dummy; fread(&dummy, 2, 1, fd);} #define SKIPDW(fd) {int dummy; fread(&dummy, 4, 1, fd);} static int seekable; #define FSKIP(size,fd) fskip(size, fd, seekable) /*----------------------------------------------------------------*/ static int chunkid(char *id); static int process_list(int size, SFInfo *sf, FILE *fd); static int process_info(int size, SFInfo *sf, FILE *fd); static int process_sdta(int size, SFInfo *sf, FILE *fd); static int process_pdta(int size, SFInfo *sf, FILE *fd); static void load_sample_names(int size, SFInfo *sf, FILE *fd); static void load_preset_header(int size, SFInfo *sf, FILE *fd); static void load_inst_header(int size, SFInfo *sf, FILE *fd); static void load_bag(int size, SFBags *bagp, FILE *fd); static void load_gen(int size, SFBags *bagp, FILE *fd); static void load_sample_info(int size, SFInfo *sf, FILE *fd); static void convert_layers(SFInfo *sf); static void generate_layers(SFHeader *hdr, SFHeader *next, SFBags *bags); static void free_layer(SFHeader *hdr); /*---------------------------------------------------------------- * id numbers *----------------------------------------------------------------*/ enum { /* level 0; chunk */ UNKN_ID, RIFF_ID, LIST_ID, SFBK_ID, /* level 1; id only */ INFO_ID, SDTA_ID, PDTA_ID, /* info stuff; chunk */ IFIL_ID, ISNG_ID, IROM_ID, INAM_ID, IVER_ID, IPRD_ID, ICOP_ID, /* sample data stuff; chunk */ SNAM_ID, SMPL_ID, /* preset stuff; chunk */ PHDR_ID, PBAG_ID, PMOD_ID, PGEN_ID, /* inst stuff; chunk */ INST_ID, IBAG_ID, IMOD_ID, IGEN_ID, /* sample header; chunk */ SHDR_ID, }; /*================================================================ * load a soundfont file *================================================================*/ int load_soundfont(SFInfo *sf, FILE *fd, int is_seekable) { SFChunk chunk; seekable = is_seekable; sf->preset = NULL; sf->sample = NULL; sf->inst = NULL; sf->sf_name = NULL; prbags.bag = inbags.bag = NULL; prbags.gen = inbags.gen = NULL; /* check RIFF file header */ READCHUNK(chunk, fd); if (chunkid(chunk.id) != RIFF_ID) { fprintf(stderr, "*** not a RIFF file\n"); return -1; } /* check file id */ READID(chunk.id, fd); if (chunkid(chunk.id) != SFBK_ID) { fprintf(stderr, "*** not a SoundFont file\n"); return -1; } for (;;) { READCHUNK(chunk, fd); if (feof(fd)) break; else if (chunkid(chunk.id) == LIST_ID) { if (process_list(chunk.size, sf, fd)) break; } else { fprintf(stderr, "*** illegal id in level 0: %4.4s %4d\n", chunk.id, chunk.size); FSKIP(chunk.size, fd); } } /* parse layer structure */ convert_layers(sf); /* free private tables */ if (prbags.bag) free(prbags.bag); if (prbags.gen) free(prbags.gen); if (inbags.bag) free(inbags.bag); if (inbags.gen) free(inbags.gen); return 0; } /*================================================================ * free buffer *================================================================*/ void free_soundfont(SFInfo *sf) { int i; if (sf->preset) { for (i = 0; i < sf->npresets; i++) free_layer(&sf->preset[i].hdr); free(sf->preset); } if (sf->inst) { for (i = 0; i < sf->ninsts; i++) free_layer(&sf->inst[i].hdr); free(sf->inst); } if (sf->sample) free(sf->sample); if (sf->sf_name) free(sf->sf_name); } /*---------------------------------------------------------------- * get id value from 4bytes ID string *----------------------------------------------------------------*/ static int chunkid(char *id) { static struct idstring { char *str; int id; } idlist[] = { {"RIFF", RIFF_ID}, {"LIST", LIST_ID}, {"sfbk", SFBK_ID}, {"INFO", INFO_ID}, {"sdta", SDTA_ID}, {"snam", SNAM_ID}, {"smpl", SMPL_ID}, {"pdta", PDTA_ID}, {"phdr", PHDR_ID}, {"pbag", PBAG_ID}, {"pmod", PMOD_ID}, {"pgen", PGEN_ID}, {"inst", INST_ID}, {"ibag", IBAG_ID}, {"imod", IMOD_ID}, {"igen", IGEN_ID}, {"shdr", SHDR_ID}, {"ifil", IFIL_ID}, {"isng", ISNG_ID}, {"irom", IROM_ID}, {"iver", IVER_ID}, {"INAM", INAM_ID}, {"IPRD", IPRD_ID}, {"ICOP", ICOP_ID}, }; int i; for (i = 0; i < sizeof(idlist)/sizeof(idlist[0]); i++) { if (strncmp(id, idlist[i].str, 4) == 0) return idlist[i].id; } return UNKN_ID; } /*================================================================ * process a list chunk *================================================================*/ static int process_list(int size, SFInfo *sf, FILE *fd) { SFChunk chunk; /* read the following id string */ READID(chunk.id, fd); size -= 4; switch (chunkid(chunk.id)) { case INFO_ID: return process_info(size, sf, fd); case SDTA_ID: return process_sdta(size, sf, fd); case PDTA_ID: return process_pdta(size, sf, fd); default: fprintf(stderr, "*** illegal id in level 1: %4.4s\n", chunk.id); FSKIP(size, fd); /* skip it */ return 0; } } /*================================================================ * process info list *================================================================*/ static int process_info(int size, SFInfo *sf, FILE *fd) { sf->infopos = ftell(fd); sf->infosize = size; /* parse the buffer */ while (size > 0) { SFChunk chunk; /* read a sub chunk */ READCHUNK(chunk, fd); size -= 8; if (feof(fd)) return -1; switch (chunkid(chunk.id)) { case IFIL_ID: /* soundfont file version */ READW(sf->version, fd); READW(sf->minorversion, fd); break; case INAM_ID: /* name of the font */ sf->sf_name = (char*)safe_malloc(chunk.size + 1); fread(sf->sf_name, 1, chunk.size, fd); sf->sf_name[chunk.size] = 0; break; default: FSKIP(chunk.size, fd); break; } size -= chunk.size; } return 0; } /*================================================================ * process sample data list *================================================================*/ static int process_sdta(int size, SFInfo *sf, FILE *fd) { while (size > 0) { SFChunk chunk; /* read a sub chunk */ READCHUNK(chunk, fd); size -= 8; if (feof(fd)) return -1; switch (chunkid(chunk.id)) { case SNAM_ID: /* sample name list */ load_sample_names(chunk.size, sf, fd); break; case SMPL_ID: /* sample data starts from here */ sf->samplepos = ftell(fd); sf->samplesize = chunk.size; FSKIP(chunk.size, fd); break; default: FSKIP(chunk.size, fd); break; } size -= chunk.size; } return 0; } /*================================================================ * process preset data list *================================================================*/ static int process_pdta(int size, SFInfo *sf, FILE *fd) { while (size > 0) { SFChunk chunk; /* read a subchunk */ READCHUNK(chunk, fd); size -= 8; if (feof(fd)) return -1; switch (chunkid(chunk.id)) { case PHDR_ID: load_preset_header(chunk.size, sf, fd); break; case PBAG_ID: load_bag(chunk.size, &prbags, fd); break; case PGEN_ID: load_gen(chunk.size, &prbags, fd); break; case INST_ID: load_inst_header(chunk.size, sf, fd); break; case IBAG_ID: load_bag(chunk.size, &inbags, fd); break; case IGEN_ID: load_gen(chunk.size, &inbags, fd); break; case SHDR_ID: load_sample_info(chunk.size, sf, fd); break; case PMOD_ID: /* ignored */ case IMOD_ID: /* ingored */ default: FSKIP(chunk.size, fd); break; } size -= chunk.size; } return 0; } /*---------------------------------------------------------------- * store sample name list; sf1 only *----------------------------------------------------------------*/ static void load_sample_names(int size, SFInfo *sf, FILE *fd) { int i, nsamples; if (sf->version > 1) { fprintf(stderr, "*** version 2 has obsolete format??\n"); FSKIP(size, fd); return; } /* each sample name has a fixed lentgh (20 bytes) */ nsamples = size / 20; if (sf->sample == NULL) { sf->nsamples = nsamples; sf->sample = NEW(SFSampleInfo, sf->nsamples); } else if (sf->nsamples != nsamples) { fprintf(stderr, "*** different # of samples ?? (%d : %d)\n", sf->nsamples, nsamples); FSKIP(size, fd); return; } /* read each name from file */ for (i = 0; i < sf->nsamples; i++) { READSTR(sf->sample[i].name, fd); } } /*---------------------------------------------------------------- * preset header list *----------------------------------------------------------------*/ static void load_preset_header(int size, SFInfo *sf, FILE *fd) { int i; sf->npresets = size / 38; sf->preset = NEW(SFPresetHdr, sf->npresets); for (i = 0; i < sf->npresets; i++) { READSTR(sf->preset[i].hdr.name, fd); READW(sf->preset[i].preset, fd); READW(sf->preset[i].bank, fd); READW(sf->preset[i].hdr.bagNdx, fd); SKIPDW(fd); /* lib; ignored*/ SKIPDW(fd); /* genre; ignored */ SKIPDW(fd); /* morph; ignored */ /* initialize layer table; it'll be parsed later */ sf->preset[i].hdr.nlayers = 0; sf->preset[i].hdr.layer = NULL; } } /*---------------------------------------------------------------- * instrument header list *----------------------------------------------------------------*/ static void load_inst_header(int size, SFInfo *sf, FILE *fd) { int i; sf->ninsts = size / 22; sf->inst = NEW(SFInstHdr, sf->ninsts); for (i = 0; i < sf->ninsts; i++) { READSTR(sf->inst[i].hdr.name, fd); READW(sf->inst[i].hdr.bagNdx, fd); /* iniitialize layer table; it'll be parsed later */ sf->inst[i].hdr.nlayers = 0; sf->inst[i].hdr.layer = NULL; } } /*---------------------------------------------------------------- * load preset/instrument bag list on the private table *----------------------------------------------------------------*/ static void load_bag(int size, SFBags *bagp, FILE *fd) { int i; size /= 4; bagp->bag = NEW(uint16, size); for (i = 0; i < size; i++) { READW(bagp->bag[i], fd); SKIPW(fd); /* mod; ignored */ } bagp->nbags = size; } /*---------------------------------------------------------------- * load preset/instrument generator list on the private table *----------------------------------------------------------------*/ static void load_gen(int size, SFBags *bagp, FILE *fd) { int i; size /= 4; bagp->gen = NEW(SFGenRec, size); for (i = 0; i < size; i++) { READW(bagp->gen[i].oper, fd); READW(bagp->gen[i].amount, fd); } bagp->ngens = size; } /*---------------------------------------------------------------- * load sample info list *----------------------------------------------------------------*/ static void load_sample_info(int size, SFInfo *sf, FILE *fd) { int i; int in_rom; /* the record size depends on the soundfont version */ if (sf->version > 1) { /* SF2 includes sample name and other infos */ sf->nsamples = size / 46; sf->sample = NEW(SFSampleInfo, sf->nsamples); } else { /* SBK; sample name may be read already */ int nsamples = size / 16; if (sf->sample == NULL) { sf->nsamples = nsamples; sf->sample = NEW(SFSampleInfo, sf->nsamples); } else if (sf->nsamples != nsamples) { #if 0 fprintf(stderr, "*** different # of infos ?? (%d : %d)\n", sf->nsamples, nsamples); FSKIP(size, fd); return; #endif /* overwrite it */ sf->nsamples = nsamples; } } in_rom = 1; /* data may start from ROM samples */ for (i = 0; i < sf->nsamples; i++) { if (sf->version > 1) /* SF2 only */ READSTR(sf->sample[i].name, fd); READDW(sf->sample[i].startsample, fd); READDW(sf->sample[i].endsample, fd); READDW(sf->sample[i].startloop, fd); READDW(sf->sample[i].endloop, fd); if (sf->version > 1) { /* SF2 only */ READDW(sf->sample[i].samplerate, fd); READB(sf->sample[i].originalPitch, fd); READB(sf->sample[i].pitchCorrection, fd); READW(sf->sample[i].samplelink, fd); READW(sf->sample[i].sampletype, fd); } else { /* for SBK; set missing infos */ sf->sample[i].samplerate = 44100; sf->sample[i].originalPitch = 60; sf->sample[i].pitchCorrection = 0; sf->sample[i].samplelink = 0; /* the first RAM data starts from address 0 */ if (sf->sample[i].startsample == 0) in_rom = 0; if (in_rom) sf->sample[i].sampletype = 0x8001; else sf->sample[i].sampletype = 1; } } } /*================================================================ * convert from bags to layers *================================================================*/ static void convert_layers(SFInfo *sf) { int i; if (prbags.bag == NULL || prbags.gen == NULL || inbags.bag == NULL || inbags.gen == NULL) { fprintf(stderr, "*** illegal bags / gens\n"); return; } for (i = 0; i < sf->npresets - 1; i++) { generate_layers(&sf->preset[i].hdr, &sf->preset[i+1].hdr, &prbags); } for (i = 0; i < sf->ninsts - 1; i++) { generate_layers(&sf->inst[i].hdr, &sf->inst[i+1].hdr, &inbags); } } /*---------------------------------------------------------------- * generate layer lists from stored bags *----------------------------------------------------------------*/ static void generate_layers(SFHeader *hdr, SFHeader *next, SFBags *bags) { int i; SFGenLayer *layp; hdr->nlayers = next->bagNdx - hdr->bagNdx; if (hdr->nlayers < 0) { fprintf(stderr, "illegal layer numbers %d\n", hdr->nlayers); return; } if (hdr->nlayers == 0) return; hdr->layer = (SFGenLayer*)safe_malloc(sizeof(SFGenLayer) * hdr->nlayers); layp = hdr->layer; for (layp = hdr->layer, i = hdr->bagNdx; i < next->bagNdx; layp++, i++) { int genNdx = bags->bag[i]; layp->nlists = bags->bag[i+1] - genNdx; if (layp->nlists < 0) { fprintf(stderr, "illegal list numbers %d\n", layp->nlists); return; } layp->list = (SFGenRec*)safe_malloc(sizeof(SFGenRec) * layp->nlists); memcpy(layp->list, &bags->gen[genNdx], sizeof(SFGenRec) * layp->nlists); } } /*---------------------------------------------------------------- * free a layer *----------------------------------------------------------------*/ static void free_layer(SFHeader *hdr) { int i; for (i = 0; i < hdr->nlayers; i++) { SFGenLayer *layp = &hdr->layer[i]; if (layp->nlists > 0) free(layp->list); } if (hdr->nlayers > 0) free(hdr->layer); } sfx/awelib/slist.c100644 764 764 15232 6653073475 13214 0ustar stevesteve/*================================================================ * slist.c: * S-expression list * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include #include #include "slist.h" #include "util.h" /*---------------------------------------------------------------- * prototypes *----------------------------------------------------------------*/ static SList SReadAtom(FILE *fp, int in_list); static SList SReadList(FILE *fp); static int SReadInt(FILE *fp); static int SReadChr(FILE *fp); static char *SReadFun(FILE *fp); static char *SReadStr(FILE *fp); /*---------------------------------------------------------------- * allocate an atom *----------------------------------------------------------------*/ SList SCons(void) { SList p = (SList)safe_malloc(sizeof(SAtom)); memset(p, 0, sizeof(SAtom)); return p; } /*---------------------------------------------------------------- * read s-expression file *----------------------------------------------------------------*/ SList SReadFile(FILE *fp) { return SReadAtom(fp, FALSE); } /*---------------------------------------------------------------- * free a list *----------------------------------------------------------------*/ void SFree(SList at) { SList nx; while (at) { switch (at->type) { case S_ATOM_LIST: SFree(at->val.p); break; case S_ATOM_STR: case S_ATOM_FUN: free(at->val.s); break; } nx = at->nxt.p; free(at); at = nx; } } /*---------------------------------------------------------------- * return number of members *----------------------------------------------------------------*/ int SIndex(SList list) { int n; if (list == NIL || !SListP(list)) return -1; n = 0; for (list = SCar(list); list; list = SCdr(list)) n++; return n; } /*---------------------------------------------------------------- * file operation *----------------------------------------------------------------*/ /* skip one character */ #define skipc(fp) getc(fp) /* skip one line */ static void skipline(FILE *fp) { int c; while ((c = getc(fp)) != EOF && c != '\n') ; } #define ESC_CHAR '\033' #define todigit(c) ((c) - '0') /* read a character */ static int readchar(int delim, int accept_empty, FILE *fp) { int c, c2, c3; if ((c = getc(fp)) == ESC_CHAR) { if ((c = getc(fp)) == EOF || c == '\n') return EOF; if (isdigit(c)) { if ((c2 = getc(fp)) == EOF || !isdigit(c2)) return EOF; if ((c3 = getc(fp)) == EOF || !isdigit(c3)) return EOF; c = (todigit(c) << 6) | (todigit(c2) << 3) | (todigit(c3)); } } else if (c == delim) { if (! accept_empty) fprintf(stderr, "SList: empty chracter\n"); return EOF; } return c; } /* read a token */ static char *readtoken(char *buf, int delim, FILE *fp) { char *p; int c; p = buf; for (;;) { if (delim) { if ((c = readchar(delim, TRUE, fp)) == EOF) break; } else { if ((c = getc(fp)) == EOF) break; if (isspace(c) || c == '\n') break; if (c == ')') { ungetc(c, fp); break; } } *p++ = c; } *p = 0; return buf; } /* read a character and restore it again */ static int readhead(FILE *fp) { int c; while ((c = getc(fp)) != EOF) { if (!isspace(c) && c != '\n') { if (c == ';' || c == '#') /* comment */ skipline(fp); else { ungetc(c, fp); return c; } } } return EOF; } /*---------------------------------------------------------------- * read an atom *----------------------------------------------------------------*/ static SList SReadAtom(FILE *fp, int in_list) { SList cur; int c; /* skip space and comments */ if ((c = readhead(fp)) == EOF) { if (in_list) fprintf(stderr, "SList: non-closed list\n"); return NIL; } if (c == ')') { /* close list */ skipc(fp); /* skip it */ if (!in_list) fprintf(stderr, "SList: non-matched parenthesis\n"); return NIL; } cur = SCons(); switch (c) { case '(': /* open list */ cur->type = S_ATOM_LIST; cur->val.p = SReadList(fp); break; case '"': /* string */ cur->type = S_ATOM_STR; cur->val.s = SReadStr(fp); break; case '\'': /* char */ cur->type = S_ATOM_CHR; cur->val.c = SReadChr(fp); break; default: if (isdigit(c) || c == '-') { /* int */ cur->type = S_ATOM_INT; cur->val.i = SReadInt(fp); } else { /* func */ cur->type = S_ATOM_FUN; cur->val.f = SReadFun(fp); } break; } return cur; } /* read a list */ static SList SReadList(FILE *fp) { SList head, cur; skipc(fp); /* skip open parenthesis */ head = cur = SReadAtom(fp, TRUE); while (cur) { cur->nxt.p = SReadAtom(fp, TRUE); cur = cur->nxt.p; } return head; } /* read an integer value */ static int SReadInt(FILE *fp) { char str[256]; readtoken(str, 0, fp); return (int)strtol(str, NULL, 0); return 0; } /* read a character value */ static int SReadChr(FILE *fp) { int c; skipc(fp); /* skip leading quote */ c = readchar('\'', FALSE, fp); if (getc(fp) != '\'') fprintf(stderr, "SList: non-closed character\n"); return c; } /* read a constant string */ static char *SReadFun(FILE *fp) { char str[256]; readtoken(str, 0, fp); return safe_strdup(str); } /* read a string */ static char *SReadStr(FILE *fp) { char str[256]; skipc(fp); /* skip reading double quote */ readtoken(str, '"', fp); return safe_strdup(str); } #ifdef DEBUG_MODE /*---------------------------------------------------------------- * print a list recursively *----------------------------------------------------------------*/ void print_list(SList at) { while (at) { switch (at->type) { case S_ATOM_LIST: printf("("); print_list(at->val.p); printf(")\n"); break; case S_ATOM_STR: printf("\"%s\"", at->val.s); break; case S_ATOM_FUN: printf("%s", at->val.s); break; case S_ATOM_INT: printf("%d", at->val.i); break; case S_ATOM_CHR: printf("'%c'", at->val.c); break; default: printf("*unknown*"); break; } at = at->nxt.p; if (at) printf(" "); } } #endif sfx/awelib/sfopts.c100644 764 764 2075 6653073475 13355 0ustar stevesteve/*================================================================ * global flags *================================================================*/ #include #include "sfopts.h" #include "config.h" /* master volume */ #ifndef DEFAULT_VOLUME #define DEFAULT_VOLUME 70 /* 70% */ #endif /* default attenuation sense */ #ifndef DEF_ATTEN_SENSE #define DEF_ATTEN_SENSE 10 #endif sf_options awe_option = { 0, /* add blank */ -1, /* bank */ 0, 0, /* chorus, reverb */ DEFAULT_VOLUME, /* volume */ DEF_ATTEN_SENSE, /* atten sense */ 32, /* default atten */ 50.0, /* decay sense */ NULL, /* search path */ }; /*---------------------------------------------------------------- * estimate default attenuation *----------------------------------------------------------------*/ void awe_init_option(void) { awe_option.default_atten = awe_calc_def_atten(awe_option.atten_sense); } int awe_calc_def_atten(double sense) { if (sense <= 0) { fprintf(stderr, "calc_def_atten: illegal sense %g\n", sense); return 0; } return (int)(35.55 - 35.55/sense); } sfx/awelib/sfitem.c100644 764 764 6642 6653073475 13332 0ustar stevesteve/*================================================================ * sfitem.c * soundfont generator table definition *================================================================*/ #include "sflayer.h" #include "sfitem.h" /* layer type definitions */ LayerItem layer_items[SF_EOF] = { {L_INHRT, T_OFFSET, 0, 0, 0}, /* startAddrs */ {L_INHRT, T_OFFSET, 0, 0, 0}, /* endAddrs */ {L_INHRT, T_OFFSET, 0, 0, 0}, /* startloopAddrs */ {L_INHRT, T_OFFSET, 0, 0, 0}, /* endloopAddrs */ {L_INHRT, T_HI_OFF, 0, 0, 0}, /* startAddrsHi */ {L_INHRT, T_PSHIFT, -12000, 12000, 0}, /* lfo1ToPitch */ {L_INHRT, T_PSHIFT, -12000, 12000, 0}, /* lfo2ToPitch */ {L_INHRT, T_PSHIFT, -12000, 12000, 0}, /* env1ToPitch */ {L_INHRT, T_CUTOFF, 1500, 13500, 13500}, /* initialFilterFc */ {L_INHRT, T_FILTERQ, 0, 960, 0}, /* initialFilterQ */ {L_INHRT, T_CSHIFT, -12000, 12000, 0}, /* lfo1ToFilterFc */ {L_INHRT, T_CSHIFT, -12000, 12000, 0}, /* env1ToFilterFc */ {L_INHRT, T_HI_OFF, 0, 0, 0}, /* endAddrsHi */ {L_INHRT, T_TREMOLO, -960, 960, 0}, /* lfo1ToVolume */ {L_INHRT, T_NOP, 0, 0, 0}, /* env2ToVolume / unused1 */ {L_INHRT, T_TENPCT, 0, 1000, 0}, /* chorusEffectsSend */ {L_INHRT, T_TENPCT, 0, 1000, 0}, /* reverbEffectsSend */ {L_INHRT, T_PANPOS, 0, 1000, 0}, /* panEffectsSend */ {L_INHRT, T_NOP, 0, 0, 0}, /* unused */ {L_INHRT, T_NOP, 0, 0, 0}, /* sampleVolume / unused */ {L_INHRT, T_NOP, 0, 0, 0}, /* unused3 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* delayLfo1 */ {L_INHRT, T_FREQ, -16000, 4500, 0}, /* freqLfo1 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* delayLfo2 */ {L_INHRT, T_FREQ, -16000, 4500, 0}, /* freqLfo2 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* delayEnv1 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* attackEnv1 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* holdEnv1 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* decayEnv1 */ {L_INHRT, T_MODSUST, 0, 1000, 0}, /* sustainEnv1 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* releaseEnv1 */ {L_INHRT, T_TM_KEY, -1200, 1200, 0}, /* autoHoldEnv1 */ {L_INHRT, T_TM_KEY, -1200, 1200, 0}, /* autoDecayEnv1 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* delayEnv2 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* attackEnv2 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* holdEnv2 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* decayEnv2 */ {L_INHRT, T_VOLSUST, 0, 1440, 0}, /* sustainEnv2 */ {L_INHRT, T_TIME, -12000, 5000, -12000}, /* releaseEnv2 */ {L_INHRT, T_TM_KEY, -1200, 1200, 0}, /* autoHoldEnv2 */ {L_INHRT, T_TM_KEY, -1200, 1200, 0}, /* autoDecayEnv2 */ {L_PRSET, T_NOCONV, 0, 0, 0}, /* instrument */ {L_INHRT, T_NOP, 0, 0, 0}, /* nop */ {L_RANGE, T_RANGE, 0, 0, RANGE(0,127)}, /* keyRange */ {L_RANGE, T_RANGE, 0, 0, RANGE(0,127)}, /* velRange */ {L_INHRT, T_HI_OFF, 0, 0, 0}, /* startloopAddrsHi */ {L_OVWRT, T_NOCONV, 0, 127, -1}, /* keynum */ {L_OVWRT, T_NOCONV, 0, 127, -1}, /* velocity */ {L_INHRT, T_ATTEN, 0, 1440, 0}, /* initialAttenuation */ {L_INHRT, T_NOP, 0, 0, 0}, /* keyTuning */ {L_INHRT, T_HI_OFF, 0, 0, 0}, /* endloopAddrsHi */ {L_INHRT, T_NOCONV, -120, 120, 0}, /* coarseTune */ {L_INHRT, T_NOCONV, -99, 99, 0}, /* fineTune */ {L_INSTR, T_NOCONV, 0, 0, 0}, /* sampleId */ {L_OVWRT, T_NOCONV, 0, 3, 0}, /* sampleFlags */ {L_OVWRT, T_NOCONV, 0, 0, 0}, /* samplePitch (only in SBK) */ {L_INHRT, T_SCALE, 0, 1200, 100}, /* scaleTuning */ {L_OVWRT, T_NOCONV, 0, 127, 0}, /* keyExclusiveClass */ {L_OVWRT, T_NOCONV, 0, 127, -1}, /* rootKey */ }; sfx/awelib/Imakefile100644 764 764 1400 6653073475 13473 0ustar stevesteve/* * Imakefile for AWElib */ #include "config.h" LIBVER = 0.4.2 LIBDIR = /usr/local/lib INCLUDES += -I../include #ifdef FreeBSDArchitecture /* search path of awe_voice.h. */ INCLUDES += -I/usr/src/sys/i386/isa/sound #endif SHOBJS = awe_parm.o bool.o cmpopen.o dynload.o fskip.o gentxt.o loadbank.o\ loadtext.o malloc.o mygetopt.o optfile.o parsesf.o path.o sample.o\ sbkconv.o sffile.o sfitem.o sfopts.o sfout.o slist.o #ifdef MAKE_SHARED_LIBRARY %.o: %.c NormalSharedLibObjCompile() SharedLibraryTarget(awe,$(LIBVER), $(SHOBJS), ., .) #ifdef INSTALL_AWELIB InstallSharedLibrary(awe,$(LIBVER), $(LIBDIR)) #endif #else %.o: %.c NormalLibObjCompile() NormalLibraryTarget(awe, $(SHOBJS)) #ifdef INSTALL_AWELIB InstallLibrary(awe, $(LIBDIR)) #endif #endif sfx/awelib/Makefile100664 764 764 43440 6653073475 13356 0ustar stevesteve# Makefile generated by imake - do not edit! # $TOG: imake.c /main/97 1997/06/20 20:23:51 kaleb $ XPROJECTROOT=/usr/src/linux # ---------------------------------------------------------------------- # Makefile generated from "Imake.tmpl" and # $TOG: Imake.tmpl /main/245 1997/05/20 10:05:47 kaleb $ # # # # # $XFree86: xc/config/cf/Imake.tmpl,v 3.32.2.8 1998/02/08 11:19:24 dawes Exp $ # ---------------------------------------------------------------------- all:: .SUFFIXES: .i # $TOG: Imake.cf /main/28 1997/06/25 08:31:36 barstow $ # $XFree86: xc/config/cf/Imake.cf,v 3.34.2.3 1997/07/27 02:41:02 dawes Exp $ # ----------------------------------------------------------------------- # site-specific configuration parameters that need to come before # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def /main/revisionist/4 1996/12/31 08:02:07 kaleb $ # site: $XFree86: xc/config/cf/site.def,v 3.17.2.1 1997/06/22 10:32:21 dawes Exp $ # $XFree86: xc/config/cf/xf86site.def,v 3.101.2.15 1998/02/24 19:05:42 hohndel Exp $ # ---------------------------------------------------------------------- # platform-specific configuration parameters - edit linux.cf to change # platform: $TOG: linux.cf /main/36 1997/06/16 22:21:03 kaleb $ # platform: $XFree86: xc/config/cf/linux.cf,v 3.57.2.12 1998/03/01 01:57:10 dawes Exp $ # operating system: Linux 2.0.34 i686 [ELF] (2.0.34) # libc: (6.0.7) # binutils: (29) # $XConsortium: lnxLib.rules /main/13 1996/09/28 16:11:01 rws $ # $XFree86: xc/config/cf/lnxLib.rules,v 3.28.2.3 1997/06/22 10:32:20 dawes Exp $ # $XFree86: xc/config/cf/xfree86.cf,v 3.129.2.22 1998/02/24 19:05:43 hohndel Exp $ # $XConsortium: xfree86.cf /main/34 1996/12/06 11:45:18 rws $ LINKKITDIR = $(USRLIBDIR)/Server XF98LINKKITDIR = $(USRLIBDIR)/Server XF86SRC = $(SERVERSRC)/hw/xfree86 XF86ACCELSRC = $(XF86SRC)/accel XF86COMSRC = $(XF86SRC)/common XF86CONFIGSRC = $(XF86COMSRC) XF86HWSRC = $(XF86SRC)/common_hw XF86OSSRC = $(XF86SRC)/os-support VGADRIVERSRC = $(XF86SRC)/vga256/drivers VGA16DRIVERSRC = $(XF86SRC)/vga16/drivers VGA2DRIVERSRC = $(XF86SRC)/vga2/drivers MONODRIVERSRC = $(XF86SRC)/mono/drivers S3DRIVERSRC = $(XF86SRC)/accel/s3/drivers S3VDRIVERSRC = $(XF86SRC)/accel/s3_virge/drivers XF68SRC = $(SERVERSRC)/hw/xfree68 XF68COMSRC = $(XF68SRC)/common XF68CONFIGSRC = $(XF68COMSRC) XF68OSSRC = $(XF68SRC)/os-support XF98SRC = $(SERVERSRC)/hw/xfree98 XF98ACCELSRC = $(XF98SRC)/accel XF98COMSRC = $(XF98SRC)/common XF98CONFIGSRC = $(XF98COMSRC) XF98HWSRC = $(XF98SRC)/common_hw/generic XF98HWNECSRC = $(XF98SRC)/common_hw/nec XF98HWPWSKBSRC = $(XF98SRC)/common_hw/pwskb XF98HWPWLBSRC = $(XF98SRC)/common_hw/pwlb XF98HWGA968SRC = $(XF98SRC)/common_hw/ga968 XF98OSSRC = $(XF98SRC)/os-support XF98VGADRIVERSRC = $(XF98SRC)/vga256/drivers XF98VGA16DRIVERSRC = $(XF98SRC)/vga16/drivers XF98VGA2DRIVERSRC = $(XF98SRC)/vga2/drivers XF98MONODRIVERSRC = $(XF98SRC)/mono/drivers XF98NECS3DRIVERSRC = $(XF98SRC)/accel/s3nec/drivers XF98PWSKBDRIVERSRC = $(XF98SRC)/accel/s3pwskb/drivers XF98PWLBDRIVERSRC = $(XF98SRC)/accel/s3pwlb/drivers XF98GA968DRIVERSRC = $(XF98SRC)/accel/s3ga968/drivers XFREE86DOCDIR = $(LIBDIR)/doc XFREE86PSDOCDIR = $(XFREE86DOCDIR)/PostScript XFREE86HTMLDOCDIR = $(XFREE86DOCDIR)/html XFREE86JAPANESEDOCDIR = $(XFREE86DOCDIR)/Japanese # $XConsortium: xf86.rules /main/9 1996/10/31 14:54:26 kaleb $ # $XFree86: xc/config/cf/xf86.rules,v 3.16.2.1 1997/05/18 12:00:01 dawes Exp $ # ---------------------------------------------------------------------- # site-specific configuration parameters that go after # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def /main/revisionist/4 1996/12/31 08:02:07 kaleb $ # site: $XFree86: xc/config/cf/site.def,v 3.17.2.1 1997/06/22 10:32:21 dawes Exp $ # --------------------------------------------------------------------- # Imake rules for building libraries, programs, scripts, and data files # rules: $TOG: Imake.rules /main/222 1997/07/17 20:04:40 kaleb $ # rules: $XFree86: xc/config/cf/Imake.rules,v 3.33.2.7 1998/02/06 09:02:17 dawes Exp $ _NULLCMD_ = @ echo -n TKLIBNAME = TKLIBDIR = TCLLIBNAME = TCLIBDIR = PATHSEP = / SHELL = /bin/sh TOP = .. CURRENT_DIR = awelib IMAKE = imake DEPEND = gccmakedep MKDIRHIER = mkdir -p EXPORTLISTGEN = CONFIGSRC = $(TOP)/config IMAKESRC = $(CONFIGSRC)/imake DEPENDSRC = $(CONFIGSRC)/util INCROOT = /usr/X11R6/include USRLIBDIR = /usr/X11R6/lib VARLIBDIR = /var/lib SHLIBDIR = /usr/X11R6/lib LINTLIBDIR = $(USRLIBDIR)/lint MANPATH = /usr/X11R6/man MANSOURCEPATH = $(MANPATH)/man MANDIR = $(MANSOURCEPATH)1 LIBMANDIR = $(MANSOURCEPATH)3 FILEMANDIR = $(MANSOURCEPATH)5 AR = ar clq BOOTSTRAPCFLAGS = CC = gcc AS = as .SUFFIXES: .cc CXX = c++ CXXFILT = c++filt CXXLIB = CXXDEBUGFLAGS = -O2 -fno-strength-reduce CXXDEPENDINCLUDES = CXXEXTRA_DEFINES = CXXEXTRA_INCLUDES = CXXSTD_DEFINES = -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(CXXPROJECT_DEFINES) CXXOPTIONS = CXXINCLUDES = $(INCLUDES) $(TOP_INCLUDES) $(CXXEXTRA_INCLUDES) CXXDEFINES = $(CXXINCLUDES) $(CXXSTD_DEFINES) $(THREADS_CXXDEFINES) $(CXXEXTRA_DEFINES) $(DEFINES) CXXFLAGS = $(CXXDEBUGFLAGS) $(CXXOPTIONS) $(THREADS_CXXFLAGS) $(CXXDEFINES) COMPRESS = compress GZIPCMD = gzip CPP = /lib/cpp $(STD_CPP_DEFINES) PREPROCESSCMD = gcc -E $(STD_CPP_DEFINES) INSTALL = install INSTALLFLAGS = -c LD = ld LEX = flex -l LEXLIB = -lfl YACC = bison -y CCYACC = bison -y LINT = lint LINTLIBFLAG = -C LINTOPTS = -axz LN = ln -s MAKE = make MV = mv -f CP = cp RANLIB = ranlib RANLIBINSTFLAGS = RM = rm -f MANSUFFIX = 1x LIBMANSUFFIX = 3x FILEMANSUFFIX = 5x TROFF = psroff NROFF = nroff MSMACROS = -ms MANMACROS = -man TBL = tbl EQN = eqn NEQN = neqn COL = col DVIPS = dvips LATEX = latex STD_INCLUDES = STD_CPP_DEFINES = -traditional -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(PROJECT_DEFINES) STD_DEFINES = -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(PROJECT_DEFINES) EXTRA_LOAD_FLAGS = EXTRA_LDOPTIONS = EXTRA_LIBRARIES = TAGS = ctags PARALLELMFLAGS = SHAREDCODEDEF = SHLIBDEF = SHLIBLDFLAGS = -shared PICFLAGS = -fPIC CXXPICFLAGS = -fPIC PROTO_DEFINES = -DFUNCPROTO=15 -DNARROWPROTO INSTPGMFLAGS = -s INSTBINFLAGS = -m 0755 INSTUIDFLAGS = -m 4711 INSTLIBFLAGS = -m 0644 INSTINCFLAGS = -m 0444 INSTMANFLAGS = -m 0444 INSTDATFLAGS = -m 0444 INSTKMEMFLAGS = -m 4711 PROJECTROOT = /usr/X11R6 CDEBUGFLAGS = -O2 -fno-strength-reduce CCOPTIONS = ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES) ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(THREADS_DEFINES) $(DEFINES) CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(THREADS_CFLAGS) $(ALLDEFINES) LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) $(DEPEND_DEFINES) LDPRELIB = -L$(USRLIBDIR) LDPOSTLIB = LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(EXTRA_LDOPTIONS) $(THREADS_LDFLAGS) $(LOCAL_LDFLAGS) $(LDPRELIBS) CXXLDOPTIONS = $(CXXDEBUGFLAGS) $(CXXOPTIONS) $(EXTRA_LDOPTIONS) $(THREADS_CXXLDFLAGS) $(LOCAL_LDFLAGS) $(LDPRELIBS) LDLIBS = $(LDPOSTLIBS) $(THREADS_LIBS) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) CCLINK = $(CC) CXXLINK = $(CXX) LDSTRIPFLAGS = -x LDCOMBINEFLAGS = -r DEPENDFLAGS = # Not sure this belongs here TKLIBDIR = TKINCDIR = TKLIBNAME = TKLIBRARY = -L$(TKLIBDIR) -l$(TKLIBNAME) TCLLIBDIR = TCLINCDIR = TCLLIBNAME = TCLLIBRARY = -L$(TCLLIBDIR) -l$(TCLLIBNAME) MACROFILE = linux.cf RM_CMD = $(RM) IMAKE_DEFINES = IRULESRC = $(CONFIGDIR) IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES) ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/X11.tmpl $(IRULESRC)/site.def $(IRULESRC)/$(MACROFILE) $(IRULESRC)/xfree86.cf $(IRULESRC)/xf86.rules $(IRULESRC)/xf86site.def $(IRULESRC)/host.def $(EXTRA_ICONFIGFILES) # $TOG: X11.rules /main/4 1997/04/30 15:23:24 kaleb $ # ---------------------------------------------------------------------- # X Window System Build Parameters and Rules # $TOG: X11.tmpl /main/292 1997/05/20 10:05:59 kaleb $ # # # # # $XFree86: xc/config/cf/X11.tmpl,v 1.8.2.4 1998/01/23 12:35:08 dawes Exp $ # ----------------------------------------------------------------------- # X Window System make variables; these need to be coordinated with rules XTOP = $(TOP) BINDIR = /usr/X11R6/bin BUILDINCROOT = $(TOP)/exports BUILDINCDIR = $(BUILDINCROOT)/include BUILDINCTOP = ../.. BUILDLIBDIR = $(TOP)/exports/lib BUILDLIBTOP = ../.. BUILDBINDIR = $(TOP)/exports/bin BUILDBINTOP = ../.. XBUILDINCROOT = $(XTOP)/exports XBUILDINCDIR = $(XBUILDINCROOT)/include/X11 XBUILDINCTOP = ../../.. XBUILDBINDIR = $(XBUILDINCROOT)/bin INCDIR = $(INCROOT) ADMDIR = /usr/adm LIBDIR = $(USRLIBDIR)/X11 TOP_X_INCLUDES = -I$(XPROJECTROOT)/include VARDIR = /var/X11 FONTDIR = $(LIBDIR)/fonts XINITDIR = $(LIBDIR)/xinit XDMDIR = $(LIBDIR)/xdm XDMVARDIR = $(VARLIBDIR)/xdm TWMDIR = $(LIBDIR)/twm XSMDIR = $(LIBDIR)/xsm NLSDIR = $(LIBDIR)/nls XLOCALEDIR = $(LIBDIR)/locale PEXAPIDIR = $(LIBDIR)/PEX LBXPROXYDIR = $(LIBDIR)/lbxproxy PROXYMANAGERDIR = $(LIBDIR)/proxymngr XPRINTDIR = $(LIBDIR) XAPPLOADDIR = $(LIBDIR)/app-defaults FONTCFLAGS = -t INSTAPPFLAGS = $(INSTDATFLAGS) RGB = rgb FONTC = bdftopcf MKFONTDIR = mkfontdir DOCUTILSRC = $(XTOP)/doc/util CLIENTSRC = $(TOP)/clients DEMOSRC = $(TOP)/demos XDOCMACROS = $(DOCUTILSRC)/macros.t XIDXMACROS = $(DOCUTILSRC)/indexmacros.t PROGRAMSRC = $(TOP)/programs LIBSRC = $(XTOP)/lib FONTSRC = $(XTOP)/fonts INCLUDESRC = $(BUILDINCROOT)/include XINCLUDESRC = $(INCLUDESRC)/X11 SERVERSRC = $(XTOP)/programs/Xserver CONTRIBSRC = $(XTOP)/../contrib UNSUPPORTEDSRC = $(XTOP)/unsupported DOCSRC = $(XTOP)/doc RGBSRC = $(XTOP)/programs/rgb BDFTOPCFSRC = $(PROGRAMSRC)/bdftopcf MKFONTDIRSRC = $(PROGRAMSRC)/mkfontdir FONTSERVERSRC = $(PROGRAMSRC)/xfs FONTINCSRC = $(XTOP)/include/fonts EXTINCSRC = $(XTOP)/include/extensions TRANSCOMMSRC = $(LIBSRC)/xtrans TRANS_INCLUDES = -I$(TRANSCOMMSRC) XENVLIBDIR = $(USRLIBDIR) CLIENTENVSETUP = LD_LIBRARY_PATH=$(XENVLIBDIR) # $XConsortium: lnxLib.tmpl,v 1.5 95/01/11 21:44:44 kaleb Exp $ # $XFree86: xc/config/cf/lnxLib.tmpl,v 3.9 1996/02/24 04:32:52 dawes Exp $ XLIBSRC = $(LIBSRC)/X11 SOXLIBREV = 6.1 DEPXONLYLIB = XONLYLIB = -lX11 LINTXONLY = $(LINTLIBDIR)/llib-lX11.ln XLIBONLY = $(XONLYLIB) XEXTLIBSRC = $(LIBSRC)/Xext SOXEXTREV = 6.3 DEPEXTENSIONLIB = EXTENSIONLIB = -lXext LINTEXTENSION = $(LINTLIBDIR)/llib-lXext.ln LINTEXTENSIONLIB = $(LINTEXTENSION) DEPXLIB = $(DEPEXTENSIONLIB) $(DEPXONLYLIB) XLIB = $(EXTENSIONLIB) $(XONLYLIB) LINTXLIB = $(LINTXONLYLIB) XSSLIBSRC = $(LIBSRC)/Xss DEPXSSLIB = $(USRLIBDIR)/libXss.a XSSLIB = -lXss LINTXSS = $(LINTLIBDIR)/llib-lXss.ln XXF86MISCLIBSRC = $(LIBSRC)/Xxf86misc DEPXXF86MISCLIB = $(USRLIBDIR)/libXxf86misc.a XXF86MISCLIB = -lXxf86misc LINTXXF86MISC = $(LINTLIBDIR)/llib-lXxf86misc.ln XXF86VMLIBSRC = $(LIBSRC)/Xxf86vm DEPXXF86VMLIB = $(USRLIBDIR)/libXxf86vm.a XXF86VMLIB = -lXxf86vm LINTXXF86VM = $(LINTLIBDIR)/llib-lXxf86vm.ln XXF86DGALIBSRC = $(LIBSRC)/Xxf86dga DEPXXF86DGALIB = $(USRLIBDIR)/libXxf86dga.a XXF86DGALIB = -lXxf86dga LINTXXF86DGA = $(LINTLIBDIR)/llib-lXxf86dga.ln XDPMSLIBSRC = $(LIBSRC)/Xdpms DEPXDPMSLIB = $(USRLIBDIR)/libXdpms.a XDPMSLIB = -lXdpms LINTXDPMS = $(LINTLIBDIR)/llib-lXdpms.ln XAUTHSRC = $(LIBSRC)/Xau DEPXAUTHLIB = $(USRLIBDIR)/libXau.a XAUTHLIB = -lXau LINTXAUTH = $(LINTLIBDIR)/llib-lXau.ln XDMCPLIBSRC = $(LIBSRC)/Xdmcp DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a XDMCPLIB = -lXdmcp LINTXDMCP = $(LINTLIBDIR)/llib-lXdmcp.ln XMUSRC = $(LIBSRC)/Xmu SOXMUREV = 6.0 DEPXMULIB = XMULIB = -lXmu LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln OLDXLIBSRC = $(LIBSRC)/oldX DEPOLDXLIB = $(USRLIBDIR)/liboldX.a OLDXLIB = -loldX LINTOLDX = $(LINTLIBDIR)/llib-loldX.ln XPLIBSRC = $(LIBSRC)/Xp SOXPREV = 6.2 DEPXPLIB = XPLIB = -lXp LINTXP = $(LINTLIBDIR)/llib-lXp.ln TOOLKITSRC = $(LIBSRC)/Xt SOXTREV = 6.0 DEPXTOOLONLYLIB = XTOOLONLYLIB = -lXt LINTXTOOLONLY = $(LINTLIBDIR)/llib-lXt.ln DEPXTOOLLIB = $(DEPXTOOLONLYLIB) $(DEPSMLIB) $(DEPICELIB) XTOOLLIB = $(XTOOLONLYLIB) $(SMLIB) $(ICELIB) LINTXTOOLLIB = $(LINTXTOOLONLYLIB) XALIBSRC = $(LIBSRC)/Xa SOXAREV = 1.0 DEPXALIB = XALIB = -lXa LINTXA = $(LINTLIBDIR)/llib-lXa.ln AWIDGETSRC = $(LIBSRC)/Xaw SOXAWREV = 6.1 DEPXAWLIB = XAWLIB = -lXaw LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln XILIBSRC = $(LIBSRC)/Xi SOXINPUTREV = 6.0 DEPXILIB = XILIB = -lXi LINTXI = $(LINTLIBDIR)/llib-lXi.ln XTESTLIBSRC = $(LIBSRC)/Xtst SOXTESTREV = 6.1 DEPXTESTLIB = XTESTLIB = -lXtst LINTXTEST = $(LINTLIBDIR)/llib-lXtst.ln PEXLIBSRC = $(LIBSRC)/PEX5 SOPEXREV = 6.0 DEPPEXLIB = PEXLIB = -lPEX5 LINTPEX = $(LINTLIBDIR)/llib-lPEX5.ln XIELIBSRC = $(LIBSRC)/XIE SOXIEREV = 6.0 DEPXIELIB = XIELIB = -lXIE LINTXIE = $(LINTLIBDIR)/llib-lXIE.ln PHIGSLIBSRC = $(LIBSRC)/PHIGS DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a PHIGSLIB = -lphigs LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a XBSDLIB = -lXbsd LINTXBSD = $(LINTLIBDIR)/llib-lXbsd.ln ICESRC = $(LIBSRC)/ICE SOICEREV = 6.3 DEPICELIB = ICELIB = -lICE LINTICE = $(LINTLIBDIR)/llib-lICE.ln SMSRC = $(LIBSRC)/SM SOSMREV = 6.0 DEPSMLIB = SMLIB = -lSM LINTSM = $(LINTLIBDIR)/llib-lSM.ln XKEYSRC = $(LIBSRC)/Xkey SOXKEYREV = 6.0 DEPXKEYLIB = XKEYLIB = -lXkey LINTXKEY = $(LINTLIBDIR)/llib-lXkey.ln FSLIBSRC = $(LIBSRC)/FS DEPFSLIB = $(USRLIBDIR)/libFS.a FSLIB = -lFS LINTFS = $(LINTLIBDIR)/llib-lFS.ln FONTLIBSRC = $(LIBSRC)/font DEPFONTLIB = $(USRLIBDIR)/libfont.a FONTLIB = -lfont LINTFONT = $(LINTLIBDIR)/llib-lfont.ln XPMLIBSRC = $(LIBSRC)/Xpm DEPXPMLIB = $(USRLIBDIR)/libXpm.a XPMLIB = -lXpm LINTXPM = $(LINTLIBDIR)/llib-lXpm.ln XKBFILELIBSRC = $(LIBSRC)/xkbfile DEPXKBFILELIB = $(USRLIBDIR)/libxkbfile.a XKBFILELIB = -lxkbfile LINTXKBFILE = $(LINTLIBDIR)/llib-lxkbfile.ln XKBCOMPCMD = xkbcomp XKBUILIBSRC = $(LIBSRC)/xkbui DEPXKBUILIB = $(USRLIBDIR)/libxkbui.a XKBUILIB = -lxkbui LINTXKBUI = $(LINTLIBDIR)/llib-lxkbui.ln DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) DEPLIBS1 = $(DEPLIBS) DEPLIBS2 = $(DEPLIBS) DEPLIBS3 = $(DEPLIBS) DEPLIBS4 = $(DEPLIBS) DEPLIBS5 = $(DEPLIBS) DEPLIBS6 = $(DEPLIBS) DEPLIBS7 = $(DEPLIBS) DEPLIBS8 = $(DEPLIBS) DEPLIBS9 = $(DEPLIBS) DEPLIBS10 = $(DEPLIBS) XMULIBONLY = -lXmu XMULIB = $(XMULIBONLY) $(XTOOLLIB) $(XLIB) CONFIGDIR = $(LIBDIR)/config USRLIBDIRPATH = $(USRLIBDIR) LDPRELIBS = -L$(USRLIBDIR) LDPOSTLIBS = TOP_INCLUDES = -I$(INCROOT) $(TOP_X_INCLUDES) PROJECT_DEFINES = CXXPROJECT_DEFINES = # ---------------------------------------------------------------------- # start of Imakefile LIBVER = 0.4.2 LIBDIR = /usr/local/lib INCLUDES += -I../include SHOBJS = awe_parm.o bool.o cmpopen.o dynload.o fskip.o gentxt.o loadbank.o loadtext.o malloc.o mygetopt.o optfile.o parsesf.o path.o sample.o sbkconv.o sffile.o sfitem.o sfopts.o sfout.o slist.o %.o: %.c $(RM) $@ $(CC) -c $(CFLAGS) $*.c all:: libawe.a libawe.a: $(SHOBJS) $(EXTRALIBRARYDEPS) $(RM) $@ $(AR) $@ $(SHOBJS) $(RANLIB) $@ $(_NULLCMD_) # ---------------------------------------------------------------------- # common rules for all Makefiles - do not edit .c.i: $(RM) $@ $(CC) -E $(CFLAGS) $(_NOOP_) $*.c > $@ emptyrule:: clean:: $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut "#"* Makefile:: -@if [ -f Makefile ]; then set -x; \ $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ else exit 0; fi $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR) tags:: $(TAGS) -w *.[ch] $(TAGS) -xw *.[ch] > TAGS man_keywords:: # ---------------------------------------------------------------------- # empty rules for directories that do not have SUBDIRS - do not edit install:: @echo "install in $(CURRENT_DIR) done" install.man:: @echo "install.man in $(CURRENT_DIR) done" install.linkkit:: @echo "install.linkkit in $(CURRENT_DIR) done" Makefiles:: includes:: depend:: # ---------------------------------------------------------------------- # dependencies generated by makedepend sfx/bank-samples/ 40755 764 764 0 6653073475 12704 5ustar stevestevesfx/bank-samples/default.bnk100644 764 764 152 6653073475 15077 0ustar stevesteve# # GS BANK FILE FOR DYNAMIC LOADING # default 2mbgmgs # use footsteps in synthgs # 126/5:126/5:synthgs sfx/bank-samples/test.bnk100644 764 764 1030 6653073475 14446 0ustar stevesteve# virtual bank structure # # source:map[:soundfont [name]] # # preset = preset[/bank[/keynote]] # # map music box on preset 0 10/0:0/0:synthgm DummyPiano # map piano1 of chaos8m on preset 1 0/0:1/0:chaos8m Piano2 # map piano1 of synthgm on preset 2 0/0:2/0:synthgm Piano3 # use all standard drums in 2mbgmgs.sf2 0/128:0/128:2mbgmgs Standard # map standard bass drum as room bass drum in chaos4m.sf2 0/128/35:8/128/35:chaos4m Test Drum # include XG sfx mappings include xgsfx.bnk # use synthgs.sbk as default fonts default synthgs sfx/bank-samples/xgdefault.bnk100644 764 764 117 6653073475 15437 0ustar stevesteve# # XG BANK FILE FOR DYNAMIC LOADING # include xgmap.bnk include default.bnk sfx/bank-samples/xgdrum.bnk100644 764 764 6671 6653073475 15015 0ustar stevesteve# # XG ADDITIONAL DRUM MAPPING # # Use this file with --xgmap=on option for drvmidi # # standard kit 1; preset number is shifted to 64 0/128:64/128 # map standard 1 from original fonts (preset#0) 0/128/86:64/128/13 # surdo mute 0/128/87:64/128/14 # surdo open 0/128/27:64/128/15 # hi-Q 0/128/28:64/128/16 # whip slap 0/128/29:64/128/17 # scratch push 0/128/30:64/128/18 # scratch pull #0/128/26:64/128/19 # finger snap 0/128/33:64/128/19 # finger snap 0/128/32:64/128/20 # click noise 0/128/33:64/128/21 # metronome click 0/128/34:64/128/22 # metromome bell 0/128/32:64/128/23 # seq click L 0/128/32:64/128/24 # seq click H 40/128/38:64/128/25 # brush tap 40/128/40:64/128/26 # brush swirl L 40/128/39:64/128/27 # brush slap 50/128/90:64/128/28 # brush swirl H 0/128/25:64/128/29 # snare roll 0/128/88:64/128/30 # castanet 0/128/38:64/128/31 # snare L 0/128/31:64/128/32 # sticks 25/128/35:64/128/33 # BD L #64/128/34 # open rim shot # standard kit 2 1/128:65/128 # map standard 2 1/128/86:65/128/13 # surdo mute 1/128/87:65/128/14 # surdo open 1/128/27:65/128/15 # hi-Q 1/128/28:65/128/16 # whip slap 1/128/29:65/128/17 # scratch push 1/128/30:65/128/18 # scratch pull #1/128/26:65/128/19 # finger snap 1/128/33:65/128/19 # finger snap 1/128/32:65/128/20 # click noise 1/128/33:65/128/21 # metronome click 1/128/34:65/128/22 # metromome bell 1/128/32:65/128/23 # seq click L 1/128/32:65/128/24 # seq click H 40/128/38:65/128/25 # brush tap 40/128/40:65/128/26 # brush swirl L 40/128/39:65/128/27 # brush slap 50/128/90:65/128/28 # brush swirl H 1/128/25:65/128/29 # snare roll 1/128/88:65/128/30 # castanet 1/128/38:65/128/31 # snare L 1/128/31:65/128/32 # sticks 25/128/35:65/128/33 # BD L #65/128/34 # open rim shot # electronic kit #24 24/128:88/128 # map default 24/128/86:88/128/13 # surdo mute 24/128/87:88/128/14 # surdo open 24/128/27:88/128/15 # hi-Q 24/128/28:88/128/16 # whip slap 24/128/29:88/128/17 # scratch push 24/128/30:88/128/18 # scratch pull #24/128/26:88/128/19 # finger snap 24/128/33:88/128/19 # click noise 24/128/32:88/128/20 # click noise 24/128/33:88/128/21 # metronome click 24/128/34:88/128/22 # metromome bell 24/128/32:88/128/23 # seq click L 24/128/32:88/128/24 # seq click H 40/128/38:88/128/25 # brush tap 40/128/40:88/128/26 # brush swirl L 40/128/39:88/128/27 # brush slap 119/0/60:88/128/28 # reverse cymbal 24/128/25:88/128/29 # snare roll 24/128/27:88/128/30 # hi-Q 24/128/38:88/128/31 # snare L 24/128/31:88/128/32 # sticks 25/128/35:88/128/33 # BD L #88/128/34 # open rim shot 24/128/29:88/128/78 # scratch push 24/128/30:88/128/79 # scratch pull # analog kit #25 25/128:89/128 # map default 24/128/86:89/128/13 # surdo mute 24/128/87:89/128/14 # surdo open 24/128/27:89/128/15 # hi-Q 24/128/28:89/128/16 # whip slap 24/128/29:89/128/17 # scratch push 24/128/30:89/128/18 # scratch pull #24/128/26:89/128/19 # finger snap 24/128/33:89/128/19 # click noise 24/128/32:89/128/20 # click noise 24/128/33:89/128/21 # metronome click 24/128/34:89/128/22 # metromome bell 24/128/32:89/128/23 # seq click L 24/128/32:89/128/24 # seq click H 40/128/38:89/128/25 # brush tap 40/128/40:89/128/26 # brush swirl L 40/128/39:89/128/27 # brush slap 119/0/60:88/128/28 # reverse cymbal 24/128/25:89/128/29 # snare roll 24/128/27:89/128/30 # hi-Q 24/128/38:89/128/31 # snare L 24/128/31:89/128/32 # sticks 25/128/35:89/128/33 # BD L #89/128/34 # open rim shot 24/128/29:89/128/78 # scratch push 24/128/30:89/128/79 # scratch pull # orchestra kit #48 48/128:114/128 sfx/bank-samples/README-bank100644 764 764 3671 6653073475 14601 0ustar stevesteve* CONTENTS This directory contains some samples of virtual bank files. default.bnk - bank file for dynamic loading of GS sounds Use this file with --default option of drvmidi. 2mbgmgs font is used except footsteps sound. synthgs is used only for footsteps instead. xgsfx.bnk - bank file for XG SFX kit Many preset mappings are defined on this file for XG SFX sounds. Use this file with --xgmap=on option of drvmidi. If this option is enabled, bank #64 and #126 are used as XG SFX banks. xgdrum.bnk - bank file for XG Drum kit Many preset mappings are defined on this file for XG Drum sounds. Use this file with --xgmap=on option of drvmidi. If this option is enabled, from drumset #64 to #126 are used for XG drum sounds. xgdefault.bnk - bank file for dynamic loading of XG sounds Use this file with --xgload and --xgmap=on options of drvmidi. This file just includes the other three bank files above. * HOW TO PLAY XG MIDI FILES - Copy all the bank files above to the soundfont bank directory, as default, /usr/local/lib/sfbank or /dos/sb32/sfbank. The default bank directory is defined in awelib/config.h. If you'll use another GS soundfont, specify it in default.bnk. - If you have only 512k DRAM on the soundcard, use dynamic loading. Set the default options of drvmidi in ~/.drvmidirc as follows: default --xgmap=on --dynamic=xgdefault.bnk xgdefault.bnk contains both GS/GM fonts and XG mappings. Otherwise, if you have enough DRAM, you can load all the fonts at once on the driver. Then, set --xgmap option only in the default option of drvmidi, default --xgmap=on - Load the font file before starting tkmidi or drvmidi. In the case of dynamic loading, ROM soundfont should be used: % sfxload synthgm In the case of static loading, load all the font at this time: % sfxload xgdefault.bnk - Run tkmidi or drvmidi, and enjoy. tkmidi *.mid ---------------- Takashi Iwai sfx/bank-samples/xgmap.bnk100644 764 764 115 6653073475 14566 0ustar stevesteve# # XG BANK FILE FOR STATIC LOADINIG # include xgsfx.bnk include xgdrum.bnk sfx/bank-samples/xgsfx.bnk100644 764 764 4663 6653073475 14645 0ustar stevesteve# # SAMPLE MAP FILE FOR XG SFX SOUNDS # # Use this file with --xgmap=on option for drvmidi # # bank 64: XG SFX bank 120/1:0/64 # cut noise 120/1:1/64 # cut noise 2 120/1:2/64 # dist cut noise 120/2:3/64 # string slap 120/0:4/64 # bass slide 120/0:5/64 # pick strape 121/0:16/64 # fl key click 122/1:32/64 # train 122/2:33/64 # thunder 122/3:34/64 # wind 122/4:35/64 # stream 122/5:36/64 # bubble 125/127:37/64 # feed 123/1:48/64 # dog 123/2:49/64 # horse gallop 123/0:50/64 # bird 124/0:64/64 # telephone 124/2:65/64 # door creaking 124/3:66/64 # door slam 124/4:67/64 # scratch 124/4:68/64 # scratch 2 124/5:69/64 # wind chime 124/1:70/64 # telephone 2 125/1:80/64 # car engine 125/2:81/64 # car stop 125/3:82/64 # car pass 125/4:83/64 # car crash 125/5:84/64 # siren 125/6:85/64 # train 125/7:86/64 # jetplane 125/8:87/64 # starship 125/9:88/64 # burst noise 125/0:89/64 # coarster 126/1:96/64 # laughing 126/2:97/64 # screaming 126/3:98/64 # punch 126/4:99/64 # heart beat 126/5:100/64 # footsteps 126/0:101/64 # applause 127/1:112/64 # machine gun 127/2:113/64 # laser gun 127/3:114/64 # explosion 127/0:115/64 # fire work # bank 126, preset0: XG sfx keyboard map 120/1/60:0/126/36 # cut noise 120/1/60:0/126/37 # cut noise 2 120/1/60:0/126/38 # dist cut noise 120/2/60:0/126/39 # string slap 120/0/60:0/126/40 # bass slide 120/0/60:0/126/41 # pick slide 121/1/60:0/126/52 # fl key click 122/1/60:0/126/68 # rain 122/2/60:0/126/69 # thunder 122/3/60:0/126/79 # wind 122/4/60:0/126/71 # stream 122/5/60:0/126/72 # bubble 125/127/60:0/126/73 # feed 123/1/60:0/126/84 # dog 123/2/60:0/126/85 # horse gallop 123/0/60:0/126/86 # bird 2 # bank 126, preset1: XG sfx keyboard map 124/1/60:1/126/36 # telephone 2 124/2/60:1/126/37 # door creaking 124/3/60:1/126/38 # door slam 124/4/60:1/126/39 # scratch 124/4/60:1/126/40 # scratch 2 124/5/60:1/126/41 # wind chime 124/0/60:1/126/42 # telephone ring 125/1/60:1/126/52 # engine start 125/2/60:1/126/53 # stop 125/3/60:1/126/54 # car pass 125/4/60:1/126/55 # crash 125/5/60:1/126/56 # siren 125/6/60:1/126/57 # train 125/7/60:1/126/58 # jetplane 125/8/60:1/126/59 # starship 125/9/60:1/126/60 # burst noise 125/0/60:1/126/61 # coarster 126/1/60:1/126/68 # laughing 126/2/60:1/126/69 # screaming 126/3/60:1/126/70 # punch 126/4/60:1/126/71 # heart beat 126/5/60:1/126/72 # footsteps 126/0/60:1/126/73 # applause 127/1/60:1/126/84 # machine gun 127/2/60:1/126/85 # laser gun 127/3/60:1/126/86 # explosion 127/0/60:1/126/87 # fire work sfx/gusload.c100644 764 764 23133 6653073475 12250 0ustar stevesteve/*================================================================ * gusload -- load a GUS patch file on AWE32 sound driver * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include #include #include #ifdef __FreeBSD__ # include #elif defined(linux) # include #endif #include "guspatch.h" #include "seq.h" #include "util.h" void seq_load_gus(FILE *fd); static void usage() { fprintf(stderr, "gusload -- load GUS patch file on AWE32 sound driver\n"); fprintf(stderr, " version 0.4.2 copyright (c) 1996,1997 by Takashi Iwai\n"); fprintf(stderr, "usage: gusload [-options] GUSpatch\n"); fprintf(stderr, " -v verbose mode\n"); fprintf(stderr, " -p number set instrument number (default is internal value)\n"); fprintf(stderr, " -b number set bank number (default is 0)\n"); fprintf(stderr, " -k keynote set fixed keynote\n"); exit(1); } static int preset = -1; static int bankchange = -1; static int keynote = -1; int verbose; #define OPTION_FLAGS "b:p:k:v" void main(int argc, char **argv) { FILE *fd; char *gusfile; int c; while ((c = getopt(argc, argv, OPTION_FLAGS)) != -1) { switch (c) { case 'v': if (optarg) verbose = atoi(optarg); else verbose++; break; case 'b': bankchange = atoi(optarg); break; case 'p': preset = atoi(optarg); break; case 'k': keynote = atoi(optarg); break; default: usage(); exit(1); } } if (argc - optind < 1) { usage(); exit(1); } gusfile = argv[optind]; optind++; if ((fd = fopen(gusfile, "r")) == NULL) { fprintf(stderr, "can't open GUS patch file %s\n", gusfile); exit(1); } /* open awe sequencer device */ seq_init(); DEBUG(0,fprintf(stderr, "uploading samples..\n")); seq_load_gus(fd); DEBUG(0,printf("DRAM memory left = %d kB\n", seq_mem_avail()/1024)); /* close sequencer */ seq_end(); fclose(fd); exit(0); } static GusPatchHeader header; static GusInstrument ins; static GusLayerData layer; static GusPatchData sample; #define freq_to_note(mhz) (int)(log((double)mhz / 8176.0) / log(2.0) * 1200.0) /* * load voice record to the awe driver */ void seq_load_gus(FILE *fp) { int j, len; struct patch_info *patch; /* Unix based routines, assume big-endian machine */ /* read header */ DEBUG(1,fprintf(stderr, "reading header\n")); fread(&header.header, sizeof(header.header), 1, fp); fread(&header.gravis_id, sizeof(header.gravis_id), 1, fp); fread(&header.description, sizeof(header.description), 1, fp); fread(&header.instruments, sizeof(header.instruments), 1, fp); fread(&header.voices, sizeof(header.voices), 1, fp); fread(&header.channels, sizeof(header.channels), 1, fp); fread(&header.wave_forms, sizeof(header.wave_forms), 1, fp); header.wave_forms = swapi( header.wave_forms ); fread(&header.master_volume, sizeof(header.master_volume), 1, fp); header.master_volume = swapi( header.master_volume ); fread(&header.data_size, sizeof(header.data_size), 1, fp); header.data_size = swapl( header.data_size ); fread(&header.reserved, sizeof(header.reserved), 1, fp); /* read instrument header */ DEBUG(1,fprintf(stderr, "reading instrument\n")); fread(&ins.instrument, sizeof(ins.instrument), 1, fp); fread(&ins.instrument_name, sizeof(ins.instrument_name), 1, fp); fread(&ins.instrument_size, sizeof(ins.instrument_size), 1, fp); ins.instrument_size = swapl( ins.instrument_size ); fread(&ins.layers, sizeof(ins.layers), 1, fp); fread(&ins.reserved, sizeof(ins.reserved), 1, fp); /* read layer header */ DEBUG(1,fprintf(stderr, "reading layer\n")); fread(&layer.layer_duplicate, sizeof(layer.layer_duplicate), 1, fp); fread(&layer.layer, sizeof(layer.layer), 1, fp); fread(&layer.layer_size, sizeof(layer.layer_size), 1, fp); layer.layer_size = swapl( layer.layer_size ); fread(&layer.samples, sizeof(layer.samples), 1, fp); fread(&layer.reserved, sizeof(layer.reserved), 1, fp); if (strcmp(header.gravis_id, "ID#000002") != 0) { fprintf(stderr, "Not a GUS patch file\n"); exit(1); } DEBUG(0,fprintf(stderr, "data size = %d\n", (int)header.data_size)); /* read sample information */ for (j = 0; j < layer.samples; j++) { /* read sample information */ DEBUG(1,fprintf(stderr, "reading sample(%d)\n", j)); fread(&sample.wave_name, sizeof(sample.wave_name), 1, fp); fread(&sample.fractions, sizeof(sample.fractions), 1, fp); fread(&sample.wave_size, sizeof(sample.wave_size), 1, fp); sample.wave_size = swapl( sample.wave_size ); fread(&sample.start_loop, sizeof(sample.start_loop), 1, fp); fread(&sample.end_loop, sizeof(sample.end_loop), 1, fp); fread(&sample.sample_rate, sizeof(sample.sample_rate), 1, fp); sample.sample_rate = swapi( sample.sample_rate ); fread(&sample.low_frequency, sizeof(sample.low_frequency), 1, fp); fread(&sample.high_frequency, sizeof(sample.high_frequency), 1, fp); fread(&sample.root_frequency, sizeof(sample.root_frequency), 1, fp); fread(&sample.tune, sizeof(sample.tune), 1, fp); fread(&sample.balance, sizeof(sample.balance), 1, fp); fread(&sample.envelope_rate, sizeof(sample.envelope_rate), 1, fp); fread(&sample.envelope_offset, sizeof(sample.envelope_offset), 1, fp); fread(&sample.tremolo_sweep, sizeof(sample.tremolo_sweep), 1, fp); fread(&sample.tremolo_rate, sizeof(sample.tremolo_rate), 1, fp); fread(&sample.tremolo_depth, sizeof(sample.tremolo_depth), 1, fp); fread(&sample.vibrato_sweep, sizeof(sample.vibrato_sweep), 1, fp); fread(&sample.vibrato_rate, sizeof(sample.vibrato_rate), 1, fp); fread(&sample.vibrato_depth, sizeof(sample.vibrato_depth), 1, fp); fread(&sample.modes, sizeof(sample.modes), 1, fp); fread(&sample.scale_frequency, sizeof(sample.scale_frequency), 1, fp); fread(&sample.scale_factor, sizeof(sample.scale_factor), 1, fp); sample.scale_factor = swapi( sample.scale_factor ); fread(&sample.reserved, sizeof(sample.reserved), 1, fp); DEBUG(1,fprintf(stderr, "-- sample len = %d\n", (int)sample.wave_size)); /* allocate sound driver patch data */ len = sizeof(struct patch_info) + sample.wave_size - 1; patch = (struct patch_info*)calloc(len, 1); if (patch == NULL) { fprintf(stderr, "can't allocate patch buffer\n"); exit(1); } patch->key = GUS_PATCH; patch->device_no = awe_dev; if (preset >= 0) patch->instr_no = preset; else patch->instr_no = ins.instrument; DEBUG(0,fprintf(stderr,"-- preset=%d\n", patch->instr_no)); patch->mode = sample.modes; patch->len = sample.wave_size; patch->loop_start = sample.start_loop; patch->loop_end = sample.end_loop; patch->base_freq = sample.sample_rate; if (keynote != -1) { int note = freq_to_note(sample.root_frequency); int low = freq_to_note(sample.low_frequency); low = (low / 100) * 100; patch->base_note = (int)(pow(2.0, (double)(keynote * 100 - low) / 1200.0) * sample.root_frequency); patch->low_note = (int)(pow(2.0, (double)keynote / 12.0) * 8176.0); patch->high_note = patch->low_note; } else { patch->base_note = sample.root_frequency; patch->high_note = sample.high_frequency; patch->low_note = sample.low_frequency; } DEBUG(0,fprintf(stderr,"-- base freq=%d, note=%d (%d-%d)\n", (int)patch->base_freq, (int)patch->base_note, (int)patch->low_note, (int)patch->high_note)); patch->panning = sample.balance; patch->detuning = sample.tune; memcpy(patch->env_rate, sample.envelope_rate, 6); memcpy(patch->env_offset, sample.envelope_offset, 6); if (sample.tremolo_rate > 0 && sample.tremolo_depth > 0) patch->mode |= WAVE_TREMOLO; patch->tremolo_sweep = sample.tremolo_sweep; patch->tremolo_rate = sample.tremolo_rate; patch->tremolo_depth = sample.tremolo_depth; DEBUG(0,fprintf(stderr,"-- tremolo rate=%d, depth=%d\n", patch->tremolo_rate, patch->tremolo_depth)); if (sample.vibrato_rate > 0 && sample.vibrato_depth > 0) patch->mode |= WAVE_VIBRATO; patch->vibrato_sweep = sample.vibrato_sweep; patch->vibrato_rate = sample.vibrato_rate; patch->vibrato_depth = sample.vibrato_depth; DEBUG(0,fprintf(stderr,"-- vibrato rate=%d, depth=%d\n", patch->vibrato_rate, patch->vibrato_depth)); patch->scale_frequency = sample.scale_frequency; patch->scale_factor = sample.scale_factor; patch->volume = header.master_volume; #if SOUND_VERSION > 301 patch->fractions = sample.fractions; #endif /* allocate raw sample buffer */ DEBUG(1,fprintf(stderr, "-- reading wave data\n")); fread(patch->data, 1, patch->len, fp); /* if -b option is specified, change the bank value */ if (bankchange >= 0) { DEBUG(1,fprintf(stderr, "-- set bank number\n")); seq_set_gus_bank(bankchange); } DEBUG(1,fprintf(stderr, "-- transferring\n")); if (write(seqfd, patch, len) == -1) { fprintf(stderr, "[Loading GUS %d]\n", j); perror("Error in loading info"); exit(1); } /* free temporary buffer */ free(patch); /* exit loop if keynote is fixed */ if (keynote != -1) break; } } sfx/guspatch.h100644 764 764 4105 6653073475 12413 0ustar stevesteve/*================================================================ * guspatch.h * patch structure of GUS compatible patch file *================================================================*/ #ifndef GUSPATCH_H_DEF #define GUSPATCH_H_DEF #include "itypes.h" #define GUS_ENVELOPES 6 /* This is the definition for what FORTE's patch format is. All .PAT */ /* files will have this format. */ #define GUS_HEADER_SIZE 12 #define GUS_ID_SIZE 10 #define GUS_DESC_SIZE 60 #define GUS_RESERVED_SIZE 40 #define GUS_PATCH_HEADER_RESERVED_SIZE 36 #define GUS_LAYER_RESERVED_SIZE 40 #define GUS_PATCH_DATA_RESERVED_SIZE 36 #define GUS_GF1_HEADER_TEXT "GF1PATCH110" typedef struct { char header[ GUS_HEADER_SIZE ]; char gravis_id[ GUS_ID_SIZE ]; /* Id = "ID#000002" */ char description[ GUS_DESC_SIZE ]; byte instruments; char voices; char channels; uint16 wave_forms; uint16 master_volume; uint32 data_size; char reserved[ GUS_PATCH_HEADER_RESERVED_SIZE ]; } GusPatchHeader; typedef struct { uint16 instrument; char instrument_name[ 16 ]; int32 instrument_size; char layers; char reserved[ GUS_RESERVED_SIZE ]; } GusInstrument; typedef struct { char layer_duplicate; char layer; int32 layer_size; char samples; char reserved[ GUS_LAYER_RESERVED_SIZE ]; } GusLayerData; typedef struct { char wave_name[7]; byte fractions; int32 wave_size; int32 start_loop; int32 end_loop; uint16 sample_rate; int32 low_frequency; int32 high_frequency; int32 root_frequency; int16 tune; byte balance; byte envelope_rate[ GUS_ENVELOPES ]; byte envelope_offset[ GUS_ENVELOPES ]; byte tremolo_sweep; byte tremolo_rate; byte tremolo_depth; byte vibrato_sweep; byte vibrato_rate; byte vibrato_depth; char modes; #define GUS_MODE_16BIT 1 #define GUS_MODE_UNSIGNED 2 #define GUS_MODE_LOOP 4 #define GUS_MODE_LOOP_BIDIR 8 #define GUS_MODE_LOOP_BACK 16 #define GUS_MODE_SUSTAIN 32 #define GUS_MODE_ENVELOPE 64 int16 scale_frequency; uint16 scale_factor; /* from 0 to 2048 or 0 to 2 */ char reserved[ GUS_PATCH_DATA_RESERVED_SIZE ]; } GusPatchData; #endif sfx/include/ 40755 764 764 0 6653073475 11752 5ustar stevestevesfx/include/awebank.h100644 764 764 5416 6653073475 13636 0ustar stevesteve/*================================================================ * AWElib patch loader * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #ifndef AWEBANK_H_DEF #define AWEBANK_H_DEF /* external variable */ extern int seqfd; extern int awe_dev; /* return value */ #define AWE_RET_OK 0 /* successfully loaded */ #define AWE_RET_ERR 1 /* some fatal error occurs */ #define AWE_RET_SKIP 2 /* some fonts are skipped */ #define AWE_RET_NOMEM 3 /* out or memory; not all fonts loaded */ #define AWE_RET_NOT_FOUND 4 /* the file is not found */ /*---------------------------------------------------------------- * preset/bank/keynote bag *----------------------------------------------------------------*/ typedef struct _SFPatchRec { int preset, bank, keynote; /* -1 = matches all */ } SFPatchRec; /* compare two patch sets */ int awe_match_preset(SFPatchRec *rec, SFPatchRec *pat); /* parse the text and store source/map patch sets */ int awe_parse_loadlist(char *arg, SFPatchRec *pat, SFPatchRec *map, char **strp); /* dynamic loading list */ typedef struct _LoadList { SFPatchRec pat; SFPatchRec map; int loaded; struct _LoadList *next; } LoadList; /* add a patch set on the list */ LoadList *add_loadlist(LoadList *list, SFPatchRec *pat, SFPatchRec *map); /* merge the elements in latter list */ LoadList *merge_loadlist(LoadList *list, LoadList *old); /* free all list elements */ void free_loadlist(LoadList *p); /*---------------------------------------------------------------- * load a soundfont or virtual bank file *---------------------------------------------------------------- * 'name' is the file name of the sound font. The file is searched * along the prescribed search path. * If 'list' is not NULL, only the presets listed are loaded. * 'locked' is boolean value to specify the fonts are locked or not. * The locked fonts are not removed by -x option of sfxload. *----------------------------------------------------------------*/ int awe_load_bank(char *name, LoadList *list, int locked); #endif /* AWEBANK_H_DEF */ sfx/include/aweseq.h100644 764 764 3650 6653073475 13511 0ustar stevesteve/*================================================================ * Load AWE patch data * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #ifndef AWESEQ_H_DEF #define AWESEQ_H_DEF #include "sffile.h" #include "awebank.h" /*---------------------------------------------------------------- * initialize and finish the loading *----------------------------------------------------------------*/ int awe_open_font(SFInfo *sf, FILE *fp, int locked); void awe_close_font(SFInfo *sf); int awe_is_ram_fonts(SFInfo *sf); int awe_open_patch(char *name, int type, int locked); int awe_close_patch(void); int awe_load_map(LoadList *lp); /*---------------------------------------------------------------- * load each preset: load a preset "pat" on "map" *----------------------------------------------------------------*/ int awe_load_font(SFInfo *sf, SFPatchRec *pat, SFPatchRec *map); /*---------------------------------------------------------------- * load the whole file (with checking loadlist) *----------------------------------------------------------------*/ int awe_load_font_buffered(SFInfo *sf, LoadList *part_only, LoadList *exclude, int load_alt); #endif /* AWESEQ_H_DEF */ sfx/include/itypes.h100644 764 764 1502 6653073475 13533 0ustar stevesteve/*================================================================ * integer types *================================================================*/ #ifndef ITYPES_H_DEF #define ITYPES_H_DEF /* 8bit bytes */ typedef unsigned char byte; /* 16bit integers */ typedef unsigned short uint16; typedef short int16; /* 32bit long integers */ typedef unsigned int uint32; typedef int int32; /**/ typedef union uint32rec { byte b8[4]; uint16 b16[4]; uint32 b32; } uint32rec; /* vp=uint32rec, cp=char* */ #define get32rec(vp,cp) memcpy(vp, cp, 4) #if 1 /* little endian */ #define swapi(x) x #define swapl(x) x #else /* big endian */ #define swapi(x) ((((x)&0xFF)<<8) | (((x)>>8)&0xFF)) #define swapl(x) ((((x)&0xFF)<<24) | \ (((x)&0xFF00)<<8) | \ (((x)&0xFF0000)>>8) | \ (((x)>>24)&0xFF)) #endif #endif sfx/include/sffile.h100644 764 764 6137 6653073475 13477 0ustar stevesteve/*================================================================ * sffile.h * SoundFont file (SBK/SF2) format defintions * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #ifndef SFFILE_H_DEF #define SFFILE_H_DEF #include #include "itypes.h" /* chunk record header */ typedef struct _SFChunk { char id[4]; int32 size; } SFChunk; /* generator record */ typedef struct _SFGenRec { int16 oper; int16 amount; } SFGenRec; /* layered generators record */ typedef struct _SFGenLayer { int nlists; SFGenRec *list; } SFGenLayer; /* header record */ typedef struct _SFHeader { char name[20]; uint16 bagNdx; /* layered stuff */ int nlayers; SFGenLayer *layer; } SFHeader; /* preset header record */ typedef struct _SFPresetHdr { SFHeader hdr; uint16 preset, bank; /*int32 lib, genre, morphology;*/ /* not used */ } SFPresetHdr; /* instrument header record */ typedef struct _SFInstHdr { SFHeader hdr; } SFInstHdr; /* sample info record */ typedef struct _SFSampleInfo { char name[20]; int32 startsample, endsample; int32 startloop, endloop; /* ver.2 additional info */ int32 samplerate; byte originalPitch; byte pitchCorrection; uint16 samplelink; uint16 sampletype; /*1=mono, 2=right, 4=left, 8=linked, $8000=ROM*/ /* optional info */ int32 size; /* sample size */ int32 loopshot; /* short-shot loop size */ } SFSampleInfo; /*---------------------------------------------------------------- * soundfont file info record *----------------------------------------------------------------*/ typedef struct _SFInfo { /* file name */ char *sf_name; /* version of this file */ int16 version, minorversion; /* sample position (from origin) & total size (in bytes) */ long samplepos; int32 samplesize; /* raw INFO chunk list */ long infopos, infosize; /* preset headers */ int npresets; SFPresetHdr *preset; /* sample infos */ int nsamples; SFSampleInfo *sample; /* instrument headers */ int ninsts; SFInstHdr *inst; } SFInfo; /*---------------------------------------------------------------- * functions *----------------------------------------------------------------*/ /* sffile.c */ int load_soundfont(SFInfo *sf, FILE *fp, int is_seekable); void free_soundfont(SFInfo *sf); void save_soundfont(SFInfo *sf, FILE *fin, FILE *fout); void load_textinfo(SFInfo *sf, FILE *fp); /* sample.c */ void correct_samples(SFInfo *sf); #endif sfx/include/slist.h100644 764 764 3456 6653073475 13366 0ustar stevesteve/*================================================================ * slist.h: * S-expression list * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #ifndef SLIST_H_DEF #define SLIST_H_DEF enum { S_ATOM_NIL, S_ATOM_LIST, S_ATOM_CHR, S_ATOM_INT, S_ATOM_STR, S_ATOM_FUN, }; typedef struct _SAtom *SList; typedef union { char c; int i; char *s; char *f; SList p; } SAtomVal; typedef struct _SAtom { int type; SAtomVal val, nxt; } SAtom; SList SCons(void); SList SReadFile(FILE *fp); void SFree(SList); #define NIL (SList)0 #define SIsNil(at) ((at)->type == S_ATOM_NIL) #define SListP(at) ((at)->type == S_ATOM_LIST) #define SChrP(at) ((at)->type == S_ATOM_CHR) #define SIntP(at) ((at)->type == S_ATOM_INT) #define SStrP(at) ((at)->type == S_ATOM_STR) #define SFunP(at) ((at)->type == S_ATOM_FUN) #define SCar(at) ((at)->val.p) #define SCdr(at) ((at)->nxt.p) #define SChr(at) ((at)->val.c) #define SStr(at) ((at)->val.s) #define SInt(at) ((at)->val.i) #define SFun(at) ((at)->val.f) #define SFunIs(at,fun) (strcmp(SFun(at),fun) == 0) int SIndex(SList); #endif sfx/include/util.h100644 764 764 3145 6653073475 13200 0ustar stevesteve/*================================================================ * utility routines *================================================================*/ #ifndef UTIL_H_DEF #define UTIL_H_DEF #ifndef TRUE #define TRUE 1 #endif #ifndef FALSE #define FALSE 0 #endif #define numberof(ary) (sizeof(ary)/sizeof(ary[0])) #ifndef offsetof #define offsetof(s_type,field) ((int)(((char*)(&(((s_type*)NULL)->field)))-((char*)NULL))) #endif #define BITON(var,flag) ((var) |= (flag)) #define BITOFF(var,flag) ((var) &= ~(flag)) #define BITSWT(var,flag) ((var) ^= (flag)) extern int verbose, debug; #define DEBUG(LVL,XXX) {if (verbose > LVL) { XXX; }} /* cmpopen.c */ char *CmpGetExtension(char *name); FILE *CmpOpenFile(char *name, int *flag); void CmpCloseFile(FILE *fp, int flag); void CmpAddList(char *ext, char *format); /* malloc.c */ void *safe_malloc(int size); void safe_free(void *ptr); char *safe_strdup(char *src); /* bool.c */ char *strtoken(char *src); char *strschr(char *str, char *dels); int strlcmp(char *ap, char *bp); int bool_val(char *val); /* fskip.c */ void fskip(int size, FILE *fd, int seekable); /* path.c */ int search_file_name(char *fresult, char *fname, char *path, char **ext); /* mygetopt.c */ typedef struct awe_option_args { char *str; int has_arg; int *flag; int val; } awe_option_args; /* #define no_argument 0 #define required_argument 1 #define optional_argument 2 */ int awe_getopt(int argc, char **argv, char *optstr, awe_option_args *args, int *optind); int awe_get_argument(int argc, char **argv, char *optstr, awe_option_args *args); extern char *optarg; extern int optind; #endif sfx/include/sfopts.h100644 764 764 2134 6653073475 13536 0ustar stevesteve/*---------------------------------------------------------------- * general options for AWElib *----------------------------------------------------------------*/ #ifndef SFOPTS_H_DEF #define SFOPTS_H_DEF #include "util.h" /* options */ typedef struct _sf_options { int auto_add_blank; /* bool: add 48 blank samples */ int default_bank; /* int: bank map number for bank #0 */ int default_chorus; /* int: chorus effects in percent */ int default_reverb; /* int: reverb effects in percent */ int default_volume; /* int: total volume in percent */ double atten_sense; /* attenuation sensitivity (default is 10.0) */ int default_atten; /* zero attenuation level (default is 32) */ double decay_sense; /* decay sensitivity (default is 50.0) */ char *search_path; /* search path for soundfont files */ } sf_options; void awe_init_option(void); int awe_calc_def_atten(double sense); /* calculate zero atten level */ extern sf_options awe_option; void awe_read_option_file(char *fname); int awe_parse_options(int argc, char **argv, char *optflags, awe_option_args *long_opts, int *optidx); #endif sfx/include/sfitem.h100644 764 764 3325 6653073475 13512 0ustar stevesteve/*================================================================ * sfitem.h * soundfont generator conversion table *================================================================*/ #ifndef SFITEM_H_DEF #define SFITEM_H_DEF #include "sflayer.h" #include "sffile.h" typedef struct _LayerItem { int copy; /* copy policy */ int type; /* conversion type */ int minv; /* minimum value */ int maxv; /* maximum value */ int defv; /* default value */ } LayerItem; /* copy policy */ enum { L_INHRT, /* add to global */ L_OVWRT, /* overwrite on global */ L_RANGE, /* range */ L_PRSET, /* preset only */ L_INSTR, /* instrument only */ }; /* data type */ enum { T_NOP, /* nothing */ T_NOCONV, /* no conversion */ T_OFFSET, /* address offset */ T_HI_OFF, /* address coarse offset (32k) */ T_RANGE, /* range; composite values (0-127/0-127) */ T_CUTOFF, /* initial cutoff */ T_FILTERQ, /* initial resonance */ T_TENPCT, /* effects send */ T_PANPOS, /* panning position */ T_ATTEN, /* initial attenuation */ T_SCALE, /* scale tuning */ T_TIME, /* envelope/LFO time */ T_TM_KEY, /* time change per key */ T_FREQ, /* LFO frequency */ T_PSHIFT, /* env/LFO pitch shift */ T_CSHIFT, /* env/LFO cutoff shift */ T_TREMOLO, /* LFO tremolo shift */ T_MODSUST, /* modulation env sustain level */ T_VOLSUST, /* volume env sustain level */ T_EOT, /* end of type */ }; /* sbk->sf2 convertor function */ typedef int (*SBKConv)(int gen, int amount); /* macros for range operation */ #define RANGE(lo,hi) (((hi)&0xff) << 8 | ((lo)&0xff)) #define LOWNUM(val) ((val) & 0xff) #define HIGHNUM(val) (((val) >> 8) & 0xff) /* layer type definitions */ extern LayerItem layer_items[SF_EOF]; int sbk_to_sf2(int oper, int amount); #endif sfx/include/sflayer.h100644 764 764 6304 6653073475 13670 0ustar stevesteve/*================================================================ * sflayer.h * soundfont generator type definitions *================================================================*/ #ifndef SFLAYER_H_DEF #define SFLAYER_H_DEF enum { SF_startAddrs, /* sample start address -4 (0 to * 0xffffff) */ SF_endAddrs, SF_startloopAddrs, /* loop start address -4 (0 to * 0xffffff) */ SF_endloopAddrs, /* loop end address -3 (0 to * 0xffffff) */ SF_startAddrsHi, /* high word of startAddrs */ SF_lfo1ToPitch, /* main fm: lfo1-> pitch */ SF_lfo2ToPitch, /* aux fm: lfo2-> pitch */ SF_env1ToPitch, /* pitch env: env1(aux)-> pitch */ SF_initialFilterFc, /* initial filter cutoff */ SF_initialFilterQ, /* filter Q */ SF_lfo1ToFilterFc, /* filter modulation: lfo1 -> filter * cutoff */ SF_env1ToFilterFc, /* filter env: env1(aux)-> filter * cutoff */ SF_endAddrsHi, /* high word of endAddrs */ SF_lfo1ToVolume, /* tremolo: lfo1-> volume */ SF_env2ToVolume, /* Env2Depth: env2-> volume */ SF_chorusEffectsSend, /* chorus */ SF_reverbEffectsSend, /* reverb */ SF_panEffectsSend, /* pan */ SF_auxEffectsSend, /* pan auxdata (internal) */ SF_sampleVolume, /* used internally */ SF_unused3, SF_delayLfo1, /* delay 0x8000-n*(725us) */ SF_freqLfo1, /* frequency */ SF_delayLfo2, /* delay 0x8000-n*(725us) */ SF_freqLfo2, /* frequency */ SF_delayEnv1, /* delay 0x8000 - n(725us) */ SF_attackEnv1, /* attack */ SF_holdEnv1, /* hold */ SF_decayEnv1, /* decay */ SF_sustainEnv1, /* sustain */ SF_releaseEnv1, /* release */ SF_autoHoldEnv1, SF_autoDecayEnv1, SF_delayEnv2, /* delay 0x8000 - n(725us) */ SF_attackEnv2, /* attack */ SF_holdEnv2, /* hold */ SF_decayEnv2, /* decay */ SF_sustainEnv2, /* sustain */ SF_releaseEnv2, /* release */ SF_autoHoldEnv2, SF_autoDecayEnv2, SF_instrument, /* */ SF_nop, SF_keyRange, /* */ SF_velRange, /* */ SF_startloopAddrsHi, /* high word of startloopAddrs */ SF_keynum, /* */ SF_velocity, /* */ SF_initAtten, /* */ SF_keyTuning, SF_endloopAddrsHi, /* high word of endloopAddrs */ SF_coarseTune, SF_fineTune, SF_sampleId, SF_sampleFlags, SF_samplePitch, /* SF1 only */ SF_scaleTuning, SF_keyExclusiveClass, SF_rootKey, SF_EOF, }; /* name strings */ extern char *sf_gen_text[SF_EOF]; /*---------------------------------------------------------------- * layer value table *----------------------------------------------------------------*/ typedef struct _LayerTable { short val[SF_EOF]; char set[SF_EOF]; } LayerTable; #endif sfx/include/awe_parm.h100644 764 764 4056 6653073475 14020 0ustar stevesteve/*================================================================ * awe_parm.h -- convert to Emu8000 native parameters * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #ifndef AWE_PARM_H_DEF #define AWE_PARM_H_DEF #ifdef linux #include #else #include #endif void awe_init_parm(awe_voice_parm *pp); void awe_init_voice(awe_voice_info *vp); int awe_timecent_to_msec(int timecent); int awe_msec_to_timecent(int msec); int awe_abscent_to_mHz(int abscents); int awe_mHz_to_abscent(int mHz); int awe_Hz_to_abscent(int Hz); int awe_abscent_to_Hz(int abscents); short awe_calc_rate_offset(int Hz); unsigned short awe_calc_delay(int tcent); unsigned short awe_calc_atkhld(int atk_tcent, int hld_tcent); unsigned char awe_calc_sustain(int sust_cB); unsigned char awe_calc_mod_sustain(int sust_cB); unsigned char awe_calc_decay(int dcy_tcent); unsigned char awe_calc_cutoff(int abscents); unsigned char awe_calc_filterQ(int gain_cB); unsigned char awe_calc_pitch_shift(int cents); unsigned char awe_calc_cutoff_shift(int cents, int octave_shift); unsigned short awe_calc_tremolo(int vol_cB); unsigned char awe_calc_freq(int abscents); char awe_calc_pan(int val); unsigned char awe_calc_chorus(int val); unsigned char awe_calc_reverb(int val); unsigned char awe_calc_attenuation(int att_cB); #endif sfx/include/Imakefile100644 764 764 354 6653073475 13642 0ustar stevesteve#include "../awelib/config.h" INCDIR = /usr/local/include/awe HEADERS = awebank.h aweseq.h awe_parm.h sffile.h itypes.h sfitem.h sflayer.h\ sfopts.h slist.h util.h #ifdef INSTALL_AWELIB InstallMultiple($(HEADERS), $(INCDIR)) #endif sfx/include/Makefile100664 764 764 42742 6653073475 13542 0ustar stevesteve# Makefile generated by imake - do not edit! # $TOG: imake.c /main/97 1997/06/20 20:23:51 kaleb $ # ---------------------------------------------------------------------- # Makefile generated from "Imake.tmpl" and # $TOG: Imake.tmpl /main/245 1997/05/20 10:05:47 kaleb $ # # # # # $XFree86: xc/config/cf/Imake.tmpl,v 3.32.2.8 1998/02/08 11:19:24 dawes Exp $ # ---------------------------------------------------------------------- all:: .SUFFIXES: .i # $TOG: Imake.cf /main/28 1997/06/25 08:31:36 barstow $ # $XFree86: xc/config/cf/Imake.cf,v 3.34.2.3 1997/07/27 02:41:02 dawes Exp $ # ----------------------------------------------------------------------- # site-specific configuration parameters that need to come before # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def /main/revisionist/4 1996/12/31 08:02:07 kaleb $ # site: $XFree86: xc/config/cf/site.def,v 3.17.2.1 1997/06/22 10:32:21 dawes Exp $ # $XFree86: xc/config/cf/xf86site.def,v 3.101.2.15 1998/02/24 19:05:42 hohndel Exp $ # ---------------------------------------------------------------------- # platform-specific configuration parameters - edit linux.cf to change # platform: $TOG: linux.cf /main/36 1997/06/16 22:21:03 kaleb $ # platform: $XFree86: xc/config/cf/linux.cf,v 3.57.2.12 1998/03/01 01:57:10 dawes Exp $ # operating system: Linux 2.0.34 i686 [ELF] (2.0.34) # libc: (6.0.7) # binutils: (29) # $XConsortium: lnxLib.rules /main/13 1996/09/28 16:11:01 rws $ # $XFree86: xc/config/cf/lnxLib.rules,v 3.28.2.3 1997/06/22 10:32:20 dawes Exp $ # $XFree86: xc/config/cf/xfree86.cf,v 3.129.2.22 1998/02/24 19:05:43 hohndel Exp $ # $XConsortium: xfree86.cf /main/34 1996/12/06 11:45:18 rws $ LINKKITDIR = $(USRLIBDIR)/Server XF98LINKKITDIR = $(USRLIBDIR)/Server XF86SRC = $(SERVERSRC)/hw/xfree86 XF86ACCELSRC = $(XF86SRC)/accel XF86COMSRC = $(XF86SRC)/common XF86CONFIGSRC = $(XF86COMSRC) XF86HWSRC = $(XF86SRC)/common_hw XF86OSSRC = $(XF86SRC)/os-support VGADRIVERSRC = $(XF86SRC)/vga256/drivers VGA16DRIVERSRC = $(XF86SRC)/vga16/drivers VGA2DRIVERSRC = $(XF86SRC)/vga2/drivers MONODRIVERSRC = $(XF86SRC)/mono/drivers S3DRIVERSRC = $(XF86SRC)/accel/s3/drivers S3VDRIVERSRC = $(XF86SRC)/accel/s3_virge/drivers XF68SRC = $(SERVERSRC)/hw/xfree68 XF68COMSRC = $(XF68SRC)/common XF68CONFIGSRC = $(XF68COMSRC) XF68OSSRC = $(XF68SRC)/os-support XF98SRC = $(SERVERSRC)/hw/xfree98 XF98ACCELSRC = $(XF98SRC)/accel XF98COMSRC = $(XF98SRC)/common XF98CONFIGSRC = $(XF98COMSRC) XF98HWSRC = $(XF98SRC)/common_hw/generic XF98HWNECSRC = $(XF98SRC)/common_hw/nec XF98HWPWSKBSRC = $(XF98SRC)/common_hw/pwskb XF98HWPWLBSRC = $(XF98SRC)/common_hw/pwlb XF98HWGA968SRC = $(XF98SRC)/common_hw/ga968 XF98OSSRC = $(XF98SRC)/os-support XF98VGADRIVERSRC = $(XF98SRC)/vga256/drivers XF98VGA16DRIVERSRC = $(XF98SRC)/vga16/drivers XF98VGA2DRIVERSRC = $(XF98SRC)/vga2/drivers XF98MONODRIVERSRC = $(XF98SRC)/mono/drivers XF98NECS3DRIVERSRC = $(XF98SRC)/accel/s3nec/drivers XF98PWSKBDRIVERSRC = $(XF98SRC)/accel/s3pwskb/drivers XF98PWLBDRIVERSRC = $(XF98SRC)/accel/s3pwlb/drivers XF98GA968DRIVERSRC = $(XF98SRC)/accel/s3ga968/drivers XFREE86DOCDIR = $(LIBDIR)/doc XFREE86PSDOCDIR = $(XFREE86DOCDIR)/PostScript XFREE86HTMLDOCDIR = $(XFREE86DOCDIR)/html XFREE86JAPANESEDOCDIR = $(XFREE86DOCDIR)/Japanese # $XConsortium: xf86.rules /main/9 1996/10/31 14:54:26 kaleb $ # $XFree86: xc/config/cf/xf86.rules,v 3.16.2.1 1997/05/18 12:00:01 dawes Exp $ # ---------------------------------------------------------------------- # site-specific configuration parameters that go after # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def /main/revisionist/4 1996/12/31 08:02:07 kaleb $ # site: $XFree86: xc/config/cf/site.def,v 3.17.2.1 1997/06/22 10:32:21 dawes Exp $ # --------------------------------------------------------------------- # Imake rules for building libraries, programs, scripts, and data files # rules: $TOG: Imake.rules /main/222 1997/07/17 20:04:40 kaleb $ # rules: $XFree86: xc/config/cf/Imake.rules,v 3.33.2.7 1998/02/06 09:02:17 dawes Exp $ _NULLCMD_ = @ echo -n TKLIBNAME = TKLIBDIR = TCLLIBNAME = TCLIBDIR = PATHSEP = / SHELL = /bin/sh TOP = .. CURRENT_DIR = include IMAKE = imake DEPEND = gccmakedep MKDIRHIER = mkdir -p EXPORTLISTGEN = CONFIGSRC = $(TOP)/config IMAKESRC = $(CONFIGSRC)/imake DEPENDSRC = $(CONFIGSRC)/util INCROOT = /usr/X11R6/include USRLIBDIR = /usr/X11R6/lib VARLIBDIR = /var/lib SHLIBDIR = /usr/X11R6/lib LINTLIBDIR = $(USRLIBDIR)/lint MANPATH = /usr/X11R6/man MANSOURCEPATH = $(MANPATH)/man MANDIR = $(MANSOURCEPATH)1 LIBMANDIR = $(MANSOURCEPATH)3 FILEMANDIR = $(MANSOURCEPATH)5 AR = ar clq BOOTSTRAPCFLAGS = CC = gcc AS = as .SUFFIXES: .cc CXX = c++ CXXFILT = c++filt CXXLIB = CXXDEBUGFLAGS = -O2 -fno-strength-reduce CXXDEPENDINCLUDES = CXXEXTRA_DEFINES = CXXEXTRA_INCLUDES = CXXSTD_DEFINES = -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(CXXPROJECT_DEFINES) CXXOPTIONS = CXXINCLUDES = $(INCLUDES) $(TOP_INCLUDES) $(CXXEXTRA_INCLUDES) CXXDEFINES = $(CXXINCLUDES) $(CXXSTD_DEFINES) $(THREADS_CXXDEFINES) $(CXXEXTRA_DEFINES) $(DEFINES) CXXFLAGS = $(CXXDEBUGFLAGS) $(CXXOPTIONS) $(THREADS_CXXFLAGS) $(CXXDEFINES) COMPRESS = compress GZIPCMD = gzip CPP = /lib/cpp $(STD_CPP_DEFINES) PREPROCESSCMD = gcc -E $(STD_CPP_DEFINES) INSTALL = install INSTALLFLAGS = -c LD = ld LEX = flex -l LEXLIB = -lfl YACC = bison -y CCYACC = bison -y LINT = lint LINTLIBFLAG = -C LINTOPTS = -axz LN = ln -s MAKE = make MV = mv -f CP = cp RANLIB = ranlib RANLIBINSTFLAGS = RM = rm -f MANSUFFIX = 1x LIBMANSUFFIX = 3x FILEMANSUFFIX = 5x TROFF = psroff NROFF = nroff MSMACROS = -ms MANMACROS = -man TBL = tbl EQN = eqn NEQN = neqn COL = col DVIPS = dvips LATEX = latex STD_INCLUDES = STD_CPP_DEFINES = -traditional -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(PROJECT_DEFINES) STD_DEFINES = -Dlinux -D__i386__ -D_POSIX_C_SOURCE=199309L -D_POSIX_SOURCE -D_XOPEN_SOURCE=500L -D_BSD_SOURCE -D_SVID_SOURCE $(PROJECT_DEFINES) EXTRA_LOAD_FLAGS = EXTRA_LDOPTIONS = EXTRA_LIBRARIES = TAGS = ctags PARALLELMFLAGS = SHAREDCODEDEF = SHLIBDEF = SHLIBLDFLAGS = -shared PICFLAGS = -fPIC CXXPICFLAGS = -fPIC PROTO_DEFINES = -DFUNCPROTO=15 -DNARROWPROTO INSTPGMFLAGS = -s INSTBINFLAGS = -m 0755 INSTUIDFLAGS = -m 4711 INSTLIBFLAGS = -m 0644 INSTINCFLAGS = -m 0444 INSTMANFLAGS = -m 0444 INSTDATFLAGS = -m 0444 INSTKMEMFLAGS = -m 4711 PROJECTROOT = /usr/X11R6 CDEBUGFLAGS = -O2 -fno-strength-reduce CCOPTIONS = ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES) ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(THREADS_DEFINES) $(DEFINES) CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(THREADS_CFLAGS) $(ALLDEFINES) LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) $(DEPEND_DEFINES) LDPRELIB = -L$(USRLIBDIR) LDPOSTLIB = LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(EXTRA_LDOPTIONS) $(THREADS_LDFLAGS) $(LOCAL_LDFLAGS) $(LDPRELIBS) CXXLDOPTIONS = $(CXXDEBUGFLAGS) $(CXXOPTIONS) $(EXTRA_LDOPTIONS) $(THREADS_CXXLDFLAGS) $(LOCAL_LDFLAGS) $(LDPRELIBS) LDLIBS = $(LDPOSTLIBS) $(THREADS_LIBS) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) CCLINK = $(CC) CXXLINK = $(CXX) LDSTRIPFLAGS = -x LDCOMBINEFLAGS = -r DEPENDFLAGS = # Not sure this belongs here TKLIBDIR = TKINCDIR = TKLIBNAME = TKLIBRARY = -L$(TKLIBDIR) -l$(TKLIBNAME) TCLLIBDIR = TCLINCDIR = TCLLIBNAME = TCLLIBRARY = -L$(TCLLIBDIR) -l$(TCLLIBNAME) MACROFILE = linux.cf RM_CMD = $(RM) IMAKE_DEFINES = IRULESRC = $(CONFIGDIR) IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES) ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/X11.tmpl $(IRULESRC)/site.def $(IRULESRC)/$(MACROFILE) $(IRULESRC)/xfree86.cf $(IRULESRC)/xf86.rules $(IRULESRC)/xf86site.def $(IRULESRC)/host.def $(EXTRA_ICONFIGFILES) # $TOG: X11.rules /main/4 1997/04/30 15:23:24 kaleb $ # ---------------------------------------------------------------------- # X Window System Build Parameters and Rules # $TOG: X11.tmpl /main/292 1997/05/20 10:05:59 kaleb $ # # # # # $XFree86: xc/config/cf/X11.tmpl,v 1.8.2.4 1998/01/23 12:35:08 dawes Exp $ # ----------------------------------------------------------------------- # X Window System make variables; these need to be coordinated with rules XTOP = $(TOP) BINDIR = /usr/X11R6/bin BUILDINCROOT = $(TOP)/exports BUILDINCDIR = $(BUILDINCROOT)/include BUILDINCTOP = ../.. BUILDLIBDIR = $(TOP)/exports/lib BUILDLIBTOP = ../.. BUILDBINDIR = $(TOP)/exports/bin BUILDBINTOP = ../.. XBUILDINCROOT = $(XTOP)/exports XBUILDINCDIR = $(XBUILDINCROOT)/include/X11 XBUILDINCTOP = ../../.. XBUILDBINDIR = $(XBUILDINCROOT)/bin INCDIR = $(INCROOT) ADMDIR = /usr/adm LIBDIR = $(USRLIBDIR)/X11 TOP_X_INCLUDES = -I$(XPROJECTROOT)/include VARDIR = /var/X11 FONTDIR = $(LIBDIR)/fonts XINITDIR = $(LIBDIR)/xinit XDMDIR = $(LIBDIR)/xdm XDMVARDIR = $(VARLIBDIR)/xdm TWMDIR = $(LIBDIR)/twm XSMDIR = $(LIBDIR)/xsm NLSDIR = $(LIBDIR)/nls XLOCALEDIR = $(LIBDIR)/locale PEXAPIDIR = $(LIBDIR)/PEX LBXPROXYDIR = $(LIBDIR)/lbxproxy PROXYMANAGERDIR = $(LIBDIR)/proxymngr XPRINTDIR = $(LIBDIR) XAPPLOADDIR = $(LIBDIR)/app-defaults FONTCFLAGS = -t INSTAPPFLAGS = $(INSTDATFLAGS) RGB = rgb FONTC = bdftopcf MKFONTDIR = mkfontdir DOCUTILSRC = $(XTOP)/doc/util CLIENTSRC = $(TOP)/clients DEMOSRC = $(TOP)/demos XDOCMACROS = $(DOCUTILSRC)/macros.t XIDXMACROS = $(DOCUTILSRC)/indexmacros.t PROGRAMSRC = $(TOP)/programs LIBSRC = $(XTOP)/lib FONTSRC = $(XTOP)/fonts INCLUDESRC = $(BUILDINCROOT)/include XINCLUDESRC = $(INCLUDESRC)/X11 SERVERSRC = $(XTOP)/programs/Xserver CONTRIBSRC = $(XTOP)/../contrib UNSUPPORTEDSRC = $(XTOP)/unsupported DOCSRC = $(XTOP)/doc RGBSRC = $(XTOP)/programs/rgb BDFTOPCFSRC = $(PROGRAMSRC)/bdftopcf MKFONTDIRSRC = $(PROGRAMSRC)/mkfontdir FONTSERVERSRC = $(PROGRAMSRC)/xfs FONTINCSRC = $(XTOP)/include/fonts EXTINCSRC = $(XTOP)/include/extensions TRANSCOMMSRC = $(LIBSRC)/xtrans TRANS_INCLUDES = -I$(TRANSCOMMSRC) XENVLIBDIR = $(USRLIBDIR) CLIENTENVSETUP = LD_LIBRARY_PATH=$(XENVLIBDIR) # $XConsortium: lnxLib.tmpl,v 1.5 95/01/11 21:44:44 kaleb Exp $ # $XFree86: xc/config/cf/lnxLib.tmpl,v 3.9 1996/02/24 04:32:52 dawes Exp $ XLIBSRC = $(LIBSRC)/X11 SOXLIBREV = 6.1 DEPXONLYLIB = XONLYLIB = -lX11 LINTXONLY = $(LINTLIBDIR)/llib-lX11.ln XLIBONLY = $(XONLYLIB) XEXTLIBSRC = $(LIBSRC)/Xext SOXEXTREV = 6.3 DEPEXTENSIONLIB = EXTENSIONLIB = -lXext LINTEXTENSION = $(LINTLIBDIR)/llib-lXext.ln LINTEXTENSIONLIB = $(LINTEXTENSION) DEPXLIB = $(DEPEXTENSIONLIB) $(DEPXONLYLIB) XLIB = $(EXTENSIONLIB) $(XONLYLIB) LINTXLIB = $(LINTXONLYLIB) XSSLIBSRC = $(LIBSRC)/Xss DEPXSSLIB = $(USRLIBDIR)/libXss.a XSSLIB = -lXss LINTXSS = $(LINTLIBDIR)/llib-lXss.ln XXF86MISCLIBSRC = $(LIBSRC)/Xxf86misc DEPXXF86MISCLIB = $(USRLIBDIR)/libXxf86misc.a XXF86MISCLIB = -lXxf86misc LINTXXF86MISC = $(LINTLIBDIR)/llib-lXxf86misc.ln XXF86VMLIBSRC = $(LIBSRC)/Xxf86vm DEPXXF86VMLIB = $(USRLIBDIR)/libXxf86vm.a XXF86VMLIB = -lXxf86vm LINTXXF86VM = $(LINTLIBDIR)/llib-lXxf86vm.ln XXF86DGALIBSRC = $(LIBSRC)/Xxf86dga DEPXXF86DGALIB = $(USRLIBDIR)/libXxf86dga.a XXF86DGALIB = -lXxf86dga LINTXXF86DGA = $(LINTLIBDIR)/llib-lXxf86dga.ln XDPMSLIBSRC = $(LIBSRC)/Xdpms DEPXDPMSLIB = $(USRLIBDIR)/libXdpms.a XDPMSLIB = -lXdpms LINTXDPMS = $(LINTLIBDIR)/llib-lXdpms.ln XAUTHSRC = $(LIBSRC)/Xau DEPXAUTHLIB = $(USRLIBDIR)/libXau.a XAUTHLIB = -lXau LINTXAUTH = $(LINTLIBDIR)/llib-lXau.ln XDMCPLIBSRC = $(LIBSRC)/Xdmcp DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a XDMCPLIB = -lXdmcp LINTXDMCP = $(LINTLIBDIR)/llib-lXdmcp.ln XMUSRC = $(LIBSRC)/Xmu SOXMUREV = 6.0 DEPXMULIB = XMULIB = -lXmu LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln OLDXLIBSRC = $(LIBSRC)/oldX DEPOLDXLIB = $(USRLIBDIR)/liboldX.a OLDXLIB = -loldX LINTOLDX = $(LINTLIBDIR)/llib-loldX.ln XPLIBSRC = $(LIBSRC)/Xp SOXPREV = 6.2 DEPXPLIB = XPLIB = -lXp LINTXP = $(LINTLIBDIR)/llib-lXp.ln TOOLKITSRC = $(LIBSRC)/Xt SOXTREV = 6.0 DEPXTOOLONLYLIB = XTOOLONLYLIB = -lXt LINTXTOOLONLY = $(LINTLIBDIR)/llib-lXt.ln DEPXTOOLLIB = $(DEPXTOOLONLYLIB) $(DEPSMLIB) $(DEPICELIB) XTOOLLIB = $(XTOOLONLYLIB) $(SMLIB) $(ICELIB) LINTXTOOLLIB = $(LINTXTOOLONLYLIB) XALIBSRC = $(LIBSRC)/Xa SOXAREV = 1.0 DEPXALIB = XALIB = -lXa LINTXA = $(LINTLIBDIR)/llib-lXa.ln AWIDGETSRC = $(LIBSRC)/Xaw SOXAWREV = 6.1 DEPXAWLIB = XAWLIB = -lXaw LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln XILIBSRC = $(LIBSRC)/Xi SOXINPUTREV = 6.0 DEPXILIB = XILIB = -lXi LINTXI = $(LINTLIBDIR)/llib-lXi.ln XTESTLIBSRC = $(LIBSRC)/Xtst SOXTESTREV = 6.1 DEPXTESTLIB = XTESTLIB = -lXtst LINTXTEST = $(LINTLIBDIR)/llib-lXtst.ln PEXLIBSRC = $(LIBSRC)/PEX5 SOPEXREV = 6.0 DEPPEXLIB = PEXLIB = -lPEX5 LINTPEX = $(LINTLIBDIR)/llib-lPEX5.ln XIELIBSRC = $(LIBSRC)/XIE SOXIEREV = 6.0 DEPXIELIB = XIELIB = -lXIE LINTXIE = $(LINTLIBDIR)/llib-lXIE.ln PHIGSLIBSRC = $(LIBSRC)/PHIGS DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a PHIGSLIB = -lphigs LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a XBSDLIB = -lXbsd LINTXBSD = $(LINTLIBDIR)/llib-lXbsd.ln ICESRC = $(LIBSRC)/ICE SOICEREV = 6.3 DEPICELIB = ICELIB = -lICE LINTICE = $(LINTLIBDIR)/llib-lICE.ln SMSRC = $(LIBSRC)/SM SOSMREV = 6.0 DEPSMLIB = SMLIB = -lSM LINTSM = $(LINTLIBDIR)/llib-lSM.ln XKEYSRC = $(LIBSRC)/Xkey SOXKEYREV = 6.0 DEPXKEYLIB = XKEYLIB = -lXkey LINTXKEY = $(LINTLIBDIR)/llib-lXkey.ln FSLIBSRC = $(LIBSRC)/FS DEPFSLIB = $(USRLIBDIR)/libFS.a FSLIB = -lFS LINTFS = $(LINTLIBDIR)/llib-lFS.ln FONTLIBSRC = $(LIBSRC)/font DEPFONTLIB = $(USRLIBDIR)/libfont.a FONTLIB = -lfont LINTFONT = $(LINTLIBDIR)/llib-lfont.ln XPMLIBSRC = $(LIBSRC)/Xpm DEPXPMLIB = $(USRLIBDIR)/libXpm.a XPMLIB = -lXpm LINTXPM = $(LINTLIBDIR)/llib-lXpm.ln XKBFILELIBSRC = $(LIBSRC)/xkbfile DEPXKBFILELIB = $(USRLIBDIR)/libxkbfile.a XKBFILELIB = -lxkbfile LINTXKBFILE = $(LINTLIBDIR)/llib-lxkbfile.ln XKBCOMPCMD = xkbcomp XKBUILIBSRC = $(LIBSRC)/xkbui DEPXKBUILIB = $(USRLIBDIR)/libxkbui.a XKBUILIB = -lxkbui LINTXKBUI = $(LINTLIBDIR)/llib-lxkbui.ln DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) DEPLIBS1 = $(DEPLIBS) DEPLIBS2 = $(DEPLIBS) DEPLIBS3 = $(DEPLIBS) DEPLIBS4 = $(DEPLIBS) DEPLIBS5 = $(DEPLIBS) DEPLIBS6 = $(DEPLIBS) DEPLIBS7 = $(DEPLIBS) DEPLIBS8 = $(DEPLIBS) DEPLIBS9 = $(DEPLIBS) DEPLIBS10 = $(DEPLIBS) XMULIBONLY = -lXmu XMULIB = $(XMULIBONLY) $(XTOOLLIB) $(XLIB) CONFIGDIR = $(LIBDIR)/config USRLIBDIRPATH = $(USRLIBDIR) LDPRELIBS = -L$(USRLIBDIR) LDPOSTLIBS = TOP_INCLUDES = -I$(INCROOT) $(TOP_X_INCLUDES) PROJECT_DEFINES = CXXPROJECT_DEFINES = # ---------------------------------------------------------------------- # start of Imakefile INCDIR = /usr/local/include/awe HEADERS = awebank.h aweseq.h awe_parm.h sffile.h itypes.h sfitem.h sflayer.h sfopts.h slist.h util.h # ---------------------------------------------------------------------- # common rules for all Makefiles - do not edit .c.i: $(RM) $@ $(CC) -E $(CFLAGS) $(_NOOP_) $*.c > $@ emptyrule:: clean:: $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut "#"* Makefile:: -@if [ -f Makefile ]; then set -x; \ $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ else exit 0; fi $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR) tags:: $(TAGS) -w *.[ch] $(TAGS) -xw *.[ch] > TAGS man_keywords:: # ---------------------------------------------------------------------- # empty rules for directories that do not have SUBDIRS - do not edit install:: @echo "install in $(CURRENT_DIR) done" install.man:: @echo "install.man in $(CURRENT_DIR) done" install.linkkit:: @echo "install.linkkit in $(CURRENT_DIR) done" Makefiles:: includes:: depend:: # ---------------------------------------------------------------------- # dependencies generated by makedepend sfx/seq.c100644 764 764 4652 6737715467 11376 0ustar stevesteve/*================================================================ * seq.c * sequencer control routine for awe sound driver * written by Takashi Iwai *================================================================*/ #include #include #include #include #include #include #ifdef __FreeBSD__ # include # include #elif defined(linux) # include # include #endif #include "util.h" #include "seq.h" SEQ_DEFINEBUF(128); int seqfd; void seqbuf_dump() { if (_seqbufptr) if (write(seqfd, _seqbuf, _seqbufptr) == -1) { perror("write " SEQUENCER_DEV); exit(-1); } _seqbufptr = 0; } #define MAX_CARDS 16 int nrsynths; struct synth_info card_info[MAX_CARDS]; int awe_dev; int max_synth_voices; void seq_init(void) { int i; if ((seqfd = open(SEQUENCER_DEV, O_WRONLY, 0)) < 0) { perror("open " SEQUENCER_DEV); exit(1); } #if 0 if (ioctl(seqfd, SNDCTL_SEQ_NRSYNTHS, &nrsynths) == -1) { fprintf(stderr, "there is no soundcard\n"); exit(1); } awe_dev = -1; for (i = 0; i < nrsynths; i++) { card_info[i].device = i; if (ioctl(seqfd, SNDCTL_SYNTH_INFO, &card_info[i]) == -1) { fprintf(stderr, "cannot get info on soundcard\n"); perror(SEQUENCER_DEV); exit(1); } card_info[i].device = i; if (card_info[i].synth_type == SYNTH_TYPE_SAMPLE && card_info[i].synth_subtype == SAMPLE_TYPE_AWE32) awe_dev = i; } if (awe_dev < 0) { fprintf(stderr, "No AWE synth device is found\n"); exit(1); } max_synth_voices = card_info[awe_dev].nr_voices; #endif max_synth_voices = 32; } void seq_reset_samples(void) { if (ioctl(seqfd, SNDCTL_SEQ_RESETSAMPLES, &awe_dev) == -1) { #if 0 exit(1); #endif } } void seq_end(void) { SEQ_DUMPBUF(); ioctl(seqfd, SNDCTL_SEQ_SYNC); close(seqfd); } void seq_remove_samples(void) { AWE_REMOVE_LAST_SAMPLES(seqfd, awe_dev); } void seq_default_atten(int val) { AWE_MISC_MODE(awe_dev, AWE_MD_ZERO_ATTEN, val); SEQ_DUMPBUF(); } void seq_set_gus_bank(int bank) { AWE_SET_GUS_BANK(awe_dev, bank); SEQ_DUMPBUF(); } int seq_load_patch(void *patch, int len) { awe_patch_info *p; SEQ_DUMPBUF(); p = (awe_patch_info*)patch; p->key = AWE_PATCH; p->device_no = awe_dev; p->sf_id = 0; return write(seqfd, patch, len); } int seq_mem_avail(void) { int mem_avail = awe_dev; ioctl(seqfd, SNDCTL_SYNTH_MEMAVL, &mem_avail); return mem_avail; } sfx/seq.h100644 764 764 1160 6653073627 11362 0ustar stevesteve/*================================================================ * seq.h * sequencer control routine *================================================================*/ #ifndef SEQ_H_DEF #define SEQ_H_DEF extern int seqfd; extern int nrsynths; extern int awe_dev; extern int max_synth_voices; #define SEQUENCER_DEV "/proc/asound/0/patch0" void seq_init(void); void seq_reset_samples(void); void seq_end(void); void seq_default_atten(int val); void seq_remove_samples(void); void seq_initialize_chip(void); void seq_set_gus_bank(int bank); int seq_load_patch(void *patch, int len); int seq_mem_avail(void); #endif sfx/setfx.c100644 764 764 26056 6653073475 11752 0ustar stevesteve/*================================================================ * setfx -- load user defined chorus / reverb mode effects * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include #include #include #ifdef __FreeBSD__ # include # include #elif defined(linux) # include # include #endif #include "util.h" #include "seq.h" #include "aweseq.h" /*----------------------------------------------------------------*/ static void usage(void); static int getline(FILE *fp); static int nextline(FILE *fp); static char *gettok(FILE *fp); static char *divtok(char *src, char *divs, int only_one); static int htoi(char *p); static void read_chorus(int mode, char *name, int incl, FILE *fp); static void read_reverb(int mode, char *name, int incl, FILE *fp); /*----------------------------------------------------------------*/ static char chorus_defined[AWE_CHORUS_NUMBERS] = {1,1,1,1,1,1,1,1,}; static char reverb_defined[AWE_CHORUS_NUMBERS] = {1,1,1,1,1,1,1,1,}; char *progname; int verbose = 0; /* file buffer */ static int curline; static char line[1024]; static int connected; /*----------------------------------------------------------------*/ static void usage(void) { fprintf(stderr, "setfx -- load user defined chorus / reverb mode effects\n"); fprintf(stderr, " version 0.4.2 copyright (c) 1996,1997 by Takashi Iwai\n"); fprintf(stderr, "usage: setfx config-file\n"); #ifdef DEFAULT_SF_PATH fprintf(stderr, " system default path is %s\n", DEFAULT_SF_PATH); #endif exit(1); } void main(int argc, char **argv) { char *default_sf_path; char sfname[500]; FILE *fp; /* set program name */ progname = strrchr(argv[0], '/'); if (progname == NULL) progname = argv[0]; else progname++; if (argc < 2) { usage(); exit(0); } /* search the config file */ default_sf_path = getenv("SFBANKDIR"); #ifdef DEFAULT_SF_PATH if (default_sf_path == NULL || *default_sf_path == 0) default_sf_path = safe_strdup(DEFAULT_SF_PATH); #endif if (! search_file_name(sfname, argv[1], default_sf_path, NULL)) { fprintf(stderr, "%s: can't find such a file %s\n", progname, argv[1]); exit(1); } if ((fp = fopen(sfname, "r")) == NULL) { fprintf(stderr, "%s: can't open %s\n", progname, sfname); exit(1); } curline = 0; if (!getline(fp)) exit(0); seq_init(); do { int chorus, mode, incl; char *tok, *name; /* chorus/reverb header */ tok = divtok(line, ":", TRUE); if (*tok == 'c' || *tok == 'C') chorus = 1; else if (*tok == 'r' || *tok == 'R') chorus = 0; else continue; /* mode index */ tok = divtok(NULL, ":", TRUE); if (tok == NULL || *tok == 0) { fprintf(stderr, "%s: illegal line %d\n", progname, curline); continue; } mode = atoi(tok); if (mode < 8 || mode >= 32) { fprintf(stderr, "%s: illegal mode %d in line %d\n", progname, mode, curline); continue; } /* name of the mode */ name = divtok(NULL, ":", TRUE); if (name == NULL || *name == 0) { fprintf(stderr, "%s: illegal line %d\n", progname, curline); continue; } /* include mode index */ tok = divtok(NULL, ":", TRUE); if (tok == NULL) { fprintf(stderr, "%s: illegal line %d\n", progname, curline); continue; } if (*tok) { incl = atoi(tok); if (incl < 0 || incl >= 31 || (chorus && !chorus_defined[incl]) || (!chorus && !reverb_defined[incl])) { fprintf(stderr, "%s: illegal include %d in line %d\n", progname, incl, curline); continue; } } else incl = -1; /* parse parameters */ if (chorus) read_chorus(mode, name, incl, fp); else read_reverb(mode, name, incl, fp); } while (nextline(fp)); fclose(fp); seq_end(); exit(0); } /*---------------------------------------------------------------- * pre-defined chorus and reverb modes *----------------------------------------------------------------*/ static awe_chorus_fx_rec chorus_parm[AWE_CHORUS_NUMBERS] = { {0xE600, 0x03F6, 0xBC2C ,0x00000000, 0x0000006D}, /* chorus 1 */ {0xE608, 0x031A, 0xBC6E, 0x00000000, 0x0000017C}, /* chorus 2 */ {0xE610, 0x031A, 0xBC84, 0x00000000, 0x00000083}, /* chorus 3 */ {0xE620, 0x0269, 0xBC6E, 0x00000000, 0x0000017C}, /* chorus 4 */ {0xE680, 0x04D3, 0xBCA6, 0x00000000, 0x0000005B}, /* feedback */ {0xE6E0, 0x044E, 0xBC37, 0x00000000, 0x00000026}, /* flanger */ {0xE600, 0x0B06, 0xBC00, 0x0000E000, 0x00000083}, /* short delay */ {0xE6C0, 0x0B06, 0xBC00, 0x0000E000, 0x00000083}, /* short delay + feedback */ }; static awe_reverb_fx_rec reverb_parm[AWE_REVERB_NUMBERS] = { {{ /* room 1 */ 0xB488, 0xA450, 0x9550, 0x84B5, 0x383A, 0x3EB5, 0x72F4, 0x72A4, 0x7254, 0x7204, 0x7204, 0x7204, 0x4416, 0x4516, 0xA490, 0xA590, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429, 0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528, }}, {{ /* room 2 */ 0xB488, 0xA458, 0x9558, 0x84B5, 0x383A, 0x3EB5, 0x7284, 0x7254, 0x7224, 0x7224, 0x7254, 0x7284, 0x4448, 0x4548, 0xA440, 0xA540, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429, 0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528, }}, {{ /* room 3 */ 0xB488, 0xA460, 0x9560, 0x84B5, 0x383A, 0x3EB5, 0x7284, 0x7254, 0x7224, 0x7224, 0x7254, 0x7284, 0x4416, 0x4516, 0xA490, 0xA590, 0x842C, 0x852C, 0x842C, 0x852C, 0x842B, 0x852B, 0x842B, 0x852B, 0x842A, 0x852A, 0x842A, 0x852A, }}, {{ /* hall 1 */ 0xB488, 0xA470, 0x9570, 0x84B5, 0x383A, 0x3EB5, 0x7284, 0x7254, 0x7224, 0x7224, 0x7254, 0x7284, 0x4448, 0x4548, 0xA440, 0xA540, 0x842B, 0x852B, 0x842B, 0x852B, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429, 0x8529, 0x8429, 0x8529, }}, {{ /* hall 2 */ 0xB488, 0xA470, 0x9570, 0x84B5, 0x383A, 0x3EB5, 0x7254, 0x7234, 0x7224, 0x7254, 0x7264, 0x7294, 0x44C3, 0x45C3, 0xA404, 0xA504, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429, 0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528, }}, {{ /* plate */ 0xB4FF, 0xA470, 0x9570, 0x84B5, 0x383A, 0x3EB5, 0x7234, 0x7234, 0x7234, 0x7234, 0x7234, 0x7234, 0x4448, 0x4548, 0xA440, 0xA540, 0x842A, 0x852A, 0x842A, 0x852A, 0x8429, 0x8529, 0x8429, 0x8529, 0x8428, 0x8528, 0x8428, 0x8528, }}, {{ /* delay */ 0xB4FF, 0xA470, 0x9500, 0x84B5, 0x333A, 0x39B5, 0x7204, 0x7204, 0x7204, 0x7204, 0x7204, 0x72F4, 0x4400, 0x4500, 0xA4FF, 0xA5FF, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, }}, {{ /* panning delay */ 0xB4FF, 0xA490, 0x9590, 0x8474, 0x333A, 0x39B5, 0x7204, 0x7204, 0x7204, 0x7204, 0x7204, 0x72F4, 0x4400, 0x4500, 0xA4FF, 0xA5FF, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, 0x8420, 0x8520, }}, }; /*---------------------------------------------------------------- * read reverb definition *----------------------------------------------------------------*/ static void read_reverb(int mode, char *name, int incl, FILE *fp) { char *p; int i, val; struct reverb_pat { awe_patch_info patch; awe_reverb_fx_rec v; } r; if (incl >= 0) { /* include from pre-defined mode */ reverb_parm[mode] = reverb_parm[incl]; while ((p = gettok(fp)) != NULL) { int src; char *q; for (q = p; *q; q++) { if (*q == '=') { *q++ = 0; break; } } if (!*q) { fprintf(stderr, "%s: illegal reverb definition: %s\n", progname, name); return; } src = atoi(p); val = htoi(q); if (src < 0 || src >= 28) { fprintf(stderr, "%s: illegal reverb parm: %s\n", progname, name); return; } reverb_parm[mode].parms[src] = val; } } else { /* define all 28 parameters */ for (i = 0; i < 28; i++) { if ((p = gettok(fp)) == NULL) { fprintf(stderr, "%s: too short reverb definition: %s\n", progname, name); return; } val = htoi(p); reverb_parm[mode].parms[i] = val; } } r.patch.optarg = mode; r.patch.len = sizeof(awe_reverb_fx_rec); r.patch.type = AWE_LOAD_REVERB_FX; r.v = reverb_parm[mode]; seq_load_patch(&r, sizeof(r)); reverb_defined[mode] = 1; } /*---------------------------------------------------------------- * read chorus definition *----------------------------------------------------------------*/ static void read_chorus(int mode, char *name, int incl, FILE *fp) { char *p; int i, val; struct chorus_pat { awe_patch_info patch; awe_chorus_fx_rec v; } c; /* define all five parameters */ for (i = 0; i < 5; i++) { if ((p = gettok(fp)) == NULL) { fprintf(stderr, "%s: illegal chorus definition: %s\n", progname, name); return; } val = htoi(p); switch (i) { case 0: chorus_parm[mode].feedback = val; break; case 1: chorus_parm[mode].delay_offset = val; break; case 2: chorus_parm[mode].lfo_depth = val; break; case 3: chorus_parm[mode].delay = val; break; case 4: chorus_parm[mode].lfo_freq = val; break; } } c.patch.optarg = mode; c.patch.len = sizeof(awe_chorus_fx_rec); c.patch.type = AWE_LOAD_CHORUS_FX; c.v = chorus_parm[mode]; seq_load_patch(&c, sizeof(c)); chorus_defined[mode] = 1; } /*---------------------------------------------------------------- * read a line and parse tokens *----------------------------------------------------------------*/ static int getline(FILE *fp) { char *p; curline++; connected = FALSE; if (fgets(line, sizeof(line), fp) == NULL) return FALSE; /* strip the linefeed and backslash at the tail */ for (p = line; *p && *p != '\n'; p++) { if (*p == '\\' && p[1] == '\n') { *p = 0; connected = TRUE; break; } } *p = 0; return TRUE; } static int nextline(FILE *fp) { if (connected) { do { if (! getline(fp)) return FALSE; } while (connected); return TRUE; } else { return getline(fp); } } /* hex to integer */ static int htoi(char *p) { return strtol(p, NULL, 16); } /* get a token separated by spaces */ static char *gettok(FILE *fp) { char *tok; tok = divtok(NULL, " \t\r\n", FALSE); while (tok == NULL || *tok == 0) { if (! connected) return NULL; if (! getline(fp)) return NULL; tok = divtok(line, " \t\r\n", FALSE); } return tok; } /* divide a token with specified terminators; * this behaves just like strtok. if only_one is TRUE, divtok checks only * one letter as a divider. */ static char *divtok(char *src, char *divs, int only_one) { static char *lastp = NULL; char *tok; if (src) lastp = src; if (!only_one) { for (; *lastp && strchr(divs, *lastp); lastp++) ; } tok = lastp; for (; *lastp && !strchr(divs, *lastp); lastp++) ; if (lastp) *lastp++ = 0; return tok; } sfx/sf2text.c100644 764 764 12763 6653073475 12220 0ustar stevesteve/*================================================================ * sf2text -- print soundfont layer information * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include "sffile.h" #include "sfitem.h" #include "sflayer.h" #include "awe_parm.h" #include "util.h" int seqfd, awe_dev; static SFInfo sfinfo; void print_soundfont(FILE *fp, SFInfo *sf); static void print_name(FILE *fp, char *str); static void print_layers(FILE *fp, SFInfo *sf, SFHeader *hdr); static void print_amount(FILE *fp, SFInfo *sf, SFGenRec *gen); void main(int argc, char **argv) { FILE *fd, *fout; int piped=0; if (argc < 2) { fprintf(stderr, "no file is given\n"); fprintf(stderr, "usage: sf2text soundfont [outputfile]\n"); exit(1); } if ((fd = fopen(argv[1], "r")) == NULL) { fprintf(stderr, "can't open file %s\n", argv[1]); exit(1); } if (load_soundfont(&sfinfo, fd, !piped) < 0) exit(1); fclose(fd); if (argc < 3) fout = stdout; else { if ((fout = fopen(argv[2], "w")) == NULL) { fprintf(stderr, "can't open file %s\n", argv[2]); exit(1); } } print_soundfont(fout, &sfinfo); exit(0); } void print_soundfont(FILE *fp, SFInfo *sf) { int i; SFPresetHdr *preset; SFInstHdr *inst; SFSampleInfo *sp; fprintf(fp, "(Name "); print_name(fp, sf->sf_name); fprintf(fp, ")\n"); fprintf(fp, "(SoundFont %d %d)\n", sf->version, sf->minorversion); fprintf(fp, "(SamplePos %ld %d)\n", sf->samplepos, sf->samplesize); fprintf(fp, "(InfoPos %ld %ld)\n", sf->infopos, sf->infosize); fprintf(fp, "(Presets %d (\n", sf->npresets); for (preset = sf->preset, i = 0; i < sf->npresets; preset++, i++) { fprintf(fp, " ("); fprintf(fp, "%d ", i); print_name(fp, preset->hdr.name); fprintf(fp, " (preset %d) (bank %d) (\n", preset->preset, preset->bank); print_layers(fp, sf, &preset->hdr); fprintf(fp, " ))\n"); } fprintf(fp, " ))\n"); fprintf(fp, "(Instruments %d (\n", sf->ninsts); for (inst = sf->inst, i = 0; i < sf->ninsts; inst++, i++) { fprintf(fp, " ("); fprintf(fp, "%d ", i); print_name(fp, inst->hdr.name); fprintf(fp, " (\n"); print_layers(fp, sf, &inst->hdr); fprintf(fp, " ))\n"); } fprintf(fp, " ))\n"); fprintf(fp, "(SampleInfo %d (\n", sf->nsamples); for (sp = sf->sample, i = 0; i < sf->nsamples; sp++, i++) { fprintf(fp, " (%d ", i); print_name(fp, sp->name); fprintf(fp, " (0x%x 0x%x) (0x%x 0x%x)", sp->startsample, sp->endsample, sp->startloop, sp->endloop); if (sf->version == 2) { fprintf(fp, "\n (%d %d %d %d %d)", sp->samplerate, sp->originalPitch, sp->pitchCorrection, sp->samplelink, sp->sampletype); } fprintf(fp, ")\n"); } fprintf(fp, " ))\n"); } /* print string value. escape or convert the letter to octet if necessary. */ static void print_name(FILE *fp, char *str) { char *p; putc('"', fp); for (p = str; *p; p++) { if (!isprint(*p)) fprintf(fp, "\\%03o", *p); else if (*p == '"') fprintf(fp, "\\\""); else putc(*p, fp); } putc('"', fp); } /* print layered list */ static void print_layers(FILE *fp, SFInfo *sf, SFHeader *hdr) { SFGenLayer *lay = hdr->layer; int j, k; for (j = 0; j < hdr->nlayers; lay++, j++) { if (lay->nlists == 0) continue; fprintf(fp, " (layer\n"); for (k = 0; k < lay->nlists; k++) { print_amount(fp, sf, &lay->list[k]); if (k == lay->nlists-1) fprintf(fp, ")\n"); else fprintf(fp, "\n"); } } } /* print a layer item together with optional info */ static void print_amount(FILE *fp, SFInfo *sf, SFGenRec *gen) { LayerItem *item = &layer_items[gen->oper]; int amount; fprintf(fp, " (%s %d", sf_gen_text[gen->oper], gen->amount); if (sf->version == 1) amount = sbk_to_sf2(gen->oper, gen->amount); else amount = gen->amount; switch (item->type) { case T_NOP: case T_NOCONV: case T_OFFSET: case T_HI_OFF: case T_SCALE: fprintf(fp, " "); if (gen->oper == SF_sampleId) print_name(fp, sf->sample[amount].name); else if (gen->oper == SF_instrument) print_name(fp, sf->inst[amount].hdr.name); else fprintf(fp, "%d", amount); break; case T_RANGE: fprintf(fp, " (%d %d)", LOWNUM(amount), HIGHNUM(amount)); break; case T_FILTERQ: case T_ATTEN: case T_TREMOLO: case T_VOLSUST: fprintf(fp, " %d cB", amount); break; case T_MODSUST: fprintf(fp, " %g %%", (double)amount/10.0); break; case T_CUTOFF: fprintf(fp, " %d Hz", awe_abscent_to_Hz(amount)); break; case T_FREQ: fprintf(fp, " %d mHz", awe_abscent_to_mHz(amount)); break; case T_TIME: fprintf(fp, " %d msec", awe_timecent_to_msec(amount)); break; case T_TENPCT: case T_PANPOS: fprintf(fp, " %g %%", (double)amount / 10.0); break; case T_PSHIFT: case T_CSHIFT: fprintf(fp, " %g semitone", (double)amount / 100); break; } fprintf(fp, ")"); } sfx/sfxload.c100644 764 764 14123 6653073475 12251 0ustar stevesteve/*================================================================ * sfxload -- load soundfont info onto awe sound driver * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include #include #include #include #include #include #include "util.h" #include "seq.h" #include "awebank.h" #include "sfopts.h" static char *get_fontname(int argc, char **argv); static int parse_options(int argc, char **argv); static void add_part_list(char *arg); int verbose; /*---------------------------------------------------------------- * print usage and exit *----------------------------------------------------------------*/ static void usage() { fprintf(stderr, "sfxload -- load SoundFont on AWE32 sound driver\n"); fprintf(stderr, " version 0.4.2 copyright (c) 1996,1997 by Takashi Iwai\n"); fprintf(stderr, "usage: sfxload [-options] [soundfont[.sf2|.sbk]]\n"); fprintf(stderr, "\n"); fprintf(stderr, " options:\n"); fprintf(stderr, " -b, --bank=number append font to the specified bank\n"); fprintf(stderr, " -x, --remove remove additional samples\n"); fprintf(stderr, " -A, --sense=digit set attenuation sensitivity (default=%g)\n", awe_option.atten_sense); fprintf(stderr, " -a, --atten=digit set default attenuattion (default=%d)\n", awe_option.default_atten); fprintf(stderr, " -d, --decay=scale set decay time scale (default=%g)\n", awe_option.decay_sense); fprintf(stderr, " -M, --memory display available memory on DRAM\n"); fprintf(stderr, " -B, --addblank add 48 words blank loop on each sample\n"); fprintf(stderr, " -c, --chorus=percent set chorus effect (0-100)\n"); fprintf(stderr, " -r, --reverb=percent set reverb effect (0-100)\n"); fprintf(stderr, " -V, --volume=percent set total volume (0-100) (default=%d)\n", awe_option.default_volume); fprintf(stderr, " -L, --extract=preset/bank/note\n"); fprintf(stderr, " do partial loading\n"); fprintf(stderr, " -P, --path=dir set SoundFont file search path\n"); if (awe_option.search_path) fprintf(stderr, " system default path is %s\n", awe_option.search_path); exit(1); } static int remove_samples, dispmem, lock_sf; static LoadList *part_list = NULL; void main(int argc, char **argv) { char *sffile; int rc; awe_init_option(); remove_samples = FALSE; dispmem = FALSE; lock_sf = -1; verbose = 0; part_list = NULL; awe_read_option_file(NULL); if ((sffile = get_fontname(argc, argv)) != NULL) { awe_read_option_file(sffile); } parse_options(argc, argv); DEBUG(0,fprintf(stderr, "bank mode = %d\n", awe_option.default_bank)); DEBUG(0,fprintf(stderr, "attenuation sense = %g\n", awe_option.atten_sense)); DEBUG(0,fprintf(stderr, "minimum attenuation = %d\n", awe_option.default_atten)); DEBUG(0,fprintf(stderr, "decay sense = %g\n", awe_option.decay_sense)); /*----------------------------------------------------------------*/ /* reset samples if necessary */ seq_init(); if (sffile && awe_option.default_bank < 0) seq_reset_samples(); else if (remove_samples) seq_remove_samples(); if (sffile == NULL && dispmem) { if (dispmem) printf("DRAM memory left = %d kB\n", seq_mem_avail()/1024); } if (sffile == NULL) { seq_end(); exit(0); } /* if lock option is not specified, lockinig depends on bank mode */ if (lock_sf < 0) { if (awe_option.default_bank < 0) lock_sf = TRUE; else lock_sf = FALSE; } rc = awe_load_bank(sffile, part_list, lock_sf); if (rc == AWE_RET_OK && dispmem) printf("DRAM memory left = %d kB\n", seq_mem_avail()/1024); seq_end(); if (rc == AWE_RET_NOMEM) { if (verbose) fprintf(stderr, "sfxload: no memory left\n"); exit(1); } else if (rc == AWE_RET_NOT_FOUND) { fprintf(stderr, "sfxload: can't find font file %s\n", sffile); exit(1); } exit(0); } /*---------------------------------------------------------------- * long options *----------------------------------------------------------------*/ static awe_option_args long_options[] = { {"memory", 2, 0, 'M'}, {"remove", 2, 0, 'x'}, {"verbose", 2, 0, 'v'}, {"extract", 1, 0, 'L'}, {"lock", 2, 0, 'l'}, {0, 0, 0, 0}, }; static int option_index; #define OPTION_FLAGS "MxvL:l" static char *get_fontname(int argc, char **argv) { int rc; rc = awe_get_argument(argc, argv, OPTION_FLAGS, long_options); if (rc < argc) return argv[rc]; return NULL; } #define set_bool() (optarg ? bool_val(optarg) : TRUE) static int parse_options(int argc, char **argv) { int c; while ((c = awe_parse_options(argc, argv, OPTION_FLAGS, long_options, &option_index)) != -1) { if (c == 0) continue; switch (c) { case 'x': remove_samples = set_bool(); break; case 'M': dispmem = set_bool(); break; case 'v': if (optarg) verbose = atoi(optarg); else verbose++; break; case 'L': add_part_list(optarg); break; case 'l': lock_sf = set_bool(); break; case 'i': /* ignore */ case 'm': case 's': case 'I': break; default: usage(); exit(1); } } } /* make a preset list from comand line options */ static void add_part_list(char *arg) { char tmp[100]; SFPatchRec pat, map; if (strlen(arg) > sizeof(tmp)-1) { fprintf(stderr, "sfxload: illegal argument %s\n", arg); return; } strcpy(tmp, arg); if (awe_parse_loadlist(tmp, &pat, &map, NULL)) part_list = add_loadlist(part_list, &pat, &map); } sfx/sfxload.man100644 764 764 16122 6653073475 12603 0ustar stevesteve.TH sfxload 1 "September 1, 1997" .LO 1 .SH NAME sfxload \- load a SoundFont file on the AWE32 sound driver .SH SYNOPSIS sfxload [\-options] fontfile .SH DESCRIPTION .B sfxload is a utility program to transfer the sound wave and instruments data in a SoundFont file to the AWE32 sound driver. This program is necessary for playing MIDI samples via sequencer programs supporting AWE driver. Basically, sfxload behaves as two ways. .in +1i % sfxload fontfile .br % sfxload -b1 fontfile .in -1i The first usage is to read SF2 (or SBK) file and transfer to the awe driver. In this case, the samples which were loaded on the driver are replaced with the new one. In the second case, sfxload reads the file and appends it to the pre-loaded samples on the driver with specified bank number. The old samples remain in the driver. The additional samples can be cleared via .B \-x option (see below). The sound files are searched through the path list. The path list is defined as built-in. If the environment variable .B SFBANKDIR or the command line option .B \-P is given, it replaces the default search list. The file extension .sf2, and .sbk can be abbreviated. .SH OPTIONS .TP .B \-x, --remove[=bool] Remove the optional samples previouly loaded via -b option. Otherwise, all new samples are simply appended. If this option is specified alone without soundfont file arguments, sfxload does onlay remove samples. Either of "on", "off", "yes", "no", "true", or "false" can be specified as an optional argument. .TP .B \-b, --bank=number Append the sound samples on the specified bank. Without this option, all samples in the driver are reset, and new samples are loaded. This option is necessary to load user bank, usually in bank one. For example, .in +1i % sfxload synthgm.sbk .br % sfxload -b1 surprise.sf2 .br .in -1i .TP .B \-l, --lock[=bool] Lock the font. The locked font is no longer removed via remove option (-x) even if it's loaded together with -b option. .TP .B \-A, --sense=sensitivity Set sample attenuation sensitivity. This option controls the sensitivity of initial attenuation parameter of each instrument defined in SoundFont file. In the program, each parameter is calculated from the value divided by this number for the original value. The number 1.0 means that the original initial attenuation parameters would be used. Generally, smaller number makes drum sounds louder. (I think -A 2 would be similar to Windows sounds.) The default value is 10. Note that this option changes also the default attenuation automatically (see below). .TP .B \-a, --atten=attenuation Set the default attenuation level. This option controls the minimum attenuation of the sample. The parameter is given in raw digit number for AWE driver, that is, in 8/3 dB unit. Since --sense option changes the default attenuation automatically, specify this option later from --sense option. The default value is 32. .TP .B \-d, --decay=scale Set the scale of envelope decay time. Default value is 50.0. Sounds decay fast when larger number is set. The ver.0.3 sfxload uses 54.8. If you want to keep the same sound, use this number instead. .TP .B \-M, --memory[=bool] Display the left memory size in DRAM on the AWE32 card. .TP .B \-c, --chorus=percent Specify the effects of chorus. The value is in percent, from 0 to 100. The default is unspecified. This value may be overwritten by MIDI control messages. .TP .B \-r, --reverb=percent Specify the effects of reverb. The value is in percent, from 0 to 100. The default is unspecified. This value may be overwritten by MIDI control messages. .TP .B \-B, --addblank[=bool] Add 48 size of blank loop on each sample data. Usually, this option is not necessary. Most of soundfont files are designed well for enough blank loops for each sample. .TP .B \-L, --extract=source[:map] Extract and load only the specified preset(s). This option is usually employed by drvmidi. The preset is given as same as in virtual bank file. .TP .B \-v, --verbose[=level] Increase or set the verbosity level. .TP .B \-V, --volume=percent Specify the total volume of sounds, provided in percent. The default volume is 70%. .TP .B \-P, --path=path1:path2:pathN Specify the search path list. The sound files are searched from .I path1, path2, and so on. This overrides both the system path and environment variable .B SFBANKDIR. .SH "VIRTUAL BANK FILE" The virtual bank file is a list of presets treated as one soundfont file. The syntax of virtual bank is as follows: .in +1i # comments .br source:map[:soundfont [preset-name] .br source:map[:soundfont [preset-name] .br ... .in -1i The first and second items are the source and mapped presets, respectively. The former is the existing preset in the soundfont, and the latter is the actual preset loaded on the sound driver. The preset is described by the following three values, .in +1i preset/bank/keynote .in -1i If bank and keynote are omitted, bank 0 and keynote -1 (meaning to search all keys) are applied. The third item is the name of soundfont file. The file is searched from the prescribed search-path. The remaining arguments are ignored in sfxload. If the soundfont name is omitted, sfxload loads it as preset mapping. It just behaves like a symbolic link of file opposing to copying of the file. Any sample data is not referred at this time, but searched first when the note is played. A couple of special commands can be used together with the virtual presets above. .B default command is used to specify the default soundfont file. Any other presets which are not defined in the virtual preset lists are loaded from this default font. For example, in the following virtual bank, 2mbgmgs.sf2 is used except for standard drumsets which employs drum.sf2: .in +1i 0/128:0/128:drum.sf2 .br default 2mbgmgs.sf2 .in -1i Another special command is .B include command. This simply includes another virtual bank file under the current position. For example, .in +1i default standard.sf2 .br 0/128:0/128:drum.sf2 .br include xgsfx.bnk .in -1i .SH "SYSTEM RESROUCE FILE" The default option arguments can be stored in the system resource file. There are two files loaded as default. .in +1i $HOME/.sfxloadrc .br /etc/sfxloadrc .in -1i The syntax is as follows: .in +1i fontname -options.. .in -1i The first argument is soundfont file name for each option. The remaining arguments are identical with command line options. The font name .I default is used for default options for all sound fonts. The default options are overridden by specific options or command line options. For example, to set attenuation scale 10.0 except synthgm font, you need to make a resource file ~/.sfxloadrc like that: .in +1i default --scale=10.0 .br synthgm --scale=2.0 --atten=10 .in -1i .SH ENVIRONMENT .TP .B SFBANKDIR Search path for sound files. The current directory is always searched at first. .SH "SEE ALSO" drvmidi(1) .SH COPYRIGHT Copyright (C) 1996,1997 Takashi Iwai. .P The AWE32 driver and utilties are free software; you can redistribute them and/or modify them under the terms of the \fIGNU General Public License\fP as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. sfx/sfxtest.c100644 764 764 14336 6653073475 12317 0ustar stevesteve/*================================================================ * sfxtest -- example program to control awe sound driver *================================================================*/ #include #include #include #include #include #include #ifdef __FreeBSD__ # include # include #elif defined(linux) # include # include #endif #include "seq.h" SEQ_USE_EXTBUF(); int verbose = 2; /*----------------------------------------------------------------*/ static void seq_set_bank(int v, int bank) { fprintf(stderr, "bank=%d\n", bank); SEQ_CONTROL(awe_dev, v, CTL_BANK_SELECT, bank); seqbuf_dump(); } static void seq_set_program(int v, int pgm) { fprintf(stderr, "program=%d\n", pgm); SEQ_SET_PATCH(awe_dev, v, pgm); seqbuf_dump(); } static void seq_start_note(int v, int note, int vel) { fprintf(stderr, "note on = %d %d\n", note, vel); SEQ_START_NOTE(awe_dev, v, note, vel); seqbuf_dump(); } static void seq_stop_note(int v, int note) { fprintf(stderr, "note off\n"); SEQ_STOP_NOTE(awe_dev, v, note, 0); seqbuf_dump(); } static void seq_pitchsense(int v, int val) { fprintf(stderr, "bender range %d\n", val); SEQ_BENDER_RANGE(awe_dev, v, val); seqbuf_dump(); } static void seq_pitchbend(int v, int val) { fprintf(stderr, "bender %d\n", val); SEQ_BENDER(awe_dev, v, val); seqbuf_dump(); } static void seq_panning(int v, int val) { fprintf(stderr, "panning %d\n", val); SEQ_CONTROL(awe_dev, v, CTL_PAN, val); seqbuf_dump(); } static void seq_key_press(int v, int note, int vel) { fprintf(stderr, "key pressure %d %d\n", note, vel); SEQ_KEY_PRESSURE(awe_dev, v, note, vel); seqbuf_dump(); } static void seq_send_effect(int v, int type, int val) { fprintf(stderr, "send effect %d %d\n", type, val); AWE_SEND_EFFECT(awe_dev, v, type, val); seqbuf_dump(); } static void seq_add_effect(int v, int type, int val) { fprintf(stderr, "add effect %d %d\n", type, val); AWE_ADD_EFFECT(awe_dev, v, type, val); seqbuf_dump(); } static void seq_send_control(int v, int type, int val) { fprintf(stderr, "send control %d %d\n", type, val); SEQ_CONTROL(awe_dev, v, type, val); seqbuf_dump(); } static void seq_wait(int time) { fprintf(stderr, "wait %d\n", time); SEQ_DELTA_TIME(time); seqbuf_dump(); } static void seq_set_debug(int mode) { fprintf(stderr, "debug %d\n", mode); AWE_DEBUG_MODE(awe_dev, mode); seqbuf_dump(); } static void seq_set_reverb(int mode) { fprintf(stderr, "reverb %d\n", mode); AWE_REVERB_MODE(awe_dev, mode); seqbuf_dump(); } static void seq_set_chorus(int mode) { fprintf(stderr, "chorus %d\n", mode); AWE_CHORUS_MODE(awe_dev, mode); seqbuf_dump(); } static void seq_init_chip() { fprintf(stderr, "initialize chip\n"); AWE_INITIALIZE_CHIP(seqfd, awe_dev); seqbuf_dump(); } static void seq_set_channel_mode(int mode) { fprintf(stderr, "channel mode = %d\n", mode); AWE_SET_CHANNEL_MODE(awe_dev, mode); seqbuf_dump(); } static void seq_equalizer(int bass, int treble) { fprintf(stderr, "equalizer = %d %d\n", bass, treble); AWE_EQUALIZER(awe_dev, bass, treble); seqbuf_dump(); } /*----------------------------------------------------------------*/ static void usage(); void main(int argc, char **argv) { int idx, chan; if (argc < 2) { usage(); exit(1); } seq_init(); SEQ_START_TIMER(); seqbuf_dump(); fprintf(stderr, "argc=%d\n", argc); idx = 1; chan = 0; while (idx < argc) { fprintf(stderr, "[%d] ", idx); switch (*argv[idx]) { case 'X': seq_set_channel_mode(1); idx++; break; case 'x': chan = atoi(argv[idx+1]); idx += 2; break; case 'b': seq_set_bank(chan, atoi(argv[idx+1])); idx += 2; break; case 'p': seq_set_program(chan, atoi(argv[idx+1])); idx += 2; break; case 'n': seq_start_note(chan, atoi(argv[idx+1]),atoi(argv[idx+2])); idx += 3; break; case 'k': seq_stop_note(chan, 0); idx++; break; case 'K': seq_stop_note(chan, atoi(argv[idx+1])); idx += 2; break; case 'r': seq_pitchsense(chan, atoi(argv[idx+1])); idx += 2; break; case 't': seq_wait(atoi(argv[idx+1])); idx += 2; break; case 'T': sleep(atoi(argv[idx+1])); idx += 2; break; case 'w': seq_pitchbend(chan, atoi(argv[idx+1])); idx += 2; break; case 'c': seq_panning(chan, atoi(argv[idx+1])); idx += 2; break; case 'v': seq_key_press(chan, atoi(argv[idx+1]), atoi(argv[idx+2])); idx += 3; break; case 'F': seq_send_effect(chan, atoi(argv[idx+1]), atoi(argv[idx+2])); idx += 3; break; case 'f': seq_add_effect(chan, atoi(argv[idx+1]), atoi(argv[idx+2])); idx += 3; break; case 'm': seq_send_control(chan, atoi(argv[idx+1]), atoi(argv[idx+2])); idx += 3; break; case 'D': seq_set_debug(atoi(argv[idx+1])); idx += 2; break; case 'R': seq_set_reverb(atoi(argv[idx+1])); idx += 2; break; case 'C': seq_set_chorus(atoi(argv[idx+1])); idx += 2; break; case 'I': seq_init_chip(); idx++; break; case 'V': AWE_INITIAL_VOLUME(awe_dev, atoi(argv[idx+1])); idx += 2; break; case 'e': seq_equalizer(atoi(argv[idx+1]), atoi(argv[idx+2])); idx += 3; break; case 'M': AWE_MISC_MODE(awe_dev, atoi(argv[idx+1]), atoi(argv[idx+2])); idx += 3; break; default: goto loopend; } } loopend: seq_end(); exit(0); } static void usage() { fprintf(stderr, "usage: sfxtest cmd pars..\n"); fprintf(stderr, "X: use channel control mode\n"); fprintf(stderr, "x channel: change channel\n"); fprintf(stderr, "b bank: change bank\n"); fprintf(stderr, "p prg: change program\n"); fprintf(stderr, "n note vel: start note\n"); fprintf(stderr, "k : kill a note\n"); fprintf(stderr, "K note: kill a note (for channel mode)\n"); fprintf(stderr, "r val: set pitch sense\n"); fprintf(stderr, "w val: set pitch wheel\n"); fprintf(stderr, "t time: wait for time csec\n"); fprintf(stderr, "c val: set panning\n"); fprintf(stderr, "v note vel: change key pressure\n"); fprintf(stderr, "D mode: set debug mode\n"); fprintf(stderr, "C mode: set chorus mode\n"); fprintf(stderr, "R mode: set reverb mode\n"); fprintf(stderr, "F parm val: send effect\n"); fprintf(stderr, "m parm val: send control value\n"); fprintf(stderr, "I: initialize emu chip\n"); } sfx/test.cfg100644 764 764 2110 6653073475 12056 0ustar stevesteve#---------------------------------------------------------------- # user defined chorus and reverb modes for AWE32 sound driver #---------------------------------------------------------------- # # chorus mode definitions # # chorus:mode:string:include:parameters # mode = mode index, from 8 to 31 # string = name of this chorus mode # include = include the predefined mode (not supported) # parameters are the list of awe_chorus_fx_rec strucutre (in hex) # feedback delay-ofs lfo-depth delay lfo-freq chorus:8:Mechanic::e6e0 0100 bc01 0 0 chorus:9:Repeat::e0f0 600e 1008 0 4a0000 # # reverb mode definitions # # reverb:mode:string:include:parameters # mode = mode index, from 8 to 31 # string = name of this reverrb mode # include = include the predefined mode # (parameter becomes parm=new) # parameters are the list of awe_reverb_fx_rec strucutre, 28 short hex reverb:8:Big Sound:0:0=b4ff 1=a402 2=9502 reverb:9:Hall2 Copy::\ B488 A470 9570 84B5 383A 3EB5 7254\ 7234 7224 7254 7264 7294 44C3 45C3\ A404 A504 842A 852A 842A 852A 8429\ 8529 8429 8529 8428 8528 8428 8528 sfx/text2sf.c100644 764 764 4114 6653073475 12167 0ustar stevesteve/*================================================================ * text2sf -- convert text to soundfont formmat * * Copyright (C) 1996,1997 Takashi Iwai * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *================================================================*/ #include #include "util.h" #include "sffile.h" int seqfd, awe_dev; static SFInfo sfinfo; static void usage() { fprintf(stderr, "text2sf -- convert text file to soundfont format\n"); fprintf(stderr, " version 0.4.2 copyright (c) 1996,1997 by Takashi Iwai\n"); fprintf(stderr, "usage: text2sf text-file original-file output-file\n"); fprintf(stderr, " text-file: s-list text file via sf2text\n"); fprintf(stderr, " original-file: original soundfont file\n"); fprintf(stderr, " output-file: output soundfont file\n"); exit(1); } void main(int argc, char **argv) { FILE *fp, *fout; int piped; if (argc < 4) { usage(); exit(1); } if ((fp = CmpOpenFile(argv[1], &piped)) == NULL) { fprintf(stderr, "can't open text file %s\n", argv[1]); exit(1); } load_textinfo(&sfinfo, fp); CmpCloseFile(fp, piped); if ((fp = fopen(argv[2], "r")) == NULL) { fprintf(stderr, "can't open origianl file %s\n", argv[2]); exit(1); } if ((fout = fopen(argv[3], "w")) == NULL) { fprintf(stderr, "can't open output file %s\n", argv[3]); exit(1); } save_soundfont(&sfinfo, fp, fout); fclose(fp); fclose(fout); /*free_soundfont(&sfinfo);*/ exit(0); }