QB, PLAY statement and library

[N3trunn3r]

Thanks angros, that sounds like a good solution. I'll try some experimentation.

Just tried to compile ExtLibsfx under DOS, but get this error:
I use DosBox-X to compile because it supports long filenames.

[angros47]

@Coolman
The mit license would have allowed anyone to make small changes and then release the library as proprietary software. The lgpl prevents that

@N3trunn3r
The errors you got in dos make me think you compiled the library without some modules. How did you compile it?

[Coolman]

I understand your argument but if there is a version of a library with the mit license, who will be interested or buy an equivalent one with a proprietary license. Those who steal the code of others without giving them any credit will have a very bad reputation and will be banned from the community and probably from the job market.

[angros47]

Also, why would a mit license be better? I remind you that both the freebasic runtime and the graphic libraries are under LGPL already, so anyone who had issues with those licenses would not use FreeBasic not the sfx library anyway

[Coolman]

it's simple. the mit license is in my opinion the best because it doesn't impose any limit on the distribution of programs. it's total freedom to share codes and skills.

[angros47]

As you said, "in your opinion"

What would you want to be able to do, with that library, that the lgpl license prevent you from doing, while the mit license would allow it?

[hhr]

Great stuff, thank you very much, angros47.

Code: Select all

#include "sfx.bi"
#inclib "fbsfx"

Dim As Single f=440

SoundSet (44100,1,16)

Do
   Print "SineWave"
   SOUND SineWave(f),1.5
   If Getkey=27 Then Exit Do ' Any key to continue, ESC to end.
   
   Print "HarmonicWave"
   SOUND HarmonicWave(f,1,0,0.3,0,0.8),1.5
   If Getkey=27 Then Exit Do
   
   Print "TriangleWave"
   SOUND TriangleWave(f),1.5
   If Getkey=27 Then Exit Do
   
   Print "SawToothWave"
   SOUND SawToothWave(f),1.5
   If Getkey=27 Then Exit Do
   
   Print "PulseWave"
   SOUND PulseWave(f),1.5
   If Getkey=27 Then Exit Do
   
   Print "PulseWave"
   SOUND PulseWave(f,0.1),1.5
   If Getkey=27 Then Exit Do
   
   Print "PulseWave"
   SOUND PulseWave(f,TriangleWave(0.01)),10
   If Getkey=27 Then Exit Do
   
   Print "SyncWave"
   SOUND SyncWave(TriangleWave(f),f/2),1.5
   If Getkey=27 Then Exit Do
   
   Print "FrequencyModulate"
   SOUND FrequencyModulate(TriangleWave(f),SineWave(0.1), 0,0),7
   If Getkey=27 Then Exit Do
   
   Print "DSPFilter"
   SOUND DSPFilter(SawToothWave(f),10000,SineWave(1),1,0.7),1.5
   If Getkey=27 Then Exit Do
   
   Print "ADSREnvelope"
   SOUND ADSREnvelope(HarmonicWave(f/2,1,0,0.7,0,0.2),0.01,0,1,0.99,0.5),0.5
   SOUND ADSREnvelope(HarmonicWave(2*f,1,0,0.7,0,0.2),0.01,0,1,0.99,0.5),0.5
   SOUND ADSREnvelope(HarmonicWave(f,1,0,0.7,0,0.2),0.01,0,1,0.99,0.5),0.5
   If Getkey=27 Then Exit Do
   
   Print "NoiseWave"
   SOUND NoiseWave(),1.5
   If Getkey=27 Then Exit Do
   
   Print "================="
Loop

Edit:
f (frequency) as Single, see SoundFunction.bas.

[angros47]

I am glad you find it useful