PureBasic Forums - English

Posted: **Sun Jul 02, 2006 6:55 pm**

Inf0Byt3 wrote:Veeery very nice lib. And extremely usefull. Could this be used for VOIP apps ?

Speex is better and coded for this task

Posted: **Sun Jul 02, 2006 7:29 pm**

Thanks for the tip

. I'm going to search for it.

Posted: **Mon Jul 24, 2006 3:42 am**

Really hope it can get updated for PB4, ovLib did a great job in streaming OGG music.

Posted: **Sun Aug 13, 2006 8:58 am**

Yes it would be nice - count me in for a PB4 version when possible. Excellent work traumatic!

Posted: **Tue Oct 10, 2006 4:17 pm**

Sorry for the delay... Private life issues prevented me from working
on PureBasic for quite some time now. :roll:

That being said, here's ov:Lib 0.27, updated for PureBasic v4.0:
http://files.connection-refused.org/ovL ... ibOnly.zip

Sorry, no new functions (checks) added this time.
This is a PB4 maintenance release only! (string handling and
dependency errors fixed)

Feel free to report any problems. Thank you.

Posted: **Tue Oct 10, 2006 4:22 pm**

Here's an updated fft.pb for those who may have problems:

Code: Select all

;
; ov:Lib v0.27 - FFT Example
;
; (c) :traumatic! 2004/2005/2006
;
;

OpenWindow(0, 0, 0, 256, 200, "[ov:Lib] - FFT Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

CreateImage(0, 256, 100)
CreateImage(1, 256, 100)

Dim fftData.f(2047) ; array to hold fft data
Dim pcmData.b(2047) ; array to hold pcm data

ovInitFFT()

If ovOpen("PurePower.ogg")
  ovPlay()

  Repeat
    fftData() = ovGetSpectrumData()
    pcmData() = ovGetBufferData()
    
    ; draw raw pcm data
    StartDrawing(ImageOutput(0))
    Box(0, 0, 256, 100)
    x=0
    For i=1 To 2047 Step 4
      Plot(x, 50+pcmData(i), $FF00)
      x+1
    Next 
    LineXY(0, 99, 256, 99, $A0A0A0)
    StopDrawing()
  
    ; draw fft data
    StartDrawing(ImageOutput(1))
    Box(0, 0, 256, 100,$40)
    For i=1 To 256
      fft.f = fftData(i)*0.0001
      Box(i, 100, 1, -1+fft, $FF00)
    Next
    StopDrawing()
  

    StartDrawing(WindowOutput(0))
      DrawImage(ImageID(0), 0, 0)
      DrawImage(ImageID(1), 0, 100)
    StopDrawing()
    
    Delay(10)
  Until WindowEvent()=#PB_Event_CloseWindow Or GetAsyncKeyState_(#VK_ESCAPE)
  
Else
  MessageRequester("ov:Lib", "Couldn't open PurePower.ogg") 
EndIf

ovClose()
End

Posted: **Tue Oct 10, 2006 6:45 pm**

Excellent mate.

Nice to see that you still do code from time to times. Hope life is going
well for you. keep it up !

Posted: **Tue Oct 10, 2006 11:08 pm**

Thanks very much traumatic!

Posted: **Wed Oct 11, 2006 1:44 pm**

Give this man a cigar!

Posted: **Thu Nov 29, 2007 2:23 am**

hey traumatic, this lib of yours is very cool!

thanks for being so nice to share it.

Posted: **Thu Nov 29, 2007 3:52 pm**

What shall I do if I want to play multiple files at the same time? The open/play function do not recive pointer or playback numbers - so it seems I only can play one file at a time...

Posted: **Thu Nov 29, 2007 9:37 pm**

Motu wrote:What shall I do if I want to play multiple files at the same time? The open/play function do not recive pointer or playback numbers - so it seems I only can play one file at a time...

That's true, streaming multiple files is not supported. Sorry.

PureBasic Forums - English

ov:Lib v0.27 - Stream OggVorbis in PureBasic (3.94 / 4.00)

thank you :)

But...

Re: But...