Audio calls do not compile

[Windsurfer01]

In the Sprites examle TAudioSample.GetDuration in Bare.Game.Pas causes a SIGSEGV error, unless I edit it as below.

function TAudioSample.GetDuration: Double;
begin
  Result := 10; //PositionToDuration(FSize);
end;

It then runs but does not appear as the sprites video on the getlazarus web site.
I have followed https://www.freepascal-meets-sdl.net/chapter-3-first-steps/ and placed the header files in /usr/local/share /sdl2 and created the path for other units in the Lazarus project options.

[Windsurfer01]

The problem is that there are no audio files in the audio folder.

[Windsurfer01]

I tried this fudge, which seems to work for zero length files and missing files.

function TAudioSample.GetDuration: Double;
begin
  if @FSize <> nil then
  Result := PositionToDuration(FSize)
  else Result := 1;
end; 

[turric4n]

Seems lack of interest as he has active PR

[Windsurfer01]

I sent him an email via lazarus-ide.org, which he and I both subscriber to. He may be busy. The work required to build barebones was huge, so I can't see him walking away from it, unless he was disappointed with the take up.

[Windsurfer01]

I see you are also on Lazarus-ide. I thought I recognised your name.

[turric4n]

I'm on Lazarus IDE. Yes, of course... It's hard to maintain this kind of work... But this code is good better than others. I can help you guys to maintain this code.

[Windsurfer01]

I need to think about committing to maintaining it. I have never used an object oriented approach or generics.
I found that if I placed some image files in an images folder and an mp3 file in an audio folder that the sprites program started to work. It all seems to work apart from missing files and the dead URL to the original source. I now need to experiment to see what size they should each be.

I lead a small U3A group that are learning via Lazarus and fpc. We started with an LCL approach to a small game with missiles and aliens, but ran into speed and game loop problems. That brought us to Baregame and the Castle engine, which we have not yet looked at.

I have it compiling and running in Linux. In Windows 10 it compiles but does not run. It may be that Avast is killing it.

I'll play with it a little more before committing to maintaining it.

[turric4n]

If you want to do something retro take a look to my repo : https://github.com/turric4n/PascalTileEngine
If you have telegram you can take a look here : https://t.me/freepascal_en
OOP aproach is the best thing can be made with Modern Pascal, doing solid and interfaced code. Keep learning. If you want to learn from a real game you can take a look here : https://github.com/turric4n/PascalTileEngine/tree/master/src/samples/shooter_oop .

And about Bare.Game I think is nice code and I hope @sysrpl is currently alive and kicking. About castle engine... It's a Great and promising 3D Engine but you lose the control with components. I like to control everything.