it2play - IT/S3M module replay in native pascal

[hukka]

A native Free Pascal class for playback of Impulse Tracker (IT) and Scream Tracker (S3M) tracker modules.
Basically a Pascal port of 8bitbubsy's it2play, which is an accurate port of Impulse Tracker 2.15's original IT playroutine ported from assembly to C.
Supports interpolation, sample ramping, filters, instruments, envelopes etc.

I will be adding example projects and cleaning up the code later on, but for now it does everything I wanted it to.

https://github.com/hukkax/it2play-pas

[Gigatron]

Thank you @hukka

That's really interesting all code made with pascal to play Impulse Tracker & Scream Tracker .

[hukka]

Thank you @hukka

That's really interesting all code made with pascal to play Impulse Tracker & Scream Tracker .

Thanks! I don't think it's the first attempt, but it may be the most accurate since it's indirectly based on the original IT sources.

[Lulu]

Hi, thank you to share!
I tryed to compile the example but I don't know where to find the sdl3 package ?

[hukka]

Hi, thank you to share!
I tryed to compile the example but I don't know where to find the sdl3 package ?

Hi,
I've updated the repository, the demo no longer requires external libraries on Windows. On other platforms, SDL3 is still required for the example:
https://github.com/sechshelme/Lazarus-SDL-3.0-Packages-and-Examples

SDL2 and BASS will be added to the example project once I get around to it.

[Lulu]

Hi, thanks.
I've tested it with 15 files .it or .s3m, it work very well (windows 10).

Good job ! Now we can play Impulse Tracker (IT) and Scream Tracker (S3M) natively in FreePascal !

[Lulu]

@hukka
Trying to include your lib in ALSound (OpenAL-Soft based framework to play, record and mix sounds) I notice the lib generate memory leak with .it files, no memory leak with .s3m files.

Since the code in ALSound is the same regardless the file extension, I think the issue comes from IT2Play. The problem seem to comes from unit IT2Play, line 5931:

Code: Pascal  [Select][+][-]

1.         for i := 0 to MAX_INSTRUMENTS-1 do
2.                 Instruments[i] := TInstrument.Create;

[hukka]

@hukka
Trying to include your lib in ALSound (OpenAL-Soft based framework to play, record and mix sounds) I notice the lib generate memory leak with .it files, no memory leak with .s3m files.

Since the code in ALSound is the same regardless the file extension, I think the issue comes from IT2Play. The problem seem to comes from unit IT2Play, line 5931:

Code: Pascal  [Select][+][-]

1.         for i := 0 to MAX_INSTRUMENTS-1 do
2.                 Instruments[i] := TInstrument.Create;

Good catch! As a quick fix, free the Instrument before it gets reassigned near line 5360:

Code: Pascal  [Select][+][-]

1. Instruments[i].Free;
2. Instruments[i] := Ins;
3.  

I'm working on some other changes on the unit so I won't update the repository yet.

[d2010]

Hi, thank you to share!
I tryed to compile the example but I don't know where to find the sdl3 package ?

Here demo-s3m.

[Lulu]

Good catch! As a quick fix, free the Instrument before it gets reassigned near line 5360:

Code: Pascal  [Select][+][-]

1. Instruments[i].Free;
2. Instruments[i] := Ins;
3.  

I'm working on some other changes on the unit so I won't update the repository yet.

I've applyed the change: no more memory leak. Thank you!

[Lulu]

Hi, Hukka, I'm not very familiar with music module.

With your lib, there is a way to :
 - choose if the music is looped or not ?
 - get the total song duration in seconds?
 - get the current position in seconds ?
 - jump to an audio position (in seconds)?

Thank you

[hukka]

Hi, Hukka, I'm not very familiar with music module.

With your lib, there is a way to :
 - choose if the music is looped or not ?
 - get the total song duration in seconds?
 - get the current position in seconds ?
 - jump to an audio position (in seconds)?

Thank you

None of these are entirely straightforward to implement since a module can change tempo or have a position jump command at any point. The easiest way would be to prerender the entire module to a WAV, which you could then seek around and play like a normal WAV. All this is out of scope for a simple demo program, though.

It can definitely be done; I've implemented length calculation and time-based seeking in my Protracker replayer (https://github.com/hukkax/Propulse/blob/trunk/src/protracker/protracker.player.pas, GetLength/JumpToTime), so I will probably have similar methods in the IT player class at some point.

I will update the repository later with a fancier demo that visualizes pattern data (in a very simple manner) and allows seeking while playing pattern by pattern.

[Lulu]

Understood. For now, I will disable audio position changes and loop is True and can not be changed for music modules in my library.

This features are not very important for music modules, since they are simply played and stopped in a game.

Thank you ! 

[Lulu]

Your Propulse Tracker editor is really impressive, good work!

[hukka]

Your Propulse Tracker editor is really impressive, good work!

Many thanks!
The repo is now updated with a lot of fixes and improvements, including calculation of song duration. The only thing that's really missing is unpacking MMCMP packed files, but those don't seem to be common, it was hard to find even one example of such.