Skip to content

Preliminary MIDI support #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
FPtje wants to merge 5 commits into
base: master
Choose a base branch
from
+122 −33
Open

Preliminary MIDI support #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
1b8c818
Added support for gmcl_midi MIDI hook
FPtje Sep 2, 2014
73f7416
Adjusted to original coding standards
FPtje Sep 12, 2014
12f6efb
Mute piano when playing through MIDI
FPtje Sep 12, 2014
59fdede
Load the midi module and an instrument
FPtje Sep 12, 2014
c5c4a2e
Updated to latest gmcl_midi module version
FPtje Sep 12, 2014
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
90 changes: 58 additions & 32 deletions lua/entities/gmt_instrument_base/cl_init.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,6 +17,13 @@ surface.CreateFont( "InstrumentNotice", {
size = 30, weight = 400, antialias = true, font = "Impact"
} )

// Load the MIDI module if it exists
if ( file.Exists("lua/bin/gmcl_midi_win32.dll", "GAME") ||
file.Exists("lua/bin/gmcl_midi_linux.dll", "GAME") ||
file.Exists("lua/bin/gmcl_midi_osx.dll", "GAME") ) then
require("midi")
end

// For drawing purposes
// Override by adding MatWidth/MatHeight to key data
ENT.DefaultMatWidth = 128
Expand Down Expand Up @@ -61,6 +68,13 @@ ENT.BrowserHUD = {
}

function ENT:Initialize()
// Open a midi device if it hasn't been opened yet
if ( midi && !midi.IsOpened() && table.Count( midi.GetPorts() ) > 0 ) then
midi.Open( table.GetFirstKey( midi.GetPorts() ) )
end

hook.Add( "MIDI", self, self.OnMIDIEvent )

self:PrecacheMaterials()
end

Expand All @@ -83,13 +97,13 @@ function ENT:Think()

// Check for note keys
if self:IsKeyTriggered( key ) then

if self.ShiftMode && keyData.Shift then
self:OnRegisteredKeyPlayed( keyData.Shift.Sound )
elseif !self.ShiftMode then
self:OnRegisteredKeyPlayed( keyData.Sound )
end

end

end
Expand All @@ -104,7 +118,7 @@ function ENT:Think()
if self:IsKeyTriggered( key ) then
keyData( self, true )
end

// was a control key released?
if self:IsKeyReleased( key ) then
keyData( self, false )
Expand All @@ -117,6 +131,15 @@ function ENT:Think()

end

function ENT:OnMIDIEvent( time, command, note, velocity )
if !IsValid( LocalPlayer().Instrument ) || LocalPlayer().Instrument != self then return end

// Zero velocity NOTE_ON substitutes NOTE_OFF
if !midi || midi.GetCommandName( command ) != "NOTE_ON" || velocity == 0 || !self.MIDIKeys || !self.MIDIKeys[note] then return end

self:OnRegisteredKeyPlayed( self.MIDIKeys[note].Sound, true )
end

function ENT:IsKeyTriggered( key )
return self.KeysDown[ key ] && !self.KeysWasDown[ key ]
end
Expand All @@ -125,11 +148,14 @@ function ENT:IsKeyReleased( key )
return self.KeysWasDown[ key ] && !self.KeysDown[ key ]
end

function ENT:OnRegisteredKeyPlayed( key )
function ENT:OnRegisteredKeyPlayed( key, suppressSound )

// Play on the client first
local sound = self:GetSound( key )
self:EmitSound( sound, 100 )
if ( !suppressSound ) then
// Play on the client first
local sound = self:GetSound( key )

self:EmitSound( sound, 100 )
end

// Network it
net.Start( "InstrumentNetwork" )
Expand Down Expand Up @@ -181,10 +207,10 @@ function ENT:DrawKey( mainX, mainY, key, keyData, bShiftMode )
( !self.ShiftMode && !bShiftMode && input.IsKeyDown( key ) ) then

surface.SetTexture( self.KeyMaterialIDs[ keyData.Material ] )
surface.DrawTexturedRect( mainX + keyData.X, mainY + keyData.Y,
surface.DrawTexturedRect( mainX + keyData.X, mainY + keyData.Y,
self.DefaultMatWidth, self.DefaultMatHeight )
end

end

// Draw keys
Expand All @@ -196,7 +222,7 @@ function ENT:DrawKey( mainX, mainY, key, keyData, bShiftMode )

if ( self.ShiftMode && bShiftMode && input.IsKeyDown( key ) ) ||
( !self.ShiftMode && !bShiftMode && input.IsKeyDown( key ) ) then

color = self.DefaultTextColorActive
if keyData.AColor then color = keyData.AColor end
else
Expand All @@ -206,8 +232,8 @@ function ENT:DrawKey( mainX, mainY, key, keyData, bShiftMode )
// Override positions, if needed
if keyData.TextX then offsetX = keyData.TextX end
if keyData.TextY then offsetY = keyData.TextY end
draw.DrawText( keyData.Label, "InstrumentKeyLabel",

draw.DrawText( keyData.Label, "InstrumentKeyLabel",
mainX + keyData.X + offsetX,
mainY + keyData.Y + offsetY,
color, TEXT_ALIGN_CENTER )
Expand Down Expand Up @@ -242,9 +268,9 @@ function ENT:DrawHUD()

// Draw keys (over top of main)
for key, keyData in pairs( self.Keys ) do

self:DrawKey( mainX, mainY, key, keyData, false )

if keyData.Shift then
self:DrawKey( mainX, mainY, key, keyData.Shift, true )
end
Expand All @@ -253,23 +279,23 @@ function ENT:DrawHUD()
// Sheet music help
if !ValidPanel( self.Browser ) && self.BrowserHUD.Show then

draw.DrawText( "SPACE FOR SHEET MUSIC", "InstrumentKeyLabel",
mainX + ( mainWidth / 2 ), mainY + 60,
draw.DrawText( "SPACE FOR SHEET MUSIC", "InstrumentKeyLabel",
mainX + ( mainWidth / 2 ), mainY + 60,
self.DefaultTextInfoColor, TEXT_ALIGN_CENTER )

end

// Advanced mode
if self.AllowAdvancedMode && !self.AdvancedMode then

draw.DrawText( "CONTROL FOR ADVANCED MODE", "InstrumentKeyLabel",
mainX + ( mainWidth / 2 ), mainY + mainHeight + 30,
draw.DrawText( "CONTROL FOR ADVANCED MODE", "InstrumentKeyLabel",
mainX + ( mainWidth / 2 ), mainY + mainHeight + 30,
self.DefaultTextInfoColor, TEXT_ALIGN_CENTER )

elseif self.AllowAdvancedMode && self.AdvancedMode then
draw.DrawText( "CONTROL FOR BASIC MODE", "InstrumentKeyLabel",
mainX + ( mainWidth / 2 ), mainY + mainHeight + 30,

draw.DrawText( "CONTROL FOR BASIC MODE", "InstrumentKeyLabel",
mainX + ( mainWidth / 2 ), mainY + mainHeight + 30,
self.DefaultTextInfoColor, TEXT_ALIGN_CENTER )
end

Expand Down Expand Up @@ -312,11 +338,11 @@ function ENT:OpenSheetMusic()
end

local url = self.BrowserHUD.URL

if self.AdvancedMode then
url = self.BrowserHUD.URL .. "?&adv=1"
end

local x = self.BrowserHUD.X - ( width / 2 )

self.Browser:OpenURL( url )
Expand Down Expand Up @@ -381,7 +407,7 @@ end
function ENT:Shutdown()

self:CloseSheetMusic()

self.AdvancedMode = false
self.ShiftMode = false

Expand All @@ -394,12 +420,12 @@ end

function ENT:ToggleAdvancedMode()
self.AdvancedMode = !self.AdvancedMode

if ValidPanel( self.Browser ) then
self:CloseSheetMusic()
self:OpenSheetMusic()
end

end

function ENT:ToggleShiftMode()
Expand Down Expand Up @@ -474,19 +500,19 @@ net.Receive( "InstrumentNetwork", function( length, client )
// Gather note
local key = net.ReadString()
local sound = ent:GetSound( key )

if sound then
ent:EmitSound( sound, 80 )
end

// Gather notes
/*local keys = net.ReadTable()

for i=1, #keys do

local key = keys[1]
local sound = ent:GetSound( key )

if sound then
ent:EmitSound( sound, 80 )

Expand All @@ -496,9 +522,9 @@ net.Receive( "InstrumentNetwork", function( length, client )

util.Effect( "musicnotes", eff, true, true )
end

end*/

end

end )
end )
65 changes: 64 additions & 1 deletion lua/entities/gmt_instrument_base/shared.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -48,6 +48,69 @@ ENT.ControlKeys = {
end,
}

ENT.MIDIKeys = {
[36] = { Sound = "a1" }, -- C
[37] = { Sound = "b1" },
[38] = { Sound = "a2" },
[39] = { Sound = "b2" },
[40] = { Sound = "a3" },
[41] = { Sound = "a4" },
[42] = { Sound = "b3" },
[43] = { Sound = "a5" },
[44] = { Sound = "b4" },
[45] = { Sound = "a6" },
[46] = { Sound = "b5" },
[47] = { Sound = "a7" },
[48] = { Sound = "a8" }, -- c
[49] = { Sound = "b6" },
[50] = { Sound = "a9" },
[51] = { Sound = "b7" },
[52] = { Sound = "a10" },
[53] = { Sound = "a11" },
[54] = { Sound = "b8" },
[55] = { Sound = "a12" },
[56] = { Sound = "b9" },
[57] = { Sound = "a13" },
[58] = { Sound = "b10" },
[59] = { Sound = "a14" },
[60] = { Sound = "a15" }, -- c'
[61] = { Sound = "b11" },
[62] = { Sound = "a16" },
[63] = { Sound = "b12" },
[64] = { Sound = "a17" },
[65] = { Sound = "a18" },
[66] = { Sound = "b13" },
[67] = { Sound = "a19" },
[68] = { Sound = "b14" },
[69] = { Sound = "a20" },
[70] = { Sound = "b15" },
[71] = { Sound = "a21" },
[72] = { Sound = "a22" }, -- c''
[73] = { Sound = "b16" },
[74] = { Sound = "a23" },
[75] = { Sound = "b17" },
[76] = { Sound = "a24" },
[77] = { Sound = "a25" },
[78] = { Sound = "b18" },
[79] = { Sound = "a26" },
[80] = { Sound = "b19" },
[81] = { Sound = "a27" },
[82] = { Sound = "b20" },
[83] = { Sound = "a28" },
[84] = { Sound = "a29" }, -- c'''
[85] = { Sound = "b21" },
[86] = { Sound = "a30" },
[87] = { Sound = "b22" },
[88] = { Sound = "a31" },
[89] = { Sound = "a32" },
[90] = { Sound = "b23" },
[91] = { Sound = "a33" },
[92] = { Sound = "b24" },
[93] = { Sound = "a34" },
[94] = { Sound = "b25" },
[95] = { Sound = "a35" },
}

function ENT:GetSound( snd )

if ( snd == nil || snd == "" ) then
Expand Down Expand Up @@ -81,4 +144,4 @@ hook.Add( "PhysgunPickup", "NoPickupInsturmentChair", function( ply, ent )
return false
end

end )
end )