nxPascal

[User137]

Have you a compiled demos archive too ?

Demos are still working (and i wish to add more of them in the future), but i don't include compiled executables in packages. Would you have an idea for additional demo?

Finally got myself coding again, and the result is new nxSound.pas
It is using Noeska OpenAL header, for which i'm not sure how to give proper credit to... It is compiling and running fine with Lazarus and Delphi, like other units.

It is simplified OOP approach, and its autocreating/destroying itself by just adding nxSound in uses list. Like OpenAL, this supports multiple buffers and sources with 3D positional sound. Buffers and sources are separately stored, essentially letting multiple sources use same buffer, the sound file.

This is a simple example that plays ding sound:

procedure TForm1.FormCreate(Sender: TObject);
begin
  sound.AddSource('ding', sound.AddWAV('ding.wav'));
  if nxError<>'' then showmessage(nxError);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sound.source[0].Play;
end;

In other news GL UI is able to drag its windows with mouse...

I'll update the engine packages and download links if there is interest to.