Jump to content

Bass.dll + bass_fx

jvds

By jvds,
in AutoIt General Help and Support

 Share

Recommended Posts

jvds Adventurer

jvds

Posted
Posted (edited)

hey, having a problem understanding bass udf,

i can get the audio to play with _BASS_FX_ReverseCreate, forward and backwards, with the reverse BASS_FX_RVS_REVERSE and BASS_FX_RVS_FORWARD settings, or i can get the audio to play with _BASS_FX_TempoCreate, forward and modifying the pitch and tempo, overlap secs, and so on, but i cant get them to work togheter, any idea on how to make them work together?

i tried something on line 115 but didn't work, and have no idea on how to do it, any tips? 

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

#include <Bass.au3>
#include <BassConstants.au3>
#include <BassFX.au3>


#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Global $Progress_A
Global $Progress_B


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)

_GUICtrlCreateProgress(5, 5, 605, 10)

$BTNPosLeft = 5
$BTNPosTop = 20
$BTNplay = GUICtrlCreateButton(chrw(9654), $BTNPosLeft, $BTNPosTop, 51, 25)
GUICtrlSetFont(-1, 18, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNStop = GUICtrlCreateButton(chrw(9632), $BTNPosLeft, $BTNPosTop, 51, 25)
GUICtrlSetFont(-1, 10, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNpause = GUICtrlCreateButton(chrw(9646)&chrw(9646), $BTNPosLeft, $BTNPosTop, 51, 25) ;9646
GUICtrlSetFont(-1, 11, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNReverse = GUICtrlCreateButton(chrw(9664), $BTNPosLeft, $BTNPosTop, 51, 25)
GUICtrlSetFont(-1, 18, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
GUISetState(@SW_SHOW)

$BTNPosLeft = 5
$BTNTempoUp = GUICtrlCreateButton("TempUp", $BTNPosLeft, $BTNPosTop+30, 51, 25)
GUICtrlSetFont(-1, 10, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNTempoDn = GUICtrlCreateButton('TempDn', $BTNPosLeft, $BTNPosTop+30, 51, 25)
GUICtrlSetFont(-1, 10, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
;~ $BTNTest
#EndRegion ### END Koda GUI section ###

GUIRegisterMsg($WM_LBUTTONDOWN, "_WM_LBUTTONDOWN")


Global $playing_state = -1
;Startup Bass & BassFX.  Also check if loading failed.
_BASS_STARTUP ("BASS.dll")
If @error = -1 Then
    MsgBox (0, "", "DLL Does not exist?  Please check file exists.")
    Exit
EndIf

_BASS_FX_Startup("bass_fx.dll")
If @error = -1 Then
    MsgBox (0, "", "DLL Does not exist?  Please check file exists.")
    Exit
EndIf

;Initalize bass.  Required for most functions.
_BASS_Init(0, -1, 44100, 0, "")

;Check if bass iniated.  If not, we cannot continue.
If @error Then
    MsgBox(0, "Error", "Could not initialize audio")
    Exit
EndIf

;Prompt the user to select a MP3 file
$file = FileOpenDialog("Open...", "", "MP3 Files (*.*)")

$MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, $BASS_STREAM_DECODE)

;Check if we opened the file correctly.
If @error Then
    MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
    Exit
EndIf
;Get the length of the song in bytes.
$song_length = _BASS_ChannelGetLength($MusicHandle, $BASS_POS_BYTE)
;~ ConsoleWrite ('$song_length='&$song_length&@lf)

$song_length_Sec = _BASS_ChannelBytes2Seconds($MusicHandle, $song_length)
;~ ConsoleWrite ('$song_length_Sec='&$song_length_Sec&@lf)
ConsoleWrite ('>Time = '&StringFormat("%02d", floor($song_length_Sec/60))&':'&StringFormat("%02d", round($song_length_Sec-(60*floor($song_length_Sec/60))))&''&@lf)







;~ ;TEST WITH ONLY REVRESE
$tempo = _BASS_FX_ReverseCreate ($MusicHandle, 10, 0)
_BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_REVERSE)


;TEST WITH ONLY Tempo
;~ $tempo = _BASS_FX_TempoCreate ($MusicHandle, 0)
;~ _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_REVERSE)








;Test with reverse  Tempo
;~ $Reverse = _BASS_FX_TempoCreate ($MusicHandle, 0)
;~ _BASS_ChannelSetAttribute ($Reverse, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_REVERSE)

;~ $tempo = _BASS_FX_ReverseCreate ($Reverse, 10, 0)
;~ _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_REVERSE)









$current = _BASS_ChannelGetPosition($tempo, $BASS_POS_BYTE)
ConsoleWrite ('1'&@lf)

$tempoSpeed = 0

While 1
;~ ConsoleWrite ('X'&@lf)

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _BASS_Free()
            Exit
        Case $BTNplay
            _BASS_ChannelPause($tempo)
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_FORWARD)
            _BASS_ChannelPlay($tempo, 0)

        Case $BTNStop
            _BASS_ChannelStop($tempo)
        Case $BTNpause
            _BASS_ChannelPause($tempo)
        Case $BTNReverse
            _BASS_ChannelPause($tempo)
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_REVERSE)
            _BASS_ChannelPlay($tempo, 0)

        Case $BTNTempoUp
            $tempoSpeed += 5
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_TEMPO, $tempoSpeed)
            ConsoleWrite ('$tempoSpeed='&$tempoSpeed&@lf)
        Case $BTNTempoDn
            $tempoSpeed -= 5
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_TEMPO, $tempoSpeed)
            ConsoleWrite ('$tempoSpeed='&$tempoSpeed&@lf)

    EndSwitch

    Sleep(20)

    ;Get the current position in bytes
    $current = _BASS_ChannelGetPosition($tempo, $BASS_POS_BYTE)

    Local $pos_A = ControlGetPos ('','',$Progress_A)
    $X_position =   $current/($song_length/$pos_A[2]-2)
;~  ConsoleWrite ('!$X_position= '&$X_position&@lf)
    _GUICtrlSetProgress( $X_position)

WEnd

func _GUICtrlSetProgress($data)
    Local $pos_A = ControlGetPos ('','',$Progress_A)
    Local $pos_B = ControlGetPos ('','',$Progress_B)
    If $data > $pos_A[2]-2 then $data = $pos_A[2]-2
    ControlMove('','',$Progress_B,$pos_B[0],$pos_B[1],$data,$pos_B[3])
EndFunc

Func _GUICtrlCreateProgress($left, $top , $width , $height )

    $Progress_A = GUICtrlCreateLabel("", $left+1, $top+1, $width-1, $height-1)
    GUICtrlSetBkColor(-1, 0xCCCCCC)
    GUICtrlSetState(-1, $GUI_DISABLE)

    $Progress_B = GUICtrlCreateLabel("", $left+2, $top+2, $width-3 , $height-3)
    GUICtrlSetBkColor(-1, 0x888888)
    GUICtrlSetState(-1, $GUI_DISABLE)

    $GR_Top = GUICtrlCreateGraphic($left, $top, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $width+1, 0)

    $GR_Bot = GUICtrlCreateGraphic($left, $top+$height, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $width+1, 0)

    $GR_Bot = GUICtrlCreateGraphic($left, $top, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 0, $height)

    $GR_Bot = GUICtrlCreateGraphic($left, $top, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $width, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $width, $height)

EndFunc


Func _WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
    ; Check control under cursor
    $aCInfo = GUIGetCursorInfo($Form1)
;~  $aCInfo = GUIGetCursorInfo()
    ConsoleWrite ('$aCInfo[0]= '&$aCInfo[0]&@lf)
    ConsoleWrite ('$aCInfo[1]= '&$aCInfo[1]&@lf)
    ConsoleWrite ('$aCInfo[2]= '&$aCInfo[2]&@lf)
    ConsoleWrite ('$aCInfo[3]= '&$aCInfo[3]&@lf)
    ConsoleWrite ('$aCInfo[4]= '&$aCInfo[4]&@lf)

    If $aCInfo[4] = $Progress_A or $aCInfo[4] = $Progress_B Then


        $aBar=  ControlGetPos ("","",$Progress_A)
        $X_position = $aCInfo[0]-$aBar[0]
        ConsoleWrite ('!$X_position= '&$X_position&@lf)

        _GUICtrlSetProgress( $X_position)

        Local $pos_A = ControlGetPos ('','',$Progress_A)

        $ChannelSetPosition= $X_position*($song_length/$pos_A[2]-2)

        _BASS_ChannelSetPosition($tempo,$ChannelSetPosition,$BASS_POS_BYTE)

    EndIf
EndFunc   ;==>_WM_LBUTTONDOWN


Func OnAutoItExit()
    ;Free Resources
    _BASS_Free()
EndFunc   ;==>OnAutoItExit

 

Edit: sorry, posted in the wrong area, Please move my post to general help and support

Edited by jvds
Link to comment
Share on other sites
Synapsee Wayfarer

Synapsee

Posted
Posted

hi @jvds, i have try multiple bass reverse/tempo manipulation. I have maybe a first soluce, probably not the best one...

I can't really tell how or why. I have just little luck without understand exactly all. 

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

#include <Bass.au3>
#include <BassConstants.au3>
#include <BassFX.au3>

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Progress_A
Global $Progress_B

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 615, 438, 192, 124)

_GUICtrlCreateProgress(5, 5, 605, 10)

$BTNPosLeft = 5
$BTNPosTop = 20
$BTNplay = GUICtrlCreateButton(chrw(9654), $BTNPosLeft, $BTNPosTop, 51, 25)
GUICtrlSetFont(-1, 18, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNStop = GUICtrlCreateButton(chrw(9632), $BTNPosLeft, $BTNPosTop, 51, 25)
GUICtrlSetFont(-1, 10, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNpause = GUICtrlCreateButton(chrw(9646)&chrw(9646), $BTNPosLeft, $BTNPosTop, 51, 25) ;9646
GUICtrlSetFont(-1, 11, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNReverse = GUICtrlCreateButton(chrw(9664), $BTNPosLeft, $BTNPosTop, 51, 25)
GUICtrlSetFont(-1, 18, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
GUISetState(@SW_SHOW)

$BTNPosLeft = 5
$BTNTempoUp = GUICtrlCreateButton("TempUp", $BTNPosLeft, $BTNPosTop+30, 51, 25)
GUICtrlSetFont(-1, 10, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51
$BTNTempoDn = GUICtrlCreateButton('TempDn', $BTNPosLeft, $BTNPosTop+30, 51, 25)
GUICtrlSetFont(-1, 10, 0, 0, "MS Sans Serif")
$BTNPosLeft += 51

#EndRegion ### END Koda GUI section ###

GUIRegisterMsg($WM_LBUTTONDOWN, "_WM_LBUTTONDOWN")

Global $playing_state = -1
;Startup Bass & BassFX.  Also check if loading failed.
_BASS_STARTUP ("BASS.dll")
If @error = -1 Then
    MsgBox (0, "", "DLL Does not exist?  Please check file exists.")
    Exit
EndIf

_BASS_FX_Startup("bass_fx.dll")
If @error = -1 Then
    MsgBox (0, "", "DLL Does not exist?  Please check file exists.")
    Exit
EndIf

;Initalize bass.  Required for most functions.
_BASS_Init(0, -1, 44100, 0, "")

;Check if bass iniated.  If not, we cannot continue.
If @error Then
    MsgBox(0, "Error", "Could not initialize audio")
    Exit
EndIf

;Prompt the user to select a MP3 file
$file = FileOpenDialog("Open...", "", "MP3 Files (*.*)")

$MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, $BASS_STREAM_DECODE)

;Check if we opened the file correctly.
If @error Then
    MsgBox(0, "Error", "Could not load audio file" & @CR & "Error = " & @error)
    Exit
EndIf
;Get the length of the song in bytes.
$song_length = _BASS_ChannelGetLength($MusicHandle, $BASS_POS_BYTE)
;~ ConsoleWrite ('$song_length='&$song_length&@lf)

$song_length_Sec = _BASS_ChannelBytes2Seconds($MusicHandle, $song_length)
;~ ConsoleWrite ('$song_length_Sec='&$song_length_Sec&@lf)
ConsoleWrite ('>Time = '&StringFormat("%02d", floor($song_length_Sec/60))&':'&StringFormat("%02d", round($song_length_Sec-(60*floor($song_length_Sec/60))))&''&@lf)



$tempo = _BASS_FX_ReverseCreate ($MusicHandle, 2, $BASS_STREAM_DECODE)
_BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_FORWARD)

$tempo = _BASS_FX_TempoCreate ($tempo, 0)



$current = _BASS_ChannelGetPosition($tempo, $BASS_POS_BYTE)
ConsoleWrite ('1'&@lf)

$tempoSpeed = 0

While 1
;~ ConsoleWrite ('X'&@lf)

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _BASS_Free()
            Exit
        Case $BTNplay
             _BASS_ChannelStop($tempo)

            $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, $BASS_STREAM_DECODE)

            $tempo = _BASS_FX_ReverseCreate ($MusicHandle, 2, $BASS_STREAM_DECODE)
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_FORWARD)

            $tempo = _BASS_FX_TempoCreate ($tempo, 0)

            _BASS_ChannelPlay($tempo, 0)

        Case $BTNStop
            _BASS_ChannelStop($tempo)
        Case $BTNpause
            _BASS_ChannelPause($tempo)
        Case $BTNReverse
            _BASS_ChannelStop($tempo)

            $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, $BASS_STREAM_DECODE)

            $tempo = _BASS_FX_ReverseCreate ($MusicHandle, 2, $BASS_STREAM_DECODE)
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_REVERSE_DIR, $BASS_FX_RVS_REVERSE)

            $tempo = _BASS_FX_TempoCreate ($tempo, 0)

            _BASS_ChannelPlay($tempo, 0)

        Case $BTNTempoUp
            $tempoSpeed += 5
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_TEMPO, $tempoSpeed)
            ConsoleWrite ('$tempoSpeed='&$tempoSpeed&@lf)
        Case $BTNTempoDn
            $tempoSpeed -= 5
            _BASS_ChannelSetAttribute ($tempo, $BASS_ATTRIB_TEMPO, $tempoSpeed)
            ConsoleWrite ('$tempoSpeed='&$tempoSpeed&@lf)

    EndSwitch

    Sleep(20)

    ;Get the current position in bytes
    $current = _BASS_ChannelGetPosition($tempo, $BASS_POS_BYTE)

    Local $pos_A = ControlGetPos ('','',$Progress_A)
    $X_position =   $current/($song_length/$pos_A[2]-2)
;~  ConsoleWrite ('!$X_position= '&$X_position&@lf)
    _GUICtrlSetProgress( $X_position)

WEnd

func _GUICtrlSetProgress($data)
    Local $pos_A = ControlGetPos ('','',$Progress_A)
    Local $pos_B = ControlGetPos ('','',$Progress_B)
    If $data > $pos_A[2]-2 then $data = $pos_A[2]-2
    ControlMove('','',$Progress_B,$pos_B[0],$pos_B[1],$data,$pos_B[3])
EndFunc

Func _GUICtrlCreateProgress($left, $top , $width , $height )

    $Progress_A = GUICtrlCreateLabel("", $left+1, $top+1, $width-1, $height-1)
    GUICtrlSetBkColor(-1, 0xCCCCCC)
    GUICtrlSetState(-1, $GUI_DISABLE)

    $Progress_B = GUICtrlCreateLabel("", $left+2, $top+2, $width-3 , $height-3)
    GUICtrlSetBkColor(-1, 0x888888)
    GUICtrlSetState(-1, $GUI_DISABLE)

    $GR_Top = GUICtrlCreateGraphic($left, $top, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $width+1, 0)

    $GR_Bot = GUICtrlCreateGraphic($left, $top+$height, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $width+1, 0)

    $GR_Bot = GUICtrlCreateGraphic($left, $top, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 0, $height)

    $GR_Bot = GUICtrlCreateGraphic($left, $top, 0, 0)
;~  GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $width, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $width, $height)

EndFunc


Func _WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
    ; Check control under cursor
    $aCInfo = GUIGetCursorInfo($Form1)
;~  $aCInfo = GUIGetCursorInfo()
    ConsoleWrite ('$aCInfo[0]= '&$aCInfo[0]&@lf)
    ConsoleWrite ('$aCInfo[1]= '&$aCInfo[1]&@lf)
    ConsoleWrite ('$aCInfo[2]= '&$aCInfo[2]&@lf)
    ConsoleWrite ('$aCInfo[3]= '&$aCInfo[3]&@lf)
    ConsoleWrite ('$aCInfo[4]= '&$aCInfo[4]&@lf)

    If $aCInfo[4] = $Progress_A or $aCInfo[4] = $Progress_B Then


        $aBar=  ControlGetPos ("","",$Progress_A)
        $X_position = $aCInfo[0]-$aBar[0]
        ConsoleWrite ('!$X_position= '&$X_position&@lf)

        _GUICtrlSetProgress( $X_position)

        Local $pos_A = ControlGetPos ('','',$Progress_A)

        $ChannelSetPosition= $X_position*($song_length/$pos_A[2]-2)

        _BASS_ChannelSetPosition($tempo,$ChannelSetPosition,$BASS_POS_BYTE)

    EndIf
EndFunc   ;==>_WM_LBUTTONDOWN


Func OnAutoItExit()
    ;Free Resources
    _BASS_Free()
EndFunc   ;==>OnAutoItExit

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...