Where can I find SID.SidStream module?

Hi there,

I've just reformatted my laptop and come to recompile a program I wrote a month or so ago.

I've got maxmod back in place (which was one of the modules I was using) but I seem to be missing the sidstream module.

When I try to compile it complains about this line:

Import SID.SidStream

Does anyone know where I can find that module? I can't seem to track it down any more.

Pete

Hmmm, i've found the module but something funny is going on - i'm not sure if i've managed to find the correct versions of the modules.

In my code I used to reference a routine called 'InitMaxMod' and it seems this command no longer works.

It also complains with this message when I try to compile.

Identifier 'Stop' not found.

Previously the code was very straight forward and the command 'objMusic=LoadMusic(sPlaySong)' would succesfully load the specified file irrespective of if it was an OGG or SID file.

Has anyone got any clues as to where i'm going wrong? Perhaps I just have the wrong module versions?

Pete

WiredWorm,

You need the MaxMod Module as well. Redi's site has been down recently, but you may be able to get it from here:

http://www.blitzbasic.com/Community/posts.php?topic=67827

Also note the latest MaxMod changed the use of the sidstream module. The following example should work fine with the current version of both modules:

' load.bmx

Strict 
Framework BRL.GLMax2D 
Import REDi.MaxMod
Import SID.SIDStream

Graphics 800,600,0 

' initialize the MaxMod music system
InitMaxModStream()

' use the built-in SIDStream loader
Local Stream:SIDStream = New SIDStream
Stream.Load(RequestFile("Load a sid file"))

' start sid
Stream.Play()

Local Pitch# = 1
Repeat 

	Cls 
	DrawText "  ESCAPE = Exit",5,5
	DrawText "   SPACE = Play",5,20
	DrawText "       S = Stop",5,35
	DrawText "       P = Pause",5,50
	DrawText " UP/DOWN = Pitch",5,65
	
	DrawText "   PITCH = "+Pitch,5,125

	DrawText "TOTAL TRACKS = "+Stream.GetTrackCount(),5,170
	DrawText "       TRACK = "+Stream.CurrentTrack(),5,185
	DrawText "  LEFT/RIGHT = Select Track",5,200
	
	If KeyHit(KEY_S) 	 Then Stream.Stop()
	If KeyHit(KEY_SPACE) Then Stream.Play()
	If KeyHit(KEY_P) 	 Then Stream.Pause()
	If KeyDown(KEY_UP)	 Then Pitch:+0.001 ; Stream.SetHertz(Pitch)
	If KeyDown(KEY_DOWN) Then Pitch:-0.001 ; Stream.SetHertz(Pitch)
	If KeyHit(KEY_LEFT) Then Stream.SelectTrack(Stream.CurrentTrack()-1)
	If KeyHit(KEY_RIGHT) Then Stream.SelectTrack(Stream.CurrentTrack()+1)

	Flip True
	
Until KeyDown(KEY_ESCAPE) 
Stream.Free()
End