Your thoughts make sense, I agree. Here some routines for amplification and normalizing with a little example, at the moment 32bit float only: Declare Function db (x As Single) As Single Declare Function ra (x As Single) As Single Declare Sub ampfloat (buffer As Single Ptr, bufsize As ULong, amplifi...

I don't know what happened, but today the Wordpad trick works. Very strange... internally, in my library, WAV data are stored at 8 or 16 bit formats, mono or stereo, pcm uncompressed, with a fixed size header. As internal format I would strongly recommend 32bit float, just because this format provid...

You're right, I'm using Windows. I know that Wordpad trick, but it doesn't work if there aren't any line breaks at all (no Chr(10), not even a space). Maybe I could contribute some routines for amplifying, normalizing and converting .WAVs (pcm and float, 16 and 32 bit), but I'd have to recode them u...

@angros47: What editor do you use? I've downloaded your sfx.zip, but here in FbEdit your sources are displayed as one single line without any line breaks. The compiler seems to get along with this, but for me as a human your source code is simply unreadable :-(

Whatever the origin of your trouble may be, the polling of the mouse wheel surely in't: #Define RES_W 1920 #Define RES_H 1080 Static As Integer old_ms Dim As Integer mx,my,ms,mb Dim As Double zoom, pan_x, pan_y Do GetMouse mx,my,ms,mb If ms <> old_ms Then Zoom = (ms+4) / 4 '' Zoom in increments of ....

But an FB - AVR - compiler would be great anyway. :-D

A freeBasic compiler for AVR would be GREAT!!!

Dinosaur wrote:Each time I replace a Comma, I remembered the position with LFCnt.LF(X):

Could it be that you DIMmed an array inside your UDT and try to access it beyond its upper bound?

I don't know what exactly you want to do, but here's a snippet that normalizes a single wav - file (pcm or float). It's part of a program I use to batch - normalize / convert the wav - files of a whole directory. For the conversion it uses ffmpeg . #Include "..\fbm_RIFFheader.bas" #Include...

In Windows, you could try to open the file in exclusive mode. This will fail as long as the file is accessed by an other program: #Include "windows.bi" Dim As HANDLE fh Dim As String filename = "c:\testfile.txt" Do fh = CreateFile(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, 0...

If you slightly change this snippet to you'll see that it retrurns error code 2, meaning "File not found". So no file will be created.

Does FreeBASIC have a published project roadmap? Alas, here in this forum those treasures are spread all over the place. But if you don't mind the german language, you will find a well-organized collection of code examples and projects on the german FB-site (partly with descripions in english). May...

What's the best way to handle 8×8 bitmap tiles? Obviously, it's not going to be "overwrite the system font." With IMAGECREATE you can create tiles of any desired size. Is there anything like sprite functionality in FreeBASIC? No. You have to deal with this stuff yourself. But there are so...

No longer "America first"? *grin*

Something like this? #Include "windows.bi" #Include "win\psapi.bi" Dim As HANDLE processhandle, hwnd Dim As ULong PID Dim As ZString*MAX_PATH filename hwnd = GetActiveWindow() If hwnd Then GetWindowThreadProcessId(hwnd, @PID) processHandle = OpenProcess(PROCESS_QUERY_INFORMATION ...