SyntaxBomb - Indie Coders

SuperStrict
Graphics 600,400
SetColor 255,255,255

' the table:
Global Chord:String[10]
' chord note lines definition: 0=C, 1=D, 2=E, 3=F, 4=G, 5=A, 6=H
' # means "has a sharp", b means "has a flat"
Chord
="Cm =0 |2b|4 "
Chord[1]="Bb =6b|1 |3 "
Chord[2]="F#7=3#|5 |0#|2 "
' the current chord defintion:
Global CurrChord:String 
Find("Cm")
Repeat
    Cls
    If KeyHit(KEY_C) Then Find("Cm")
    If KeyHit(KEY_B) Then Find("Bb")
    If KeyHit(KEY_F) Then Find("F#7")
    
    DrawText "Press <C> for Cm-chord, <B> for Bb-Major-chord or <F> for F#7-chord", 30,50
    'the 5 note lines:
    For Local i:Int=1 To 5
        DrawRect 100,200+i*20,300,1
    Next  
    
    DrawActChord    
    
    Flip 1
Until AppTerminate()
Function Find(Chordname:String)
    ' scans the table and return the chord definition
    For Local a:String=EachIn Chord
        Local middle:Int=Instr(a,"=")
        Local key:String=Trim(Left(a,middle-1))
        Print "scan table..." + key
        If key = Chordname
            CurrChord=Mid(a,middle+1,-1)
            Print "found definition: " + CurrChord
            Return 
        EndIf 
    Next 
End Function
Function DrawActChord()
    ' paints the notes depending on the current definition
    
    'splits the defintion in the single notes:
    Local notes:String[]=CurrChord.Split("|")
    Local lastpos:Int  ' cares about octave shifting
    
    For Local a:String= EachIn notes
        Local pos:Int= a.ToInt
        
        ' cares about octave shifting
        If pos<lastpos
            pos=pos+7
        EndIf 
        lastpos=pos
        
        
        DrawOval 200,311-pos*10,30,18
        
        SetScale 1,3
        DrawText Right(a,1), 180,300-pos*10     
        SetScale 1,1
    Next 
    
End Function 

' function in the main code:

Function TimerTick()
    Global MidiInTimer:Int
    
    If (MidiInTimer<MilliSecs()) And (MIDI.InStarted=True) Then
        MidiInTimer = MilliSecs()+10
        MIDI.Receive
        If MyWindow()=Null
            MIDI.InMessages.clear()
        ElseIf GameMode>0
            GameWindow.FetchMidiMessage
        Else 
            MIDI.InMessages.clear()
        EndIf
    EndIf
End Function 



Type MidiMessageTyp
    Field Typ:Int, Channel:Int, Note:Int, Volume:Int
End Type



Type MIDI

    Global InMessages:TList = New TList

    Global MidiOut:TRtMidiOut, OutStarted:Int
    Global MidiIn :TRtMidiIn , InStarted:Int

    Function Receive()
        ' has to be called every 10msec!
        Local stamp:Double 

        If InStarted=True Then
            message:Byte[] = midiIn.getMessage(stamp)
            nBytes:Int     = message.length

            Local Value:Int 
            Local loc:MidiMessageTyp=New MidiMessageTyp  ' my message typ
            If nBytes > 0
                For Local i:Int = 0 Until nBytes
                    Value = message[i]
                    Select i
                        Case 0
                            loc.Typ     = Value/16
                            loc.Channel = Value Mod 16    
                        Case 1
                            loc.Note    = Value
                        Case 2
                            loc.Volume  = Value
                    End Select
                Next    
                InMessages.AddLast loc  ' List for the messages
            EndIf
        EndIf
    End Function
    
    
    Function GetNextMessage:MidiMessageTyp(OnlyThisMessageTyp:Int=0)
        ' this also removes unwanted messages from the list
                
        If InMessages.count()>0 Then
            For Local loc:MidiMessageTyp = EachIn InMessages
                Akt:MidiMessageTyp = loc
                InMessages.Remove loc
                
                If OnlyThisMessageTyp=0
                    Print "fetch all types"
                    Return Akt
                ElseIf akt.Typ = OnlyThisMessageTyp
                    Print "found my type"
                    Return Akt
                EndIf 
            Next
        EndIf
        Return Null
    End Function
    
End Type
    
    

	Method Prepare:String()
		Local MSG:String, PortsExists_flg
	
		MidiIn = New TRtMidiIn.Create()
		MidiOut = New TRtMidiOut.Create()
	
	   'Midi In

	  		Local PortsCount = Midi.midiIn.getPortCount()

		   'If no Ports can be Open then 
			If PortsCount = 0 Then
				Notify "No Midi Ports"
				Return																		'<--End
			Else
				Print "Number of Midi Ports " + PortsCount
			End If

			For Local I:Int = 0 Until PortsCount
				Print "  Input port Named " + Midi.MidiIn.getPortName(I)
				PortsExists_flg = True
			Next

			MSG = MSG + "Opening " + Midi.MidiIn.getPortName() + "~n"
			
		    If PortsExists_flg <> False Then Midi.MidiIn.openPort(0)  '< -					'This will not work if Mixcraft is open

		   'Don't ignore sysex, timing, or active sensing messages.
			Midi.MidiIn.ignoreTypes(False, False, False)
			
	   'Midi Out
		   			
		Return MSG
	End Method

MidiOut:TRtMidiOut = New TRtMidiOut.Create()

PortsCount = MidiIn.GetPortCount()
For Local i%=0 To PortsCount-1
   Print MidiIn.getPortName(i) 
   .... 

Report = MidiOut.openPort(i)

void bmx_rtmidiout_openPort(RtMidiOut * m, int portNumber, BBString * portName) {
    char * n = bbStringToUTF8String(portName);
    
    try {
        m->openPort(portNumber, n);
        bbMemFree(n);
    } catch (RtMidiError &error) {
        bbMemFree(n);
        bmx_rtmidi_throw(error);
    }    
}

void MidiOutCore :: openPort( unsigned int portNumber, const std::string &portName )
{
  if ( connected_ ) {
    errorString_ = "MidiOutCore::openPort: a valid connection already exists!";
    error( RtMidiError::WARNING, errorString_ );
    return;
  }
...

void bmx_rtmidi_throw(RtMidiError &error) {
    bbExThrow(CB_PREF(bah_rtmidi_TRtError__create)(bbStringFromCString(error.what()), (int)error.getType()));
}

	try {
		m->openPort(portNumber, n);
		printf("midi open port OK");
		bbMemFree(n);
	} catch (RtMidiError &error) {
		printf("midi in openport error");
		bbMemFree(n);
		bmx_rtmidi_throw(error);
	}	

For local i:int = EachIn midiIn.getCompiledApi()
	print "api: " + i
Next

Rem
bbdoc: A compilable but non-functional API.
End Rem
Const RTMIDI_API_RTMIDI_DUMMY:Int = 5

...
If PortsExists_flg
	Try
		Midi.MidiIn.openPort(0) 
	Catch Exception:Object
		Print "Device open failed:"
		Print Exception.ToString()
	End Try
	
EndIf 
...