PureBoard :: Thema anzeigen - Visualisierung mit BASS

;Bass.pb
; ;PureBasic 5.61 x86 (Windows 7)
; ;-----------------------------------------------------------
; ;PureBasic Bass 2.4 Module & Player Demo
; ;Author: Mijikai
; ;Version: alpha
; ;-----------------------------------------------------------
; ;Bass 2.4: Copyright (c) 1999-2014 Un4seen Developments Ltd.
; ;-----------------------------------------------------------
;
; http://forums.purebasic.com/german/viewtopic.php?p=350817&sid=e3266fe4dce40d2b6fa23e2fba858e26&sid=e3266fe4dce40d2b6fa23e2fba858e26

; EnableExplicit
;
DeclareModule BASS

EnableExplicit

;{ BASS STRUCTURES AND VARIABLES
; BASS 2.4 C/C++ header file
; Copyright (c) 1999-2014 Un4seen Developments Ltd.
;
; See the BASS.CHM file for more detailed documentation
;
; BASS v2.4.11.x Windows include for PureBasic v5.31
; C to PB adaption by Roger HÃ¥gensen,2015-03-23,http://forums.purebasic.com/
; Modified by Mijikai (module version with proper imports and minor fixes) 2019-01-18 https://www.purebasic.fr/english/
;
; Changes from last update to the PB include files:
; Things have been moved around some to make maintenance a little easier.
; Some of the macros and assert stuff was a little broken,these have been fixed and moved into bass_test.pb
; BASS_ChannelSetAttributeEx() and BASS_ChannelGetAttributeEx(),BASS_ChannelGetLevelEx() added.
; BASS_MusicLoad() and BASS_SampleLoad() had the wrong number of parameters,missing freq.l and max.l respectively.
; Several constants have been added.
; Special wrappers,file/memory loading macros and prototypes have been removed,definitions/parameters should now match what is in the BASS manual.
; All Unicode prototypes and compiler exceptions removed,this brings the include closer to the original BASS.h file.
;
; General changes when porting from bass.h to bass.pbi:
; As much of the non-Windows platform stuff is kept as possible (iOS,Windows CE,Linux,MacOS) even if PureBasic do not support all those platforms.
; Windows spesific stuff has compiletime check and inclusion to make the include itself as neutral as possible and match BASS.h where possible.
; MacOS and Linux alternatives are left where encountered,some fiddling around may be needed though.
; Any callback definitions are retained but commented out so you can see how they should be made.
; Some C stuff has been dropped when not needed or an alternative implementation added instead.

;C to PB porting hints:
;PureBasic has no direct match for C like typedefs,just treat these as longs instead.
;TRUE is 1 (#TRUE)
;FALSE is 0 (#FALSE)
;BYTE is a byte
;WORD is a word
;DWORD is a long
;QWORD is a quad
;BOOL is a long
;HMUSIC is a long, MOD music handle
;HSAMPLE is a long, sample handle
;HCHANNEL is a long, playing sample's channel handle
;HSTREAM is a long, sample stream handle
;HRECORD is a long, recording handle
;HSYNC is a long, synchronizer handle
;HDSP is a long, DSP handle
;HFX is a long, DX8 effect handle
;HPLUGIN is a long, Plugin handle

;- BASS version constants
#BASSVERSION = 33820160 ;BASS API version this include was made for.<- ADJUST IF NEEDED!!!!!!!!!!!!!!!
#BASSVERSIONTEXT = "2.4"

;- BASS Error codes returned by BASS_GetErrorCode
#BASS_OK = 0 ;all is OK
#BASS_ERROR_MEM = 1 ;memory error
#BASS_ERROR_FILEOPEN = 2 ;can't open the file
#BASS_ERROR_DRIVER = 3 ;can't find a free/valid driver
#BASS_ERROR_BUFLOST = 4 ;the sample buffer was lost
#BASS_ERROR_HANDLE = 5 ;invalid handle
#BASS_ERROR_FORMAT = 6 ;unsupported sample format
#BASS_ERROR_POSITION = 7 ;invalid playback position
#BASS_ERROR_INIT = 8 ;BASS_Init has not been successfully called
#BASS_ERROR_START = 9 ;BASS_Start has not been successfully called
#BASS_ERROR_ALREADY = 14 ;already initialized
#BASS_ERROR_NOCHAN = 18 ;can't get a free channel
#BASS_ERROR_ILLTYPE = 19 ;an illegal type was specified
#BASS_ERROR_ILLPARAM = 20 ;an illegal parameter was specified
#BASS_ERROR_NO3D = 21 ;no 3D support
#BASS_ERROR_NOEAX = 22 ;no EAX support
#BASS_ERROR_DEVICE = 23 ;illegal device number
#BASS_ERROR_NOPLAY = 24 ;not playing
#BASS_ERROR_FREQ = 25 ;illegal sample rate
#BASS_ERROR_NOTFILE = 27 ;the stream is not a file stream
#BASS_ERROR_NOHW = 29 ;no hardware voices available
#BASS_ERROR_EMPTY = 31 ;the MOD music has no sequence Data
#BASS_ERROR_NONET = 32 ;no internet connection could be opened
#BASS_ERROR_CREATE = 33 ;couldn't create the file
#BASS_ERROR_NOFX = 34 ;effects are not available
#BASS_ERROR_NOTAVAIL = 37 ;requested Data is not available
#BASS_ERROR_DECODE = 38 ;the channel is/isn't a "decoding channel"
#BASS_ERROR_DX = 39 ;a sufficient DirectX version is not installed
#BASS_ERROR_TIMEOUT = 40 ;connection timedout
#BASS_ERROR_FILEFORM = 41 ;unsupported file format
#BASS_ERROR_SPEAKER = 42 ;unavailable speaker
#BASS_ERROR_VERSION = 43 ;invalid BASS version (used by add-ons)
#BASS_ERROR_CODEC = 44 ;codec is Not available/supported
#BASS_ERROR_ENDED = 45 ;the channel/file has ended
#BASS_ERROR_BUSY = 46 ;the device is busy
#BASS_ERROR_UNKNOWN = -1 ;some other mystery error

;- BASS_SetConfig options
#BASS_CONFIG_BUFFER = 0
#BASS_CONFIG_UPDATEPERIOD = 1
#BASS_CONFIG_GVOL_SAMPLE = 4
#BASS_CONFIG_GVOL_STREAM = 5
#BASS_CONFIG_GVOL_MUSIC = 6
#BASS_CONFIG_CURVE_VOL = 7
#BASS_CONFIG_CURVE_PAN = 8
#BASS_CONFIG_FLOATDSP = 9
#BASS_CONFIG_3DALGORITHM = 10
#BASS_CONFIG_NET_TIMEOUT = 11
#BASS_CONFIG_NET_BUFFER = 12
#BASS_CONFIG_PAUSE_NOPLAY = 13
#BASS_CONFIG_NET_PREBUF = 15
#BASS_CONFIG_NET_PASSIVE = 18
#BASS_CONFIG_REC_BUFFER = 19
#BASS_CONFIG_NET_PLAYLIST = 21
#BASS_CONFIG_MUSIC_VIRTUAL = 22
#BASS_CONFIG_VERIFY = 23
#BASS_CONFIG_UPDATETHREADS = 24
#BASS_CONFIG_DEV_BUFFER = 27
#BASS_CONFIG_VISTA_TRUEPOS = 30
#BASS_CONFIG_IOS_MIXAUDIO = 34
#BASS_CONFIG_DEV_DEFAULT = 36
#BASS_CONFIG_NET_READTIMEOUT = 37
#BASS_CONFIG_VISTA_SPEAKERS = 38
#BASS_CONFIG_IOS_SPEAKER = 39
#BASS_CONFIG_MF_DISABLE = 40
#BASS_CONFIG_HANDLES = 41
#BASS_CONFIG_UNICODE = 42
#BASS_CONFIG_SRC = 43
#BASS_CONFIG_SRC_SAMPLE = 44
#BASS_CONFIG_ASYNCFILE_BUFFER = 45
#BASS_CONFIG_OGG_PRESCAN = 47
#BASS_CONFIG_MF_VIDEO = 48
#BASS_CONFIG_AIRPLAY = 49
#BASS_CONFIG_DEV_NONSTOP = 50
#BASS_CONFIG_IOS_NOCATEGORY = 51
#BASS_CONFIG_VERIFY_NET = 52

;- BASS_SetConfigPtr options
#BASS_CONFIG_NET_AGENT = 16
#BASS_CONFIG_NET_PROXY = 17
#BASS_CONFIG_IOS_NOTIFY = 46

;- BASS_Init flags
#BASS_DEVICE_8BITS = $1 ;use 8 bit resolution,else 16 bit
#BASS_DEVICE_MONO = $2 ;use mono,else stereo
#BASS_DEVICE_3D = $4 ;enable 3D functionality
#BASS_DEVICE_LATENCY = $100 ;calculate device latency (BASS_INFO struct)
#BASS_DEVICE_CPSPEAKERS = $400 ;detect speakers via Windows control panel
#BASS_DEVICE_SPEAKERS = $800 ;force enabling of speaker assignment
#BASS_DEVICE_NOSPEAKER = $1000 ;ignore speaker arrangement
#BASS_DEVICE_DMIX = $2000 ;use ALSA "dmix" plugin
#BASS_DEVICE_FREQ = $4000 ;set device sample rate

;- DirectSound interfaces (For use With BASS_GetDSoundObject)
#BASS_OBJECT_DS = 1 ;IDirectSound
#BASS_OBJECT_DS3DL = 2 ;IDirectSound3DListener

;- Device info structure
Structure BASS_DEVICEINFO
*name ;description
*driver ;driver
flags.l
EndStructure

;- BASS_DEVICEINFO flags
#BASS_DEVICE_ENABLED = $1
#BASS_DEVICE_DEFAULT = $2
#BASS_DEVICE_INIT = $4

#BASS_DEVICE_TYPE_MASK = $ff000000
#BASS_DEVICE_TYPE_NETWORK = $01000000
#BASS_DEVICE_TYPE_SPEAKERS = $02000000
#BASS_DEVICE_TYPE_LINE = $03000000
#BASS_DEVICE_TYPE_HEADPHONES = $04000000
#BASS_DEVICE_TYPE_MICROPHONE = $05000000
#BASS_DEVICE_TYPE_HEADSET = $06000000
#BASS_DEVICE_TYPE_HANDSET = $07000000
#BASS_DEVICE_TYPE_DIGITAL = $08000000
#BASS_DEVICE_TYPE_SPDIF = $09000000
#BASS_DEVICE_TYPE_HDMI = $0a000000
#BASS_DEVICE_TYPE_DISPLAYPORT = $40000000

;- BASS_GetDeviceInfo flags
#BASS_DEVICES_AIRPLAY = $1000000

Structure BASS_INFO
flags.l ;device capabilities (DSCAPS_xxx flags)
hwsize.l ;size of total device hardware memory
hwfree.l ;size of free device hardware memory
freesam.l ;number of free sample slots in the hardware
free3d.l ;number of free 3D sample slots in the hardware
minrate.l ;min sample rate supported by the hardware
maxrate.l ;max sample rate supported by the hardware
eax.l ;device supports EAX? (always FALSE if BASS_DEVICE_3D was not used)
minbuf.l ;recommended minimum buffer length in ms (requires BASS_DEVICE_LATENCY)
dsver.l ;DirectSound version
latency.l ;delay (in ms) before start of playback (requires BASS_DEVICE_LATENCY)
initflags.l ;BASS_Init "flags" parameter
speakers.l ;number of speakers available
freq.l ;current output rate
EndStructure

;- BASS_INFO flags (from DSOUND.H)
#DSCAPS_CONTINUOUSRATE = $00000010 ;supports all sample rates between min/maxrate
#DSCAPS_EMULDRIVER = $00000020 ;device does NOT have hardware DirectSound support
#DSCAPS_CERTIFIED = $00000040 ;device driver has been certified by Microsoft
#DSCAPS_SECONDARYMONO = $00000100 ;mono
#DSCAPS_SECONDARYSTEREO = $00000200 ;stereo
#DSCAPS_SECONDARY8BIT = $00000400 ;8 bit
#DSCAPS_SECONDARY16BIT = $00000800 ;16 bit

;- Recording device info Structure
Structure BASS_RECORDINFO
flags.l ;device capabilities (DSCCAPS_xxx flags)
formats.l ;supported standard formats (WAVE_FORMAT_xxx flags)
inputs.l ;number of inputs
singlein.l ;TRUE = only 1 input can be set at a time
freq.l ;current input rate
EndStructure

;- BASS_RECORDINFO flags (from DSOUND.H)
#DSCCAPS_EMULDRIVER = #DSCAPS_EMULDRIVER ;device does NOT have hardware DirectSound recording support
#DSCCAPS_CERTIFIED = #DSCAPS_CERTIFIED ;device driver has been certified by Microsoft

;- defines for formats field of BASS_RECORDINFO (from MMSYSTEM.H)
#WAVE_FORMAT_1M08 = $00000001 ;11.025 kHz,Mono, 8-bit
#WAVE_FORMAT_1S08 = $00000002 ;11.025 kHz,Stereo,8-bit
#WAVE_FORMAT_1M16 = $00000004 ;11.025 kHz,Mono, 16-bit
#WAVE_FORMAT_1S16 = $00000008 ;11.025 kHz,Stereo,16-bit
#WAVE_FORMAT_2M08 = $00000010 ;22.05 kHz,Mono, 8-bit
#WAVE_FORMAT_2S08 = $00000020 ;22.05 kHz,Stereo,8-bit
#WAVE_FORMAT_2M16 = $00000040 ;22.05 kHz,Mono, 16-bit
#WAVE_FORMAT_2S16 = $00000080 ;22.05 kHz,Stereo,16-bit
#WAVE_FORMAT_4M08 = $00000100 ;44.1 kHz,Mono, 8-bit
#WAVE_FORMAT_4S08 = $00000200 ;44.1 kHz,Stereo,8-bit
#WAVE_FORMAT_4M16 = $00000400 ;44.1 kHz,Mono, 16-bit
#WAVE_FORMAT_4S16 = $00000800 ;44.1 kHz,Stereo,16-bit

;- Sample info structure
Structure BASS_SAMPLE
freq.l ;default playback rate
volume.f ;default volume (0-1)
pan.f ;default pan (-1=left,0=middle,1=right)
flags.l ;BASS_SAMPLE_xxx flags
length.l ;length (in bytes)
max.l ;maximum simultaneous playbacks
origres.l ;original resolution bits
chans.l ;number of channels
mingap.l ;minimum gap (ms) between creating channels
mode3d.l ;BASS_3DMODE_xxx mode
mindist.f ;minimum distance
maxdist.f ;maximum distance
iangle.l ;angle of inside projection cone
oangle.l ;angle of outside projection cone
outvol.f ;delta-volume outside the projection cone
vam.l ;voice allocation/management flags (BASS_VAM_xxx)
priority.l ;priority (0=lowest,0xffffffff=highest)
EndStructure

;- SAMPLE flags
#BASS_SAMPLE_8BITS = 1 ;8 bit
#BASS_SAMPLE_FLOAT = 256 ;32-bit floating-point
#BASS_SAMPLE_MONO = 2 ;mono
#BASS_SAMPLE_LOOP = 4 ;looped
#BASS_SAMPLE_3D = 8 ;3D functionality
#BASS_SAMPLE_SOFTWARE = 16 ;not using hardware mixing
#BASS_SAMPLE_MUTEMAX = 32 ;mute at max distance (3D only)
#BASS_SAMPLE_VAM = 64 ;DX7 voice allocation & management
#BASS_SAMPLE_FX = 128 ;old implementation of DX8 effects
#BASS_SAMPLE_OVER_VOL = $10000 ;override lowest volume
#BASS_SAMPLE_OVER_POS = $20000 ;override longest playing
#BASS_SAMPLE_OVER_DIST = $30000 ;override furthest from listener (3D only)

;- STREAM flags
#BASS_STREAM_PRESCAN = $20000 ;enable pin-point seeking/length (MP3/MP2/MP1)
#BASS_MP3_SETPOS = #BASS_STREAM_PRESCAN
#BASS_STREAM_AUTOFREE = $40000 ;automatically free the stream when it stop/ends
#BASS_STREAM_RESTRATE = $80000 ;restrict the download rate of internet file streams
#BASS_STREAM_BLOCK = $100000 ;download/play internet file stream in small blocks
#BASS_STREAM_DECODE = $200000 ;don't play the stream,only decode (BASS_ChannelGetData)
#BASS_STREAM_STATUS = $800000 ;give server status info (HTTP/ICY tags) in DOWNLOADPROC

;- MUSIC flags
#BASS_MUSIC_FLOAT = #BASS_SAMPLE_FLOAT
#BASS_MUSIC_MONO = #BASS_SAMPLE_MONO
#BASS_MUSIC_LOOP = #BASS_SAMPLE_LOOP
#BASS_MUSIC_3D = #BASS_SAMPLE_3D
#BASS_MUSIC_FX = #BASS_SAMPLE_FX
#BASS_MUSIC_AUTOFREE = #BASS_STREAM_AUTOFREE
#BASS_MUSIC_DECODE = #BASS_STREAM_DECODE
#BASS_MUSIC_PRESCAN = #BASS_STREAM_PRESCAN ;calculate playback length
#BASS_MUSIC_CALCLEN = #BASS_MUSIC_PRESCAN
#BASS_MUSIC_RAMP = $200 ;normal ramping
#BASS_MUSIC_RAMPS = $400 ;sensitive ramping
#BASS_MUSIC_SURROUND = $800 ;surround sound
#BASS_MUSIC_SURROUND2 = $1000 ;surround sound (mode 2)
#BASS_MUSIC_FT2MOD = $2000 ;play .MOD as FastTracker 2 does
#BASS_MUSIC_PT1MOD = $4000 ;play .MOD as ProTracker 1 does
#BASS_MUSIC_NONINTER = $10000 ;non-interpolated sample mixing
#BASS_MUSIC_SINCINTER = $800000 ;sinc interpolated sample mixing
#BASS_MUSIC_POSRESET = $8000 ;stop all notes when moving position
#BASS_MUSIC_POSRESETEX = $400000 ;stop all notes and reset bmp/etc when moving position
#BASS_MUSIC_STOPBACK = $80000 ;stop the music on a backwards jump effect
#BASS_MUSIC_NOSAMPLE = $100000 ;don't load the samples

;- SPEAKER assignment flags
#BASS_SPEAKER_FRONT = $01000000 ;front speakers
#BASS_SPEAKER_REAR = $02000000 ;rear/side speakers
#BASS_SPEAKER_CENLFE = $03000000 ;center & LFE speakers (5.1)
#BASS_SPEAKER_REAR2 = $04000000 ;rear center speakers (7.1)
Macro BASS_SPEAKER_N(n) : (n<<24) : EndMacro ;n'th pair of speakers (max 15)
#BASS_SPEAKER_LEFT = $10000000 ;modifier: left
#BASS_SPEAKER_RIGHT = $20000000 ;modifier: right
#BASS_SPEAKER_FRONTLEFT = #BASS_SPEAKER_FRONT | #BASS_SPEAKER_LEFT
#BASS_SPEAKER_FRONTRIGHT = #BASS_SPEAKER_FRONT | #BASS_SPEAKER_RIGHT
#BASS_SPEAKER_REARLEFT = #BASS_SPEAKER_REAR | #BASS_SPEAKER_LEFT
#BASS_SPEAKER_REARRIGHT = #BASS_SPEAKER_REAR | #BASS_SPEAKER_RIGHT
#BASS_SPEAKER_CENTER = #BASS_SPEAKER_CENLFE | #BASS_SPEAKER_LEFT
#BASS_SPEAKER_LFE = #BASS_SPEAKER_CENLFE | #BASS_SPEAKER_RIGHT
#BASS_SPEAKER_REAR2LEFT = #BASS_SPEAKER_REAR2 | #BASS_SPEAKER_LEFT
#BASS_SPEAKER_REAR2RIGHT = #BASS_SPEAKER_REAR2 | #BASS_SPEAKER_RIGHT

;- FILE flags
#BASS_ASYNCFILE = $40000000
#BASS_UNICODE = $80000000

;- RECORD flags
#BASS_RECORD_PAUSE = $8000 ;start recording paused
#BASS_RECORD_ECHOCANCEL = $2000
#BASS_RECORD_AGC = $4000

;- DX7 voice allocation & management flags
#BASS_VAM_HARDWARE = 1
#BASS_VAM_SOFTWARE = 2
#BASS_VAM_TERM_TIME = 4
#BASS_VAM_TERM_DIST = 8
#BASS_VAM_TERM_PRIO = 16

;- BASS Structures
Structure BASS_CHANNELINFO
freq.l ;default playback rate
chans.l ;channels
flags.l ;BASS_SAMPLE/STREAM/MUSIC/SPEAKER flags
ctype.l ;type of channel
origres.l ;original resolution
plugin.l ;plugin handle
sample.l ;sample
*filename ;filename
EndStructure

;- BASS_CHANNELINFO types
#BASS_CTYPE_SAMPLE = 1
#BASS_CTYPE_RECORD = 2
#BASS_CTYPE_STREAM = $10000
#BASS_CTYPE_STREAM_OGG = $10002
#BASS_CTYPE_STREAM_MP1 = $10003
#BASS_CTYPE_STREAM_MP2 = $10004
#BASS_CTYPE_STREAM_MP3 = $10005
#BASS_CTYPE_STREAM_AIFF = $10006
#BASS_CTYPE_STREAM_CA = $10007
#BASS_CTYPE_STREAM_MF = $10008
#BASS_CTYPE_STREAM_WAV = $40000 ;WAVE flag,LOWORD=codec
#BASS_CTYPE_STREAM_WAV_PCM = $50001
#BASS_CTYPE_STREAM_WAV_FLOAT = $50003
#BASS_CTYPE_MUSIC_MOD = $20000
#BASS_CTYPE_MUSIC_MTM = $20001
#BASS_CTYPE_MUSIC_S3M = $20002
#BASS_CTYPE_MUSIC_XM = $20003
#BASS_CTYPE_MUSIC_IT = $20004
#BASS_CTYPE_MUSIC_MO3 = $00100 ;MO3 flag

Structure BASS_PLUGINFORM
ctype.l ;channel type
*name ;format description
*exts ;file extension filter (*.ext1;*.ext2;etc...)
EndStructure

Structure BASS_PLUGININFO
version.l ;version (same form as BASS_GetVersion)
formatc.l ;number of formats
*formats.BASS_PLUGINFORM ;the array of formats
EndStructure

;- 3D vector (For 3D positions/velocities/orientations)
Structure BASS_3DVECTOR
x.f ;+=right,-=left
y.f ;+=up,-=down
z.f ;+=front,-=behind
EndStructure

;- 3D channel modes
#BASS_3DMODE_NORMAL = 0 ;normal 3D processing
#BASS_3DMODE_RELATIVE = 1 ;position is relative to the listener
#BASS_3DMODE_OFF = 2 ;no 3D processing

;- software 3D mixing algorithms (used With BASS_CONFIG_3DALGORITHM)
#BASS_3DALG_DEFAULT = 0
#BASS_3DALG_OFF = 1
#BASS_3DALG_FULL = 2
#BASS_3DALG_LIGHT = 3

CompilerIf #PB_Compiler_OS = #PB_OS_Windows
;- EAX environments,use With BASS_SetEAXParameters
Enumeration 0
#EAX_ENVIRONMENT_GENERIC
#EAX_ENVIRONMENT_PADDEDCELL
#EAX_ENVIRONMENT_ROOM
#EAX_ENVIRONMENT_BATHROOM
#EAX_ENVIRONMENT_LIVINGROOM
#EAX_ENVIRONMENT_STONEROOM
#EAX_ENVIRONMENT_AUDITORIUM
#EAX_ENVIRONMENT_CONCERTHALL
#EAX_ENVIRONMENT_CAVE
#EAX_ENVIRONMENT_ARENA
#EAX_ENVIRONMENT_HANGAR
#EAX_ENVIRONMENT_CARPETEDHALLWAY
#EAX_ENVIRONMENT_HALLWAY
#EAX_ENVIRONMENT_STONECORRIDOR
#EAX_ENVIRONMENT_ALLEY
#EAX_ENVIRONMENT_FOREST
#EAX_ENVIRONMENT_CITY
#EAX_ENVIRONMENT_MOUNTAINS
#EAX_ENVIRONMENT_QUARRY
#EAX_ENVIRONMENT_PLAIN
#EAX_ENVIRONMENT_PARKINGLOT
#EAX_ENVIRONMENT_SEWERPIPE
#EAX_ENVIRONMENT_UNDERWATER
#EAX_ENVIRONMENT_DRUGGED
#EAX_ENVIRONMENT_DIZZY
#EAX_ENVIRONMENT_PSYCHOTIC

#EAX_ENVIRONMENT_COUNT ;total number of environments
EndEnumeration

;EAX presets,usage: BASS_SetEAXParameters(EAX_PRESET_xxx)
Macro EAX_PRESET_GENERIC : #EAX_ENVIRONMENT_GENERIC,0.5F,1.493F,0.5F : EndMacro
Macro EAX_PRESET_PADDEDCELL : #EAX_ENVIRONMENT_PADDEDCELL,0.25F,0.1F,0.0F : EndMacro
Macro EAX_PRESET_ROOM : #EAX_ENVIRONMENT_ROOM,0.417F,0.4F,0.666F : EndMacro
Macro EAX_PRESET_BATHROOM : #EAX_ENVIRONMENT_BATHROOM,0.653F,1.499F,0.166F : EndMacro
Macro EAX_PRESET_LIVINGROOM : #EAX_ENVIRONMENT_LIVINGROOM,0.208F,0.478F,0.0F : EndMacro
Macro EAX_PRESET_STONEROOM : #EAX_ENVIRONMENT_STONEROOM,0.5F,2.309F,0.888F : EndMacro
Macro EAX_PRESET_AUDITORIUM : #EAX_ENVIRONMENT_AUDITORIUM,0.403F,4.279F,0.5F : EndMacro
Macro EAX_PRESET_CONCERTHALL : #EAX_ENVIRONMENT_CONCERTHALL,0.5F,3.961F,0.5F : EndMacro
Macro EAX_PRESET_CAVE : #EAX_ENVIRONMENT_CAVE,0.5F,2.886F,1.304F : EndMacro
Macro EAX_PRESET_ARENA : #EAX_ENVIRONMENT_ARENA,0.361F,7.284F,0.332F : EndMacro
Macro EAX_PRESET_HANGAR : #EAX_ENVIRONMENT_HANGAR,0.5F,10.0F,0.3F : EndMacro
Macro EAX_PRESET_CARPETEDHALLWAY : #EAX_ENVIRONMENT_CARPETEDHALLWAY,0.153F,0.259F,2.0F : EndMacro
Macro EAX_PRESET_HALLWAY : #EAX_ENVIRONMENT_HALLWAY,0.361F,1.493F,0.0F : EndMacro
Macro EAX_PRESET_STONECORRIDOR : #EAX_ENVIRONMENT_STONECORRIDOR,0.444F,2.697F,0.638F : EndMacro
Macro EAX_PRESET_ALLEY : #EAX_ENVIRONMENT_ALLEY,0.25F,1.752F,0.776F : EndMacro
Macro EAX_PRESET_FOREST : #EAX_ENVIRONMENT_FOREST,0.111F,3.145F,0.472F : EndMacro
Macro EAX_PRESET_CITY : #EAX_ENVIRONMENT_CITY,0.111F,2.767F,0.224F : EndMacro
Macro EAX_PRESET_MOUNTAINS : #EAX_ENVIRONMENT_MOUNTAINS,0.194F,7.841F,0.472F : EndMacro
Macro EAX_PRESET_QUARRY : #EAX_ENVIRONMENT_QUARRY,1.0F,1.499F,0.5F : EndMacro
Macro EAX_PRESET_PLAIN : #EAX_ENVIRONMENT_PLAIN,0.097F,2.767F,0.224F : EndMacro
Macro EAX_PRESET_PARKINGLOT : #EAX_ENVIRONMENT_PARKINGLOT,0.208F,1.652F,1.5F : EndMacro
Macro EAX_PRESET_SEWERPIPE : #EAX_ENVIRONMENT_SEWERPIPE,0.652F,2.886F,0.25F : EndMacro
Macro EAX_PRESET_UNDERWATER : #EAX_ENVIRONMENT_UNDERWATER,1.0F,1.499F,0.0F : EndMacro
Macro EAX_PRESET_DRUGGED : #EAX_ENVIRONMENT_DRUGGED,0.875F,8.392F,1.388F : EndMacro
Macro EAX_PRESET_DIZZY : #EAX_ENVIRONMENT_DIZZY,0.139F,17.234F,0.666F : EndMacro
Macro EAX_PRESET_PSYCHOTIC : #EAX_ENVIRONMENT_PSYCHOTIC,0.486F,7.563F,0.806F : EndMacro
CompilerEndIf

;typedef DWORD (CALLBACK STREAMPROC)(HSTREAM handle,void *buffer,DWORD length,void *user);
; User stream callback function. NOTE: A stream function should obviously be as quick
;as possible,other streams (and MOD musics) can't be mixed until it's finished.
;handle : The stream that needs writing
;buffer : Buffer to write the samples in
;length : Number of bytes to write
;user : The 'user' parameter value given when calling BASS_StreamCreate
;RETURN : Number of bytes written. Set the BASS_STREAMPROC_END flag to end
; the stream.

#BASS_STREAMPROC_END = $80000000 ;end of user stream flag

;- special STREAMPROCs
;#STREAMPROC_DUMMY (STREAMPROC*)0 // "dummy" stream
;#STREAMPROC_PUSH (STREAMPROC*)-1 // push stream

;special STREAMPROCs
#STREAMPROC_DUMMY = 0 ;"dummy" stream
#STREAMPROC_PUSH = -1 ;push stream

;- BASS_StreamCreateFileUser file systems
#STREAMFILE_NOBUFFER = 0
#STREAMFILE_BUFFER = 1
#STREAMFILE_BUFFERPUSH = 2

;- User file stream callback functions
;typedef void (CALLBACK FILECLOSEPROC)(void *user);
;typedef QWORD (CALLBACK FILELENPROC)(void *user);
;typedef DWORD (CALLBACK FILEREADPROC)(void *buffer,DWORD length,void *user);
;typedef BOOL (CALLBACK FILESEEKPROC)(QWORD offset,void *user);

Structure BASS_FILEPROCS
*close
*length
*read
*seek
EndStructure

;- BASS_StreamPutFileData options
#BASS_FILEDATA_END = 0 ;end & close the file

;- BASS_StreamGetFilePosition modes
#BASS_FILEPOS_CURRENT = 0
#BASS_FILEPOS_DECODE = #BASS_FILEPOS_CURRENT
#BASS_FILEPOS_DOWNLOAD = 1
#BASS_FILEPOS_END = 2
#BASS_FILEPOS_START = 3
#BASS_FILEPOS_CONNECTED = 4
#BASS_FILEPOS_BUFFER = 5
#BASS_FILEPOS_SOCKET = 6
#BASS_FILEPOS_ASYNCBUF = 7
#BASS_FILEPOS_SIZE = 8

;typedef void (CALLBACK DOWNLOADPROC)(const void *buffer,DWORD length,void *user);
;/* Internet stream download callback function.
;buffer : Buffer containing the downloaded data... NULL=end of download
;length : Number of bytes in the buffer
;user : The 'user' parameter value given when calling BASS_StreamCreateURL */

;- BASS_ChannelSetSync types
#BASS_SYNC_POS = 0
#BASS_SYNC_END = 2
#BASS_SYNC_META = 4
#BASS_SYNC_SLIDE = 5
#BASS_SYNC_STALL = 6
#BASS_SYNC_DOWNLOAD = 7
#BASS_SYNC_FREE = 8
#BASS_SYNC_SETPOS = 11
#BASS_SYNC_MUSICPOS = 10
#BASS_SYNC_MUSICINST = 1
#BASS_SYNC_MUSICFX = 3
#BASS_SYNC_OGG_CHANGE = 12
#BASS_SYNC_MIXTIME = $40000000 ;FLAG: sync at mixtime,else at playtime
#BASS_SYNC_ONETIME = $80000000 ;FLAG: sync only once,else continuously

;typedef void (CALLBACK SYNCPROC)(HSYNC handle,DWORD channel,DWORD data,void *user);
;Sync callback function. NOTE: a sync callback function should be very
;quick as other syncs can't be processed until it has finished. If the sync
;is a "mixtime" sync,then other streams and MOD musics can't be mixed until
;it's finished either.
;handle : The sync that has occured
;channel: Channel that the sync occured in
;data : Additional data associated with the sync's occurance
;user : The 'user' parameter given when calling BASS_ChannelSetSync */

;typedef void (CALLBACK DSPPROC)(HDSP handle,DWORD channel,void *buffer,DWORD length,void *user);
;/* DSP callback function. NOTE: A DSP function should obviously be as quick as
;possible... other DSP functions,streams and MOD musics can not be processed
;until it's finished.
;handle : The DSP handle
;channel: Channel that the DSP is being applied to
;buffer : Buffer to apply the DSP to
;length : Number of bytes in the buffer
;user : The 'user' parameter given when calling BASS_ChannelSetDSP */

;typedef BOOL (CALLBACK RECORDPROC)(HRECORD handle,const void *buffer,DWORD length,void *user);
;/* Recording callback function.
;handle : The recording handle
;buffer : Buffer containing the recorded sample data
;length : Number of bytes
;user : The 'user' parameter value given when calling BASS_RecordStart
;RETURN : TRUE = continue recording,FALSE = stop */

;- BASS_ChannelIsActive Return values
#BASS_ACTIVE_STOPPED = 0
#BASS_ACTIVE_PLAYING = 1
#BASS_ACTIVE_STALLED = 2
#BASS_ACTIVE_PAUSED = 3

;- Channel attributes
#BASS_ATTRIB_FREQ = 1
#BASS_ATTRIB_VOL = 2
#BASS_ATTRIB_PAN = 3
#BASS_ATTRIB_EAXMIX = 4
#BASS_ATTRIB_NOBUFFER = 5
#BASS_ATTRIB_VBR = 6
#BASS_ATTRIB_CPU = 7
#BASS_ATTRIB_SRC = 8
#BASS_ATTRIB_NET_RESUME = 9
#BASS_ATTRIB_SCANINFO = 10
#BASS_ATTRIB_MUSIC_AMPLIFY = $100
#BASS_ATTRIB_MUSIC_PANSEP = $101
#BASS_ATTRIB_MUSIC_PSCALER = $102
#BASS_ATTRIB_MUSIC_BPM = $103
#BASS_ATTRIB_MUSIC_SPEED = $104
#BASS_ATTRIB_MUSIC_VOL_GLOBAL = $105
#BASS_ATTRIB_MUSIC_ACTIVE = $106
#BASS_ATTRIB_MUSIC_VOL_CHAN = $200 ;+ channel #
#BASS_ATTRIB_MUSIC_VOL_INST = $300 ;+ instrument #

;- BASS_ChannelGetData flags
#BASS_DATA_AVAILABLE = 0 ;query how much data is buffered
#BASS_DATA_FIXED = $20000000 ;flag: return 8.24 fixed-point data
#BASS_DATA_FLOAT = $40000000 ;flag: return floating-point sample data
#BASS_DATA_FFT256 = $80000000 ;256 sample FFT
#BASS_DATA_FFT512 = $80000001 ;512 FFT
#BASS_DATA_FFT1024 = $80000002 ;1024 FFT
#BASS_DATA_FFT2048 = $80000003 ;2048 FFT
#BASS_DATA_FFT4096 = $80000004 ;4096 FFT
#BASS_DATA_FFT8192 = $80000005 ;8192 FFT
#BASS_DATA_FFT16384 = $80000006 ;16384 FFT
#BASS_DATA_FFT_INDIVIDUAL = $10 ;FFT flag: FFT for each channel,else all combined
#BASS_DATA_FFT_NOWINDOW = $20 ;FFT flag: no Hanning window
#BASS_DATA_FFT_REMOVEDC = $40 ;FFT flag: pre-remove DC bias
#BASS_DATA_FFT_COMPLEX = $80 ;FFT flag: return complex data

;- BASS_ChannelGetTags types : what's returned
#BASS_TAG_ID3 = 0 ;ID3v1 tags : TAG_ID3 structure
#BASS_TAG_ID3V2 = 1 ;ID3v2 tags : variable length block
#BASS_TAG_OGG = 2 ;OGG comments : series of null-terminated UTF-8 strings
#BASS_TAG_HTTP = 3 ;HTTP headers : series of null-terminated ANSI strings
#BASS_TAG_ICY = 4 ;ICY headers : series of null-terminated ANSI strings
#BASS_TAG_META = 5 ;ICY metadata : ANSI string
#BASS_TAG_APE = 6 ;APE tags : series of null-terminated UTF-8 strings
#BASS_TAG_MP4 = 7 ;MP4/iTunes metadata : series of null-terminated UTF-8 strings
#BASS_TAG_VENDOR = 9 ;OGG encoder : UTF-8 string
#BASS_TAG_LYRICS3 = 10 ;Lyric3v2 tag : ASCII string
#BASS_TAG_CA_CODEC = 11 ;CoreAudio codec info : TAG_CA_CODEC structure
#BASS_TAG_MF = 13 ;Media Foundation tags : series of null-terminated UTF-8 strings
#BASS_TAG_WAVEFORMAT = 14 ;WAVE format : WAVEFORMATEEX structure
#BASS_TAG_RIFF_INFO = $100 ;RIFF "INFO" tags : series of null-terminated ANSI strings
#BASS_TAG_RIFF_BEXT = $101 ;RIFF/BWF "bext" tags : TAG_BEXT structure
#BASS_TAG_RIFF_CART = $102 ;RIFF/BWF "cart" tags : TAG_CART structure
#BASS_TAG_RIFF_DISP = $103 ;RIFF "DISP" text tag : ANSI string
#BASS_TAG_APE_BINARY = $1000 ;+ index #,binary APE tag : TAG_APE_BINARY structure
#BASS_TAG_MUSIC_NAME = $10000;MOD music name : ANSI string
#BASS_TAG_MUSIC_MESSAGE = $10001;MOD message : ANSI string
#BASS_TAG_MUSIC_ORDERS = $10002 ;MOD order list : BYTE array of pattern numbers
#BASS_TAG_MUSIC_INST = $10100;+ instrument #,MOD instrument name : ANSI string
#BASS_TAG_MUSIC_SAMPLE = $10300 ;+ sample #,MOD sample name : ANSI string

;- ID3v1 tag structure
Structure TAG_ID3
id.a[3]
title.a[30]
artist.a[30]
album.a[30]
year.a[4]
comment.a[30]
genre.b
EndStructure

;- Binary APE tag structure
Structure TAG_APE_BINARY
*key
*data
length.l
EndStructure

;- BWF "bext" tag structure
Structure TAG_BEXT
Description.a[256] ;// description
Originator.a[32] ;// name of the originator
OriginatorReference.a[32] ;// reference of the originator
OriginationDate.a[10] ;// date of creation (yyyy-mm-dd)
OriginationTime.a[8] ;// time of creation (hh-mm-ss)
TimeReference.q ;// first sample count since midnight (little-endian)
Version.w ;// BWF version (little-endian)
UMID.b[64] ;// SMPTE UMID
Reserved.b[190]
CodingHistory.a[0] ;// history
EndStructure

;- BWF "cart" tag structures
Structure TAG_CART_TIMER
dwUsage.l ;FOURCC timer usage ID
dwValue.l ;timer value in samples from head
EndStructure

Structure TAG_CART
Version.a[4] ;version of the data structure
Title.a[64] ;title of cart audio sequence
Artist.a[64] ;artist or creator name
CutID.a[64] ;cut number identification
ClientID.a[64] ;client identification
Category.a[64] ;category ID,PSA,NEWS,etc
Classification.a[64] ;classification or auxiliary key
OutCue.a[64] ;out cue text
StartDate.a[10] ;yyyy-mm-dd
StartTime.a[8] ;hh:mm:ss
EndDate.a[10] ;yyyy-mm-dd
EndTime.a[8] ;hh:mm:ss
ProducerAppID.a[64] ;name of vendor or application
ProducerAppVersion.a[64];version of producer application
UserDef.a[64] ;user defined text
dwLevelReference.l ;sample value for 0 dB reference
PostTimer.TAG_CART_TIMER[8] ;8 time markers after head
Reserved.a[276]
URL.a[1024] ;uniform resource locator
TagText.a[0] ;free form text for scripts or tags
EndStructure

;CoreAudio codec info structure
Structure TAG_CA_CODEC
ftype.l ;file format
atype.l ;audio format
*name ;description
EndStructure

CompilerIf Defined(WAVEFORMATEX,#PB_Structure) = #False
Structure WAVEFORMATEX
wFormatTag.u
nChannels.u
nSamplesPerSec.l
nAvgBytesPerSec.l
nBlockAlign.u
wBitsPerSample.u
cbSize.u
EndStructure
CompilerEndIf

;- BASS_ChannelGetLength/GetPosition/SetPosition modes
#BASS_POS_BYTE = 0 ;byte position
#BASS_POS_MUSIC_ORDER = 1 ;order.row position,MAKELONG(order,row)
#BASS_POS_OGG = 3 ;OGG bitstream number
#BASS_POS_INEXACT = $08000000 ;flag: allow seeking to inexact position
#BASS_POS_DECODE = $10000000 ;flag: get the decoding (not playing) position
#BASS_POS_DECODETO = $20000000 ;flag: decode to the position instead of seeking
#BASS_POS_SCAN = $40000000 ;flag: scan to the position

;- BASS_RecordSetInput flags
#BASS_INPUT_OFF = $10000
#BASS_INPUT_ON = $20000

#BASS_INPUT_TYPE_MASK = $ff000000
#BASS_INPUT_TYPE_UNDEF = $00000000
#BASS_INPUT_TYPE_DIGITAL = $01000000
#BASS_INPUT_TYPE_LINE = $02000000
#BASS_INPUT_TYPE_MIC = $03000000
#BASS_INPUT_TYPE_SYNTH = $04000000
#BASS_INPUT_TYPE_CD = $05000000
#BASS_INPUT_TYPE_PHONE = $06000000
#BASS_INPUT_TYPE_SPEAKER = $07000000
#BASS_INPUT_TYPE_WAVE = $08000000
#BASS_INPUT_TYPE_AUX = $09000000
#BASS_INPUT_TYPE_ANALOG = $0a000000

;DX8 effect types,use with BASS_ChannelSetFX
Enumeration 0
#BASS_FX_DX8_CHORUS
#BASS_FX_DX8_COMPRESSOR
#BASS_FX_DX8_DISTORTION
#BASS_FX_DX8_ECHO
#BASS_FX_DX8_FLANGER
#BASS_FX_DX8_GARGLE
#BASS_FX_DX8_I3DL2REVERB
#BASS_FX_DX8_PARAMEQ
#BASS_FX_DX8_REVERB
EndEnumeration

Structure BASS_DX8_CHORUS
fWetDryMix.f
fDepth.f
fFeedback.f
fFrequency.f
lWaveform.l ;0=triangle,1=sine
fDelay.f
lPhase.l ;BASS_DX8_PHASE_xxx
EndStructure

Structure BASS_DX8_COMPRESSOR
fGain.f
fAttack.f
fRelease.f
fThreshold.f
fRatio.f
fPredelay.f
EndStructure

Structure BASS_DX8_DISTORTION
fGain.f
fEdge.f
fPostEQCenterFrequency.f
fPostEQBandwidth.f
fPreLowpassCutoff.f
EndStructure

Structure BASS_DX8_ECHO
fWetDryMix.f
fFeedback.f
fLeftDelay.f
fRightDelay.f
lPanDelay.l
EndStructure

Structure BASS_DX8_FLANGER
fWetDryMix.f
fDepth.f
fFeedback.f
fFrequency.f
lWaveform.l ;0=triangle,1=sine
fDelay.f
lPhase.l ;BASS_DX8_PHASE_xxx
EndStructure

Structure BASS_DX8_GARGLE
dwRateHz.l ;Rate of modulation in hz
dwWaveShape.l ;0=triangle,1=square
EndStructure

Structure BASS_DX8_I3DL2REVERB
lRoom.l ;[-10000,0] default: -1000 mB
lRoomHF.l ;[-10000,0] default: 0 mB
flRoomRolloffFactor.f ;[0.0,10.0] default: 0.0
flDecayTime.f ;[0.1,20.0] default: 1.49s
flDecayHFRatio.f ;[0.1,2.0] default: 0.83
lReflections.l ;[-10000,1000] default: -2602 mB
flReflectionsDelay.f ;[0.0,0.3] default: 0.007 s
lReverb.l ;[-10000,2000] default: 200 mB
flReverbDelay.f ;[0.0,0.1] default: 0.011 s
flDiffusion.f ;[0.0,100.0] default: 100.0 %
flDensity.f ;[0.0,100.0] default: 100.0 %
flHFReference.f ;[20.0,20000.0] default: 5000.0 Hz
EndStructure

Structure BASS_DX8_PARAMEQ
fCenter.f
fBandwidth.f
fGain.f
EndStructure

Structure BASS_DX8_REVERB
fInGain.f ;[-96.0,0.0] default: 0.0 dB
fReverbMix.f ;[-96.0,0.0] default: 0.0 db
fReverbTime.f ;[0.001,3000.0] default: 1000.0 ms
fHighFreqRTRatio.f ;[0.001,0.999] default: 0.001
EndStructure

#BASS_DX8_PHASE_NEG_180 = 0
#BASS_DX8_PHASE_NEG_90 = 1
#BASS_DX8_PHASE_ZERO = 2
#BASS_DX8_PHASE_90 = 3
#BASS_DX8_PHASE_180 = 4

; typedef void (CALLBACK IOSNOTIFYPROC)(DWORD status);
; /* iOS notification callback function.
; status : The notification (BASS_IOSNOTIFY_xxx) */

#BASS_IOSNOTIFY_INTERRUPT = 1 ;interruption started
#BASS_IOSNOTIFY_INTERRUPT_END = 2 ;interruption ended
;}

Import "bass.lib"
SetConfig.l(option.l,value.l) As "_BASS_SetConfig@8"
GetConfig(option.l) As "BASS_GetConfig(option"
SetConfigPtr.l(option.l,*value) As "_BASS_SetConfigPtr@8"
GetConfigPtr.i(option.l) As "_BASS_GetConfigPtr@4"
GetVersion.l() As "_BASS_GetVersion@0"
ErrorGetCode.l() As "_BASS_ErrorGetCode@0"
GetDeviceInfo.l(device.l,*info) As "_BASS_GetDeviceInfo@8"
InitEx.l(device.l,freq.l,flags.l,*win,*dsguid) As "_BASS_Init@20"
SetDevice.l(device.l) As "_BASS_SetDevice@4"
GetDevice.l() As "_BASS_GetDevice@0"
Free.l() As "_BASS_Free@0"
GetDSoundObject.i(object.l) As "_BASS_GetDSoundObject@4"
GetInfo.l(*info) As "_BASS_GetInfo@4"
Update.l(length.l) As "_BASS_Update@4"
GetCPU.f() As "_BASS_GetCPU@0"
Start.l() As "_BASS_Start@0"
Stop.l() As "_BASS_Stop@0"
Pause.l() As "_BASS_Pause@0"
SetVolume.l(volume.f) As "_BASS_SetVolume@4"
GetVolume.f() As "_BASS_GetVolume@0"
PluginLoad.l(*file,flags.l) As "_BASS_PluginLoad@8"
PluginFree.l(handle.l) As "_BASS_PluginFree@4"
PluginGetInfo.i(handle.l) As "_BASS_PluginGetInfo@4"
Set3DFactors.l(distf.f,rollf.f,doppf.f) As "_BASS_Set3DFactors@12"
Get3DFactors.l(*distf,*rollf,*doppf) As "_BASS_Get3DFactors@12"
Set3DPosition.l(*pos,*vel,*front,*top) As "_BASS_Set3DPosition@16"
Get3DPosition.l(*pos,*vel,*front,*top) As "_BASS_Get3DPosition@16"
Apply3D.i() As "_BASS_Apply3D@0"
SetEAXParameters.l(env.l,vol.f,decay.f,damp.f) As "_BASS_SetEAXParameters@16"
GetEAXParameters.l(*env,*vol,*decay,*damp) As "_BASS_GetEAXParameters@16"
MusicLoad.l(mem.l,*file,offset.q,length.l,flags.l,freq.l) As "_BASS_MusicLoad@28"
MusicFree.l(handle.l) As "_BASS_MusicFree@4"
SampleLoad.l(mem.l,*file,offset.q,length.l,max.l,flags.l) As "_BASS_SampleLoad@28"
SampleCreate.l(length.l,freq.l,chans.l,max.l,flags.l) As "_BASS_SampleCreate@20"
SampleFree.l(handle.l) As "_BASS_SampleFree@4"
SampleSetData.l(handle.l,*buffer) As "_BASS_SampleSetData@8"
SampleGetData.l(handle.l,*buffer) As "_BASS_SampleGetData@8"
SampleGetInfo.l(handle.l,*info) As "_BASS_SampleGetInfo@8"
SampleSetInfo.l(handle.l,*info) As "_BASS_SampleSetInfo@8"
SampleGetChannel.l(handle.l,onlynew.l) As "_BASS_SampleGetChannel@8"
SampleGetChannels.l(handle.l,*channels) As "_BASS_SampleGetChannels@8"
SampleStop.l(handle.l) As "_BASS_SampleStop@4"
StreamCreate.l(freq.l,chans.l,flags.l,*proc,*user) As "_BASS_StreamCreate@20"
StreamCreateFileEx.l(mem.l,*file,offset.q,length.q,flags.l) As "_BASS_StreamCreateFile@28"
StreamCreateURL.l(*url,offset.l,flags.l,*proc,*user) As "_BASS_StreamCreateURL@20"
StreamCreateFileUser.l(system.l,flags.l,*proc,*user) As "_BASS_StreamCreateFileUser@16"
StreamFree.l(handle.l) As "_BASS_StreamFree@4"
StreamGetFilePosition.q(handle.l,mode.l) As "_BASS_StreamGetFilePosition@8"
StreamPutData.l(handle.l,*buffer,length.l) As "_BASS_StreamPutData@12"
StreamPutFileData.l(handle.l,*buffer,length.l) As "_BASS_StreamPutFileData@12"
RecordGetDeviceInfo.l(device.l,*info) As "_BASS_RecordGetDeviceInfo@8"
RecordInit.l(device.l) As "_BASS_RecordInit@4"
RecordSetDevice.l(device.l) As "_BASS_RecordSetDevice@4"
RecordGetDevice.l() As "_BASS_RecordGetDevice@0"
RecordFree.l() As "_BASS_RecordFree@0"
RecordGetInfo.l(*info) As "_BASS_RecordGetInfo@4"
RecordGetInputName.i(input.l) As "_BASS_RecordGetInputName@4"
RecordSetInput.l(input.l,flags.l,volume.f) As "_BASS_RecordSetInput@12"
RecordGetInput.l(input.l,*volume) As "_BASS_RecordGetInput@8"
RecordStart.l(freq.l,chans.l,flags.l,*proc,*user) As "_BASS_RecordStart@20"
ChannelBytes2Seconds.d(handle.l,pos.q) As "_BASS_ChannelBytes2Seconds@12"
ChannelSeconds2Bytes.q(handle.l,pos.d) As "_BASS_ChannelSeconds2Bytes@12"
ChannelGetDevice.l(handle.l) As "_BASS_ChannelGetDevice@4"
ChannelSetDevice.l(handle.l,device.l) As "_BASS_ChannelSetDevice@8"
ChannelIsActive.l(handle.l) As "_BASS_ChannelIsActive@4"
ChannelGetInfo.l(handle.l,*info) As "_BASS_ChannelGetInfo@8"
ChannelGetTags.i(handle.l,tags.l) As "_BASS_ChannelGetTags@8"
ChannelFlags.l(handle.l,flags.l,mask.l) As "_BASS_ChannelFlags@12"
ChannelUpdate.l(handle.l,length.l) As "_BASS_ChannelUpdate@8"
ChannelLock.l(handle.l,lock.l) As "_BASS_ChannelLock@8"
ChannelPlay.l(handle.l,restart.l) As "_BASS_ChannelPlay@8"
ChannelStop.l(handle.l) As "_BASS_ChannelStop@4"
ChannelPause.l(handle.l) As "_BASS_ChannelPause@4"
ChannelSetAttribute.l(handle.l,attrib.l,value.f) As "_BASS_ChannelSetAttribute@12"
ChannelGetAttribute.l(handle.l,attrib.l,*value) As "_BASS_ChannelGetAttribute@12"
ChannelSlideAttribute.l(handle.l,attrib.l,value.f,time.l) As "_BASS_ChannelSlideAttribute@16"
ChannelIsSliding(handle.l,attrib.l) As "BASS_ChannelIsSliding(handle"
ChannelSetAttributeEx.l(handle.l,attrib.l,*value,size.l) As "_BASS_ChannelSetAttributeEx@16"
ChannelGetAttributeEx.l(handle.l,attrib.l,*value,size.l) As "_BASS_ChannelGetAttributeEx@16"
ChannelSet3DAttributes.l(handle.l,mode.l,min.f,max.f,iangle.l,oangle.l,outvol.f) As "_BASS_ChannelSet3DAttributes@28"
ChannelGet3DAttributes.l(handle.l,*mode,*min,*max,*iangle,*oangle,*outvol) As "_BASS_ChannelGet3DAttributes@28"
ChannelSet3DPosition.l(handle.l,*pos,*orient,*vel) As "_BASS_ChannelSet3DPosition@16"
ChannelGet3DPosition.l(handle.l,*pos,*orient,*vel) As "_BASS_ChannelGet3DPosition@16"
ChannelGetLength.q(handle.l,mode.l) As "_BASS_ChannelGetLength@8"
ChannelSetPosition.l(handle.l,pos.q,mode.l) As "_BASS_ChannelSetPosition@16"
ChannelGetPosition.q(handle.l,mode.l) As "_BASS_ChannelGetPosition@8"
ChannelGetLevel.l(handle.l) As "_BASS_ChannelGetLevel@4"
ChannelGetLevelEx.l(handle.l,*levels,length.f,flags.l) As "_BASS_ChannelGetLevelEx@16"
ChannelGetData.l(handle.l,*buffer,length.l) As "_BASS_ChannelGetData@12"
ChannelSetSync.l(handle.l,type.l,param.q,*proc,*user) As "_BASS_ChannelSetSync@24"
ChannelRemoveSync.l(handle.l,sync.l) As "_BASS_ChannelRemoveSync@8"
ChannelSetDSP.l(handle.l,*proc,*user,priority.l) As "_BASS_ChannelSetDSP@16"
ChannelRemoveDSP.l(handle.l,dsp.l) As "_BASS_ChannelRemoveDSP@8"
ChannelSetLink.l(handle.l,chan.l) As "_BASS_ChannelSetLink@8"
ChannelRemoveLink.l(handle.l,chan.l) As "_BASS_ChannelRemoveLink@8"
ChannelSetFX.l(handle.l,type.l,priority.l) As "_BASS_ChannelSetFX@12"
ChannelRemoveFX.l(handle.l,fx.l) As "_BASS_ChannelRemoveFX@8"
FXSetParameters.l(handle.l,*params) As "_BASS_FXSetParameters@8"
FXGetParameters.l(handle.l,*params) As "_BASS_FXGetParameters@8"
FXReset.l(handle.l) As "_BASS_FXReset@4"
EndImport

Declare.l Init(Handle.i = #Null)
Declare.l StreamCreateFile(File.s)

EndDeclareModule
;
Module BASS

;MODDED FUNCTIONS!

Procedure.l Init(Handle.i = #Null);-> USE InitEx() FOR CUSTOM SETTINGS!
If GetVersion() = #BASSVERSION;changed to most recent 2.4 (x64)!
ProcedureReturn InitEx(-1,44100,#Null,Handle,#Null)
EndIf
EndProcedure

Procedure.l StreamCreateFile(File.s);-> USE StreamCreateFileEx() FOR CUSTOM SETTINGS!
ProcedureReturn StreamCreateFileEx(#Null,@File,#Null,#Null,#BASS_UNICODE)
EndProcedure

EndModule

IncludeFile "BASS_SFX.pbi"

Structure DRAW_STRUCT
Gadget.i
Pitch.i
*Buffer
BufferSize.i
Font.i
FontHandle.i
EndStructure

Procedure.i dInit(Gadget.i)
Protected *draw.DRAW_STRUCT
Protected Font.i
If IsGadget(Gadget)
*draw = AllocateStructure(DRAW_STRUCT)
If *draw
Font = LoadFont(#PB_Any,"Consolas",10)
If IsFont(Font)
If StartDrawing(CanvasOutput(Gadget))
With *draw
\Gadget = Gadget
\Buffer = DrawingBuffer()
\Pitch = DrawingBufferPitch()
\BufferSize = \Pitch * GadgetHeight(\Gadget,#PB_Gadget_ActualSize)
\Font = Font
\FontHandle = FontID(\Font)
StopDrawing()
FillMemory(\Buffer,\BufferSize)
EndWith
ProcedureReturn *draw
EndIf
EndIf
FreeStructure(*draw)
EndIf
EndIf
EndProcedure

Procedure.i dStart(*draw.DRAW_STRUCT)
With *draw
If StartVectorDrawing(CanvasVectorOutput(\Gadget))
FillMemory(\Buffer,\BufferSize)
ProcedureReturn #True
EndIf
EndWith
EndProcedure

Procedure.i dText(*draw.DRAW_STRUCT,x.d,y.d,text.s,color.i)
With *draw
VectorFont(\FontHandle,14)
VectorSourceColor(color)
MovePathCursor(x,y,#PB_Path_Default)
If Len(text) > 32
DrawVectorText(Left(text,32) + "...")
Else
DrawVectorText(text)
EndIf
EndWith
EndProcedure

Procedure.i dBlock(x1.d,y1.d,x2.d,y2.d,w.f,color.i)
Protected h.d
h = w / 2
y1 + h
y2 + h
VectorSourceColor(color)
MovePathCursor(x1,y1,#PB_Path_Default)
AddPathLine(x2,y2,#PB_Path_Default)
StrokePath(w,#PB_Path_Default)
EndProcedure

Procedure.i dStop()
StopVectorDrawing()
EndProcedure

Procedure.i dRelease(*draw.DRAW_STRUCT)
With *draw
FreeFont(\Font)
EndWith
FreeStructure(*draw)
EndProcedure

Procedure.i UpdateSpectrum(Stream.i,*Buffer,BufferSize)
Protected Offset.i
Protected Index.f
Protected *PosY.Float
Protected Y.d
Protected X.d
Protected OldX.d
Protected OldY.d
OldY = 30
For Offset = 0 To 300 Step 3
*PosY = *Buffer + Offset * 4
Y = (*PosY\f * 40) + 30
X = Offset
Index = X / 40
dBlock(OldX,OldY,X,Y,20,RGBA($4D * Index,$FF * Index,$35 * Index,$55));$224DFF35)
OldX = X
OldY = Y
Next
OldX = 0
If Not BASS::ChannelGetData(Stream,*Buffer,BufferSize|BASS::#BASS_DATA_FLOAT) = -1
OldY = 40
For Offset = 0 To 300 Step 2
*PosY = *Buffer + Offset * 4
Y = (*PosY\f * 40) + 40
X = Offset
dBlock(OldX,OldY,X,Y,2,$FF4DFF35)
OldX = X
OldY = Y
Next
EndIf
EndProcedure

Procedure.i Window(Title.s)
Protected Window.i
Protected WindowMsg.i
Protected WindowFlags.i
Protected Canvas.i
Protected Progress.i
Protected TrackBar.i
Protected TrackVolume.i
Protected LabelVolume.i
Protected ButtonLoad.i
Protected ButtonPlay.i
Protected ButtonPause.i
Protected ButtonStop.i
Protected Handle.i
Protected File.s
Protected Name.s
Protected Stream.i
Protected NewStream.i
Protected Length.i
Protected Factor.f
Protected TrackFactor.f
Protected BufferSize.i = 302 << 2
Protected *Buffer = AllocateMemory(BufferSize)
Protected CanvasSFX.i
Protected PluginResult
If *Buffer
WindowFlags = #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget
Window = OpenWindow(#PB_Any,#Null,#Null,300,450,Title,WindowFlags)
If Window
If BASS::Init(WindowID(Window))
CanvasSFX = CanvasGadget(#PB_Any,0,170,300,100)

;BASS_SFX ------------------------
BASS_SFX::BASS_SFX_Init(WindowID(Window)) ;Liefert TRUE zurück
PluginResult = BASS_SFX::BASS_SFX_PluginCreate("sphere.svp", GadgetID(CanvasSFX),300,100,0)
Debug PluginResult ;ist immer -1 also #False
;---------------------------------

Canvas = CanvasGadget(#PB_Any,0,0,300,100)
TrackBar = TrackBarGadget(#PB_Any,0,100,300,30,0,100)
TrackVolume = TrackBarGadget(#PB_Any,120,135,100,30,0,100)
ButtonPlay = ButtonGadget(#PB_Any,10,135,30,30,">")
ButtonPause = ButtonGadget(#PB_Any,45,135,30,30,"||")
ButtonStop = ButtonGadget(#PB_Any,80,135,30,30,"[]")
ButtonLoad = ButtonGadget(#PB_Any,260,135,30,30,"...")
LabelVolume = TextGadget(#PB_Any,220,135,30,30,"10%")
If Canvas And TrackBar And TrackVolume And ButtonPlay And
ButtonPause And ButtonStop And ButtonLoad And LabelVolume
SetGadgetState(TrackVolume,10)
Handle = dInit(Canvas)
If Handle
BASS::SetVolume(GetGadgetState(TrackVolume) / 100)
AddWindowTimer(Window,123,16)
Repeat
WindowMsg = WaitWindowEvent()
Select WindowMsg
Case #PB_Event_Timer
If Stream
If dStart(Handle)
;//FFT
UpdateSpectrum(Stream,*Buffer,BufferSize)

dText(Handle,10,10,Name,$FFFFFFFF)
dBlock(GetGadgetState(TrackBar) * 3,80,GetGadgetState(TrackBar) * 3,90,2,$FF4DFFE6)
dBlock(0,90,BASS::ChannelGetPosition(Stream,BASS::#BASS_POS_BYTE) * Factor,90,10,$FF4D00E6)
dStop()
EndIf
EndIf
Case #PB_Event_Gadget
Select EventGadget()
Case TrackBar
If Stream
If Not BASS::ChannelIsActive(Stream) = BASS::#BASS_ACTIVE_PAUSED
BASS::ChannelPause(Stream)
EndIf
BASS::ChannelSetPosition(Stream,GetGadgetState(TrackBar) * TrackFactor,BASS::#BASS_POS_BYTE)
BASS::ChannelPlay(Stream,#False)
EndIf
Case TrackVolume
SetGadgetText(LabelVolume,Str(GetGadgetState(TrackVolume)) + "%")
BASS::SetVolume(GetGadgetState(TrackVolume) / 100)
Case ButtonStop
If Stream
BASS::ChannelStop(Stream)
BASS::ChannelSetPosition(Stream,#Null,BASS::#BASS_POS_ByTE)
SetGadgetState(TrackBar,0)
If dStart(Handle)
dText(Handle,10,10,Name,$FFFFFFFF)
dStop()
EndIf
EndIf
Case ButtonPause
If Stream
If BASS::ChannelIsActive(Stream) = BASS::#BASS_ACTIVE_PAUSED
BASS::ChannelPlay(Stream,#False)
Else
BASS::ChannelPause(Stream)
EndIf
EndIf
Case ButtonPlay
If Stream
If BASS::ChannelIsActive(Stream) = BASS::#BASS_ACTIVE_PAUSED
BASS::ChannelPlay(Stream,#False)
Else
BASS::ChannelPlay(Stream,#True)
EndIf
EndIf
Case ButtonLoad
File = OpenFileRequester("Open","","WAV (*.wav)|*.wav|MP3 (*.mp3)|*.mp3",1)
If File
NewStream = BASS::StreamCreateFile(File)
If NewStream
If Stream
BASS::ChannelStop(Stream)
BASS::StreamFree(Stream)
EndIf
Name = GetFilePart(File)
Stream = NewStream
If dStart(Handle)
dText(Handle,10,10,Name,$FFFFFFFF)
dStop()
EndIf
Length = BASS::ChannelGetLength(Stream,BASS::#BASS_POS_BYTE)
Factor = 300 / Length
TrackFactor = Length / 100
BASS::ChannelPlay(Stream,#True)
EndIf
EndIf
EndSelect
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
dRelease(Handle)
EndIf
EndIf
If Stream
BASS::ChannelStop(Stream)
BASS::StreamFree(Stream)
EndIf
BASS::Free()
EndIf
CloseWindow(Window)
EndIf
FreeMemory(*Buffer)
EndIf
EndProcedure

Window("Bass 2.4 (x86) - Player Demo!")

End

Autor:	Michael(362) [ 15.03.2020 12:58 ]
Betreff des Beitrags:	Visualisierung mit BASS_SFX
Moin, ich möchte gerne mit Bass.dll abgespielte Titel mit Bass_sfx.dll (http://www.un4seen.com/) visualisieren. Dazu habe ichn mir das Beispiel von viewtopic.php?p=350817 kopiert und um folgende Zeilen erweitert (siehe weiter Unten): Code: ;BASS_SFX ------------------------ BASS_SFX::BASS_SFX_Init(WindowID(Window)) ;Liefert TRUE zurück PluginResult = BASS_SFX::BASS_SFX_PluginCreate("sphere.svp", GadgetID(CanvasSFX),300,100,0) Debug PluginResult ;ist immer -1 also #False ;--------------------------------- Code: ;Bass.pb ; ;PureBasic 5.61 x86 (Windows 7) ; ;----------------------------------------------------------- ; ;PureBasic Bass 2.4 Module & Player Demo ; ;Author: Mijikai ; ;Version: alpha ; ;----------------------------------------------------------- ; ;Bass 2.4: Copyright (c) 1999-2014 Un4seen Developments Ltd. ; ;----------------------------------------------------------- ; ; http://forums.purebasic.com/german/viewtopic.php?p=350817&sid=e3266fe4dce40d2b6fa23e2fba858e26&sid=e3266fe4dce40d2b6fa23e2fba858e26 ; EnableExplicit ; DeclareModule BASS EnableExplicit ;{ BASS STRUCTURES AND VARIABLES ; BASS 2.4 C/C++ header file ; Copyright (c) 1999-2014 Un4seen Developments Ltd. ; ; See the BASS.CHM file for more detailed documentation ; ; BASS v2.4.11.x Windows include for PureBasic v5.31 ; C to PB adaption by Roger HÃ¥gensen,2015-03-23,http://forums.purebasic.com/ ; Modified by Mijikai (module version with proper imports and minor fixes) 2019-01-18 https://www.purebasic.fr/english/ ; ; Changes from last update to the PB include files: ; Things have been moved around some to make maintenance a little easier. ; Some of the macros and assert stuff was a little broken,these have been fixed and moved into bass_test.pb ; BASS_ChannelSetAttributeEx() and BASS_ChannelGetAttributeEx(),BASS_ChannelGetLevelEx() added. ; BASS_MusicLoad() and BASS_SampleLoad() had the wrong number of parameters,missing freq.l and max.l respectively. ; Several constants have been added. ; Special wrappers,file/memory loading macros and prototypes have been removed,definitions/parameters should now match what is in the BASS manual. ; All Unicode prototypes and compiler exceptions removed,this brings the include closer to the original BASS.h file. ; ; General changes when porting from bass.h to bass.pbi: ; As much of the non-Windows platform stuff is kept as possible (iOS,Windows CE,Linux,MacOS) even if PureBasic do not support all those platforms. ; Windows spesific stuff has compiletime check and inclusion to make the include itself as neutral as possible and match BASS.h where possible. ; MacOS and Linux alternatives are left where encountered,some fiddling around may be needed though. ; Any callback definitions are retained but commented out so you can see how they should be made. ; Some C stuff has been dropped when not needed or an alternative implementation added instead. ;C to PB porting hints: ;PureBasic has no direct match for C like typedefs,just treat these as longs instead. ;TRUE is 1 (#TRUE) ;FALSE is 0 (#FALSE) ;BYTE is a byte ;WORD is a word ;DWORD is a long ;QWORD is a quad ;BOOL is a long ;HMUSIC is a long, MOD music handle ;HSAMPLE is a long, sample handle ;HCHANNEL is a long, playing sample's channel handle ;HSTREAM is a long, sample stream handle ;HRECORD is a long, recording handle ;HSYNC is a long, synchronizer handle ;HDSP is a long, DSP handle ;HFX is a long, DX8 effect handle ;HPLUGIN is a long, Plugin handle ;- BASS version constants #BASSVERSION = 33820160 ;BASS API version this include was made for.<- ADJUST IF NEEDED!!!!!!!!!!!!!!! #BASSVERSIONTEXT = "2.4" ;- BASS Error codes returned by BASS_GetErrorCode #BASS_OK = 0 ;all is OK #BASS_ERROR_MEM = 1 ;memory error #BASS_ERROR_FILEOPEN = 2 ;can't open the file #BASS_ERROR_DRIVER = 3 ;can't find a free/valid driver #BASS_ERROR_BUFLOST = 4 ;the sample buffer was lost #BASS_ERROR_HANDLE = 5 ;invalid handle #BASS_ERROR_FORMAT = 6 ;unsupported sample format #BASS_ERROR_POSITION = 7 ;invalid playback position #BASS_ERROR_INIT = 8 ;BASS_Init has not been successfully called #BASS_ERROR_START = 9 ;BASS_Start has not been successfully called #BASS_ERROR_ALREADY = 14 ;already initialized #BASS_ERROR_NOCHAN = 18 ;can't get a free channel #BASS_ERROR_ILLTYPE = 19 ;an illegal type was specified #BASS_ERROR_ILLPARAM = 20 ;an illegal parameter was specified #BASS_ERROR_NO3D = 21 ;no 3D support #BASS_ERROR_NOEAX = 22 ;no EAX support #BASS_ERROR_DEVICE = 23 ;illegal device number #BASS_ERROR_NOPLAY = 24 ;not playing #BASS_ERROR_FREQ = 25 ;illegal sample rate #BASS_ERROR_NOTFILE = 27 ;the stream is not a file stream #BASS_ERROR_NOHW = 29 ;no hardware voices available #BASS_ERROR_EMPTY = 31 ;the MOD music has no sequence Data #BASS_ERROR_NONET = 32 ;no internet connection could be opened #BASS_ERROR_CREATE = 33 ;couldn't create the file #BASS_ERROR_NOFX = 34 ;effects are not available #BASS_ERROR_NOTAVAIL = 37 ;requested Data is not available #BASS_ERROR_DECODE = 38 ;the channel is/isn't a "decoding channel" #BASS_ERROR_DX = 39 ;a sufficient DirectX version is not installed #BASS_ERROR_TIMEOUT = 40 ;connection timedout #BASS_ERROR_FILEFORM = 41 ;unsupported file format #BASS_ERROR_SPEAKER = 42 ;unavailable speaker #BASS_ERROR_VERSION = 43 ;invalid BASS version (used by add-ons) #BASS_ERROR_CODEC = 44 ;codec is Not available/supported #BASS_ERROR_ENDED = 45 ;the channel/file has ended #BASS_ERROR_BUSY = 46 ;the device is busy #BASS_ERROR_UNKNOWN = -1 ;some other mystery error ;- BASS_SetConfig options #BASS_CONFIG_BUFFER = 0 #BASS_CONFIG_UPDATEPERIOD = 1 #BASS_CONFIG_GVOL_SAMPLE = 4 #BASS_CONFIG_GVOL_STREAM = 5 #BASS_CONFIG_GVOL_MUSIC = 6 #BASS_CONFIG_CURVE_VOL = 7 #BASS_CONFIG_CURVE_PAN = 8 #BASS_CONFIG_FLOATDSP = 9 #BASS_CONFIG_3DALGORITHM = 10 #BASS_CONFIG_NET_TIMEOUT = 11 #BASS_CONFIG_NET_BUFFER = 12 #BASS_CONFIG_PAUSE_NOPLAY = 13 #BASS_CONFIG_NET_PREBUF = 15 #BASS_CONFIG_NET_PASSIVE = 18 #BASS_CONFIG_REC_BUFFER = 19 #BASS_CONFIG_NET_PLAYLIST = 21 #BASS_CONFIG_MUSIC_VIRTUAL = 22 #BASS_CONFIG_VERIFY = 23 #BASS_CONFIG_UPDATETHREADS = 24 #BASS_CONFIG_DEV_BUFFER = 27 #BASS_CONFIG_VISTA_TRUEPOS = 30 #BASS_CONFIG_IOS_MIXAUDIO = 34 #BASS_CONFIG_DEV_DEFAULT = 36 #BASS_CONFIG_NET_READTIMEOUT = 37 #BASS_CONFIG_VISTA_SPEAKERS = 38 #BASS_CONFIG_IOS_SPEAKER = 39 #BASS_CONFIG_MF_DISABLE = 40 #BASS_CONFIG_HANDLES = 41 #BASS_CONFIG_UNICODE = 42 #BASS_CONFIG_SRC = 43 #BASS_CONFIG_SRC_SAMPLE = 44 #BASS_CONFIG_ASYNCFILE_BUFFER = 45 #BASS_CONFIG_OGG_PRESCAN = 47 #BASS_CONFIG_MF_VIDEO = 48 #BASS_CONFIG_AIRPLAY = 49 #BASS_CONFIG_DEV_NONSTOP = 50 #BASS_CONFIG_IOS_NOCATEGORY = 51 #BASS_CONFIG_VERIFY_NET = 52 ;- BASS_SetConfigPtr options #BASS_CONFIG_NET_AGENT = 16 #BASS_CONFIG_NET_PROXY = 17 #BASS_CONFIG_IOS_NOTIFY = 46 ;- BASS_Init flags #BASS_DEVICE_8BITS = $1 ;use 8 bit resolution,else 16 bit #BASS_DEVICE_MONO = $2 ;use mono,else stereo #BASS_DEVICE_3D = $4 ;enable 3D functionality #BASS_DEVICE_LATENCY = $100 ;calculate device latency (BASS_INFO struct) #BASS_DEVICE_CPSPEAKERS = $400 ;detect speakers via Windows control panel #BASS_DEVICE_SPEAKERS = $800 ;force enabling of speaker assignment #BASS_DEVICE_NOSPEAKER = $1000 ;ignore speaker arrangement #BASS_DEVICE_DMIX = $2000 ;use ALSA "dmix" plugin #BASS_DEVICE_FREQ = $4000 ;set device sample rate ;- DirectSound interfaces (For use With BASS_GetDSoundObject) #BASS_OBJECT_DS = 1 ;IDirectSound #BASS_OBJECT_DS3DL = 2 ;IDirectSound3DListener ;- Device info structure Structure BASS_DEVICEINFO name ;description driver ;driver flags.l EndStructure ;- BASS_DEVICEINFO flags #BASS_DEVICE_ENABLED = $1 #BASS_DEVICE_DEFAULT = $2 #BASS_DEVICE_INIT = $4 #BASS_DEVICE_TYPE_MASK = $ff000000 #BASS_DEVICE_TYPE_NETWORK = $01000000 #BASS_DEVICE_TYPE_SPEAKERS = $02000000 #BASS_DEVICE_TYPE_LINE = $03000000 #BASS_DEVICE_TYPE_HEADPHONES = $04000000 #BASS_DEVICE_TYPE_MICROPHONE = $05000000 #BASS_DEVICE_TYPE_HEADSET = $06000000 #BASS_DEVICE_TYPE_HANDSET = $07000000 #BASS_DEVICE_TYPE_DIGITAL = $08000000 #BASS_DEVICE_TYPE_SPDIF = $09000000 #BASS_DEVICE_TYPE_HDMI = $0a000000 #BASS_DEVICE_TYPE_DISPLAYPORT = $40000000 ;- BASS_GetDeviceInfo flags #BASS_DEVICES_AIRPLAY = $1000000 Structure BASS_INFO flags.l ;device capabilities (DSCAPS_xxx flags) hwsize.l ;size of total device hardware memory hwfree.l ;size of free device hardware memory freesam.l ;number of free sample slots in the hardware free3d.l ;number of free 3D sample slots in the hardware minrate.l ;min sample rate supported by the hardware maxrate.l ;max sample rate supported by the hardware eax.l ;device supports EAX? (always FALSE if BASS_DEVICE_3D was not used) minbuf.l ;recommended minimum buffer length in ms (requires BASS_DEVICE_LATENCY) dsver.l ;DirectSound version latency.l ;delay (in ms) before start of playback (requires BASS_DEVICE_LATENCY) initflags.l ;BASS_Init "flags" parameter speakers.l ;number of speakers available freq.l ;current output rate EndStructure ;- BASS_INFO flags (from DSOUND.H) #DSCAPS_CONTINUOUSRATE = $00000010 ;supports all sample rates between min/maxrate #DSCAPS_EMULDRIVER = $00000020 ;device does NOT have hardware DirectSound support #DSCAPS_CERTIFIED = $00000040 ;device driver has been certified by Microsoft #DSCAPS_SECONDARYMONO = $00000100 ;mono #DSCAPS_SECONDARYSTEREO = $00000200 ;stereo #DSCAPS_SECONDARY8BIT = $00000400 ;8 bit #DSCAPS_SECONDARY16BIT = $00000800 ;16 bit ;- Recording device info Structure Structure BASS_RECORDINFO flags.l ;device capabilities (DSCCAPS_xxx flags) formats.l ;supported standard formats (WAVE_FORMAT_xxx flags) inputs.l ;number of inputs singlein.l ;TRUE = only 1 input can be set at a time freq.l ;current input rate EndStructure ;- BASS_RECORDINFO flags (from DSOUND.H) #DSCCAPS_EMULDRIVER = #DSCAPS_EMULDRIVER ;device does NOT have hardware DirectSound recording support #DSCCAPS_CERTIFIED = #DSCAPS_CERTIFIED ;device driver has been certified by Microsoft ;- defines for formats field of BASS_RECORDINFO (from MMSYSTEM.H) #WAVE_FORMAT_1M08 = $00000001 ;11.025 kHz,Mono, 8-bit #WAVE_FORMAT_1S08 = $00000002 ;11.025 kHz,Stereo,8-bit #WAVE_FORMAT_1M16 = $00000004 ;11.025 kHz,Mono, 16-bit #WAVE_FORMAT_1S16 = $00000008 ;11.025 kHz,Stereo,16-bit #WAVE_FORMAT_2M08 = $00000010 ;22.05 kHz,Mono, 8-bit #WAVE_FORMAT_2S08 = $00000020 ;22.05 kHz,Stereo,8-bit #WAVE_FORMAT_2M16 = $00000040 ;22.05 kHz,Mono, 16-bit #WAVE_FORMAT_2S16 = $00000080 ;22.05 kHz,Stereo,16-bit #WAVE_FORMAT_4M08 = $00000100 ;44.1 kHz,Mono, 8-bit #WAVE_FORMAT_4S08 = $00000200 ;44.1 kHz,Stereo,8-bit #WAVE_FORMAT_4M16 = $00000400 ;44.1 kHz,Mono, 16-bit #WAVE_FORMAT_4S16 = $00000800 ;44.1 kHz,Stereo,16-bit ;- Sample info structure Structure BASS_SAMPLE freq.l ;default playback rate volume.f ;default volume (0-1) pan.f ;default pan (-1=left,0=middle,1=right) flags.l ;BASS_SAMPLE_xxx flags length.l ;length (in bytes) max.l ;maximum simultaneous playbacks origres.l ;original resolution bits chans.l ;number of channels mingap.l ;minimum gap (ms) between creating channels mode3d.l ;BASS_3DMODE_xxx mode mindist.f ;minimum distance maxdist.f ;maximum distance iangle.l ;angle of inside projection cone oangle.l ;angle of outside projection cone outvol.f ;delta-volume outside the projection cone vam.l ;voice allocation/management flags (BASS_VAM_xxx) priority.l ;priority (0=lowest,0xffffffff=highest) EndStructure ;- SAMPLE flags #BASS_SAMPLE_8BITS = 1 ;8 bit #BASS_SAMPLE_FLOAT = 256 ;32-bit floating-point #BASS_SAMPLE_MONO = 2 ;mono #BASS_SAMPLE_LOOP = 4 ;looped #BASS_SAMPLE_3D = 8 ;3D functionality #BASS_SAMPLE_SOFTWARE = 16 ;not using hardware mixing #BASS_SAMPLE_MUTEMAX = 32 ;mute at max distance (3D only) #BASS_SAMPLE_VAM = 64 ;DX7 voice allocation & management #BASS_SAMPLE_FX = 128 ;old implementation of DX8 effects #BASS_SAMPLE_OVER_VOL = $10000 ;override lowest volume #BASS_SAMPLE_OVER_POS = $20000 ;override longest playing #BASS_SAMPLE_OVER_DIST = $30000 ;override furthest from listener (3D only) ;- STREAM flags #BASS_STREAM_PRESCAN = $20000 ;enable pin-point seeking/length (MP3/MP2/MP1) #BASS_MP3_SETPOS = #BASS_STREAM_PRESCAN #BASS_STREAM_AUTOFREE = $40000 ;automatically free the stream when it stop/ends #BASS_STREAM_RESTRATE = $80000 ;restrict the download rate of internet file streams #BASS_STREAM_BLOCK = $100000 ;download/play internet file stream in small blocks #BASS_STREAM_DECODE = $200000 ;don't play the stream,only decode (BASS_ChannelGetData) #BASS_STREAM_STATUS = $800000 ;give server status info (HTTP/ICY tags) in DOWNLOADPROC ;- MUSIC flags #BASS_MUSIC_FLOAT = #BASS_SAMPLE_FLOAT #BASS_MUSIC_MONO = #BASS_SAMPLE_MONO #BASS_MUSIC_LOOP = #BASS_SAMPLE_LOOP #BASS_MUSIC_3D = #BASS_SAMPLE_3D #BASS_MUSIC_FX = #BASS_SAMPLE_FX #BASS_MUSIC_AUTOFREE = #BASS_STREAM_AUTOFREE #BASS_MUSIC_DECODE = #BASS_STREAM_DECODE #BASS_MUSIC_PRESCAN = #BASS_STREAM_PRESCAN ;calculate playback length #BASS_MUSIC_CALCLEN = #BASS_MUSIC_PRESCAN #BASS_MUSIC_RAMP = $200 ;normal ramping #BASS_MUSIC_RAMPS = $400 ;sensitive ramping #BASS_MUSIC_SURROUND = $800 ;surround sound #BASS_MUSIC_SURROUND2 = $1000 ;surround sound (mode 2) #BASS_MUSIC_FT2MOD = $2000 ;play .MOD as FastTracker 2 does #BASS_MUSIC_PT1MOD = $4000 ;play .MOD as ProTracker 1 does #BASS_MUSIC_NONINTER = $10000 ;non-interpolated sample mixing #BASS_MUSIC_SINCINTER = $800000 ;sinc interpolated sample mixing #BASS_MUSIC_POSRESET = $8000 ;stop all notes when moving position #BASS_MUSIC_POSRESETEX = $400000 ;stop all notes and reset bmp/etc when moving position #BASS_MUSIC_STOPBACK = $80000 ;stop the music on a backwards jump effect #BASS_MUSIC_NOSAMPLE = $100000 ;don't load the samples ;- SPEAKER assignment flags #BASS_SPEAKER_FRONT = $01000000 ;front speakers #BASS_SPEAKER_REAR = $02000000 ;rear/side speakers #BASS_SPEAKER_CENLFE = $03000000 ;center & LFE speakers (5.1) #BASS_SPEAKER_REAR2 = $04000000 ;rear center speakers (7.1) Macro BASS_SPEAKER_N(n) : (n<<24) : EndMacro ;n'th pair of speakers (max 15) #BASS_SPEAKER_LEFT = $10000000 ;modifier: left #BASS_SPEAKER_RIGHT = $20000000 ;modifier: right #BASS_SPEAKER_FRONTLEFT = #BASS_SPEAKER_FRONT \| #BASS_SPEAKER_LEFT #BASS_SPEAKER_FRONTRIGHT = #BASS_SPEAKER_FRONT \| #BASS_SPEAKER_RIGHT #BASS_SPEAKER_REARLEFT = #BASS_SPEAKER_REAR \| #BASS_SPEAKER_LEFT #BASS_SPEAKER_REARRIGHT = #BASS_SPEAKER_REAR \| #BASS_SPEAKER_RIGHT #BASS_SPEAKER_CENTER = #BASS_SPEAKER_CENLFE \| #BASS_SPEAKER_LEFT #BASS_SPEAKER_LFE = #BASS_SPEAKER_CENLFE \| #BASS_SPEAKER_RIGHT #BASS_SPEAKER_REAR2LEFT = #BASS_SPEAKER_REAR2 \| #BASS_SPEAKER_LEFT #BASS_SPEAKER_REAR2RIGHT = #BASS_SPEAKER_REAR2 \| #BASS_SPEAKER_RIGHT ;- FILE flags #BASS_ASYNCFILE = $40000000 #BASS_UNICODE = $80000000 ;- RECORD flags #BASS_RECORD_PAUSE = $8000 ;start recording paused #BASS_RECORD_ECHOCANCEL = $2000 #BASS_RECORD_AGC = $4000 ;- DX7 voice allocation & management flags #BASS_VAM_HARDWARE = 1 #BASS_VAM_SOFTWARE = 2 #BASS_VAM_TERM_TIME = 4 #BASS_VAM_TERM_DIST = 8 #BASS_VAM_TERM_PRIO = 16 ;- BASS Structures Structure BASS_CHANNELINFO freq.l ;default playback rate chans.l ;channels flags.l ;BASS_SAMPLE/STREAM/MUSIC/SPEAKER flags ctype.l ;type of channel origres.l ;original resolution plugin.l ;plugin handle sample.l ;sample filename ;filename EndStructure ;- BASS_CHANNELINFO types #BASS_CTYPE_SAMPLE = 1 #BASS_CTYPE_RECORD = 2 #BASS_CTYPE_STREAM = $10000 #BASS_CTYPE_STREAM_OGG = $10002 #BASS_CTYPE_STREAM_MP1 = $10003 #BASS_CTYPE_STREAM_MP2 = $10004 #BASS_CTYPE_STREAM_MP3 = $10005 #BASS_CTYPE_STREAM_AIFF = $10006 #BASS_CTYPE_STREAM_CA = $10007 #BASS_CTYPE_STREAM_MF = $10008 #BASS_CTYPE_STREAM_WAV = $40000 ;WAVE flag,LOWORD=codec #BASS_CTYPE_STREAM_WAV_PCM = $50001 #BASS_CTYPE_STREAM_WAV_FLOAT = $50003 #BASS_CTYPE_MUSIC_MOD = $20000 #BASS_CTYPE_MUSIC_MTM = $20001 #BASS_CTYPE_MUSIC_S3M = $20002 #BASS_CTYPE_MUSIC_XM = $20003 #BASS_CTYPE_MUSIC_IT = $20004 #BASS_CTYPE_MUSIC_MO3 = $00100 ;MO3 flag Structure BASS_PLUGINFORM ctype.l ;channel type name ;format description exts ;file extension filter (.ext1;.ext2;etc...) EndStructure Structure BASS_PLUGININFO version.l ;version (same form as BASS_GetVersion) formatc.l ;number of formats formats.BASS_PLUGINFORM ;the array of formats EndStructure ;- 3D vector (For 3D positions/velocities/orientations) Structure BASS_3DVECTOR x.f ;+=right,-=left y.f ;+=up,-=down z.f ;+=front,-=behind EndStructure ;- 3D channel modes #BASS_3DMODE_NORMAL = 0 ;normal 3D processing #BASS_3DMODE_RELATIVE = 1 ;position is relative to the listener #BASS_3DMODE_OFF = 2 ;no 3D processing ;- software 3D mixing algorithms (used With BASS_CONFIG_3DALGORITHM) #BASS_3DALG_DEFAULT = 0 #BASS_3DALG_OFF = 1 #BASS_3DALG_FULL = 2 #BASS_3DALG_LIGHT = 3 CompilerIf #PB_Compiler_OS = #PB_OS_Windows ;- EAX environments,use With BASS_SetEAXParameters Enumeration 0 #EAX_ENVIRONMENT_GENERIC #EAX_ENVIRONMENT_PADDEDCELL #EAX_ENVIRONMENT_ROOM #EAX_ENVIRONMENT_BATHROOM #EAX_ENVIRONMENT_LIVINGROOM #EAX_ENVIRONMENT_STONEROOM #EAX_ENVIRONMENT_AUDITORIUM #EAX_ENVIRONMENT_CONCERTHALL #EAX_ENVIRONMENT_CAVE #EAX_ENVIRONMENT_ARENA #EAX_ENVIRONMENT_HANGAR #EAX_ENVIRONMENT_CARPETEDHALLWAY #EAX_ENVIRONMENT_HALLWAY #EAX_ENVIRONMENT_STONECORRIDOR #EAX_ENVIRONMENT_ALLEY #EAX_ENVIRONMENT_FOREST #EAX_ENVIRONMENT_CITY #EAX_ENVIRONMENT_MOUNTAINS #EAX_ENVIRONMENT_QUARRY #EAX_ENVIRONMENT_PLAIN #EAX_ENVIRONMENT_PARKINGLOT #EAX_ENVIRONMENT_SEWERPIPE #EAX_ENVIRONMENT_UNDERWATER #EAX_ENVIRONMENT_DRUGGED #EAX_ENVIRONMENT_DIZZY #EAX_ENVIRONMENT_PSYCHOTIC #EAX_ENVIRONMENT_COUNT ;total number of environments EndEnumeration ;EAX presets,usage: BASS_SetEAXParameters(EAX_PRESET_xxx) Macro EAX_PRESET_GENERIC : #EAX_ENVIRONMENT_GENERIC,0.5F,1.493F,0.5F : EndMacro Macro EAX_PRESET_PADDEDCELL : #EAX_ENVIRONMENT_PADDEDCELL,0.25F,0.1F,0.0F : EndMacro Macro EAX_PRESET_ROOM : #EAX_ENVIRONMENT_ROOM,0.417F,0.4F,0.666F : EndMacro Macro EAX_PRESET_BATHROOM : #EAX_ENVIRONMENT_BATHROOM,0.653F,1.499F,0.166F : EndMacro Macro EAX_PRESET_LIVINGROOM : #EAX_ENVIRONMENT_LIVINGROOM,0.208F,0.478F,0.0F : EndMacro Macro EAX_PRESET_STONEROOM : #EAX_ENVIRONMENT_STONEROOM,0.5F,2.309F,0.888F : EndMacro Macro EAX_PRESET_AUDITORIUM : #EAX_ENVIRONMENT_AUDITORIUM,0.403F,4.279F,0.5F : EndMacro Macro EAX_PRESET_CONCERTHALL : #EAX_ENVIRONMENT_CONCERTHALL,0.5F,3.961F,0.5F : EndMacro Macro EAX_PRESET_CAVE : #EAX_ENVIRONMENT_CAVE,0.5F,2.886F,1.304F : EndMacro Macro EAX_PRESET_ARENA : #EAX_ENVIRONMENT_ARENA,0.361F,7.284F,0.332F : EndMacro Macro EAX_PRESET_HANGAR : #EAX_ENVIRONMENT_HANGAR,0.5F,10.0F,0.3F : EndMacro Macro EAX_PRESET_CARPETEDHALLWAY : #EAX_ENVIRONMENT_CARPETEDHALLWAY,0.153F,0.259F,2.0F : EndMacro Macro EAX_PRESET_HALLWAY : #EAX_ENVIRONMENT_HALLWAY,0.361F,1.493F,0.0F : EndMacro Macro EAX_PRESET_STONECORRIDOR : #EAX_ENVIRONMENT_STONECORRIDOR,0.444F,2.697F,0.638F : EndMacro Macro EAX_PRESET_ALLEY : #EAX_ENVIRONMENT_ALLEY,0.25F,1.752F,0.776F : EndMacro Macro EAX_PRESET_FOREST : #EAX_ENVIRONMENT_FOREST,0.111F,3.145F,0.472F : EndMacro Macro EAX_PRESET_CITY : #EAX_ENVIRONMENT_CITY,0.111F,2.767F,0.224F : EndMacro Macro EAX_PRESET_MOUNTAINS : #EAX_ENVIRONMENT_MOUNTAINS,0.194F,7.841F,0.472F : EndMacro Macro EAX_PRESET_QUARRY : #EAX_ENVIRONMENT_QUARRY,1.0F,1.499F,0.5F : EndMacro Macro EAX_PRESET_PLAIN : #EAX_ENVIRONMENT_PLAIN,0.097F,2.767F,0.224F : EndMacro Macro EAX_PRESET_PARKINGLOT : #EAX_ENVIRONMENT_PARKINGLOT,0.208F,1.652F,1.5F : EndMacro Macro EAX_PRESET_SEWERPIPE : #EAX_ENVIRONMENT_SEWERPIPE,0.652F,2.886F,0.25F : EndMacro Macro EAX_PRESET_UNDERWATER : #EAX_ENVIRONMENT_UNDERWATER,1.0F,1.499F,0.0F : EndMacro Macro EAX_PRESET_DRUGGED : #EAX_ENVIRONMENT_DRUGGED,0.875F,8.392F,1.388F : EndMacro Macro EAX_PRESET_DIZZY : #EAX_ENVIRONMENT_DIZZY,0.139F,17.234F,0.666F : EndMacro Macro EAX_PRESET_PSYCHOTIC : #EAX_ENVIRONMENT_PSYCHOTIC,0.486F,7.563F,0.806F : EndMacro CompilerEndIf ;typedef DWORD (CALLBACK STREAMPROC)(HSTREAM handle,void buffer,DWORD length,void user); ; User stream callback function. NOTE: A stream function should obviously be as quick ;as possible,other streams (and MOD musics) can't be mixed until it's finished. ;handle : The stream that needs writing ;buffer : Buffer to write the samples in ;length : Number of bytes to write ;user : The 'user' parameter value given when calling BASS_StreamCreate ;RETURN : Number of bytes written. Set the BASS_STREAMPROC_END flag to end ; the stream. #BASS_STREAMPROC_END = $80000000 ;end of user stream flag ;- special STREAMPROCs ;#STREAMPROC_DUMMY (STREAMPROC)0 // "dummy" stream ;#STREAMPROC_PUSH (STREAMPROC)-1 // push stream ;special STREAMPROCs #STREAMPROC_DUMMY = 0 ;"dummy" stream #STREAMPROC_PUSH = -1 ;push stream ;- BASS_StreamCreateFileUser file systems #STREAMFILE_NOBUFFER = 0 #STREAMFILE_BUFFER = 1 #STREAMFILE_BUFFERPUSH = 2 ;- User file stream callback functions ;typedef void (CALLBACK FILECLOSEPROC)(void user); ;typedef QWORD (CALLBACK FILELENPROC)(void user); ;typedef DWORD (CALLBACK FILEREADPROC)(void buffer,DWORD length,void user); ;typedef BOOL (CALLBACK FILESEEKPROC)(QWORD offset,void user); Structure BASS_FILEPROCS close length read seek EndStructure ;- BASS_StreamPutFileData options #BASS_FILEDATA_END = 0 ;end & close the file ;- BASS_StreamGetFilePosition modes #BASS_FILEPOS_CURRENT = 0 #BASS_FILEPOS_DECODE = #BASS_FILEPOS_CURRENT #BASS_FILEPOS_DOWNLOAD = 1 #BASS_FILEPOS_END = 2 #BASS_FILEPOS_START = 3 #BASS_FILEPOS_CONNECTED = 4 #BASS_FILEPOS_BUFFER = 5 #BASS_FILEPOS_SOCKET = 6 #BASS_FILEPOS_ASYNCBUF = 7 #BASS_FILEPOS_SIZE = 8 ;typedef void (CALLBACK DOWNLOADPROC)(const void buffer,DWORD length,void user); ;/ Internet stream download callback function. ;buffer : Buffer containing the downloaded data... NULL=end of download ;length : Number of bytes in the buffer ;user : The 'user' parameter value given when calling BASS_StreamCreateURL / ;- BASS_ChannelSetSync types #BASS_SYNC_POS = 0 #BASS_SYNC_END = 2 #BASS_SYNC_META = 4 #BASS_SYNC_SLIDE = 5 #BASS_SYNC_STALL = 6 #BASS_SYNC_DOWNLOAD = 7 #BASS_SYNC_FREE = 8 #BASS_SYNC_SETPOS = 11 #BASS_SYNC_MUSICPOS = 10 #BASS_SYNC_MUSICINST = 1 #BASS_SYNC_MUSICFX = 3 #BASS_SYNC_OGG_CHANGE = 12 #BASS_SYNC_MIXTIME = $40000000 ;FLAG: sync at mixtime,else at playtime #BASS_SYNC_ONETIME = $80000000 ;FLAG: sync only once,else continuously ;typedef void (CALLBACK SYNCPROC)(HSYNC handle,DWORD channel,DWORD data,void user); ;Sync callback function. NOTE: a sync callback function should be very ;quick as other syncs can't be processed until it has finished. If the sync ;is a "mixtime" sync,then other streams and MOD musics can't be mixed until ;it's finished either. ;handle : The sync that has occured ;channel: Channel that the sync occured in ;data : Additional data associated with the sync's occurance ;user : The 'user' parameter given when calling BASS_ChannelSetSync / ;typedef void (CALLBACK DSPPROC)(HDSP handle,DWORD channel,void buffer,DWORD length,void user); ;/ DSP callback function. NOTE: A DSP function should obviously be as quick as ;possible... other DSP functions,streams and MOD musics can not be processed ;until it's finished. ;handle : The DSP handle ;channel: Channel that the DSP is being applied to ;buffer : Buffer to apply the DSP to ;length : Number of bytes in the buffer ;user : The 'user' parameter given when calling BASS_ChannelSetDSP / ;typedef BOOL (CALLBACK RECORDPROC)(HRECORD handle,const void buffer,DWORD length,void user); ;/ Recording callback function. ;handle : The recording handle ;buffer : Buffer containing the recorded sample data ;length : Number of bytes ;user : The 'user' parameter value given when calling BASS_RecordStart ;RETURN : TRUE = continue recording,FALSE = stop / ;- BASS_ChannelIsActive Return values #BASS_ACTIVE_STOPPED = 0 #BASS_ACTIVE_PLAYING = 1 #BASS_ACTIVE_STALLED = 2 #BASS_ACTIVE_PAUSED = 3 ;- Channel attributes #BASS_ATTRIB_FREQ = 1 #BASS_ATTRIB_VOL = 2 #BASS_ATTRIB_PAN = 3 #BASS_ATTRIB_EAXMIX = 4 #BASS_ATTRIB_NOBUFFER = 5 #BASS_ATTRIB_VBR = 6 #BASS_ATTRIB_CPU = 7 #BASS_ATTRIB_SRC = 8 #BASS_ATTRIB_NET_RESUME = 9 #BASS_ATTRIB_SCANINFO = 10 #BASS_ATTRIB_MUSIC_AMPLIFY = $100 #BASS_ATTRIB_MUSIC_PANSEP = $101 #BASS_ATTRIB_MUSIC_PSCALER = $102 #BASS_ATTRIB_MUSIC_BPM = $103 #BASS_ATTRIB_MUSIC_SPEED = $104 #BASS_ATTRIB_MUSIC_VOL_GLOBAL = $105 #BASS_ATTRIB_MUSIC_ACTIVE = $106 #BASS_ATTRIB_MUSIC_VOL_CHAN = $200 ;+ channel # #BASS_ATTRIB_MUSIC_VOL_INST = $300 ;+ instrument # ;- BASS_ChannelGetData flags #BASS_DATA_AVAILABLE = 0 ;query how much data is buffered #BASS_DATA_FIXED = $20000000 ;flag: return 8.24 fixed-point data #BASS_DATA_FLOAT = $40000000 ;flag: return floating-point sample data #BASS_DATA_FFT256 = $80000000 ;256 sample FFT #BASS_DATA_FFT512 = $80000001 ;512 FFT #BASS_DATA_FFT1024 = $80000002 ;1024 FFT #BASS_DATA_FFT2048 = $80000003 ;2048 FFT #BASS_DATA_FFT4096 = $80000004 ;4096 FFT #BASS_DATA_FFT8192 = $80000005 ;8192 FFT #BASS_DATA_FFT16384 = $80000006 ;16384 FFT #BASS_DATA_FFT_INDIVIDUAL = $10 ;FFT flag: FFT for each channel,else all combined #BASS_DATA_FFT_NOWINDOW = $20 ;FFT flag: no Hanning window #BASS_DATA_FFT_REMOVEDC = $40 ;FFT flag: pre-remove DC bias #BASS_DATA_FFT_COMPLEX = $80 ;FFT flag: return complex data ;- BASS_ChannelGetTags types : what's returned #BASS_TAG_ID3 = 0 ;ID3v1 tags : TAG_ID3 structure #BASS_TAG_ID3V2 = 1 ;ID3v2 tags : variable length block #BASS_TAG_OGG = 2 ;OGG comments : series of null-terminated UTF-8 strings #BASS_TAG_HTTP = 3 ;HTTP headers : series of null-terminated ANSI strings #BASS_TAG_ICY = 4 ;ICY headers : series of null-terminated ANSI strings #BASS_TAG_META = 5 ;ICY metadata : ANSI string #BASS_TAG_APE = 6 ;APE tags : series of null-terminated UTF-8 strings #BASS_TAG_MP4 = 7 ;MP4/iTunes metadata : series of null-terminated UTF-8 strings #BASS_TAG_VENDOR = 9 ;OGG encoder : UTF-8 string #BASS_TAG_LYRICS3 = 10 ;Lyric3v2 tag : ASCII string #BASS_TAG_CA_CODEC = 11 ;CoreAudio codec info : TAG_CA_CODEC structure #BASS_TAG_MF = 13 ;Media Foundation tags : series of null-terminated UTF-8 strings #BASS_TAG_WAVEFORMAT = 14 ;WAVE format : WAVEFORMATEEX structure #BASS_TAG_RIFF_INFO = $100 ;RIFF "INFO" tags : series of null-terminated ANSI strings #BASS_TAG_RIFF_BEXT = $101 ;RIFF/BWF "bext" tags : TAG_BEXT structure #BASS_TAG_RIFF_CART = $102 ;RIFF/BWF "cart" tags : TAG_CART structure #BASS_TAG_RIFF_DISP = $103 ;RIFF "DISP" text tag : ANSI string #BASS_TAG_APE_BINARY = $1000 ;+ index #,binary APE tag : TAG_APE_BINARY structure #BASS_TAG_MUSIC_NAME = $10000;MOD music name : ANSI string #BASS_TAG_MUSIC_MESSAGE = $10001;MOD message : ANSI string #BASS_TAG_MUSIC_ORDERS = $10002 ;MOD order list : BYTE array of pattern numbers #BASS_TAG_MUSIC_INST = $10100;+ instrument #,MOD instrument name : ANSI string #BASS_TAG_MUSIC_SAMPLE = $10300 ;+ sample #,MOD sample name : ANSI string ;- ID3v1 tag structure Structure TAG_ID3 id.a[3] title.a[30] artist.a[30] album.a[30] year.a[4] comment.a[30] genre.b EndStructure ;- Binary APE tag structure Structure TAG_APE_BINARY key data length.l EndStructure ;- BWF "bext" tag structure Structure TAG_BEXT Description.a[256] ;// description Originator.a[32] ;// name of the originator OriginatorReference.a[32] ;// reference of the originator OriginationDate.a[10] ;// date of creation (yyyy-mm-dd) OriginationTime.a[8] ;// time of creation (hh-mm-ss) TimeReference.q ;// first sample count since midnight (little-endian) Version.w ;// BWF version (little-endian) UMID.b[64] ;// SMPTE UMID Reserved.b[190] CodingHistory.a[0] ;// history EndStructure ;- BWF "cart" tag structures Structure TAG_CART_TIMER dwUsage.l ;FOURCC timer usage ID dwValue.l ;timer value in samples from head EndStructure Structure TAG_CART Version.a[4] ;version of the data structure Title.a[64] ;title of cart audio sequence Artist.a[64] ;artist or creator name CutID.a[64] ;cut number identification ClientID.a[64] ;client identification Category.a[64] ;category ID,PSA,NEWS,etc Classification.a[64] ;classification or auxiliary key OutCue.a[64] ;out cue text StartDate.a[10] ;yyyy-mm-dd StartTime.a[8] ;hh:mm:ss EndDate.a[10] ;yyyy-mm-dd EndTime.a[8] ;hh:mm:ss ProducerAppID.a[64] ;name of vendor or application ProducerAppVersion.a[64];version of producer application UserDef.a[64] ;user defined text dwLevelReference.l ;sample value for 0 dB reference PostTimer.TAG_CART_TIMER[8] ;8 time markers after head Reserved.a[276] URL.a[1024] ;uniform resource locator TagText.a[0] ;free form text for scripts or tags EndStructure ;CoreAudio codec info structure Structure TAG_CA_CODEC ftype.l ;file format atype.l ;audio format name ;description EndStructure CompilerIf Defined(WAVEFORMATEX,#PB_Structure) = #False Structure WAVEFORMATEX wFormatTag.u nChannels.u nSamplesPerSec.l nAvgBytesPerSec.l nBlockAlign.u wBitsPerSample.u cbSize.u EndStructure CompilerEndIf ;- BASS_ChannelGetLength/GetPosition/SetPosition modes #BASS_POS_BYTE = 0 ;byte position #BASS_POS_MUSIC_ORDER = 1 ;order.row position,MAKELONG(order,row) #BASS_POS_OGG = 3 ;OGG bitstream number #BASS_POS_INEXACT = $08000000 ;flag: allow seeking to inexact position #BASS_POS_DECODE = $10000000 ;flag: get the decoding (not playing) position #BASS_POS_DECODETO = $20000000 ;flag: decode to the position instead of seeking #BASS_POS_SCAN = $40000000 ;flag: scan to the position ;- BASS_RecordSetInput flags #BASS_INPUT_OFF = $10000 #BASS_INPUT_ON = $20000 #BASS_INPUT_TYPE_MASK = $ff000000 #BASS_INPUT_TYPE_UNDEF = $00000000 #BASS_INPUT_TYPE_DIGITAL = $01000000 #BASS_INPUT_TYPE_LINE = $02000000 #BASS_INPUT_TYPE_MIC = $03000000 #BASS_INPUT_TYPE_SYNTH = $04000000 #BASS_INPUT_TYPE_CD = $05000000 #BASS_INPUT_TYPE_PHONE = $06000000 #BASS_INPUT_TYPE_SPEAKER = $07000000 #BASS_INPUT_TYPE_WAVE = $08000000 #BASS_INPUT_TYPE_AUX = $09000000 #BASS_INPUT_TYPE_ANALOG = $0a000000 ;DX8 effect types,use with BASS_ChannelSetFX Enumeration 0 #BASS_FX_DX8_CHORUS #BASS_FX_DX8_COMPRESSOR #BASS_FX_DX8_DISTORTION #BASS_FX_DX8_ECHO #BASS_FX_DX8_FLANGER #BASS_FX_DX8_GARGLE #BASS_FX_DX8_I3DL2REVERB #BASS_FX_DX8_PARAMEQ #BASS_FX_DX8_REVERB EndEnumeration Structure BASS_DX8_CHORUS fWetDryMix.f fDepth.f fFeedback.f fFrequency.f lWaveform.l ;0=triangle,1=sine fDelay.f lPhase.l ;BASS_DX8_PHASE_xxx EndStructure Structure BASS_DX8_COMPRESSOR fGain.f fAttack.f fRelease.f fThreshold.f fRatio.f fPredelay.f EndStructure Structure BASS_DX8_DISTORTION fGain.f fEdge.f fPostEQCenterFrequency.f fPostEQBandwidth.f fPreLowpassCutoff.f EndStructure Structure BASS_DX8_ECHO fWetDryMix.f fFeedback.f fLeftDelay.f fRightDelay.f lPanDelay.l EndStructure Structure BASS_DX8_FLANGER fWetDryMix.f fDepth.f fFeedback.f fFrequency.f lWaveform.l ;0=triangle,1=sine fDelay.f lPhase.l ;BASS_DX8_PHASE_xxx EndStructure Structure BASS_DX8_GARGLE dwRateHz.l ;Rate of modulation in hz dwWaveShape.l ;0=triangle,1=square EndStructure Structure BASS_DX8_I3DL2REVERB lRoom.l ;[-10000,0] default: -1000 mB lRoomHF.l ;[-10000,0] default: 0 mB flRoomRolloffFactor.f ;[0.0,10.0] default: 0.0 flDecayTime.f ;[0.1,20.0] default: 1.49s flDecayHFRatio.f ;[0.1,2.0] default: 0.83 lReflections.l ;[-10000,1000] default: -2602 mB flReflectionsDelay.f ;[0.0,0.3] default: 0.007 s lReverb.l ;[-10000,2000] default: 200 mB flReverbDelay.f ;[0.0,0.1] default: 0.011 s flDiffusion.f ;[0.0,100.0] default: 100.0 % flDensity.f ;[0.0,100.0] default: 100.0 % flHFReference.f ;[20.0,20000.0] default: 5000.0 Hz EndStructure Structure BASS_DX8_PARAMEQ fCenter.f fBandwidth.f fGain.f EndStructure Structure BASS_DX8_REVERB fInGain.f ;[-96.0,0.0] default: 0.0 dB fReverbMix.f ;[-96.0,0.0] default: 0.0 db fReverbTime.f ;[0.001,3000.0] default: 1000.0 ms fHighFreqRTRatio.f ;[0.001,0.999] default: 0.001 EndStructure #BASS_DX8_PHASE_NEG_180 = 0 #BASS_DX8_PHASE_NEG_90 = 1 #BASS_DX8_PHASE_ZERO = 2 #BASS_DX8_PHASE_90 = 3 #BASS_DX8_PHASE_180 = 4 ; typedef void (CALLBACK IOSNOTIFYPROC)(DWORD status); ; /* iOS notification callback function. ; status : The notification (BASS_IOSNOTIFY_xxx) / #BASS_IOSNOTIFY_INTERRUPT = 1 ;interruption started #BASS_IOSNOTIFY_INTERRUPT_END = 2 ;interruption ended ;} Import "bass.lib" SetConfig.l(option.l,value.l) As "_BASS_SetConfig@8" GetConfig(option.l) As "BASS_GetConfig(option" SetConfigPtr.l(option.l,value) As "_BASS_SetConfigPtr@8" GetConfigPtr.i(option.l) As "_BASS_GetConfigPtr@4" GetVersion.l() As "_BASS_GetVersion@0" ErrorGetCode.l() As "_BASS_ErrorGetCode@0" GetDeviceInfo.l(device.l,info) As "_BASS_GetDeviceInfo@8" InitEx.l(device.l,freq.l,flags.l,win,dsguid) As "_BASS_Init@20" SetDevice.l(device.l) As "_BASS_SetDevice@4" GetDevice.l() As "_BASS_GetDevice@0" Free.l() As "_BASS_Free@0" GetDSoundObject.i(object.l) As "_BASS_GetDSoundObject@4" GetInfo.l(info) As "_BASS_GetInfo@4" Update.l(length.l) As "_BASS_Update@4" GetCPU.f() As "_BASS_GetCPU@0" Start.l() As "_BASS_Start@0" Stop.l() As "_BASS_Stop@0" Pause.l() As "_BASS_Pause@0" SetVolume.l(volume.f) As "_BASS_SetVolume@4" GetVolume.f() As "_BASS_GetVolume@0" PluginLoad.l(file,flags.l) As "_BASS_PluginLoad@8" PluginFree.l(handle.l) As "_BASS_PluginFree@4" PluginGetInfo.i(handle.l) As "_BASS_PluginGetInfo@4" Set3DFactors.l(distf.f,rollf.f,doppf.f) As "_BASS_Set3DFactors@12" Get3DFactors.l(distf,rollf,doppf) As "_BASS_Get3DFactors@12" Set3DPosition.l(pos,vel,front,top) As "_BASS_Set3DPosition@16" Get3DPosition.l(pos,vel,front,top) As "_BASS_Get3DPosition@16" Apply3D.i() As "_BASS_Apply3D@0" SetEAXParameters.l(env.l,vol.f,decay.f,damp.f) As "_BASS_SetEAXParameters@16" GetEAXParameters.l(env,vol,decay,damp) As "_BASS_GetEAXParameters@16" MusicLoad.l(mem.l,file,offset.q,length.l,flags.l,freq.l) As "_BASS_MusicLoad@28" MusicFree.l(handle.l) As "_BASS_MusicFree@4" SampleLoad.l(mem.l,file,offset.q,length.l,max.l,flags.l) As "_BASS_SampleLoad@28" SampleCreate.l(length.l,freq.l,chans.l,max.l,flags.l) As "_BASS_SampleCreate@20" SampleFree.l(handle.l) As "_BASS_SampleFree@4" SampleSetData.l(handle.l,buffer) As "_BASS_SampleSetData@8" SampleGetData.l(handle.l,buffer) As "_BASS_SampleGetData@8" SampleGetInfo.l(handle.l,info) As "_BASS_SampleGetInfo@8" SampleSetInfo.l(handle.l,info) As "_BASS_SampleSetInfo@8" SampleGetChannel.l(handle.l,onlynew.l) As "_BASS_SampleGetChannel@8" SampleGetChannels.l(handle.l,channels) As "_BASS_SampleGetChannels@8" SampleStop.l(handle.l) As "_BASS_SampleStop@4" StreamCreate.l(freq.l,chans.l,flags.l,proc,user) As "_BASS_StreamCreate@20" StreamCreateFileEx.l(mem.l,file,offset.q,length.q,flags.l) As "_BASS_StreamCreateFile@28" StreamCreateURL.l(url,offset.l,flags.l,proc,user) As "_BASS_StreamCreateURL@20" StreamCreateFileUser.l(system.l,flags.l,proc,user) As "_BASS_StreamCreateFileUser@16" StreamFree.l(handle.l) As "_BASS_StreamFree@4" StreamGetFilePosition.q(handle.l,mode.l) As "_BASS_StreamGetFilePosition@8" StreamPutData.l(handle.l,buffer,length.l) As "_BASS_StreamPutData@12" StreamPutFileData.l(handle.l,buffer,length.l) As "_BASS_StreamPutFileData@12" RecordGetDeviceInfo.l(device.l,info) As "_BASS_RecordGetDeviceInfo@8" RecordInit.l(device.l) As "_BASS_RecordInit@4" RecordSetDevice.l(device.l) As "_BASS_RecordSetDevice@4" RecordGetDevice.l() As "_BASS_RecordGetDevice@0" RecordFree.l() As "_BASS_RecordFree@0" RecordGetInfo.l(info) As "_BASS_RecordGetInfo@4" RecordGetInputName.i(input.l) As "_BASS_RecordGetInputName@4" RecordSetInput.l(input.l,flags.l,volume.f) As "_BASS_RecordSetInput@12" RecordGetInput.l(input.l,volume) As "_BASS_RecordGetInput@8" RecordStart.l(freq.l,chans.l,flags.l,proc,user) As "_BASS_RecordStart@20" ChannelBytes2Seconds.d(handle.l,pos.q) As "_BASS_ChannelBytes2Seconds@12" ChannelSeconds2Bytes.q(handle.l,pos.d) As "_BASS_ChannelSeconds2Bytes@12" ChannelGetDevice.l(handle.l) As "_BASS_ChannelGetDevice@4" ChannelSetDevice.l(handle.l,device.l) As "_BASS_ChannelSetDevice@8" ChannelIsActive.l(handle.l) As "_BASS_ChannelIsActive@4" ChannelGetInfo.l(handle.l,info) As "_BASS_ChannelGetInfo@8" ChannelGetTags.i(handle.l,tags.l) As "_BASS_ChannelGetTags@8" ChannelFlags.l(handle.l,flags.l,mask.l) As "_BASS_ChannelFlags@12" ChannelUpdate.l(handle.l,length.l) As "_BASS_ChannelUpdate@8" ChannelLock.l(handle.l,lock.l) As "_BASS_ChannelLock@8" ChannelPlay.l(handle.l,restart.l) As "_BASS_ChannelPlay@8" ChannelStop.l(handle.l) As "_BASS_ChannelStop@4" ChannelPause.l(handle.l) As "_BASS_ChannelPause@4" ChannelSetAttribute.l(handle.l,attrib.l,value.f) As "_BASS_ChannelSetAttribute@12" ChannelGetAttribute.l(handle.l,attrib.l,value) As "_BASS_ChannelGetAttribute@12" ChannelSlideAttribute.l(handle.l,attrib.l,value.f,time.l) As "_BASS_ChannelSlideAttribute@16" ChannelIsSliding(handle.l,attrib.l) As "BASS_ChannelIsSliding(handle" ChannelSetAttributeEx.l(handle.l,attrib.l,value,size.l) As "_BASS_ChannelSetAttributeEx@16" ChannelGetAttributeEx.l(handle.l,attrib.l,value,size.l) As "_BASS_ChannelGetAttributeEx@16" ChannelSet3DAttributes.l(handle.l,mode.l,min.f,max.f,iangle.l,oangle.l,outvol.f) As "_BASS_ChannelSet3DAttributes@28" ChannelGet3DAttributes.l(handle.l,mode,min,max,iangle,oangle,outvol) As "_BASS_ChannelGet3DAttributes@28" ChannelSet3DPosition.l(handle.l,pos,orient,vel) As "_BASS_ChannelSet3DPosition@16" ChannelGet3DPosition.l(handle.l,pos,orient,vel) As "_BASS_ChannelGet3DPosition@16" ChannelGetLength.q(handle.l,mode.l) As "_BASS_ChannelGetLength@8" ChannelSetPosition.l(handle.l,pos.q,mode.l) As "_BASS_ChannelSetPosition@16" ChannelGetPosition.q(handle.l,mode.l) As "_BASS_ChannelGetPosition@8" ChannelGetLevel.l(handle.l) As "_BASS_ChannelGetLevel@4" ChannelGetLevelEx.l(handle.l,levels,length.f,flags.l) As "_BASS_ChannelGetLevelEx@16" ChannelGetData.l(handle.l,buffer,length.l) As "_BASS_ChannelGetData@12" ChannelSetSync.l(handle.l,type.l,param.q,proc,user) As "_BASS_ChannelSetSync@24" ChannelRemoveSync.l(handle.l,sync.l) As "_BASS_ChannelRemoveSync@8" ChannelSetDSP.l(handle.l,proc,user,priority.l) As "_BASS_ChannelSetDSP@16" ChannelRemoveDSP.l(handle.l,dsp.l) As "_BASS_ChannelRemoveDSP@8" ChannelSetLink.l(handle.l,chan.l) As "_BASS_ChannelSetLink@8" ChannelRemoveLink.l(handle.l,chan.l) As "_BASS_ChannelRemoveLink@8" ChannelSetFX.l(handle.l,type.l,priority.l) As "_BASS_ChannelSetFX@12" ChannelRemoveFX.l(handle.l,fx.l) As "_BASS_ChannelRemoveFX@8" FXSetParameters.l(handle.l,params) As "_BASS_FXSetParameters@8" FXGetParameters.l(handle.l,params) As "_BASS_FXGetParameters@8" FXReset.l(handle.l) As "_BASS_FXReset@4" EndImport Declare.l Init(Handle.i = #Null) Declare.l StreamCreateFile(File.s) EndDeclareModule ; Module BASS ;MODDED FUNCTIONS! Procedure.l Init(Handle.i = #Null);-> USE InitEx() FOR CUSTOM SETTINGS! If GetVersion() = #BASSVERSION;changed to most recent 2.4 (x64)! ProcedureReturn InitEx(-1,44100,#Null,Handle,#Null) EndIf EndProcedure Procedure.l StreamCreateFile(File.s);-> USE StreamCreateFileEx() FOR CUSTOM SETTINGS! ProcedureReturn StreamCreateFileEx(#Null,@File,#Null,#Null,#BASS_UNICODE) EndProcedure EndModule IncludeFile "BASS_SFX.pbi" Structure DRAW_STRUCT Gadget.i Pitch.i Buffer BufferSize.i Font.i FontHandle.i EndStructure Procedure.i dInit(Gadget.i) Protected draw.DRAW_STRUCT Protected Font.i If IsGadget(Gadget) draw = AllocateStructure(DRAW_STRUCT) If draw Font = LoadFont(#PB_Any,"Consolas",10) If IsFont(Font) If StartDrawing(CanvasOutput(Gadget)) With draw \Gadget = Gadget \Buffer = DrawingBuffer() \Pitch = DrawingBufferPitch() \BufferSize = \Pitch GadgetHeight(\Gadget,#PB_Gadget_ActualSize) \Font = Font \FontHandle = FontID(\Font) StopDrawing() FillMemory(\Buffer,\BufferSize) EndWith ProcedureReturn draw EndIf EndIf FreeStructure(draw) EndIf EndIf EndProcedure Procedure.i dStart(draw.DRAW_STRUCT) With draw If StartVectorDrawing(CanvasVectorOutput(\Gadget)) FillMemory(\Buffer,\BufferSize) ProcedureReturn #True EndIf EndWith EndProcedure Procedure.i dText(draw.DRAW_STRUCT,x.d,y.d,text.s,color.i) With draw VectorFont(\FontHandle,14) VectorSourceColor(color) MovePathCursor(x,y,#PB_Path_Default) If Len(text) > 32 DrawVectorText(Left(text,32) + "...") Else DrawVectorText(text) EndIf EndWith EndProcedure Procedure.i dBlock(x1.d,y1.d,x2.d,y2.d,w.f,color.i) Protected h.d h = w / 2 y1 + h y2 + h VectorSourceColor(color) MovePathCursor(x1,y1,#PB_Path_Default) AddPathLine(x2,y2,#PB_Path_Default) StrokePath(w,#PB_Path_Default) EndProcedure Procedure.i dStop() StopVectorDrawing() EndProcedure Procedure.i dRelease(draw.DRAW_STRUCT) With draw FreeFont(\Font) EndWith FreeStructure(draw) EndProcedure Procedure.i UpdateSpectrum(Stream.i,Buffer,BufferSize) Protected Offset.i Protected Index.f Protected PosY.Float Protected Y.d Protected X.d Protected OldX.d Protected OldY.d OldY = 30 For Offset = 0 To 300 Step 3 PosY = Buffer + Offset 4 Y = (PosY\f 40) + 30 X = Offset Index = X / 40 dBlock(OldX,OldY,X,Y,20,RGBA($4D * Index,$FF * Index,$35 * Index,$55));$224DFF35) OldX = X OldY = Y Next OldX = 0 If Not BASS::ChannelGetData(Stream,Buffer,BufferSize\|BASS::#BASS_DATA_FLOAT) = -1 OldY = 40 For Offset = 0 To 300 Step 2 PosY = Buffer + Offset 4 Y = (PosY\f 40) + 40 X = Offset dBlock(OldX,OldY,X,Y,2,$FF4DFF35) OldX = X OldY = Y Next EndIf EndProcedure Procedure.i Window(Title.s) Protected Window.i Protected WindowMsg.i Protected WindowFlags.i Protected Canvas.i Protected Progress.i Protected TrackBar.i Protected TrackVolume.i Protected LabelVolume.i Protected ButtonLoad.i Protected ButtonPlay.i Protected ButtonPause.i Protected ButtonStop.i Protected Handle.i Protected File.s Protected Name.s Protected Stream.i Protected NewStream.i Protected Length.i Protected Factor.f Protected TrackFactor.f Protected BufferSize.i = 302 << 2 Protected Buffer = AllocateMemory(BufferSize) Protected CanvasSFX.i Protected PluginResult If Buffer WindowFlags = #PB_Window_SystemMenu\|#PB_Window_ScreenCentered\|#PB_Window_MinimizeGadget Window = OpenWindow(#PB_Any,#Null,#Null,300,450,Title,WindowFlags) If Window If BASS::Init(WindowID(Window)) CanvasSFX = CanvasGadget(#PB_Any,0,170,300,100) ;BASS_SFX ------------------------ BASS_SFX::BASS_SFX_Init(WindowID(Window)) ;Liefert TRUE zurück PluginResult = BASS_SFX::BASS_SFX_PluginCreate("sphere.svp", GadgetID(CanvasSFX),300,100,0) Debug PluginResult ;ist immer -1 also #False ;--------------------------------- Canvas = CanvasGadget(#PB_Any,0,0,300,100) TrackBar = TrackBarGadget(#PB_Any,0,100,300,30,0,100) TrackVolume = TrackBarGadget(#PB_Any,120,135,100,30,0,100) ButtonPlay = ButtonGadget(#PB_Any,10,135,30,30,">") ButtonPause = ButtonGadget(#PB_Any,45,135,30,30,"\|\|") ButtonStop = ButtonGadget(#PB_Any,80,135,30,30,"[]") ButtonLoad = ButtonGadget(#PB_Any,260,135,30,30,"...") LabelVolume = TextGadget(#PB_Any,220,135,30,30,"10%") If Canvas And TrackBar And TrackVolume And ButtonPlay And ButtonPause And ButtonStop And ButtonLoad And LabelVolume SetGadgetState(TrackVolume,10) Handle = dInit(Canvas) If Handle BASS::SetVolume(GetGadgetState(TrackVolume) / 100) AddWindowTimer(Window,123,16) Repeat WindowMsg = WaitWindowEvent() Select WindowMsg Case #PB_Event_Timer If Stream If dStart(Handle) ;//FFT UpdateSpectrum(Stream,Buffer,BufferSize) dText(Handle,10,10,Name,$FFFFFFFF) dBlock(GetGadgetState(TrackBar) 3,80,GetGadgetState(TrackBar) * 3,90,2,$FF4DFFE6) dBlock(0,90,BASS::ChannelGetPosition(Stream,BASS::#BASS_POS_BYTE) * Factor,90,10,$FF4D00E6) dStop() EndIf EndIf Case #PB_Event_Gadget Select EventGadget() Case TrackBar If Stream If Not BASS::ChannelIsActive(Stream) = BASS::#BASS_ACTIVE_PAUSED BASS::ChannelPause(Stream) EndIf BASS::ChannelSetPosition(Stream,GetGadgetState(TrackBar) * TrackFactor,BASS::#BASS_POS_BYTE) BASS::ChannelPlay(Stream,#False) EndIf Case TrackVolume SetGadgetText(LabelVolume,Str(GetGadgetState(TrackVolume)) + "%") BASS::SetVolume(GetGadgetState(TrackVolume) / 100) Case ButtonStop If Stream BASS::ChannelStop(Stream) BASS::ChannelSetPosition(Stream,#Null,BASS::#BASS_POS_ByTE) SetGadgetState(TrackBar,0) If dStart(Handle) dText(Handle,10,10,Name,$FFFFFFFF) dStop() EndIf EndIf Case ButtonPause If Stream If BASS::ChannelIsActive(Stream) = BASS::#BASS_ACTIVE_PAUSED BASS::ChannelPlay(Stream,#False) Else BASS::ChannelPause(Stream) EndIf EndIf Case ButtonPlay If Stream If BASS::ChannelIsActive(Stream) = BASS::#BASS_ACTIVE_PAUSED BASS::ChannelPlay(Stream,#False) Else BASS::ChannelPlay(Stream,#True) EndIf EndIf Case ButtonLoad File = OpenFileRequester("Open","","WAV (.wav)\|.wav\|MP3 (.mp3)\|.mp3",1) If File NewStream = BASS::StreamCreateFile(File) If NewStream If Stream BASS::ChannelStop(Stream) BASS::StreamFree(Stream) EndIf Name = GetFilePart(File) Stream = NewStream If dStart(Handle) dText(Handle,10,10,Name,$FFFFFFFF) dStop() EndIf Length = BASS::ChannelGetLength(Stream,BASS::#BASS_POS_BYTE) Factor = 300 / Length TrackFactor = Length / 100 BASS::ChannelPlay(Stream,#True) EndIf EndIf EndSelect Case #PB_Event_CloseWindow Break EndSelect ForEver dRelease(Handle) EndIf EndIf If Stream BASS::ChannelStop(Stream) BASS::StreamFree(Stream) EndIf BASS::Free() EndIf CloseWindow(Window) EndIf FreeMemory(Buffer) EndIf EndProcedure Window("Bass 2.4 (x86) - Player Demo!") End Um die BASS_SFX.dll einzubinden habe ich mir dann folgendes Modul erstellt. Code:* ;BASS_SFX.pbi EnableExplicit DeclareModule BASS_SFX ;Konstanten #BASS_SFX_SONIQUE = 0 #BASS_SFX_WINAMP = 1 #BASS_SFX_WMP = 2 #BASS_SFX_BBP = 3 #BASS_SFX_OK = 0 #BASS_SFX_ERROR_MEM = 1 #BASS_SFX_ERROR_FILEOPEN = 2 #BASS_SFX_ERROR_HANDLE = 3 #BASS_SFX_ERROR_ALREADY = 4 #BASS_SFX_ERROR_FORMAT = 5 #BASS_SFX_ERROR_INIT = 6 #BASS_SFX_ERROR_GUID = 7 #BASS_SFX_ERROR_UNKNOWN = -1 #BASS_SFX_SONIQUE_OPENGL = 1 #BASS_SFX_SONIQUE_OPENGL_DOUBLEBUFFER = 2 ;Strukturen Structure BASS_SFX_PLUGININFO name.l clsid.l EndStructure Structure BASS_SFX_PLUGININFOW name.l clsid.l EndStructure Import "BASS_SFX.lib" BASS_SFX_WMP_GetPlugin.b(index.l, info.BASS_SFX_PLUGININFO) As "_BASS_SFX_WMP_GetPlugin@8" BASS_SFX_WMP_GetPluginW.b(index.l, info.BASS_SFX_PLUGININFO) As "_BASS_SFX_WMP_GetPluginW@8" BASS_SFX_ErrorGetCode.l() As "_BASS_SFX_ErrorGetCode@0" BASS_SFX_InitEx.l(hInstance.l, hWnd.l) As "_BASS_SFX_Init@8" BASS_SFX_GetVersion.l() As "_BASS_SFX_GetVersion@0" BASS_SFX_Free.l() As "_BASS_SFX_Free@0" BASS_SFX_PluginCreate.l(strPath.s, hWnd.l, nWidth.l, nHeight.l, flags.l) As "_BASS_SFX_PluginCreate@20" ;strPath The path to the plugin file or GUID for Windows Media Player plugin ;hWnd The handle of the window where the plugin is to be rendered ;nWidth The width of the destination window. (Only used with Sonique, BassBox, and WMP Plugins) ;nHeight The height of the destination window. (Only used with Sonique, BassBox, and WMP Plugins) ;flags Any combination of these flags. ;BASS_SFX_SONIQUE_OPENGL ;BASS_SFX_SONIQUE_OPENGL_DOUBLEBUFFER BASS_SFX_PluginCreateW.l(strPath.s, hPluginWnd.l, nWidth.l, nHeight.l, flags.l) As "_BASS_SFX_PluginCreateW@20" ;strPath The path to the plugin file or GUID for Windows Media Player plugin ;hWnd The handle of the window where the plugin is to be rendered ;nWidth The width of the destination window. (Only used with Sonique, BassBox, and WMP Plugins) ;nHeight The height of the destination window. (Only used with Sonique, BassBox, and WMP Plugins) ;flags Any combination of these flags. ;BASS_SFX_SONIQUE_OPENGL ;BASS_SFX_SONIQUE_OPENGL_DOUBLEBUFFER BASS_SFX_PluginFlags.l(handle.l, flags.l, mask.l) As "_BASS_SFX_PluginFlags@12" BASS_SFX_PluginGetType.l(handle.l) As "_BASS_SFX_PluginGetType@4" BASS_SFX_PluginSetStream.l(handle.l, hStream.l) As "_BASS_SFX_PluginSetStream@8" BASS_SFX_PluginStart.l(handle.l) As "_BASS_SFX_PluginStart@4" BASS_SFX_PluginStop.l(handle.l) As "_BASS_SFX_PluginStop@4" BASS_SFX_PluginGetName(handle.l) As "_BASS_SFX_PluginGetName@4" BASS_SFX_PluginGetNameW.l(handle.l) As "_BASS_SFX_PluginGetNameW@4" BASS_SFX_PluginConfig.l(handle.l) As "_BASS_SFX_PluginConfig@4" BASS_SFX_PluginModuleGetCount.l(handle.l) As "_BASS_SFX_PluginModuleGetCount@4" BASS_SFX_PluginModuleGetName(handle.l, nModule.l) As "_BASS_SFX_PluginModuleGetName@8" BASS_SFX_PluginModuleGetNameW.l(handle.l, nModule.l) As "_BASS_SFX_PluginModuleGetNameW@8" BASS_SFX_PluginModuleGetActive.l(handle.l) As "_BASS_SFX_PluginModuleGetActive@4" BASS_SFX_PluginModuleSetActive.l(handle.l, nModule.l) As "_BASS_SFX_PluginModuleGetActive@4" BASS_SFX_PluginClicked.l(handle.l, X.l, Y.l) As "_BASS_SFX_PluginClicked@12" BASS_SFX_PluginResize.l(handle.l, nWidth.l, nHeight.l) As "_BASS_SFX_PluginResize@12" BASS_SFX_PluginFree.l(handle.l) As "_BASS_SFX_PluginFree@4" BASS_SFX_PluginRender.l(handle.l, hStream.l, hDC.l) As "_BASS_SFX_PluginRender@12" BASS_SFX_PluginResizeMove.l(handle.l, nLeft.l, nTop.l, nWidth.l, nHeight.l) As "_BASS_SFX_PluginResizeMove@20" EndImport Declare.l BASS_SFX_Init(Handle.i = #Null) EndDeclareModule Module BASS_SFX Procedure.l BASS_SFX_Init(Handle.i = #Null);-> USE SFX_InitEx() FOR CUSTOM SETTINGS! ProcedureReturn BASS_SFX_InitEx(GetModuleHandle_(0), Handle) EndProcedure EndModule Jetzt meine Frage: Kann man mit Purebasic diese Plugins verwenden, denn ich bekomme bei 'BASS_SFX_PluginCreate' immer -1 also False zurückgeliefert, egal welches Plugin ich auch verwende? Gruß Michael Edit: Wenn ich Code: BASS_SFX::BASS_SFX_PluginCreate("sphere.svp", GadgetID(CanvasSFX),300,100,0) gegen Code: BASS_SFX::BASS_SFX_PluginCreateW("vis_avs.dll", GadgetID(CanvasSFX),300,100,0) tausche wird das Winamp-Plugin geladen. Aber es wird leider noch keine Visualisierung angezeigt. Thema gelöst! Man muss nur das avs-Verzeichnis mit den sogenannten Picks in das Projektverzeichnis kopieren und kann dann mit Rechtsklick auf das Canvagadget eine Visualisierung auswählen.

PureBoard https://www.purebasic.fr/german/

Visualisierung mit BASS_SFX https://www.purebasic.fr/german/viewtopic.php?f=4&t=31913	Seite 1 von 1

Seite 1 von 1	Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/