Author Topic: Bass_Vis News and Released Infos  (Read 196239 times)

BassFan

  • Guest
Bass_Vis News and Released Infos
« on: 10 Aug '06 - 23:57 »
Bass_Vis with new Winamp5 Support can now used Canvas or PictureBox for visualization Plugins  ;)

Or Show it with Gen-Bitmap or your own Skin.

This come in the next Released!

Greets BassFan.

« Last Edit: 21 Aug '06 - 06:40 by BassFan »

saivert

  • Posts: 36
Re: Bass_Vis News and Released Infos
« Reply #1 on: 11 Aug '06 - 11:28 »
This is great. I remember looking through the new Winamp API and checking out the new Gen Window features. I mimiced the WInamp Gen Window stuff in a plug-in for NSIS (Nullsoft Scriptable Installer System) in order to skin the installation wizard window.

I always hated when every plugin window had it's own skins or just was a plain looking window.
Finally Nullsoft got wiser and implemented this GenWindow API which made thing a hell of a lot easier.
With the Media Library plugin system you could integrate in the Media Library as well.

Making similar stuff for use directly with BASS is awesome. You could this way create a BASS only clone of Winamp. BASS will always rule. Less latency, less stuggle.

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #2 on: 12 Aug '06 - 10:25 »
TEST IT:

Download change ..

greets. BassFan
« Last Edit: 21 Aug '06 - 06:40 by BassFan »

kenshin1101

  • Posts: 545
Re: Bass_Vis News and Released Infos
« Reply #3 on: 13 Aug '06 - 09:32 »
hi bassfan!
how to make vis display on picture box only ?

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #4 on: 13 Aug '06 - 10:46 »
hi bassfan!
how to make vis display on picture box only ?

This work with Winamp 5 only.
Please read the SDK of Winamp 5 www.winamp.com/nsdn/winamp/sdk/

greets

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #5 on: 21 Aug '06 - 06:39 »
Bass_Vis Goes 3D

Greets
« Last Edit: 18 Jan '08 - 16:57 by BassFan »

ken

  • Posts: 739
Re: Bass_Vis News and Released Infos
« Reply #6 on: 22 Aug '06 - 12:41 »
Very nice, but when can I download this Bass_Vis ?

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #7 on: 22 Aug '06 - 18:26 »
Very nice, but when can I download this Bass_Vis ?

??
Bass_Vis is Online of ADDOn Download page. v2.3.0.1

I have many probs with multithreads by Delphi ... hmmm i'am VBDeveloper  :)
any plugins not work with self routine (Plugins with OpenGl)
when i have fixed this the new released go online

I hope you understand me bad english

greets
« Last Edit: 22 Aug '06 - 18:32 by BassFan »

ken

  • Posts: 739
Re: Bass_Vis News and Released Infos
« Reply #8 on: 23 Aug '06 - 09:42 »
Hi!

Well the sample source dont look like your picture above.

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #9 on: 23 Aug '06 - 09:48 »
Hi!

Well the sample source dont look like your picture above.

a new sample come with next released ;)
and show above.

greets

PS:
Please let me a little time

ken

  • Posts: 739
Re: Bass_Vis News and Released Infos
« Reply #10 on: 23 Aug '06 - 10:11 »
OK, thanks

Anyway, I try to use Bass_Vis (2.3.0.2) with BassNet (2.3.0.4) (.Net 2.0) but get this error when loading a winamp vis:

A call to PInvoke function 'Bass.Net!Un4seen.Bass.AddOn.Vis.BassVis::BASS_WINAMPVIS_CreateVis' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

I just call like this:
Code: [Select]
string plugInFile = @"C:\Program\Winamp\Plugins\vis_avs.dll";
int visPlugin = BassVis.BASS_WINAMPVIS_CreateVis(plugInFile, 0, BASSVISCreate.BASS_VIS_DEFAULT);

Anyone have a working C# code for winamp vis?

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #11 on: 23 Aug '06 - 10:29 »
OK, thanks

Anyway, I try to use Bass_Vis (2.3.0.2) with BassNet (2.3.0.4) (.Net 2.0) but get this error when loading a winamp vis:

A call to PInvoke function 'Bass.Net!Un4seen.Bass.AddOn.Vis.BassVis::BASS_WINAMPVIS_CreateVis' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

I just call like this:
Code: [Select]
string plugInFile = @"C:\Program\Winamp\Plugins\vis_avs.dll";
int visPlugin = BassVis.BASS_WINAMPVIS_CreateVis(plugInFile, 0, BASSVISCreate.BASS_VIS_DEFAULT);

Anyone have a working C# code for winamp vis?

Do you have read the HelpFile ?

Quote
WARNING:
Do not browse to Plugin Folder of Winamp5 for Vis_plugins.
Bass_Vis or your Application will crash.
This is a problem with winampVisGetHeader any plugins used a combination of this
gen, in, out or what ever.
Bass_Vis can not handle ..gen,in,out Plugins.
copy Vis_plugins to Application or other folder and use it from here.

PS:
Bass_Vis (2.3.0.2)  is not finish yet!

greets

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #12 on: 23 Aug '06 - 10:39 »
2.3.0.2 can not work with C++
You have not the right LIB for C++
i have change CreateVis for loading GEN-Bitmap and add a new Function GetGenHWND
all this is not in the Lib for C++ or .NET C#

Please wait for the new Released.

Greets
« Last Edit: 23 Aug '06 - 11:12 by BassFan »

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #13 on: 23 Aug '06 - 14:43 »
I have Released a new Version of Bass_Vis

Quote
2.3.0.2
---------------
* Upgraded help file
* ADD BASS_WINAMPVIS_GetGenHwnd      '// show help file

* changed BASS_WINAMPVIS_CreateVis   '// show help file
* changed Visual Basic Sample        '// to new Bass_Vis Version
  1. show Winamp5 Plugins into PicBox or with Gen-Bitmap 
* changed Delphi Sample              '// to new Bass_Vis Version
  1. Show sample of Visual Basic use Plugin with Gen-Bitmap or Canvas     
* changed c++ Library
* changed c++ BassVis.h

* FIXED BASS_VIS_FindPlugins for .NET

and send it to Ian ;)
« Last Edit: 23 Aug '06 - 14:44 by BassFan »

Computer Pimp

  • Posts: 3
Re: Bass_Vis News and Released Infos
« Reply #14 on: 1 Sep '06 - 14:40 »
The vis loads and shows but the audio data is not getting to the plug-in (No Beat Detection)?

I have tried this with and without Bass .net and I still have the same problem?

Here is my code:

Code: [Select]
Imports System.IO
Imports Bass = Un4seen.Bass.Bass
Imports BassVis = Un4seen.Bass.AddOn.Vis.BassVis

Public Class Form1

    Dim strm As Integer
    Dim Hvis As Integer
    Private lHwnd As Integer
    Private lHwndParent As Integer

    Const GW_CHILD As Long = 5

    Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    Private Declare Function GetWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal uCmd As IntPtr) As IntPtr
    Private Declare Function MoveWindow Lib "user32.dll" (ByVal Hwnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As IntPtr

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Bass.BASS_Init(1, 44100, Un4seen.Bass.BASSInit.BASS_DEVICE_DEFAULT, 0, Nothing) = False Then
            MsgBox("BASS Init Error!")
            Application.Exit()
        End If
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Bass.BASS_ChannelStop(strm)
        Bass.BASS_StreamFree(strm)
        Bass.BASS_Stop()
        Bass.BASS_Free()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Hvis > 0 Then
            BassVis.BASS_WINAMPVIS_SetChanInfo(strm, "Test", "Test", 0, 1, 1, 1)
            BassVis.BASS_WINAMPVIS_SetChanMPEGInfo(strm, 44100, 256, 1800, 2)
            BassVis.BASS_WINAMPVIS_Render(Hvis, strm)
        End If
    End Sub

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        strm = Bass.BASS_StreamCreateFile("test.mp3", 0, 0, Un4seen.Bass.BASSStream.BASS_DEFAULT)
        Bass.BASS_ChannelPlay(strm, False)

        Hvis = BassVis.BASS_WINAMPVIS_CreateVis(Application.StartupPath & "\vis\vis_avs.dll", 0, 0, Me.Handle, True)
        BassVis.BASS_VIS_SetConfig(Un4seen.Bass.AddOn.Vis.BASSVISConfig.BASS_VIS_CONFIG_FFTAMP, Un4seen.Bass.AddOn.Vis.BASSVISFFTAmp.BASS_VIS_FFTAMP_HIGHEST)
        BassVis.BASS_WINAMPVIS_Render(Hvis, strm)

        Timer1.Start()
       
        Dim RepeatCounter As Integer = 0
        lHwnd = BassVis.BASS_WINAMPVIS_GetGenHwnd
        Do Until (lHwnd <> 0) Or RepeatCounter = 32000
            Application.DoEvents()
            lHwnd = BassVis.BASS_WINAMPVIS_GetGenHwnd
            RepeatCounter = RepeatCounter + 1
            Application.DoEvents()
        Loop
        If lHwnd <> 0 Then
            lHwndParent = GetWindow(lHwnd, GW_CHILD)
            If lHwndParent <> 0 Then
                SetParent(lHwndParent, PictureBox1.Handle)
                MoveWindow(lHwndParent, 0, 0, PictureBox1.Width, PictureBox1.Height, True)
            End If
        End If
    End Sub

End Class

radio42

  • Posts: 4573
Re: Bass_Vis News and Released Infos
« Reply #15 on: 1 Sep '06 - 16:20 »
So all new methods from BASS_VIS 2.3.0.2 are included in BASS.NET 2.3.0.5 !

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #16 on: 1 Sep '06 - 18:41 »
The vis loads and shows but the audio data is not getting to the plug-in (No Beat Detection)?

I have tried this with and without Bass .net and I still have the same problem?

Here is my code:

Code: [Select]
Imports System.IO
Imports Bass = Un4seen.Bass.Bass
Imports BassVis = Un4seen.Bass.AddOn.Vis.BassVis

Public Class Form1

    Dim strm As Integer
    Dim Hvis As Integer
    Private lHwnd As Integer
    Private lHwndParent As Integer

    Const GW_CHILD As Long = 5

    Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    Private Declare Function GetWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal uCmd As IntPtr) As IntPtr
    Private Declare Function MoveWindow Lib "user32.dll" (ByVal Hwnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As IntPtr

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Bass.BASS_Init(1, 44100, Un4seen.Bass.BASSInit.BASS_DEVICE_DEFAULT, 0, Nothing) = False Then
            MsgBox("BASS Init Error!")
            Application.Exit()
        End If
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Bass.BASS_ChannelStop(strm)
        Bass.BASS_StreamFree(strm)
        Bass.BASS_Stop()
        Bass.BASS_Free()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Hvis > 0 Then
            BassVis.BASS_WINAMPVIS_SetChanInfo(strm, "Test", "Test", 0, 1, 1, 1)
            BassVis.BASS_WINAMPVIS_SetChanMPEGInfo(strm, 44100, 256, 1800, 2)
            BassVis.BASS_WINAMPVIS_Render(Hvis, strm)
        End If
    End Sub

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        strm = Bass.BASS_StreamCreateFile("test.mp3", 0, 0, Un4seen.Bass.BASSStream.BASS_DEFAULT)
        Bass.BASS_ChannelPlay(strm, False)

        Hvis = BassVis.BASS_WINAMPVIS_CreateVis(Application.StartupPath & "\vis\vis_avs.dll", 0, 0, Me.Handle, True)
        BassVis.BASS_VIS_SetConfig(Un4seen.Bass.AddOn.Vis.BASSVISConfig.BASS_VIS_CONFIG_FFTAMP, Un4seen.Bass.AddOn.Vis.BASSVISFFTAmp.BASS_VIS_FFTAMP_HIGHEST)
        BassVis.BASS_WINAMPVIS_Render(Hvis, strm)

        Timer1.Start()
       
        Dim RepeatCounter As Integer = 0
        lHwnd = BassVis.BASS_WINAMPVIS_GetGenHwnd
        Do Until (lHwnd <> 0) Or RepeatCounter = 32000
            Application.DoEvents()
            lHwnd = BassVis.BASS_WINAMPVIS_GetGenHwnd
            RepeatCounter = RepeatCounter + 1
            Application.DoEvents()
        Loop
        If lHwnd <> 0 Then
            lHwndParent = GetWindow(lHwnd, GW_CHILD)
            If lHwndParent <> 0 Then
                SetParent(lHwndParent, PictureBox1.Handle)
                MoveWindow(lHwndParent, 0, 0, PictureBox1.Width, PictureBox1.Height, True)
            End If
        End If
    End Sub

End Class

Which FFT - data will transfer?
I can see none

Render! only work with BASS_RecordInit, BASS_RecordStart over RecordingCallback and Winproc.

you will send UserFFT- Data then use Render2.
Sample User FFTData
Code: [Select]
Dim FFTData(1024) As Single
Dim WaveData(1024) As Single

            'FFT Spectrum
            Call BASS_ChannelGetData(basschannel.lngChan, FFTData(0), BASS_DATA_FFT2048)

            Call BASS_WINAMPVIS_Render2(VisChan, VarPtr(BASS_DATA_FFT2048), _
                 VarPtr(FFTData(0)), _
                 BASS_VIS_FFTAMP_NORMAL, 44100)

            'WAVE
            Call BASS_ChannelGetData(basschannel.lngChan, WaveData(0), 1024)

            Call BASS_WINAMPVIS_Render2(VisChan, VarPtr(WaveData(0)), _
                 VarPtr(BASS_DATA_FFT1024), _
                 BASS_VIS_FFTAMP_HIGH, 44100)



VisChan = BASS_WINAMPVIS_CreateVis ...

greets
« Last Edit: 1 Sep '06 - 18:55 by BassFan »

Computer Pimp

  • Posts: 3
Re: Bass_Vis News and Released Infos
« Reply #17 on: 1 Sep '06 - 18:47 »
I play stream and pass channel handle in render function... is there more I need to do?

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #18 on: 1 Sep '06 - 18:56 »
I play stream and pass channel handle in render function... is there more I need to do?

I have update my thread read it  ;)

greets

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #19 on: 1 Sep '06 - 19:14 »
Hi
I have show you use vis/vis_avs.dll
this is not the right way make a Folder called Plugins and read the Plugins from here.
Do not ? Any Plugins will not work (Winamp5)

I will install net 2005 and make a Sample for Bass_Vis in .NET

greets
« Last Edit: 1 Sep '06 - 19:17 by BassFan »

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #20 on: 2 Sep '06 - 14:02 »
Hi
I have show you use vis/vis_avs.dll
this is not the right way make a Folder called Plugins and read the Plugins from here.
Do not ? Any Plugins will not work (Winamp5)

I will install net 2005 and make a Sample for Bass_Vis in .NET

greets

Sample finish go here http://www.un4seen.com/forum/?topic=6013.msg40945#msg40945

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #21 on: 2 Sep '06 - 14:11 »
So all new methods from BASS_VIS 2.3.0.2 are included in BASS.NET 2.3.0.5 !

Thanks .. Hihihihhii  ;)

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #22 on: 3 Feb '07 - 21:34 »
New Update for BassVis in 2/3 Week end of February.

ADDED: BASS_WINAMPVIS_SetGenHwndParent , Substitute for SetParent/MoveWindow
ADDED: BASS_WINAMPVIS_FreeGenHwndParent, move back Parentwindow to GenWindow when exit Application.
ADDED: Waittimer for Visualize when aktivate Popupmenu.

FIXED:  Fullscreenmode for AVS or other Plugins, Fullscreen goes now back to Container
FIXED:  OpenGL Plugin ?
FIXED:  Spectrum FFT

CHANGE: FFT Spectrum Sensitivity MAX-Value now 32 = 1024 Samples

REMOVE: VisCounter from BASS_WINAMPVIS_CreateVis, BASS_WINAMPVIS_Free to many CPU Resource

and any more..

greets BassFan
« Last Edit: 11 Feb '07 - 14:06 by BassFan »

BassPassion

  • Posts: 30
Re: Bass_Vis News and Released Infos
« Reply #23 on: 5 Feb '07 - 19:50 »
But I cannot download from the Un4Seen homepage.

http://www.un4seen.com/filez/1/BassVis23.zip
gives:

This error (HTTP 403 Forbidden) means that Internet Explorer was able to connect to the website, but it does not have permission to view the webpage.

Regards,
M

BassFan

  • Guest
Re: Bass_Vis News and Released Infos
« Reply #24 on: 6 Feb '07 - 07:29 »
But I cannot download from the Un4Seen homepage.

http://www.un4seen.com/filez/1/BassVis23.zip
gives:

This error (HTTP 403 Forbidden) means that Internet Explorer was able to connect to the website, but it does not have permission to view the webpage.

Regards,
M


Yes..
I have the same problem can connect to upload not load the file.
The File is online.

greets