Free 3D sound system replacement

Author

Message

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 10th Mar 2006 14:39 Edited at: 10th Mar 2006 15:08

Link

Hey folks...was messing around with 3D sounds for my game the other day and I got a little fustrated that the sounds had to be all converted to mono, and I wasn't really sure how volume equated to the range of the sound.

This, for some reason, was enough to trigger my brain into making my own system...and here it is.

`==========================================================================================================`
`Setup`
`=====`
SetupBagSound:

nill=make vector3(111111)
 nill=make vector3(111112)
 nill=make vector3(111113)

Type BagSound
  Active as boolean
  FileName as string
  Range as Float
  DropOffStart as Float
  X as Float
  Y as Float
  Z as Float
  XDir as Float
  YDir as Float
  ZDir as Float
  PanStart as Float
  PanEnd as Float
  DefSpeed as Float
  Speed as Integer
  State as Integer
  Volume as integer
  PlayPos as float
  Length as float
  ByteNum as float
 Endtype

Type BagListenerT
  X
  Y
  Z
  XDir as Float
  YDir as Float
  ZDir as Float
 Endtype

Global BagListener as BagListenerT
 Global BStart=100
 Global BEnd=200
 Global BSTime#

a=BEnd-BStart
 if a<1 then exit prompt "Invalid sound range given to SetupBagSound","BagSound Error" : end

Dim BagSounds(a) as BagSound
 Dim BagSoundActive(a)
Return

`==========================================================================================================`
`Listener`
`========`
Function PositionBagListener(X#,Y#,Z#)
 BagListener.X=X#
 BagListener.Y=Y#
 BagListener.Z=Z#
Endfunction

Function PositionBagListenerToCam()
 BagListener.X=Camera position x()
 BagListener.Y=Camera position y()
 BagListener.Z=Camera position z()
Endfunction

Function SetBagListenerDirection(X#,Y#,Z#)
 BagListener.XDir=X#
 BagListener.YDir=Y#
 BagListener.ZDir=Z#
Endfunction

Function SetBagListenerDirectionToCam()
 VectorToCamera(111111)
 BagListener.XDir=x vector3(111111)
 BagListener.YDir=y vector3(111111)
 BagListener.ZDir=z vector3(111111)
Endfunction

`==========================================================================================================`
`Load & Delete Sounds`
`====================`
Function LoadBagSound(file$,Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "Program has tried to load BagSound outside specified range","BagSound Error" : end
 Load Sound File$,Num
 set sound volume num,0
 Bagsounds(numb).Active=1
 Bagsounds(numb).FileName=File$
 Bagsounds(numb).Range=100
 Bagsounds(numb).DropOffStart=0.0
 Bagsounds(numb).X=0.0
 Bagsounds(numb).Y=0.0
 Bagsounds(numb).Z=0.0
 Bagsounds(numb).XDir=0.0
 Bagsounds(numb).YDir=0.0
 Bagsounds(numb).ZDir=1.0
 Bagsounds(numb).PanStart=180
 Bagsounds(numb).PanEnd=180
 Bagsounds(numb).DefSpeed=sound speed(num)
 Bagsounds(numb).Speed=sound speed(num)
 Bagsounds(numb).State=0
 Bagsounds(numb).Volume=100
 done=0
 for i=1 to (BEnd-Bstart)
  if done=0 and BagSoundActive(i)=0 then BagSoundActive(i)=Numb : exit
 next i

`Grab Sound Info`

if memblock exist(1) then delete memblock 1
 make memblock from sound 1,num
 Bagsounds(numb).Bytenum=(get memblock size(1)-12)
 Bagsounds(numb).Length=(Bagsounds(numb).Bytenum/int(memblock dword(1,12)))
 if memblock exist(1) then delete memblock 1

Endfunction

Function DeleteBagSound(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "Program has tried to load BagSound outside specified range","BagSound Error": end
 if Bagsounds(numb).Active=0 then exit prompt "BagSound specified for deletion does not exist","BagSound Error": end
 Delete Sound Num
 Bagsounds(numb).Active=0
 Bagsounds(numb).FileName=""
 Bagsounds(numb).Range=0
 Bagsounds(numb).DropOffStart=0
 Bagsounds(numb).X=0.0
 Bagsounds(numb).Y=0.0
 Bagsounds(numb).Z=0.0
 Bagsounds(numb).XDir=0.0
 Bagsounds(numb).YDir=0.0
 Bagsounds(numb).ZDir=0.0
 Bagsounds(numb).PanStart=0
 Bagsounds(numb).PanEnd=0
 Bagsounds(numb).Speed=0
 Bagsounds(numb).State=0

for i=(numb+1) to (BEnd-BStart)
  if BagSoundActive(i)<>0
   BagSoundActive(i-1)=BagSoundActive(i)
  else
   exit
  endif
 next i
Endfunction

`==========================================================================================================`
`Range`
`=====`
Function SetBagSoundRange(Numb,Range#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).Range=Range#
Endfunction

Function GetBagSoundRange(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Range#=Bagsounds(numb).Range
Endfunction Range#

`==========================================================================================================`
`Drop-Off`
`========`
Function SetBagSoundDropOffStart(Numb,Start#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).DropOffStart=Start#
Endfunction

Function GetBagSoundDropOffStart(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 start#=Bagsounds(numb).DropOffStart
Endfunction start#

`==========================================================================================================`
`Positioning`
`===========`
Function PositionBagSound(Numb,X#,Y#,Z#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).X=x#
 Bagsounds(numb).Y=y#
 Bagsounds(numb).Z=z#
Endfunction

Function BagSoundPositionX(numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 x#=Bagsounds(numb).x
Endfunction x#

Function BagSoundPositionY(numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 y#=Bagsounds(numb).y
Endfunction y#

Function BagSoundPositionZ(numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 z#=Bagsounds(numb).z
Endfunction z#

`==========================================================================================================`
`Direction`
`=========`
Function SetBagSoundDirection(numb,x#,y#,z#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).XDir=x#
 Bagsounds(numb).YDir=y#
 Bagsounds(numb).ZDir=z#
Endfunction

Function SetBagSoundDirectionFromVector(numb,vecnum)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).XDir=x vector3(vecnum)
 Bagsounds(numb).YDir=y vector3(vecnum)
 Bagsounds(numb).ZDir=z vector3(vecnum)
Endfunction

Function BagSoundDirectiontoVector(numb,vecnum)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Set vector3 vecnum, Bagsounds(numb).XDir, Bagsounds(numb).YDir, Bagsounds(numb).ZDir
Endfunction

Function BagSoundDirectionX()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 x#=Bagsounds(numb).XDir
Endfunction x#

Function BagSoundDirectionY()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 y#=Bagsounds(numb).YDir
Endfunction y#

Function BagSoundDirectionZ()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 z#=Bagsounds(numb).ZDir
Endfunction z#

`==========================================================================================================`
`Panning`
`=======`
Function SetBagSoundPanStart(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).PanStart=Angle#
Endfunction

Function SetBagSoundPanEnd(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).PanEnd=Angle#
Endfunction

Function GetBagSoundPanStart(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Angle#=Bagsounds(numb).PanStart
Endfunction Angle#

Function GetBagSoundPanEnd(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Angle#=Bagsounds(numb).PanEnd
Endfunction Angle#

`==========================================================================================================`
`Speed`
`=====`
Function SetBagSoundSpeed(Numb,Speed)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).Speed=Speed
 set sound speed num,speed
Endfunction

Function GetBagSoundSpeed(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Speed=Bagsounds(numb).Speed
Endfunction Speed

`==========================================================================================================`
`Playing, Looping and Stopping`
`=============================`
Function PlayBagSound(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).State=1
 Bagsounds(numb).Playpos=0.0
 Play Sound Num
Endfunction

Function LoopBagSound(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).State=2
 Bagsounds(numb).Playpos=0.0
 Loop Sound Num
Endfunction

Function StopBagSound()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).State=0
 Bagsounds(numb).Playpos=0.0
 stop sound num
Endfunction

`==========================================================================================================`
`Update`
`======`
Function UpdateBagSounds()
 BSTime#=(Timer()-BSTime#)
 for i=1 to (BEnd-BStart)
  if BagSoundActive(i)=0
   exit
  else
   numb=BagSoundActive(i)
    if Bagsounds(numb).State>0
     skip=0
     Bagsounds(numb).Playpos=Bagsounds(numb).Playpos+((1.0/screen fps())* ((1.0/Bagsounds(numb).DefSpeed)*Bagsounds(numb).Speed) )
     if Bagsounds(numb).Playpos>Bagsounds(numb).Length
      Bagsounds(numb).Playpos=(Bagsounds(numb).Playpos-Bagsounds(numb).Length)
      if Bagsounds(numb).State=1 then StopBagSound() : skip=1
     endif

if skip=0
     VolPer#=100.0
     `If listener outside endpan then volume=0%
     set vector3 111111,Bagsounds(numb).XDir,Bagsounds(numb).YDir,Bagsounds(numb).ZDir
     set vector3 111112,(BagListener.X-Bagsounds(numb).X),(BagListener.Y-Bagsounds(numb).Y),(BagListener.Z-Bagsounds(numb).Z)
     DirToLisAng#=getvecangle(111111,111112)
      if DirToLisang#<Bagsounds(numb).PanEnd
       SndToLis#=GetPPDist(BagListener.X,BagListener.Y,BagListener.Z,Bagsounds(numb).X,Bagsounds(numb).Y,Bagsounds(numb).Z)
       if SndToLis#<Bagsounds(numb).DropOffStart
        VolPer#=100.0
       else
        DropOffDist#=(Bagsounds(numb).Range-Bagsounds(numb).DropOffStart)
        DistIn#=(SndToLis#-Bagsounds(numb).DropOffStart)
        Per#=(100.0-((DistIn#/DropOffDist#)*100.0))
        if SndToLis#>Bagsounds(numb).Range then Per#=0.0
        VolPer#=((VolPer#/100.0)*Per#)
       endif
       If DirToLisang#>Bagsounds(numb).PanStart
        DropOffAng#=(Bagsounds(numb).PanEnd-Bagsounds(numb).PanStart)
        AngIn#=DirToLisang#-Bagsounds(numb).PanStart
        Per#=(100.0-((AngIn#/DropOffAng#)*100.0))
        VolPer#=((VolPer#/100.0)*Per#)
       else
       Endif
      Else
       VolPer#=0.0
      Endif
     Set Sound Volume (i+BStart),int((Bagsounds(numb).Volume/100.0)*VolPer#)

if volper#=0.0
      stop sound (i+BStart)
     else
      if sound playing((i+BStart))=0 and Bagsounds(numb).state=1 then play sound (i+BStart),((Bagsounds(numb).Bytenum/Bagsounds(numb).Length)*Bagsounds(numb).Playpos)
      if sound playing((i+BStart))=0 and Bagsounds(numb).state=2 then loop sound (i+BStart),12,Bagsounds(numb).Bytenum,((Bagsounds(numb).Bytenum/Bagsounds(numb).Length)*Bagsounds(numb).Playpos)
     endif

set vector3 111111, BagListener.XDir, BagListener.YDir, BagListener.ZDir
     set vector3 111112,(BagListener.X-Bagsounds(numb).X),(BagListener.Y-Bagsounds(numb).Y),(BagListener.Z-Bagsounds(numb).Z)
     MakeSecondVec(111111)
     Side=CheckHeadSide()
     Ang#=getvecangle(111111,111112)
     if Ang#>90 then Ang#=(90.0-(Ang#-90.0))
     `pan#=side*((10000.0/90.0)*Ang#)
     pan#=side*((abs(sin((ang#/6.0)+180))*100.0)*100.0)
     set sound pan (i+BStart),pan#
     endif
    endif
  endif
 next i
Endfunction

function getvecangle(vec1,vec2)
 var#=dot product vector3(vec1,vec2)
 var#=var#/(length vector3(vec1)*length vector3(vec2))
 angle#=ACOS(var#)
endfunction angle#

function GetPPDist(x#,y#,z#,q#,w#,e#)
 dist#=sqrt(((q#-x#)*(q#-x#)) + ((w#-y#)*(w#-y#)) + ((e#-z#)*(e#-z#)))
endfunction dist#

Function MakeSecondVec(vecnum)
 a#=x vector3(vecnum)
 o#=z vector3(vecnum)
 angle#=atan(a#/o#)
  if a#>0.0
   if o#<0.0 then angle#=(180.0+angle#)
  else
   if o#<0.0 then angle#=(180.0+angle#)
   if o#>0.0 then angle#=(360.0+angle#)
  endif
 set vector3 111113, newxvalue(0.0,(angle#+90.0),1.0), 0.0, newzvalue(0.0,(angle#+90.0),1.0)
endfunction

Function CheckHeadSide()
 y#=y vector3(111112)
 set vector3 111112,x vector3(111112),0,z vector3(111112)
 angle2#=getvecangle(111113,111112)
 if angle2#>90
  side=1
 else
  side=-1
 endif
 set vector3 111112,x vector3(111112),y#,z vector3(111112)
Endfunction side

Function VectorToCamera(vec)
 oldx#=camera position x()
 oldy#=camera position y()
 oldz#=camera position z()
 move camera 10
 x#=camera position x()
 y#=camera position y()
 z#=camera position z()
 move camera -10
 set vector3 vec,(x#-oldx#),(y#-oldy#),(z#-oldz#)
 normalize vector3 vec,vec
endfunction

+ Code Snippet

`==========================================================================================================`
`Setup`
`=====`
SetupBagSound:

 nill=make vector3(111111)
 nill=make vector3(111112)
 nill=make vector3(111113)

 Type BagSound
  Active as boolean
  FileName as string
  Range as Float
  DropOffStart as Float
  X as Float
  Y as Float
  Z as Float
  XDir as Float
  YDir as Float
  ZDir as Float
  PanStart as Float
  PanEnd as Float
  DefSpeed as Float
  Speed as Integer
  State as Integer
  Volume as integer
  PlayPos as float
  Length as float
  ByteNum as float
 Endtype

 Type BagListenerT
  X
  Y
  Z
  XDir as Float
  YDir as Float
  ZDir as Float
 Endtype

 Global BagListener as BagListenerT
 Global BStart=100
 Global BEnd=200
 Global BSTime#

 a=BEnd-BStart
 if a<1 then exit prompt "Invalid sound range given to SetupBagSound","BagSound Error" : end

 Dim BagSounds(a) as BagSound
 Dim BagSoundActive(a)
Return

`==========================================================================================================`
`Listener`
`========`
Function PositionBagListener(X#,Y#,Z#)
 BagListener.X=X#
 BagListener.Y=Y#
 BagListener.Z=Z#
Endfunction

Function PositionBagListenerToCam()
 BagListener.X=Camera position x()
 BagListener.Y=Camera position y()
 BagListener.Z=Camera position z()
Endfunction

Function SetBagListenerDirection(X#,Y#,Z#)
 BagListener.XDir=X#
 BagListener.YDir=Y#
 BagListener.ZDir=Z#
Endfunction

Function SetBagListenerDirectionToCam()
 VectorToCamera(111111)
 BagListener.XDir=x vector3(111111)
 BagListener.YDir=y vector3(111111)
 BagListener.ZDir=z vector3(111111)
Endfunction

`==========================================================================================================`
`Load & Delete Sounds`
`====================`
Function LoadBagSound(file$,Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "Program has tried to load BagSound outside specified range","BagSound Error" : end
 Load Sound File$,Num
 set sound volume num,0
 Bagsounds(numb).Active=1
 Bagsounds(numb).FileName=File$
 Bagsounds(numb).Range=100
 Bagsounds(numb).DropOffStart=0.0
 Bagsounds(numb).X=0.0
 Bagsounds(numb).Y=0.0
 Bagsounds(numb).Z=0.0
 Bagsounds(numb).XDir=0.0
 Bagsounds(numb).YDir=0.0
 Bagsounds(numb).ZDir=1.0
 Bagsounds(numb).PanStart=180
 Bagsounds(numb).PanEnd=180
 Bagsounds(numb).DefSpeed=sound speed(num)
 Bagsounds(numb).Speed=sound speed(num)
 Bagsounds(numb).State=0
 Bagsounds(numb).Volume=100
 done=0
 for i=1 to (BEnd-Bstart)
  if done=0 and BagSoundActive(i)=0 then BagSoundActive(i)=Numb : exit
 next i

 `Grab Sound Info`

 if memblock exist(1) then delete memblock 1
 make memblock from sound 1,num
 Bagsounds(numb).Bytenum=(get memblock size(1)-12)
 Bagsounds(numb).Length=(Bagsounds(numb).Bytenum/int(memblock dword(1,12)))
 if memblock exist(1) then delete memblock 1

Endfunction

Function DeleteBagSound(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "Program has tried to load BagSound outside specified range","BagSound Error": end
 if Bagsounds(numb).Active=0 then exit prompt "BagSound specified for deletion does not exist","BagSound Error": end
 Delete Sound Num
 Bagsounds(numb).Active=0
 Bagsounds(numb).FileName=""
 Bagsounds(numb).Range=0
 Bagsounds(numb).DropOffStart=0
 Bagsounds(numb).X=0.0
 Bagsounds(numb).Y=0.0
 Bagsounds(numb).Z=0.0
 Bagsounds(numb).XDir=0.0
 Bagsounds(numb).YDir=0.0
 Bagsounds(numb).ZDir=0.0
 Bagsounds(numb).PanStart=0
 Bagsounds(numb).PanEnd=0
 Bagsounds(numb).Speed=0
 Bagsounds(numb).State=0

 for i=(numb+1) to (BEnd-BStart)
  if BagSoundActive(i)<>0
   BagSoundActive(i-1)=BagSoundActive(i)
  else
   exit
  endif
 next i
Endfunction

`==========================================================================================================`
`Range`
`=====`
Function SetBagSoundRange(Numb,Range#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).Range=Range#
Endfunction

Function GetBagSoundRange(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Range#=Bagsounds(numb).Range
Endfunction Range#


`==========================================================================================================`
`Drop-Off`
`========`
Function SetBagSoundDropOffStart(Numb,Start#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).DropOffStart=Start#
Endfunction

Function GetBagSoundDropOffStart(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 start#=Bagsounds(numb).DropOffStart
Endfunction start#


`==========================================================================================================`
`Positioning`
`===========`
Function PositionBagSound(Numb,X#,Y#,Z#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).X=x#
 Bagsounds(numb).Y=y#
 Bagsounds(numb).Z=z#
Endfunction

Function BagSoundPositionX(numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 x#=Bagsounds(numb).x
Endfunction x#

Function BagSoundPositionY(numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 y#=Bagsounds(numb).y
Endfunction y#

Function BagSoundPositionZ(numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 z#=Bagsounds(numb).z
Endfunction z#

`==========================================================================================================`
`Direction`
`=========`
Function SetBagSoundDirection(numb,x#,y#,z#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).XDir=x#
 Bagsounds(numb).YDir=y#
 Bagsounds(numb).ZDir=z#
Endfunction

Function SetBagSoundDirectionFromVector(numb,vecnum)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).XDir=x vector3(vecnum)
 Bagsounds(numb).YDir=y vector3(vecnum)
 Bagsounds(numb).ZDir=z vector3(vecnum)
Endfunction

Function BagSoundDirectiontoVector(numb,vecnum)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Set vector3 vecnum, Bagsounds(numb).XDir, Bagsounds(numb).YDir, Bagsounds(numb).ZDir
Endfunction

Function BagSoundDirectionX()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 x#=Bagsounds(numb).XDir
Endfunction x#

Function BagSoundDirectionY()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 y#=Bagsounds(numb).YDir
Endfunction y#

Function BagSoundDirectionZ()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 z#=Bagsounds(numb).ZDir
Endfunction z#

`==========================================================================================================`
`Panning`
`=======`
Function SetBagSoundPanStart(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).PanStart=Angle#
Endfunction

Function SetBagSoundPanEnd(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).PanEnd=Angle#
Endfunction

Function GetBagSoundPanStart(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Angle#=Bagsounds(numb).PanStart
Endfunction Angle#

Function GetBagSoundPanEnd(Numb,Angle#)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Angle#=Bagsounds(numb).PanEnd
Endfunction Angle#

`==========================================================================================================`
`Speed`
`=====`
Function SetBagSoundSpeed(Numb,Speed)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).Speed=Speed
 set sound speed num,speed
Endfunction

Function GetBagSoundSpeed(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Speed=Bagsounds(numb).Speed
Endfunction Speed

`==========================================================================================================`
`Playing, Looping and Stopping`
`=============================`
Function PlayBagSound(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).State=1
 Bagsounds(numb).Playpos=0.0
 Play Sound Num
Endfunction

Function LoopBagSound(Numb)
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).State=2
 Bagsounds(numb).Playpos=0.0
 Loop Sound Num
Endfunction

Function StopBagSound()
 Num=(numb+BStart)
 if Num>BEnd or num<Bstart then exit prompt "BagSound specified is outside range","BagSound Error": end
 Bagsounds(numb).State=0
 Bagsounds(numb).Playpos=0.0
 stop sound num
Endfunction


`==========================================================================================================`
`Update`
`======`
Function UpdateBagSounds()
 BSTime#=(Timer()-BSTime#)
 for i=1 to (BEnd-BStart)
  if BagSoundActive(i)=0
   exit
  else
   numb=BagSoundActive(i)
    if Bagsounds(numb).State>0
     skip=0
     Bagsounds(numb).Playpos=Bagsounds(numb).Playpos+((1.0/screen fps())* ((1.0/Bagsounds(numb).DefSpeed)*Bagsounds(numb).Speed) )
     if Bagsounds(numb).Playpos>Bagsounds(numb).Length
      Bagsounds(numb).Playpos=(Bagsounds(numb).Playpos-Bagsounds(numb).Length)
      if Bagsounds(numb).State=1 then StopBagSound() : skip=1
     endif

     if skip=0
     VolPer#=100.0
     `If listener outside endpan then volume=0%
     set vector3 111111,Bagsounds(numb).XDir,Bagsounds(numb).YDir,Bagsounds(numb).ZDir
     set vector3 111112,(BagListener.X-Bagsounds(numb).X),(BagListener.Y-Bagsounds(numb).Y),(BagListener.Z-Bagsounds(numb).Z)
     DirToLisAng#=getvecangle(111111,111112)
      if DirToLisang#<Bagsounds(numb).PanEnd
       SndToLis#=GetPPDist(BagListener.X,BagListener.Y,BagListener.Z,Bagsounds(numb).X,Bagsounds(numb).Y,Bagsounds(numb).Z)
       if SndToLis#<Bagsounds(numb).DropOffStart
        VolPer#=100.0
       else
        DropOffDist#=(Bagsounds(numb).Range-Bagsounds(numb).DropOffStart)
        DistIn#=(SndToLis#-Bagsounds(numb).DropOffStart)
        Per#=(100.0-((DistIn#/DropOffDist#)*100.0))
        if SndToLis#>Bagsounds(numb).Range then Per#=0.0
        VolPer#=((VolPer#/100.0)*Per#)
       endif
       If DirToLisang#>Bagsounds(numb).PanStart
        DropOffAng#=(Bagsounds(numb).PanEnd-Bagsounds(numb).PanStart)
        AngIn#=DirToLisang#-Bagsounds(numb).PanStart
        Per#=(100.0-((AngIn#/DropOffAng#)*100.0))
        VolPer#=((VolPer#/100.0)*Per#)
       else
       Endif
      Else
       VolPer#=0.0
      Endif
     Set Sound Volume (i+BStart),int((Bagsounds(numb).Volume/100.0)*VolPer#)

     if volper#=0.0
      stop sound (i+BStart)
     else
      if sound playing((i+BStart))=0 and Bagsounds(numb).state=1 then play sound (i+BStart),((Bagsounds(numb).Bytenum/Bagsounds(numb).Length)*Bagsounds(numb).Playpos)
      if sound playing((i+BStart))=0 and Bagsounds(numb).state=2 then loop sound (i+BStart),12,Bagsounds(numb).Bytenum,((Bagsounds(numb).Bytenum/Bagsounds(numb).Length)*Bagsounds(numb).Playpos)
     endif

     set vector3 111111, BagListener.XDir, BagListener.YDir, BagListener.ZDir
     set vector3 111112,(BagListener.X-Bagsounds(numb).X),(BagListener.Y-Bagsounds(numb).Y),(BagListener.Z-Bagsounds(numb).Z)
     MakeSecondVec(111111)
     Side=CheckHeadSide()
     Ang#=getvecangle(111111,111112)
     if Ang#>90 then Ang#=(90.0-(Ang#-90.0))
     `pan#=side*((10000.0/90.0)*Ang#)
     pan#=side*((abs(sin((ang#/6.0)+180))*100.0)*100.0)
     set sound pan (i+BStart),pan#
     endif
    endif
  endif
 next i
Endfunction

function getvecangle(vec1,vec2)
 var#=dot product vector3(vec1,vec2)
 var#=var#/(length vector3(vec1)*length vector3(vec2))
 angle#=ACOS(var#)
endfunction angle#

function GetPPDist(x#,y#,z#,q#,w#,e#)
 dist#=sqrt(((q#-x#)*(q#-x#)) + ((w#-y#)*(w#-y#)) + ((e#-z#)*(e#-z#)))
endfunction dist#

Function MakeSecondVec(vecnum)
 a#=x vector3(vecnum)
 o#=z vector3(vecnum)
 angle#=atan(a#/o#)
  if a#>0.0
   if o#<0.0 then angle#=(180.0+angle#)
  else
   if o#<0.0 then angle#=(180.0+angle#)
   if o#>0.0 then angle#=(360.0+angle#)
  endif
 set vector3 111113, newxvalue(0.0,(angle#+90.0),1.0), 0.0, newzvalue(0.0,(angle#+90.0),1.0)
endfunction

Function CheckHeadSide()
 y#=y vector3(111112)
 set vector3 111112,x vector3(111112),0,z vector3(111112)
 angle2#=getvecangle(111113,111112)
 if angle2#>90
  side=1
 else
  side=-1
 endif
 set vector3 111112,x vector3(111112),y#,z vector3(111112)
Endfunction side

Function VectorToCamera(vec)
 oldx#=camera position x()
 oldy#=camera position y()
 oldz#=camera position z()
 move camera 10
 x#=camera position x()
 y#=camera position y()
 z#=camera position z()
 move camera -10
 set vector3 vec,(x#-oldx#),(y#-oldy#),(z#-oldz#)
 normalize vector3 vec,vec
endfunction

And here are the commands

Gosub SetupBagSound: This sets up the vectors and arrays used by the system.

`========`
`Listener`
`========`
PositionBagListener(X#,Y#,Z#): Positions your 'ears' in the game.

PositionBagListenerToCam(): Positions your "ears" at the position of the camera.

SetBagListenerDirection(X#,Y#,Z#):Sets the direction your listener is facing in the game.

SetBagListenerDirectionToCam():points your listener in the direction the camera is facing.

`====================`
`Load & Delete Sounds`
`====================`
LoadBagSound(File$,Number): Loads your sound. You specify the filename and number as usual.

DeleteBagSound(Number): Deletes the specified sound

`=====`
`Range`
`=====`
SetBagSoundRange(Number,Range#): Sets the total range of the sound. By this distance the sound will be totaly in-audible

GetBagSoundRange(Number): Returns the range of the sound

SetBagSoundDropOffStart(Numb,Start#): Now this is new to you. This is the distance from the sounds origin that the sound will start fading, being inaudible by the range value (see above)

GetBagSoundDropOffStart(Numb): Gets the Drop off range#

`===========`
`Positioning`
`===========`
PositionBagSound(Number,X#,Y#,Z#): Positions the sound in 3D space

BagSoundPositionX(number): Gets the X position of the sound
BagSoundPositionY(number): Gets the Y position of the sound
BagSoundPositionZ(number): Gets the Z position of the sound

`=========`
`Direction`
`=========`
SetBagSoundDirection(number,x#,y#,z#): Sets the direction of the sound. X#, Y# & Z# specify the componants of a vector.

SetBagSoundDirectionFromVector(number,vectornum): Sets the direction of the sound to the contents of the specified vector

BagSoundDirectiontoVector(numb,vecnum): Puts the direction of the sound into the specified vector

BagSoundDirectionX(): Gets the X componant of the sound direction

BagSoundDirectionY(): Gets the Y componant of the sound direction

BagSoundDirectionZ(): Gets the Z componant of the sound direction

`=======`
`Panning`
`=======`
SetBagSoundPanStart(Numb,Angle#): The Pan is the angle the listner must be to the sound to hear it. The Pan start is the angle that the, until which the soundwill be perfectly clear. after this until Pan end the sound will fade.

SetBagSoundPanEnd(Numb,Angle#): specifies the end of the pan range. By this angle the sound is in audible.

GetBagSoundPanStart(Numb,Angle#):Gets the angle of the pan start

GetBagSoundPanEnd(Numb,Angle#):gets the angle of the pan end

`=====`
`Speed`
`=====`
SetBagSoundSpeed(Numb,Speed): sets the playing speed of the sound

GetBagSoundSpeed(Numb): gets the current speed the sound is playing at

`=============================`
`Playing, Looping and Stopping`
`=============================`
PlayBagSound(Numb)

LoopBagSound(Numb)

StopBagSound

`======`
`Update`
`======`
UpdateBagSounds(): You put this in your main loop to update the sound system. Remember this one!

Ok so I hope this helps someone. I am more than happy to explain any part of the code or to add extra functions.
Please report any problems as it helps me as much as you. Thanks again folks and sorry in advance for any unfound bugs.

Oh and please have a we look at the demo below...i'm affraid its a bit crappy but It gives a vague idea of how thigs work...please play with it as you will.

As usual all this is royalty free, just please update me with any problems you find or features you need. Also a wee mention in credits if it is used would be lovely.
Thanks people
Chris

p.s.
Oh you will need to know that this system uses normal sounds to emulate 3D sound effects.
It uses the sounds between BStart and BEnd which can be specified by you in the Setup gosub.

http://forum.thegamecreators.com/xt/xt_apollo_download.php?i=796616

p.p.s.
This bit is for those who may have lost me on the Pan start Pan end bit..I hope here I can explain.

This terrible image is how the sounds can work.
The sound itself is the red dot with the orange line showing the direction in which the sound is facing.
We have the pink line showing where the sound starts to fade off and the dirty green line showing where the sound finally is in-audible...between the points the volume of the sound fades away smoothly.
The blue line shows the start of the volume fade based on the angle from the sound's direction and the green lines showing where the volume finally dissipates.

As default both the startpan and endpan are set to 180 so the effect is that it behaves as a point sound.
e.g.

Some may have seen this on DBP discussion a little while back...however it didnt get much feedback so I'm reposting in the hope it will generate more interest and reach more people.
I'm completly open to any feature requests and would be very interested on expanding this.
Thanks people !

M.I.A is pending

Back to top

Profile PM Email

FoxBlitzz

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location: United States

Posted: 11th Mar 2006 02:29 Edited at: 11th Mar 2006 02:30

Link

What's with all the code that sets the sound position? That seems like it would make the sounds run very choppy, especially since you used screen fps(), which only updates once a second. Correct me if I'm wrong.

AMD Athlon 64 X2 4200+
1GB DDR-SDRAM (May increase to 2GB one day)
512MB ATI Radeon X1800 Series - Finally! A card that does pixel shaders correctly!

Back to top

Profile PM Email

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 11th Mar 2006 10:29

Link

All the code for position ?
Theres one command: PositionBagSound(Number,X#,Y#,Z#)
There are then 3 commands to return the sound position (just like positioning any object)

if you man all the pan stuff then that is optional...you don't have to set it. If you dont it just behaves as an ordinary point sound.

Screen fps() gets your current fps....this value is used when the sound has been culled (when your out of range of it) to keep track of where the sound would be, so that when you re-enter range it continues playing from the correct point.

M.I.A is pending

Back to top

Profile PM Email

Darkbasic MADPSP

19

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 12th Mar 2006 21:40

Link

Really nice

where i went on holiday to

www.portaventura.es and also http://themepark.nl/ubbthreads/showflat.php?Cat=0&Board=UBB7&Number=661483&page=0&fpart=all

Back to top

Profile PM Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 13th Mar 2006 19:05

Link

Thanks...is it being used in a project or just a general nice ?!

M.I.A is pending

Back to top

Profile PM Email

Benjamin

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 15th Mar 2006 11:27

Link

Good stuff Baggers. Some time ago while coding something in DBP to test Tempest with I coded myself a function for playing a sound at a particular volume depending on distance from specified coordinates, which was all very well but it didn't do panning so it kinda sucked(yet for some reason I prefered it over the built-in 3D sounds command set..). Anyway, I sure could have used this instead, but it wasn't around then, so oh well. I'll keep it in mind for future projects. Thanks dude.

Tempest - P2P UDP Multiplayer Plugin - 70%
Download the free version

Back to top

Profile PM Email

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 15th Mar 2006 11:31

Link

Anytime! When my current project comes out it will be a nice showcase to show what this sound engine can do.

M.I.A is pending

Back to top

Profile PM Email

optical r

22

Years of Service

User Offline

Joined: 23rd Oct 2002

Location: Prime

Posted: 19th Mar 2006 00:29

Link

extremely nice there baggers!

Back to top

Profile PM Email Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 19th Mar 2006 13:34

Link

Thanks!...I am starting on the main game engine of my project today so when I hit sounds I will probably find various ways to optimise this...I'll obviously release them when I make them.

M.I.A is pending

Back to top

Profile PM Email

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 29th Mar 2006 20:20

Link

Looks cool

probably gonna use this in my themepark sim

Theme park simulator wip
http://forum.thegamecreators.com/?m=forum_view&t=71731&b=8

Back to top

Profile PM Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 29th Mar 2006 20:37

Link

Excelent ! keep me posted on how it goes.
I'm planning on expanding it making use of Torrey's awesome advanced sound pluggin. This will allow for all the 3D goodies you have from this version plus you can use:
- Ogg Vorbis
- MP3
- FLAC
- WAV (uncompressed)
- AIFF
- MOD
- S3M
- XM
- IT

And also play with things like the pitch of the sound.

I will be developing that in my current project so when I have it all working there I will release it (free as ever obviously).

Goodnight

M.I.A is pending

Back to top

Profile PM Email

Hawkeye

21

Years of Service

User Offline

Joined: 19th Sep 2003

Location: SC, USA

Posted: 29th Mar 2006 21:09

Link

Oooo, this looks dread useful

I can already think of several cool effects you could do with this - distant bullet shots, helicopter blades whirling, etc.

I am but mad north north-west; when the wind is southerly I know a hawk from a handsaw - Hamlet, Hamlet

Back to top

Profile PM Email Website

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 31st Mar 2006 17:13

Link

nice just when i need an mp3 3d sound function as well anychance of wma support as well?

Theme park simulator wip
http://forum.thegamecreators.com/?m=forum_view&t=71731&b=8

Back to top

Profile PM Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 31st Mar 2006 17:43

Link

Sunrise: Like I said above, that will be in the next version.
Hawkeye: Yeah, I am certainly going to be using it with newton so I change the pitch and volume of an impact sound depending on how hard one surface hits another...should make for some cool sound effects.

M.I.A is pending

Back to top

Profile PM Email

DARKGuy

20

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 2nd Apr 2006 09:02

Link

If you do though, make sure you make a non-newton version for it, for those who might not use newton in their games

Either way, this might prove -really- useful in that secret project of mine

overall because the builtin "3D" sound functions never convinced me.

*stores in safe place, ready for being used when the time is right, and gives a 5-star rating

*

Quote: "Compaq Deskpro EN / Intel Pentium III 930Mhz / 256Mb RAM / Intel i82815E 64Mb AGP / SoundMAX Soundcard / Creative SBS 2.1 / Two 40Gb HDs / WinXP Pro & Debian Etch / 1280x1024x16b"

Back to top

Profile PM Email

Oneka

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: Hampton,VA

Posted: 2nd Apr 2006 11:07

Link

Oh forgot to say this,
This is really awesome

great work with it man

Making better games everday!
Oh yeah and just so you know its Oh-nek-a not One-ka!

Back to top

Profile PM Email Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 2nd Apr 2006 11:33

Link

Wow thanks guys ! Thats brought a smile to my morning.
Yeah the commands themselves would be non newton you just feed in force vaues from whichever system you are using....but thats in the future!

M.I.A is pending

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 3rd Apr 2006 02:07

Link

Wow, thanks so much Baggers. I am beginning work on my new project, a sequel of Firewall, and this will be awesome to add in. I'm a huge audio freak (have 6.2 surround sound in my dorm room, 2 subs including a 300 watt beast), and it will be great to have some decent sound in my next game. I am still in the way start of the new game, but I'll be sure to let you know how it goes, can't wait to play around with this. Thanks again man. This earns you a free copy of the sequel once I finish it

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 3rd Apr 2006 09:17

Link

Wow thanks very much. I hope I havnt miss-sold it though.
This as yet doesnt do proper surround sound. It is just like standard DB sounds in that respect. The sound panning works fine though and if you have any requests for features shout about 'em here. I however do want to expand this at a later date for proper full surround sound.
Thanks again man.

M.I.A is pending

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 3rd Apr 2006 10:12

Link

Yeah, I understand that. But if it as it a least decent panning sound, then my receiver can convert that stereo signal into emulated surround sound. It works great with commerical RTS games. As long as it is good stereo sound, so this should work fine. Real surround sound would be crazy awesome, but I don't even have a decent computer right now with coax or direct 7.1 out, so I can't use real surround sound out of my computer until I build my own computer with a decent sound card anyway.

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 3rd Apr 2006 10:28

Link

In that case awesome !...I just hated the idea of you being dissapointed by this once you had started coding!

M.I.A is pending

Back to top

Profile PM Email

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 3rd Apr 2006 12:31 Edited at: 3rd Apr 2006 12:33

Link

Quote: "Sunrise: Like I said above, that will be in the next version."

Lol sorry i meant wma

Theme park simulator wip
http://forum.thegamecreators.com/?m=forum_view&t=71731&b=8

Back to top

Profile PM Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 3rd Apr 2006 12:46

Link

Nope WMA won't be supported. I suggest finding a converter of some kind. Sorry about that.

M.I.A is pending

Back to top

Profile PM Email

Hatsu

22

Years of Service

User Offline

Joined: 22nd Oct 2002

Location:

Posted: 5th Apr 2006 21:29

Link

Looks good, I will have to try this out. I tell you what would make it amazing, would be if it took into affect the Doppler effect for sound.

Still good work though.

Back to top

Profile PM

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 6th Apr 2006 12:05

Link

Quote: "I tell you what would make it amazing, would be if it took into affect the Doppler effect for sound"

Indeed it would!...well I know nothing about it yet but who knows could be a future project!

M.I.A is pending

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 6th Apr 2006 23:36

Link

It isn't a difficult thing to figure out. I am assuming you know the basics:

-when the difference between the velocities of the source and the listener < 0 (objects are moving closer to eachother) then the pitch is raised

-when the difference between the velocities of the source and the listener > 0 (objects are moving farther apart from one another) then the pitch is lowered

I can't remember the equation right now, I'll get it for you later after class if you don't get it before then, it'd be an awesome effect though

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 7th Apr 2006 10:07

Link

Yeah, I had a quick read around about dopler effect. I havnt looked up the equations yet either. Could have a nice little dopler function do you juse feed in a velocity and it does the rest.
Definately something i'll look into.

M.I.A is pending

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 7th Apr 2006 19:06

Link

Yeah, all you'd need is the difference in velocities of the source of the sound and the listener, and the pitch of the sound being played. Then just adjust the pitch accordingly

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

adr

21

Years of Service

User Offline

Joined: 21st May 2003

Location: Job Centre

Posted: 8th Apr 2006 05:22

Link

I tried to hack together a doppler effect with Torrey's DLL. Even though you can change the pitch of a sound using a float, the results are too "crackley".

I don't know what the reason for that is, but every time you change the sound pitch, even with just a minute change to a float, there's a tiny, but audible, click. Do that several times per second and it sounds like your space ship engine is coming out of an old record player.

[center]

iv tryed everything!!!!!!!!!! could u please just add The gun and shooting Code thats All!!!!!!!!!

Back to top

Profile PM Website

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 8th Apr 2006 23:31

Link

That'd be quite annoying

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Baggers

20

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 9th Apr 2006 09:02

Link

Ouch...won't be doing that for a bit then!

M.I.A is pending

Back to top

Profile PM Email

Sorry your browser is not supported!

Program Announcements / Free 3D sound system replacement