Chordinator

Community Forums/Showcase/Chordinator

tesuji (Posted 2011) [#1]

An audio application for a change written in Blitzmax. Chordinator was written to help improve my understanding of music theory. Not yet up to version 1.0 but I felt it's probably evolved enough to release and get feedback on. Download Windows http://dl.dropbox.com/u/21540395/Chordinator_v0.9b.zip OSX (x86) http://dl.dropbox.com/u/21540395/Chordinator_v0.9b.dmg Blog Entry http://spungifungi.wordpress.com/ I've only tried it on an intel Mac and Windows XP so far. Would be interested to know if it works on later versions of Windows. I would like to improve the scale/chord finder a bit and maybe enhance the keyboard graphics a bit. Last edited 2011 Last edited 2011 Edit - Updated to version 0.9 - added midi in, enhanced graphics and changed keyboard layout Last edited 2011 Edit - Updated to version 0.9b - optimized graphics, chords in scale and recent chords Last edited 2011 Last edited 2012

Brucey (Posted 2011) [#2]

Does it support my midi keyboard?

tesuji (Posted 2011) [#3]

Not yet but I'll add that to the todo list. I'm sure you have a midi module somewhere :) Only mouse and (non midi) keyboard input at the mo.

Brucey (Posted 2011) [#4]

Not yet but I'll add that to the todo list Cool :-) Better to learn this on a real keyboard than my computer keyboard me thinks. Certainly easier to see what's going on if you are banging the real keys! I'm sure you have a midi module somewhere I'd imagine so ;-)

Perturbatio (Posted 2011) [#5]

works fine on win7 64bit for me

slenkar (Posted 2011) [#6]

make a version for the gheetar

BlitzSupport (Posted 2011) [#7]

I really like it, and it will be very handy for learning if you can get MIDI working.

Gabriel (Posted 2011) [#8]

Blimey, that looks swish. Do I need to be able to carry a tune in a bucket in order to do anything with/provide feedback on it?

Kryzon (Posted 2011) [#9]

Looks very nice! Would you mind telling where you read up on all those scales? Like Enigmatic, Hindu, Oriental; was there a list you consulted, something like that?

Who was John Galt? (Posted 2011) [#10]

Dude! You wrote 'Red Led'.... Sweet! Back on topic; nice application. Very smooth. Must have taken a while to enter all those chords. Are you using any sound output routines other than plain Blitz?

taumel (Posted 2011) [#11]

Looks very nice, i like the interface but i prefer if i can play two octaves on the keyboard instead of just one, oh and x86 OSX. Last edited 2011

tesuji (Posted 2011) [#12]

@Kryzon Scales were researched from various internet resources with wikipedia being a consistently good source of information. Also http://www.musictheory.net/ which has some rather nice online tools. @John Galt Thanks. Someone who remembers redled :) No special sound libraries used. Just the basic blitzmax libraries. Had to implement my own ADSR volume control over the top. @taumel Good point about being able to play two octaves from the keyboard. I'm tempted to change the default layout so qwerty + 23 567 are used for the second octave and then use function keys for the chords. Function keys are a bit fiddly from a laptop though so may add some optional keyboard mappings. Thanks for the feedback so far. It's been very useful. Last edited 2011

taumel (Posted 2011) [#13]

Kind of depends on your keyboard you're having but on a Mac (german layout with qwertz) <yxcvbn (as fgh) for the lower and zuiopü+ (78 0ß´) for the higher octave would come in handy, using ^123456 for the chords. The function keys are no option on the Mac. Last edited 2011

Taron (Posted 2011) [#14]

Fantastic! This is really revelating and beautiful to explore! Great job and thank you!

Blitzplotter (Posted 2011) [#15]

This is outlandishly good. Was playing the first chords from 'lean-on-me' in not time, this app oozes quality.

tesuji (Posted 2011) [#16]

Thanks for all the kind comments. Making progress with MIDI in using Brucey's RTMidi wrapper which seems pretty straightforward so far. Here's some test code those with MIDI keyboards can try. Would be interested to know if it behaves alright. SuperStrict ' Simple MIDI In Wrapper - tesuji 2011 ' Tracks state, keys played, pitch bend, controllers etc... ' Does a greedy scan of all connected midi input devices ' ' Requires brucey's rtmidi module - <a href="http://code.google.com/p/maxmods/downloads/list?q=Midi" target="_blank">http://code.google.com/p/maxmods/downloads/list?q=Midi</a> Framework BaH.RtMidi Import BRL.StandardIO Import BRL.GLMax2d Import BRL.LinkedList Import BRL.Retro Type TMidiState Const COMMAND_NOTE_OFF:Byte = %10000000 ' data - note number,release velocity Const COMMAND_NOTE_ON:Byte = %10010000 ' data - note number,attack velocity Const COMMAND_KEY_AFTERTOUCH:Byte = %10100000 ' data - note number, key pressure Const COMMAND_CONTROL_CHANGE:Byte = %10110000 ' data - controller number, value Const COMMAND_PROGRAM_CHANGE:Byte = %11000000 ' data - new program number Const COMMAND_CHANNEL_AFTERTOUCH:Byte = %11010000 ' data - channel number Const COMMAND_PITCH_WHEEL:Byte = %11100000 ' data - least sig value (7bits), most sig value (7bits) Const COMMAND_SYSEX:Byte = %11110000 ' data - variable ' state that gets changed based on handled messages Field onNotes:Int[128] ' array of note states + velocities (1..127) Field controllers:Int[128] ' array of controller values (0..127) Field pitchBend:Float ' -1.0 to 1.0 Field patchNo:Int = 0 ' program change number 1 to 128 Field notes:String[] = ["C","C#","D","D#","E","F","F#","G","G#","A","A#","B"] Method handle(channel:Byte,command:Byte,message:Byte[]) Select command Case COMMAND_NOTE_ON handleNoteOn(channel,message[1],message[2]) Case COMMAND_NOTE_OFF handleNoteOff(channel,message[1],message[2]) Case COMMAND_KEY_AFTERTOUCH Case COMMAND_CONTROL_CHANGE handleController(channel,message[1],message[2]) Case COMMAND_PROGRAM_CHANGE handleProgramChange(channel,message[1]) Case COMMAND_CHANNEL_AFTERTOUCH Case COMMAND_PITCH_WHEEL handlePitchBend(channel,message[1],message[2]) Case COMMAND_SYSEX End Select End Method Method handleNoteOn(channel:Int, noteIndex:Byte, attackVelocity:Byte) onNotes[noteIndex] = attackVelocity Local octave:Int = noteIndex/12 Local note:String = notes[noteIndex Mod 12] DebugLog "Channel "+channel + " Note ON - "+note+""+octave+" attack velocity "+attackVelocity End Method Method handleNoteOff(channel:Int, noteIndex:Byte, releaseVelocity:Byte) onNotes[noteIndex] = 0 Local octave:Int = noteIndex/12 Local note:String = notes[noteIndex Mod 12] DebugLog "Channel "+channel + " Note OFF - "+note+""+octave+" release velocity "+releaseVelocity End Method Method handlePitchbend(channel:Int, lsb:Byte, msb:Byte) Local bend:Int = ((lsb & %01111111) | (msb & %01111111) Shl 7)-8192 If Sgn(bend) = 1 Then bend :+ 1 pitchBend = bend/8192.0 DebugLog "Channel "+channel+ " Pitch wheel - " + pitchbend End Method Method handleController(channel:Int,controller:Byte,value:Byte) controllers[controller] = value DebugLog "Channel "+channel+ " Controller - "+controller+" "+value End Method Method handleProgramChange(channel:Int,value:Byte) patchNo = value+1 DebugLog "Channel "+channel+ " Patch Change "+patchNo End Method End Type Type TMidiInHandler Field midiIn:TRtMidiIn = New TRtMidiIn.Create() Field devices:TList = New TList ' list of midiIn device ports ' midi device connection state Field midiConnected:Int = False ' are any midi input devices connected? Field lastPortNumber:Int = -1 Field lastChannelNumber:Int Field midiState:TMidiState = New TMidiState Method Create:TMidiInHandler() Self.handleConnection() Return Self End Method ' call this once per frame or more frequently if required Method update() handleConnection() Local messageCount:Int = handleIncoming() End Method ' handle initial midi device connection, disconnection and reconnections Method handleConnection() Local portCount:Int = midiIn.getPortCount() If midiConnected And portCount = 0 ' disconnect For Local device:TRtMidiIn = EachIn devices device.closePort() Next resetState() midiConnected = False Else If Not midiConnected And portCount > 0 ' connect For Local i:Int = 0 To portCount-1 Local device:TRtMidiIn If i <= devices.count()-1 device = TRtMidiIn(devices.valueAtIndex(i)) Else device = New TRtMidiIn.Create() ' create brand new midi in for this port device.ignoreTypes(False, False, False) ' Don't ignore sysex, timing, or active sensing messages. devices.addLast(device) End If device.openPort(i) Next midiConnected = True End If End Method Method freeDevices() For Local device:TRtMidiIn = EachIn devices device.free() Next midiIn.free() End Method Method portNames:TList() Local names:TList = New TList For Local i:Int = 0 Until midiIn.getPortCount() names.addLast(midiIn.getPortName(i)) Next Return names End Method ' reset all internal midi state Method resetState() midiState = New TMidiState ' For Local i:Int = 0 To 127 ' onNotes[i] = 0 ' controllers[i] = 0 ' Next ' pitchBend = 0 End Method ' process all events on midi in queue from all devices Method handleIncoming:Int() Local messageCount:Int = 0 Local timestamp:Double Local portNumber:Int = 0 For Local device:TRtMidiIn = EachIn devices Local eventsToProcess:Int = True While (eventsToProcess) Local message:Byte[] = device.getMessage(timestamp) If message.length > 0 handleInEvent(portNumber, message) messageCount :+ 1 Else eventsToProcess = False End If Wend portNumber :+ 1 Next Return messageCount End Method Method handleInEvent(portNumber:Int, message:Byte[]) If message.length > 0 Local channel:Byte = (message[0] & %00001111) + 1 '(1..16) Local command:Byte = (message[0] & %11110000) ?Debug Local debug:String debug :+ "port "+portNumber+" channel "+channel + " command "+Hex(command) If message.length > 1 For Local i:Int = 1 To message.length-1 debug :+ " data "+i+" "+ Hex(message[i]) Next End If DebugLog debug ? midiState.handle(channel,command,message) lastPortNumber = portNumber lastChannelNumber = channel End If End Method End Type ' -------------------------------------------------------------------- Graphics 800, 600, 0 SetBlend ALPHABLEND Local handler:TMidiInHandler = New TMidiInHandler.Create() While Not KeyDown(KEY_ESCAPE) SetColor 0,0,0 SetAlpha .075 DrawRect 0,0,GraphicsWidth(),GraphicsHeight() SetAlpha .5 SetColor 128,255,255 DrawText "Waiting for MIDI data from any device port channel. <ESCAPE> quit.", 30, 10 handler.update() ' render devices SetColor 255,255,255 Local y:Int = 30 Local portNames:TList = handler.portNames() If handler.midiConnected Local i:Int = 0 For Local name:String = EachIn portNames If i = handler.lastPortNumber SetColor 255,255,255 DrawText i +" "+ name, 30, y DrawText " Channel "+handler.lastChannelNumber, TextWidth(name)+50,y Else SetColor 128,128,128 DrawText i +" "+ name, 30, y End If i :+ 1 y :+ 16 Next Else DrawText "No MIDI device connected!",30,y y :+ 16 End If Local midi:TMidiState = handler.midiState If handler.midiConnected SetColor 255,255,128 DrawText "Patch No #"+midi.patchNo, 30,y+4 End If ' render notes y :+ 18 SetColor 255,255,0 Local x:Int = 30 For Local i:Int = 0 To midi.onNotes.length-1 If midi.onNotes[i] Local noteDownName:String = midi.notes[i Mod 12] + "" + i/12 DrawText noteDownName, x, y x :+ TextWidth(noteDownName)+6 End If Next Local width:Int = (GraphicsWidth()-60)/128 For Local i:Int = 0 To midi.onNotes.length-1 If midi.onNotes[i] DrawRect (i*width)+31,(GraphicsHeight()*.5)-1, width-1, -midi.onNotes[i]*1.5 End If Next ' render controllers SetColor 255,128,0 Local w:Int = midi.pitchbend*(GraphicsWidth()-60)*.5 DrawRect GraphicsWidth()*.5,GraphicsHeight()*.5, w, 14 SetColor 0,0,0 Local labelOffset:Int = 0 If Sgn(w) = 1 Then labelOffset = TextWidth("PITCHBEND") + 1 DrawText "PITCHBEND", ((GraphicsWidth()*.5)+w)-labelOffset,GraphicsHeight()*.5 SetColor 255,64,0 For Local i:Int = 0 To midi.controllers.length-1 If midi.controllers[i] DrawRect (i*width)+31,(GraphicsHeight()*.5)+15, width-1, midi.controllers[i]*1.5 End If Next Delay (10) Flip Wend handler.freeDevices() End I'll put it in the code archives if it proves useful to anyone.

tesuji (Posted 2011) [#17]

I've released a new version 0.9 (updated original post). This version includes : * External MIDI keyboard control - responds to key velocity + program change only. Will look at adding sustain pedal, pitch bend and modulation later. * Modified keyboard layout - Now keys span 1.5 octaves. * Enhanced main keyboard graphics - all rendered using max 2d, no external tools used. * Improved Chord finding - now looks up inversions and reacts to keys held down. Acknowlegements : Brucey for his RTMidi module wrapper and the folks who originally created it (ps - not tested midi on windows yet. If it doesn't work, it's their fault ;-) The Blitz community for their useful suggestions and feedback. Note that as I don't have any preference management implemented yet, I've elected to go with fiddle free defaults for midi input i.e. no device selection. It scans *all* midi in devices and is hot swappable (can handle devices being added/removed during runtime). Not sure if this will cause problems for people with extensive or complex midi setups. Next version (1.0) should contain menu driven preference management, enhanced chord player (see and play all chords possible in a single scale), midi enhancements and the ability to create your own instruments. Enjoy.

tesuji (Posted 2011) [#18]

Another update (original post updated) This version includes : * Chord list contains only chords compatible with the selected scale * Recent chord mini keyboard * Optimized graphics - lots of drawtext's & drawImageRect alpha layers were slowing things down a tad. Upfront rendering reduced load a lot (text is now rendered with drawimage). Press V to view FPS & toggle vsync tip : drag mouse across keys on mini chord keyboards.