Where can I find SID.SidStream module?

BlitzMax Forums/BlitzMax Programming/Where can I find SID.SidStream module?

WiredWorm

(Posted 2007) [#1]

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

WiredWorm

(Posted 2007) [#2]

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

Matthew Smith

(Posted 2007) [#3]

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