aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authorbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-12-21 17:51:42 +0000
committerbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-12-21 17:51:42 +0000
commit3e561cd4fd1eb46590cb70aaf940f7775a855966 (patch)
treea8e390ab9e5ab7103aa488d05dfd272863c6757a /Game/Code/Screens
parente32e65d0272f98e47dbbb7c5a0a33566d791e5d4 (diff)
downloadusdx-3e561cd4fd1eb46590cb70aaf940f7775a855966.tar.gz
usdx-3e561cd4fd1eb46590cb70aaf940f7775a855966.tar.xz
usdx-3e561cd4fd1eb46590cb70aaf940f7775a855966.zip
added pitch detection for editor
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2765 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenEditSub.pas118
1 files changed, 116 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 02817d51..be058408 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -2,7 +2,14 @@ unit UScreenEditSub;
interface
-uses UMenu, UVideo, TextGL, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, UMenuText,
+uses
+ UMenu,
+ UVideo,
+ TextGL,
+ UMusic,
+ URecord,
+ SDL,
+ SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, UMenuText,
ULyrics, Math, gl, UThemes, MidiOut, UHelp;
type
@@ -82,6 +89,9 @@ type
StartTry: boolean;
PlayTime: real;
+ ActTonePitch: integer;
+
+ procedure DrawPitch(x, y, Width, Height: single);
procedure StartVideo;
procedure StartVideoPreview;
procedure NewBeat;
@@ -135,6 +145,7 @@ type
const
ID='ID_001'; //for help system
+ NumHalftones = 36;
implementation
uses UGraphic, UDraw, UMain, USkins, ULanguage;
@@ -626,6 +637,12 @@ begin
end;
end;
+ SDLK_N:
+ begin
+ // Set actual note over pitch detection
+ Czesci[CP].Czesc[Czesci[CP].Akt].Nuta[AktNuta[0]].Ton := ActTonePitch;
+ end;
+
SDLK_C:
begin
// Capitalize letter at the beginning of line
@@ -1440,6 +1457,99 @@ begin
end;
end;
+procedure TScreenEditSub.DrawPitch(x, y, Width, Height: single);
+var
+ x1, y1, x2, y2: single;
+ i: integer;
+ ToneBoxWidth: real;
+ ToneString: string;
+ ToneStringWidth, ToneStringHeight: real;
+ ToneStringMaxWidth: real;
+ ToneStringCenterXOffset: real;
+
+const
+ PitchBarInnerHSpacing = 2;
+ PitchBarInnerVSpacing = 1;
+
+begin
+ // calc tone pitch
+ Sound[0].AnalizujBufor;
+
+ // coordinates for black rect
+ x1 := x;
+ y1 := y;
+ x2 := x + Width;
+ y2 := y + Height;
+
+ // init blend mode
+ glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+ glEnable(GL_BLEND);
+
+ // draw black background-rect
+ glColor4f(0, 0, 0, 0.8);
+ glBegin(GL_QUADS);
+ glVertex2f(x1, y1);
+ glVertex2f(x2, y1);
+ glVertex2f(x2, y2);
+ glVertex2f(x1, y2);
+ glEnd();
+
+ // coordinates for tone boxes
+ ToneBoxWidth := Width / NumHalftones;
+ y1 := y1 + PitchBarInnerVSpacing;
+ y2 := y2 - PitchBarInnerVSpacing;
+
+ glBegin(GL_QUADS);
+ // draw tone boxes
+ for i := 0 to NumHalftones-1 do
+ begin
+ x1 := x + i * ToneBoxWidth + PitchBarInnerHSpacing;
+ x2 := x1 + ToneBoxWidth - 2*PitchBarInnerHSpacing;
+
+ if ((Sound[0].SzczytJest) and
+ (Sound[0].Ton = i)) then
+ begin
+ // highlight current tone-pitch
+ glColor3f(1, i / (NumHalftones-1), 0);
+ ActTonePitch := i;
+ end
+ else
+ begin
+ // grey other tone-pitches
+ glColor3f(0.3, i / (NumHalftones-1) * 0.3, 0);
+ end;
+
+ glVertex2f(x1, y1);
+ glVertex2f(x2, y1);
+ glVertex2f(x2, y2);
+ glVertex2f(x1, y2);
+ end;
+ glEnd();
+
+ glDisable(GL_BLEND);
+
+ ///
+ // draw the name of the tone
+ ///////
+
+ ToneString := Sound[0].GetToneString + '(' + IntToStr(ActTonePitch) + ')';
+ ToneStringHeight := 8;
+
+ SetFontSize(ToneStringHeight);
+
+ // center
+ // Note: for centering let us assume that G#4 has the max. horizontal extent
+ ToneStringWidth := glTextWidth(PChar(ToneString));
+ ToneStringMaxWidth := glTextWidth('G#4 (222)');
+ ToneStringCenterXOffset := (ToneStringMaxWidth-ToneStringWidth) / 2;
+
+ // draw
+ SetFontPos(x-ToneStringWidth-ToneStringCenterXOffset, y-ToneStringHeight/2);
+ glColor3f(0, 0, 0);
+ glPrint(PChar(ToneString));
+end;
+
+
procedure TScreenEditSub.StartVideo;
var
R: real;
@@ -2539,6 +2649,7 @@ begin
end
else
begin
+ Music.CaptureStart;
Refresh;
MidiOut := TMidiOutput.Create(nil);
MidiOut.Open;
@@ -3045,7 +3156,6 @@ begin
glEnd;
glDisable(GL_BLEND);
end;
-
if UVideo.VideoOpened and PlayVideo then
begin
@@ -3093,7 +3203,10 @@ begin
end;
end;
end else
+ begin
+ DrawPitch(400, 75, 390, 15);
StartVideoPreview;
+ end;
end;
procedure TScreenEditSub.DrawStatics;
@@ -3450,6 +3563,7 @@ procedure TScreenEditSub.onHide;
begin
MidiOut.Close;
MidiOut.Free;
+ Music.CaptureStop;
end;
function TScreenEditSub.GetNoteName(Note: Integer): String;