diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2013-12-01 00:31:54 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2013-12-01 00:31:54 +0000 |
commit | 9cd462b34d5d839f8addfdf6a9f4469c99a8e653 (patch) | |
tree | 6924e73d97578431f2047dec0794761e6f7d07d4 /src/lib/midi/MidiScope.pas | |
parent | 38d08e1ba24c550540edbda85992c995553648da (diff) | |
download | usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.tar.gz usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.tar.xz usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.zip |
formating and beautifying. no actual code change, but needs checks.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3011 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | src/lib/midi/MidiScope.pas | 142 |
1 files changed, 62 insertions, 80 deletions
diff --git a/src/lib/midi/MidiScope.pas b/src/lib/midi/MidiScope.pas index afc20b0f..3eb51054 100644 --- a/src/lib/midi/MidiScope.pas +++ b/src/lib/midi/MidiScope.pas @@ -24,7 +24,14 @@ interface {$ENDIF} uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; + Windows, + Messages, + SysUtils, + Classes, + Graphics, + Controls, + Forms, + Dialogs; type TMidiScope = class(TGraphicControl) @@ -32,40 +39,40 @@ type { Private declarations } protected { Protected declarations } - notes : array[0..15,0..127] of integer; - controllers : array[0..15,0..17] of integer; - aftertouch : array[0..15,0..127] of integer; + notes: array[0..15,0..127] of integer; + controllers: array[0..15,0..17] of integer; + aftertouch: array[0..15,0..127] of integer; - selectedChannel : integer; + selectedChannel: integer; - procedure PaintSlide(ch,pos,val: integer); + procedure PaintSlide(ch, pos, val: integer); - procedure NoteOn(channel, note, speed : integer); - procedure Controller(channel,number,value : integer); - procedure AfterTch(channel, note, value : integer); + procedure NoteOn(channel, note, speed: integer); + procedure Controller(channel, number, value: integer); + procedure AfterTch(channel, note, value: integer); public { Public declarations } constructor Create(AOwner: TComponent); override; - procedure MidiEvent(event,data1,data2 : integer); + procedure MidiEvent(event, data1, data2: integer); procedure Paint; override; published { Published declarations } end; - procedure Register; const - BarHeight = 16; - BarHeightInc = BarHeight+2; + BarHeight = 16; + BarHeightInc = BarHeight + 2; BarWidth = 3; - BarWidthInc = BarWidth+1; + BarWidthInc = BarWidth + 1; HeightDiv = 128 div BarHeight; implementation -uses Midicons; +uses + MidiCons; procedure Register; begin @@ -74,125 +81,100 @@ end; constructor TMidiScope.Create(AOwner: TComponent); var - i,j : integer; + i, j: integer; begin inherited Create(AOwner); Height := BarHeightinc * 16 + 4; - Width := 147*BarWidthInc + 4 + 20; // for channel number + Width := 147 * BarWidthInc + 4 + 20; // for channel number for i := 0 to 15 do - begin for j := 0 to 127 do begin notes[i,j] := 0; aftertouch[i,j] := 0; end; - end; for i := 0 to 17 do - begin for j := 0 to 15 do controllers[i,j] := 0; - end; end; -procedure TMidiScope.PaintSlide(ch,pos,val: integer); -var x,y:integer; +procedure TMidiScope.PaintSlide(ch, pos, val: integer); +var + x, y:integer; begin Canvas.Brush.Color := clBlack; Canvas.Pen.color := clBlack; x := pos * BarWidthInc + 2; y := 2 + ch * BarHeightInc; - Canvas.Rectangle(x, y, x+BarWidthInc, y+BarHeightInc); + Canvas.Rectangle(x, y, x + BarWidthInc, y + BarHeightInc); Canvas.Brush.Color := clGreen; Canvas.Pen.Color := clGreen; - Canvas.Rectangle(x, y + (BarHeight - (val div HeightDiv )), x + BarWidth, y + BarHeight) + Canvas.Rectangle(x, y + (BarHeight - (val div HeightDiv)), x + BarWidth, y + BarHeight) end; procedure TMidiScope.Paint; -var i,j : integer; -x : integer; +var + i, j: integer; + x: integer; begin Canvas.Brush.color := clBlack; - Canvas.Rectangle(0,0,Width,Height); + Canvas.Rectangle(0, 0, Width, Height); Canvas.Pen.Color := clGreen; - x := 128*BarWidthInc+2; - Canvas.MoveTo(x,0); - Canvas.LineTo(x,Height); - x := 148*BarWIdthInc+2; + x := 128 * BarWidthInc + 2; + Canvas.MoveTo(x, 0); + Canvas.LineTo(x, Height); + x := 148 * BarWIdthInc + 2; canvas.Font.Color := clGreen; for i := 0 to 15 do - Canvas.TextOut(x,((i+1)*BarHeightInc) - Canvas.font.size-3,IntToStr(i+1)); + Canvas.TextOut(x, ((i + 1) * BarHeightInc) - Canvas.font.size - 3, IntToStr(i + 1)); canvas.Pen.color := clBlack; - begin - for j := 0 to 127 do - begin - PaintSlide(i,j,notes[i,j]); - end; - for j := 0 to 17 do - begin - PaintSlide(i,j+129,controllers[i,j]); - end; - end; + for j := 0 to 127 do + PaintSlide(i, j, notes[i,j]); + for j := 0 to 17 do + PaintSlide(i, j + 129, controllers[i,j]); end; -procedure TMidiScope.NoteOn(channel, note, speed : integer); + +procedure TMidiScope.NoteOn(channel, note, speed: integer); begin notes[channel,note] := speed; - PaintSlide(channel,note,notes[channel,note]); + PaintSlide(channel, note, notes[channel,note]); end; -procedure TMidiScope.AfterTch(channel, note, value : integer); + +procedure TMidiScope.AfterTch(channel, note, value: integer); begin aftertouch[channel,note] := value; end; -procedure TMidiScope.Controller(channel,number,value : integer); -var i : integer; +procedure TMidiScope.Controller(channel, number, value: integer); +var + i: integer; begin if number < 18 then begin - controllers[channel,number] := value; - PaintSlide(channel,number+129,value); + controllers[channel,number] := value; + PaintSlide(channel, number + 129, value); end else if number >= $7B then begin // all notes of for channel for i := 0 to 127 do - begin if notes[channel,i] > 0 then begin notes[channel,i] := 0; - PaintSlide(channel,i,0); + PaintSlide(channel, i, 0); end; - end; end; end; -procedure TMidiScope.MidiEvent(event,data1,data2 : integer); +procedure TMidiScope.MidiEvent(event, data1, data2: integer); begin - case (event AND $F0) of - MIDI_NOTEON : - begin - NoteOn((event AND $F),data1,data2); - end; - MIDI_NOTEOFF: - begin - NoteOn((event AND $F),data1,0); - end; - MIDI_CONTROLCHANGE : - begin - Controller((event AND $F),data1,data2); - end; - MIDI_CHANAFTERTOUCH: - begin - Controller((Event AND $F),16,Data1); - end; - MIDI_PITCHBEND: - begin - begin - Controller((Event AND $F),17,data2); - end; - end; - MIDI_KEYAFTERTOUCH: - begin - end; + case (event and $F0) of + MIDI_NOTEON : NoteOn ((event and $F), data1, data2); + MIDI_NOTEOFF: NoteOn ((event and $F), data1, 0 ); + MIDI_CONTROLCHANGE: Controller((event and $F), data1, data2); + MIDI_CHANAFTERTOUCH: Controller((Event and $F), 16, data1); + MIDI_PITCHBEND: Controller((Event and $F), 17, data2); + MIDI_KEYAFTERTOUCH: ; end; end; + end. |