Jump to content

sound level sampling

mattfaust

By mattfaust,
in AutoIt General Help and Support

 Share

Recommended Posts

mavrck48 Seeker

mavrck48

Posted
Posted

@careca After playing around with the Bass stuff I don't think it can do what I'm looking for.  Every function in Bass relies on a handle call.  Looking through the example you uploaded and the help file all the handles are derived from executing a music file and then reading the attributes of the sound channels created from doing that.

What I am trying to do it just read the overall windows sound level regardless of where the sound comes from.  I can successfully find the sound card and the volume setting (Windows Vol Info), but not the actual sound level.  The volume setting is the blue arrow and the red arrow in this screenshot of the windows volume panel is what I want to get a reading for at any point in time (Red Arrow).

From what I can see of the Bass functions it cannot do that unless Bass initiates the sounds.  I can see that to read the volume level you need a channel to read.  When I look at the help file for what a channel is (Channel) they are all results of executing a Bass function to create the sounds (sample, stream, music, record, etc.).  

So, is there any way to use Bass functions to read the volume level of sounds created outside of Bass?  Am I missing something?

Appreciate the help! 

;thx to Authenticity for GDIp.au3
#AutoIt3Wrapper_UseX64=n
#include "Bass.au3"
#include "BassExt.au3"
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <MsgBoxConstants.au3>



;Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars", 1)
Local $ghGDIPDll = DllOpen("GDIPlus.dll")
;Global $sFile = FileOpenDialog("Open...", "", "playable formats (*.MP3;*.MP2;*.MP1;*.OGG;*.WAV;*.AIFF;*.AIF)")
;If @error Or Not FileExists($sFile) Then Exit

;Global $iWidth = 550
;Global $iHeight = 400

Global $hGui, $hGraphics, $hGfxBuffer, $hBmpBuffer, $hBmpBk, $hBmpMeter, $hBmpLed, $hBmpPhase, $hBmpPhaseMeter, $hBmpWave, $hBrushFFT, $hPenPhase, $hPenWaveL, $hPenWaveR
Global $aFFT, $aPeak, $aPhaseCorr, $aPhase, $aWave
Global $iTimer
Global $hStream

;$hGui = GUICreate("BASS_EXT AudioMeter", $iWidth, $iHeight)
;GUISetOnEvent(-3, "_EXIT")
;GUISetBkColor(0x000000)

#cs
_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
$hBmpBuffer = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
$hGfxBuffer = _GDIPlus_ImageGetGraphicsContext($hBmpBuffer)
_GDIPlus_GraphicsSetSmoothingMode($hGfxBuffer, 2)


$hBmpMeter = _BMPCreateMeter(360, $hGraphics)
$hBmpLed = _BMPCreateLED($hGraphics, 14, 0xFF000000, 0xFFFF1111)

$hBmpPhaseMeter = _BMPCreatePhaseMeter(200, $hGraphics)
$hBmpPhase = _BMPCreatePhase(200, 190, $hGraphics)
$hPenPhase = _GDIPlus_PenCreate(0xFFFFAA00, 1)

$hBmpWave = _BMPCreateWave(200, 200, $hGraphics)
$hPenWaveL = _GDIPlus_PenCreate(0xFF00FF00, 1)
$hPenWaveR = _GDIPlus_PenCreate(0xFFFF0000, 1)

$hBrushFFT = _BrushCreateFFT(130, 220, 410, 170, $iWidth, $iHeight, $hGraphics)
$aFFT = _BASS_EXT_CreateFFT(82, 130, 220, 410, 170, 1, 70, True)

$hBmpBk = _BMPCreateBackGround($iWidth, $iHeight, $hGraphics)
#ce

_BASS_Startup(@ScriptDir & "\bass.dll")
___Debug(@error, "load bass.dll")

_BASS_EXT_Startup(@ScriptDir & "\bassExt.dll")
___Debug(@error, "load bassext.dll")

_BASS_Init($BASS_DEVICE_CPSPEAKERS, 1, 44100, 0, "")
___Debug(@error, "initialize bass")

_BASS_SetConfig($BASS_CONFIG_UPDATEPERIOD, 100)
___Debug(@error, "set update period")

_BASS_SetConfig($BASS_CONFIG_BUFFER, 250)
___Debug(@error, "set buffer size")

;GUIRegisterMsg(0x000F, "WM_PAINT")
;GUISetState()

;$hStream = _BASS_StreamCreateFile(False, $sFile, 0, 0, 0)
;___Debug(@error, "create stream from file: " & $sFile)

;$aPeak = _BASS_EXT_ChannelSetMaxPeakDsp($hStream)
;___Debug(@error, "set dsp callback to check for the highest peak")

;_BASS_ChannelPlay($hStream, True)
;___Debug(@error, "start stream")

#cs
$iTimer = TimerInit()
While _BASS_ChannelIsActive($hStream)
    Sleep(15)
    If TimerDiff($iTimer) > 25 Then
        $iTimer = TimerInit()
        _GDIPlus_GraphicsDrawImage($hGfxBuffer, $hBmpBk, 0, 0)
        _DrawMeter()
        _DrawPhase()
        _DrawWave()
        _DrawFFT()
        _GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
        ;ConsoleWrite(TimerDiff($iTimer) & @CRLF)
    EndIf
WEnd
#ce
;_Exit()

Global $Device_Info[3],$iLong,$device,$channel_info,$error_code,$channel_active,$channel_lev_l,$channel_lev_r,$Windows_Vol
$Device_Info = _BASS_GetDeviceInfo(1)
___Debug(@error, "device info")
$device = _BASS_SetDevice(1)
___Debug(@error, "set device")
$Windows_Vol = _BASS_GetVolume()
___Debug(@error, "windows volume")
;$iLong = _BASS_ChannelGetLevel("hchannel")
;___Debug(@error, "channel get level")
;$channel_lev_l = _LoWord($ilong)
;$channel_lev_r = _HiWord($ilong)

;$channel_info = _BASS_ChannelGetAttribute("HCHANNEL", "BASS_ATTRIB_VOL")
;___Debug(@error, "channel get attritbute")
;$channel_active = _BASS_ChannelIsActive("HSTREAM")
___Debug(@error, "channel active")
MsgBox(0,"","Name: " & $Device_Info[0] & " Driver: " & $Device_Info[1] & " Status: " & $Device_Info[2] & " Windows Vol: " & $Windows_Vol)
;MsgBox(0,"","Overall Level: " & $iLong)
;MsgBox(0,"","Level Left: " & $channel_lev_l & " Level Right: " & $channel_lev_r)
;MsgBox(0,"","Channel active: " & $channel_active)

#cs
Func _DrawMeter()
    Local $iLong, $nLevelL, $nLevelR, $iLevel
    Local Static $nPeakL, $nPeakR, $nPeakL_Hold, $nPeakR_Hold, $iPeakL_Cnt, $iPeakR_Cnt
    Local Static $nRmsL, $nRmsR, $nRmsL_Hold, $nRmsR_Hold, $iRmsL_Cnt, $iRmsR_Cnt, $iPeakLedL_Cnt = 60, $iPeakLedR_Cnt = 60
    If _BASS_ChannelIsActive($hStream) = $BASS_ACTIVE_PLAYING Then
        $iLong = _BASS_ChannelGetLevel($hStream)
        $nLevelL = _BASS_EXT_Level2dB(_LoWord($iLong) / 32768, 60)
        $nLevelR = _BASS_EXT_Level2dB(_HiWord($iLong) / 32768, 60)
        If $nLevelL > $nPeakL Then $nPeakL = $nLevelL
        If $nLevelL > $nPeakL_Hold Then
            $nPeakL_Hold = $nLevelL
            $iPeakL_Cnt = 0
        EndIf
        If $nLevelR > $nPeakR Then $nPeakR = $nLevelR
        If $nLevelR > $nPeakR_Hold Then
            $nPeakR_Hold = $nLevelR
            $iPeakR_Cnt = 0
        EndIf

        $iLong = _BASS_EXT_ChannelGetRMSLevel($hStream)
        $nLevelL = _BASS_EXT_Level2dB(_LoWord($iLong) / 32768, 60)
        $nLevelR = _BASS_EXT_Level2dB(_HiWord($iLong) / 32768, 60)
        If $nLevelL > $nRmsL Then $nRmsL = $nLevelL
        If $nLevelL > $nRmsL_Hold Then
            $nRmsL_Hold = $nLevelL
            $iRmsL_Cnt = 0
        EndIf
        If $nLevelR > $nRmsR Then $nRmsR = $nLevelR
        If $nLevelR > $nRmsR_Hold Then
            $nRmsR_Hold = $nLevelR
            $iRmsR_Cnt = 0
        EndIf

    EndIf

    $iLevel = Round(360 - $nPeakL * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 15, 360 - $iLevel, 10, 30 + $iLevel, 15, 360 - $iLevel)
    $iLevel = Round(360 - $nPeakL_Hold * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 15, 4, 10, 30 + $iLevel, 15, 4)

    $iLevel = Round(360 - $nPeakR * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 15, 360 - $iLevel, 80, 30 + $iLevel, 15, 360 - $iLevel)
    $iLevel = Round(360 - $nPeakR_Hold * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 15, 4, 80, 30 + $iLevel, 15, 4)


    $iLevel = Round(360 - $nRmsL * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 20, 360 - $iLevel, 30, 30 + $iLevel, 20, 360 - $iLevel)
    $iLevel = Round(360 - $nRmsL_Hold * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 20, 4, 30, 30 + $iLevel, 20, 4)

    $iLevel = Round(360 - $nRmsR * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 20, 360 - $iLevel, 100, 30 + $iLevel, 20, 360 - $iLevel)
    $iLevel = Round(360 - $nRmsR_Hold * 360)
    $iLevel -= Mod($iLevel, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpMeter, 0, $iLevel, 20, 4, 100, 30 + $iLevel, 20, 4)


    $nLevelL = _BASS_EXT_ChannelGetMaxPeak($aPeak, 0, True)
    $nLevelR = _BASS_EXT_ChannelGetMaxPeak($aPeak, 1, True)
    If $nLevelL > 0.99 Then $iPeakLedL_Cnt = 0
    If $nLevelR > 0.99 Then $iPeakLedR_Cnt = 0

    If $iPeakLedL_Cnt < 60 Then _GDIPlus_GraphicsDrawImage($hGfxBuffer, $hBmpLed, 10, 10)
    If $iPeakLedR_Cnt < 60 Then _GDIPlus_GraphicsDrawImage($hGfxBuffer, $hBmpLed, 80, 10)

    $iPeakL_Cnt += 1
    If $iPeakL_Cnt > 80 Then $nPeakL_Hold -= 0.005
    $iPeakR_Cnt += 1
    If $iPeakR_Cnt > 80 Then $nPeakR_Hold -= 0.005
    $nPeakL -= 0.01
    $nPeakR -= 0.01

    $iRmsL_Cnt += 1
    If $iRmsL_Cnt > 60 Then $nRmsL_Hold -= 0.005
    $iRmsR_Cnt += 1
    If $iRmsR_Cnt > 60 Then $nRmsR_Hold -= 0.005
    $nRmsL -= 0.01
    $nRmsR -= 0.01

    $iPeakLedL_Cnt += 1
    $iPeakLedR_Cnt += 1
EndFunc   ;==>_DrawMeter


Func _DrawWave()
    $aWave = _BASS_EXT_ChannelGetWaveformEx($hStream, 256, 340, 70, 200, 60, 340, 150, 200, 60)
    If Not @error Then
        DllCall($ghGDIPDll, "int", "GdipDrawCurveI", "handle", $hGfxBuffer, "handle", $hPenWaveL, "ptr", $aWave[0], "int", $aWave[2])
        DllCall($ghGDIPDll, "int", "GdipDrawCurveI", "handle", $hGfxBuffer, "handle", $hPenWaveR, "ptr", $aWave[1], "int", $aWave[2])
    EndIf
EndFunc   ;==>_DrawWave


Func _DrawPhase()
    $aPhaseCorr = _BASS_EXT_ChannelGetPhaseData($hStream, 128)
    Local Static $nPhase
    $nPhase += ($aPhaseCorr[0][1] - $nPhase) / 12
    Local $iPhase = 100 * $nPhase + 100
    $iPhase -= Mod($iPhase, 4)
    _GDIPlus_GraphicsDrawImageRectRect($hGfxBuffer, $hBmpPhaseMeter, $iPhase, 0, 4, 10, $iPhase + 130, 200, 4, 10)

    $aPhase = _BASS_EXT_ChannelGetPhaseDataEx($hStream, 512, 230, 107, 100, 100)
    If Not @error Then DllCall($ghGDIPDll, "int", "GdipDrawCurveI", "handle", $hGfxBuffer, "handle", $hPenPhase, "ptr", $aPhase[0], "int", $aPhase[1])
EndFunc   ;==>_DrawPhase


Func _DrawFFT()
    Local $iTimer = TimerInit()
    _BASS_EXT_ChannelGetFFT($hStream, $aFFT, 6)
    If Not @error Then DllCall($ghGDIPDll, "int", "GdipFillPolygonI", "handle", $hGfxBuffer, "handle", $hBrushFFT, "ptr", $aFFT[0], "int", $aFFT[1], "int", "FillModeAlternate")
EndFunc   ;==>_DrawFFT

#ce

#cs

Func WM_PAINT($hWnd, $uMsgm, $wParam, $lParam)
    _GDIPlus_GraphicsDrawImage($hGraphics, $hBmpBuffer, 0, 0)
    Return 'GUI_RUNDEFMSG'
EndFunc   ;==>WM_PAINT

Func _BMPCreateBackGround($iW, $iH, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetSmoothingMode($hContext, 2)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hBrushBK = _GDIPlus_BrushCreateSolid(0xEE000000)
    Local $hBrushTXT = _GDIPlus_BrushCreateSolid(0xFF99AAFF)
    Local $hPen = _GDIPlus_PenCreate(0xFF222222, 1)
    _GDIPlus_GraphicsDrawImage($hContext, $hBmpLed, 10, 10)
    _GDIPlus_GraphicsDrawImageRectRect($hContext, $hBmpMeter, 0, 0, 15, 360, 10, 30, 15, 360)
    _GDIPlus_GraphicsDrawImageRectRect($hContext, $hBmpMeter, 0, 0, 20, 360, 30, 30, 20, 360)
    _GDIPlus_GraphicsDrawImage($hContext, $hBmpLed, 80, 10)
    _GDIPlus_GraphicsDrawImageRectRect($hContext, $hBmpMeter, 0, 0, 15, 360, 80, 30, 15, 360)
    _GDIPlus_GraphicsDrawImageRectRect($hContext, $hBmpMeter, 0, 0, 20, 360, 100, 30, 20, 360)
    _GDIPlus_GraphicsDrawImageRectRect($hContext, $hBmpPhaseMeter, 0, 0, 200, 10, 130, 200, 200, 10)
    DllCall($ghGDIPDll, "int", "GdipFillPolygonI", "handle", $hContext, "handle", $hBrushFFT, "ptr", $aFFT[0], "int", $aFFT[1], "int", "FillModeAlternate")
    _GDIPlus_GraphicsFillRect($hContext, 0, 0, $iW, $iH, $hBrushBK)
    _GDIPlus_GraphicsDrawImage($hContext, $hBmpPhase, 130, 10)
    _GDIPlus_GraphicsDrawImage($hContext, $hBmpWave, 340, 10)
    _DrawText($hContext, "PEAK", 26, 13, 6, $hBrushTXT)
    _DrawText($hContext, "PEAK", 96, 13, 6, $hBrushTXT)
    Local $sString
    Local $nY
    For $i = 0 To 59 Step 3
        $nY = _BASS_EXT_Level2dB(_BASS_EXT_dB2Level(-$i), 60)
        $sString = "-" & $i
        If $i = 0 Then $sString = "0 dB"
        _DrawText($hContext, $sString, 65, 390 - (360 * $nY), 7, $hBrushTXT, True)
    Next
    _GDIPlus_GraphicsDrawRect($hContext, 129, 9, 201, 201, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 129, 199, 201, 11, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 339, 9, 201, 201, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 129, 219, 411, 171, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 9, 9, 111, 381, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 9, 29, 16, 361, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 29, 29, 21, 361, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 79, 29, 16, 361, $hPen)
    _GDIPlus_GraphicsDrawRect($hContext, 99, 29, 21, 361, $hPen)

    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrushBK)
    _GDIPlus_BrushDispose($hBrushTXT)
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreateBackGround

Func _BrushCreateFFT($iX, $iY, $iW, $iH, $iWidth, $iHeight, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hBrush[5]
    $hBrush[0] = _GDIPlus_BrushCreateSolid(0xFFFF0000)
    $hBrush[1] = _GDIPlus_LineBrushCreate(0, 0, 0, 20, 0xFFFF0000, 0xFFFFAA00, 1)
    $hBrush[2] = _GDIPlus_LineBrushCreate(0, 20, 0, 40, 0xFFFFAA00, 0xFF00AAFF, 1)
    $hBrush[3] = _GDIPlus_BrushCreateSolid(0xFF00AAFF)
    $hBrush[4] = _GDIPlus_LineBrushCreate(0, 0, 0, 4, 0x00000000, 0xAA000000, 0)
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY, $iW, 20, $hBrush[0])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY + 20, $iW, 20, $hBrush[1])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY + 40, $iW, 20, $hBrush[2])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY + 60, $iW, $iH - 60, $hBrush[3])
    _GDIPlus_GraphicsFillRect($hContext, $iX, $iY, $iW, $iH, $hBrush[4])
    For $i = 0 To 4
        _GDIPlus_BrushDispose($hBrush[$i])
    Next
    _GDIPlus_GraphicsDispose($hContext)
    Local $aRet = DllCall($ghGDIPDll, "uint", "GdipCreateTexture", "hwnd", $hBitmap, "int", 0, "int*", 0)
    _GDIPlus_BitmapDispose($hBitmap)
    Return $aRet[3]
EndFunc   ;==>_BrushCreateFFT

Func _BMPCreateWave($iW, $iH, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hPenL = _GDIPlus_PenCreate(0xFF003300)
    Local $hPenR = _GDIPlus_PenCreate(0xFF330000)
    Local $hBrushL = _GDIPlus_BrushCreateSolid(0xFF00FF00)
    Local $hBrushR = _GDIPlus_BrushCreateSolid(0xFFFF0000)
    _GDIPlus_GraphicsDrawLine($hContext, 0, 60, $iW, 60, $hPenL)
    _GDIPlus_GraphicsDrawLine($hContext, 0, 140, $iW, 140, $hPenR)
    _DrawText($hContext, "left", 5, 62, 7, $hBrushL, False)
    _DrawText($hContext, "right", 5, 142, 7, $hBrushR, False)
    _GDIPlus_PenDispose($hPenL)
    _GDIPlus_PenDispose($hPenR)
    _GDIPlus_BrushDispose($hBrushL)
    _GDIPlus_BrushDispose($hBrushR)
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreateWave

Func _BMPCreatePhaseMeter($iW, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, 12, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hBrush[5]
    $hBrush[0] = _GDIPlus_BrushCreateSolid(0xFFFF0000)
    $hBrush[1] = _GDIPlus_LineBrushCreate(80, 0, 100, 0, 0xFFFF0000, 0xFFFFFF00, 1)
    $hBrush[2] = _GDIPlus_LineBrushCreate(100, 0, 120, 0, 0xFFFFFF00, 0xFF00FF00, 1)
    $hBrush[3] = _GDIPlus_BrushCreateSolid(0xFF00FF00)
    $hBrush[4] = _GDIPlus_LineBrushCreate(0, 0, 4, 0, 0x00000000, 0xAA000000, 0)
    _GDIPlus_GraphicsFillRect($hContext, 0, 0, 80, 12, $hBrush[0])
    _GDIPlus_GraphicsFillRect($hContext, 80, 0, 20, 12, $hBrush[1])
    _GDIPlus_GraphicsFillRect($hContext, 100, 0, 20, 12, $hBrush[2])
    _GDIPlus_GraphicsFillRect($hContext, 120, 0, 100, 12, $hBrush[3])
    _GDIPlus_GraphicsFillRect($hContext, 0, 0, 200, 12, $hBrush[4])
    For $i = 0 To 4
        _GDIPlus_BrushDispose($hBrush[$i])
    Next
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreatePhaseMeter

Func _BMPCreatePhase($iW, $iH, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iW, $iH, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hPen = _GDIPlus_PenCreate(0xFF332200)
    Local $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFAA00)
    Local $nPi = ATan(1) * 4
    Local $nDegToRad = $nPi / 180
    Local $iLX, $iLY
    For $i = 0 To 135 Step 45
        $iLX = Round(Cos($i * $nDegToRad) * $iW * 0.35)
        $iLY = Round(Sin($i * $nDegToRad) * $iW * 0.35)
        _GDIPlus_GraphicsDrawLine($hContext, $iW / 2 - $iLX, $iH / 2 - $iLY, $iW / 2 + $iLX, $iH / 2 + $iLY, $hPen)
        Switch $i
            Case 45
                _DrawText($hContext, "L", $iW / 2 - $iLX * 1.2, $iH / 2 - $iLY * 1.3, 7, $hBrush, True)
            Case 90
                _DrawText($hContext, "M", $iW / 2 - $iLX * 1.2, $iH / 2 - $iLY * 1.27, 7, $hBrush, True)
            Case 135
                _DrawText($hContext, "R", $iW / 2 - $iLX * 1.2, $iH / 2 - $iLY * 1.3, 7, $hBrush, True)
        EndSwitch
    Next
    For $i = -1 To 1
        _DrawText($hContext, $i, 101 + 90 * $i, 178, 7, $hBrush, True)
    Next
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreatePhase

Func _BMPCreateLED($hGraphics, $iSize, $iOffColor, $iOnColor)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iSize, $iSize, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsSetSmoothingMode($hContext, 2)
    Local $hPen = _GDIPlus_PenCreate()
    Local $hPath = _GDIPlus_CreatePath()
    _GDIPlus_AddPathEllipse($hPath, 0, 0, $iSize, $iSize)
    Local $hBrushGrad = _GDIPlus_CreatePathGradientFromPath($hPath)
    _GDIPlus_SetLineGammaCorrection($hBrushGrad, True)
    _GDIPlus_SetPathGradientSurroundColorsWithCount($hBrushGrad, $iOffColor)
    _GDIPlus_SetPathGradientCenterColor($hBrushGrad, $iOnColor)
    _GDIPlus_FillPath($hContext, $hBrushGrad, $hPath)
    _GDIPlus_ClosePathFigure($hPath)
    _GDIPlus_GraphicsDrawEllipse($hContext, 0, 0, $iSize, $iSize, $hPen)
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrushGrad)
    _GDIPlus_PathDispose($hPath)
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreateLED

Func _BMPCreateMeter($iH, $hGraphics)
    Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics(30, $iH, $hGraphics)
    Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    _GDIPlus_GraphicsClear($hContext, 0xFF000000)
    Local $hBrush[6], $iT = Ceiling($iH / 12)
    $hBrush[0] = _GDIPlus_BrushCreateSolid(0xFFFF0000)
    $hBrush[1] = _GDIPlus_LineBrushCreate(0, $iT, 0, $iT * 2, 0xFFFF0000, 0xFFFFFF00, 1)
    $hBrush[2] = _GDIPlus_LineBrushCreate(0, $iT * 2, 0, $iT * 3, 0xFFFFFF00, 0xFF00FF00, 1)
    $hBrush[3] = _GDIPlus_BrushCreateSolid(0xFF00FF00)
    $hBrush[4] = _GDIPlus_LineBrushCreate(0, 0, 0, 4, 0x00000000, 0xAA000000, 0)
    _GDIPlus_GraphicsFillRect($hContext, 0, 0, 30, $iT, $hBrush[0])
    _GDIPlus_GraphicsFillRect($hContext, 0, $iT, 30, $iT, $hBrush[1])
    _GDIPlus_GraphicsFillRect($hContext, 0, $iT * 2, 30, $iT, $hBrush[2])
    _GDIPlus_GraphicsFillRect($hContext, 0, $iT * 3, 30, $iT * 9, $hBrush[3])
    _GDIPlus_GraphicsFillRect($hContext, 0, 0, 30, $iT * 12, $hBrush[4])
    For $i = 0 To 4
        _GDIPlus_BrushDispose($hBrush[$i])
    Next
    _GDIPlus_GraphicsDispose($hContext)
    Return $hBitmap
EndFunc   ;==>_BMPCreateMeter

Func _DrawText($hGraphics, $sText, $iX, $iY, $iSize, $hBrush, $bCenter = False)
    Local $hFormat = _GDIPlus_StringFormatCreate()
    Local $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    Local $hFont = _GDIPlus_FontCreate($hFamily, $iSize, 0)
    Local $tLayout = _GDIPlus_RectFCreate($iX, $iY, 0, 0)
    Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sText, $hFont, $tLayout, $hFormat)
    If $bCenter Then
        Local $iXPos = DllStructGetData($aInfo[0], 1)
        DllStructSetData($aInfo[0], 1, $iXPos - DllStructGetData($aInfo[0], 3) / 2)
    EndIf
    _GDIPlus_GraphicsDrawStringEx($hGraphics, $sText, $hFont, $aInfo[0], $hFormat, $hBrush)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
EndFunc   ;==>_DrawText
#ce
Func _Exit()
    ;_BASS_EXT_ChannelRemoveMaxPeakDsp($aPeak)
    ;___Debug(@error, "remove peak dsp")

    ;_BASS_ChannelStop($hStream)
    ;___Debug(@error, "stop stream")

    ;_BASS_StreamFree($hStream)
    ;___Debug(@error, "free stream")

    ;_BASS_Free()
    ;___Debug(@error, "free bass")

    Exit
EndFunc   ;==>_Exit

Func ___DeBug($iError, $sAction)
    Switch $iError
        Case -1
            ConsoleWrite(@CRLF & "-" & $sAction & @CRLF)
        Case -2
            ConsoleWrite(@CRLF & ">" & $sAction & @CRLF)
        Case 0
            ConsoleWrite(@CRLF & "+" & $sAction & " - OK" & @CRLF)
        Case Else
            ConsoleWrite(@CRLF & "!" & $sAction & " - FAILED, @error: " & $iError & @CRLF)
            _Exit()
    EndSwitch
EndFunc   ;==>___DeBug

#cs
Func _GDIPlus_LineBrushCreate($nX1, $nY1, $nX2, $nY2, $iARGBClr1, $iARGBClr2, $iWrapMode = 0)
    Local $tPointF1, $pPointF1
    Local $tPointF2, $pPointF2
    Local $aResult

    $tPointF1 = DllStructCreate("float;float")
    $pPointF1 = DllStructGetPtr($tPointF1)
    $tPointF2 = DllStructCreate("float;float")
    $pPointF2 = DllStructGetPtr($tPointF2)

    DllStructSetData($tPointF1, 1, $nX1)
    DllStructSetData($tPointF1, 2, $nY1)
    DllStructSetData($tPointF2, 1, $nX2)
    DllStructSetData($tPointF2, 2, $nY2)

    $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateLineBrush", "ptr", $pPointF1, "ptr", $pPointF2, "uint", $iARGBClr1, "uint", $iARGBClr2, "int", $iWrapMode, "int*", 0)

    If @error Then Return SetError(@error, @extended, 0)
    ;$GDIP_STATUS = $aResult[0]
    Return $aResult[6]
EndFunc   ;==>_GDIPlus_LineBrushCreate

Func _GDIPlus_CreatePath($brushMode = 0)
    Local $hPath
    $hPath = DllCall($ghGDIPDll, "int", "GdipCreatePath", "int", $brushMode, "handle*", 0)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($hPath[0], 0, $hPath[2])
EndFunc   ;==>_GDIPlus_CreatePath

Func _GDIPlus_AddPathEllipse($hPath, $iX, $iY, $iWidth, $iHeight)
    Local $aResult = DllCall($ghGDIPDll, "int", "GdipAddPathEllipse", "handle", $hPath, "float", $iX, "float", $iY, "float", $iWidth, "float", $iHeight)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_AddPathEllipse

Func _GDIPlus_CreatePathGradientFromPath($hPath)
    Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreatePathGradientFromPath", "handle", $hPath, "int*", 0)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[2])
EndFunc   ;==>_GDIPlus_CreatePathGradientFromPath

Func _GDIPlus_SetLineGammaCorrection($hBrush, $useGammaCorrection = True)
    Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetLineGammaCorrection", "handle", $hBrush, "int", $useGammaCorrection)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_SetLineGammaCorrection

Func _GDIPlus_SetPathGradientCenterColor($hBrush, $iARGB)
    Local $aResult = DllCall($ghGDIPDll, "int", "GdipSetPathGradientCenterColor", "handle", $hBrush, "int", $iARGB)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_SetPathGradientCenterColor

Func _GDIPlus_FillPath($hGraphic, $hBrushGrad, $hPath)
    Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillPath", "handle", $hGraphic, "handle", $hBrushGrad, "handle", $hPath)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_FillPath

Func _GDIPlus_SetPathGradientSurroundColorsWithCount($hBrush, $aArgb)
    Local $iI, $iCount, $aResult, $res, $x, $pArgb
    If IsArray($aArgb) Then
        $iCount = UBound($aArgb)
        Local $tArgb = DllStructCreate("int[" & $iCount & "]")
        Local $pArgb = DllStructGetPtr($tArgb)
        For $iI = 0 To $iCount - 1
            DllStructSetData($tArgb, 1, $aArgb[$iI], $iI + 1)
        Next
    Else
        $iCount = 1
        Local $tArgb = DllStructCreate("int")
        Local $pArgb = DllStructGetPtr($tArgb)
        DllStructSetData($tArgb, 1, $aArgb, 1)
    EndIf
    $aResult = DllCall($ghGDIPDll, "int", "GdipSetPathGradientSurroundColorsWithCount", "handle", $hBrush, "int", $pArgb, "int*", $iCount)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], $aResult[3], $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_SetPathGradientSurroundColorsWithCount

Func _GDIPlus_ClosePathFigure($hPath)
    Local $aResult = DllCall($ghGDIPDll, "int", "GdipClosePathFigure", "handle", $hPath)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_ClosePathFigure

Func _GDIPlus_PathDispose($hPath)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipDeletePath", "handle", $hPath)
    If @error Then Return SetError(1, @error, 0)
    Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_PathDispose
#CE

 

Link to comment
Share on other sites
careca Universalist

careca

Posted
Posted

Ah yes, sorry for wasting your time, my lack of attention means i didn't interpret the problem properly.

I have another script that "listens" to the output with a virtual recording device or something similar, but it's not working now and i don't know why.

It was an attempt, unfinished, to try to level the sound when it peaked too high and raise it when it's too low, maybe you can make it work..

 

 

Normalize.rar

Spoiler

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

MirrorDir - Synchronize/Backup/Mirror Folders

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Link to comment
Share on other sites
ripdad Universalist

ripdad

Posted
Posted

Seems the MCI script I posted earlier, refuses to work on some computers.

I simplified the BASS script above that careca posted -- I hope it works for you.

Tested on a Toshiba with Win7...

BASS Audio Levels.zip

 

"The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward

Link to comment
Share on other sites
mavrck48 Seeker

mavrck48

Posted
Posted (edited)

Thanks for the code ripdad, it works perfect!

Some tips for others getting it to work that I had to google through.

  1. If you are like me and you have AutoIt setup to run scrips in x64 by default you need to make sure you force the script to run in x86 as the bass.dll doesn't support x64 scripts.  Just make sure to add this line to the top of the bass audio script ripdad made: 
#AutoIt3Wrapper_UseX64=n
  1. Make sure in windows your recording device is working properly that you want to read.  For my Realtek sound card normally you want to read the "Stereo Mix" recording device as this is mimicking whatever sound the sound card is outputting.  It works great on my Windows 7 computer, but on my Windows 10 computer I could never get the "Stereo Mix" device to ever output sound (No sound from Stereo Mix).  After some googling I found this option: VB Audio Cable Option.  I installed the VB Audio Cable and now it works perfect, the VB Audio Cable recording device mimics the sound card output (VB Audio Cable Recording Device).
  2. If it doesn't work as written by ripdad my final piece of advice is to play around with the device number in the  _BASS_Init & _BASS_RecordInit functions.  You may need to change from -1 which pulls the default devices to something like 0 or 1 to listen to the proper recording device if you have multiple.
Edited by mavrck48
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...