From 0c62037cf72f7f12bf5f4563b36af7f81146e51a Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Fri, 26 Feb 2010 18:32:09 +0000 Subject: fixed BPM-Change added video preview and VideoGap change in editor git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2158 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenEditSub.pas | 233 ++++++++++++++++++++++++++++++++--- 1 file changed, 219 insertions(+), 14 deletions(-) (limited to 'Game/Code/Screens/UScreenEditSub.pas') diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas index 41b66d50..03ac82f8 100644 --- a/Game/Code/Screens/UScreenEditSub.pas +++ b/Game/Code/Screens/UScreenEditSub.pas @@ -2,10 +2,12 @@ unit UScreenEditSub; interface -uses UMenu, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, USmpeg, UTexture, UMenuText, +uses UMenu, UVideo, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, USmpeg, UTexture, UMenuText, ULyrics, Math, gl, UThemes, MidiOut, UHelp; type + TVidVis = (none, windowed, full); + TMedleyNotes = record start: TPos; end_: TPos; @@ -35,6 +37,7 @@ type TextNDlugosc: integer; TextNTon: integer; TextNText: integer; + TextVideoGap:integer; AktNuta: integer; PlaySentence: boolean; @@ -62,9 +65,16 @@ type editText: string; //backup of current text in text-edit-mode noteStart: integer; //Start note when playing sentence + lineStart: integer; //Start line when playing sentence LineChanged: boolean; + VidVis: TVidVis; //video visiability + PlayVideo: boolean; + StartTry: boolean; + PlayTime: real; + procedure StartVideo; + procedure StartVideoPreview; procedure NewBeat; procedure ChangeBPM(newBPM: real); procedure CzesciDivide; @@ -192,6 +202,34 @@ begin AktSong.GAP := AktSong.GAP - 1000; end; + SDLK_8: + begin + // Increase VideoGAP + if SDL_ModState = 0 then + AktSong.VideoGAP := AktSong.VideoGAP + 0.01; + if SDL_ModState = KMOD_LSHIFT then + AktSong.VideoGAP := AktSong.VideoGAP + 0.10; + if SDL_ModState = KMOD_LCTRL then + AktSong.VideoGAP := AktSong.VideoGAP + 1.00; + + if PlayVideo then + StartVideo; + end; + + SDLK_7: + begin + // Decrease VideoGAP + if SDL_ModState = 0 then + AktSong.VideoGAP := AktSong.VideoGAP - 0.01; + if SDL_ModState = KMOD_LSHIFT then + AktSong.VideoGAP := AktSong.VideoGAP - 0.10; + if SDL_ModState = KMOD_LCTRL then + AktSong.VideoGAP := AktSong.VideoGAP - 1.00; + + if PlayVideo then + StartVideo; + end; + SDLK_KP_PLUS: begin // Increase tone of all notes @@ -387,6 +425,10 @@ begin R := GetTimeFromBeat(Czesci[0].Czesc[MedleyNotes.start.line].Nuta[MedleyNotes.start.note].Start); if R <= Music.Length then begin Music.MoveTo(R); + + noteStart := AktNuta; + lineStart := Czesci[0].Akt; + PlayStopTime := GetTimeFromBeat( Czesci[0].Czesc[MedleyNotes.end_.line].Nuta[MedleyNotes.end_.note].Start + Czesci[0].Czesc[MedleyNotes.end_.line].Nuta[MedleyNotes.end_.note].Dlugosc); @@ -483,6 +525,10 @@ begin if SDL_ModState = KMOD_LCTRL + KMOD_LSHIFT then begin CopySentence(CopySrc, Czesci[0].Akt); end; + + if SDL_ModState = 0 then begin + StartVideo; + end; end; SDLK_4: @@ -637,11 +683,13 @@ begin if PlaySentenceMidi or PlaySentence then begin noteStart := AktNuta; + lineStart := Czesci[0].Akt; Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0; AktNuta := 0; Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2; Lyric.Selected := AktNuta; LineChanged:=false; + PlayVideo := false; end; end; @@ -700,13 +748,6 @@ begin Music.Play; LastClick := -100; end; - - - if PlaySentence or PlaySentenceMidi then - begin - noteStart := AktNuta; - LineChanged:=false; - end; end; SDLK_RETURN: begin @@ -735,7 +776,9 @@ begin if PlaySentenceMidi or PlaySentence then begin Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0; - AktNuta := noteStart; + if (lineStart = Czesci[0].Akt) then + AktNuta := noteStart; + Dec(AktNuta); if AktNuta = -1 then AktNuta := Czesci[0].Czesc[Czesci[0].Akt].HighNut; Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2; @@ -803,7 +846,9 @@ begin if PlaySentenceMidi or PlaySentence then begin Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0; - AktNuta := noteStart; + if (lineStart = Czesci[0].Akt) then + AktNuta := noteStart; + Inc(AktNuta); if AktNuta = Czesci[0].Czesc[Czesci[0].Akt].IlNut then AktNuta := 0; Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2; @@ -1107,6 +1152,84 @@ begin end; end; +procedure TScreenEditSub.StartVideo; +var + R: real; + +begin + // Play Sentences with Video + MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[MidiLastNote].Ton + 60, 127); + PlaySentenceMidi := false; + PlayOneNoteMidi := false; + Click := false; + Music.Stop; + + if PlayVideo then + begin + Czesci[0].Akt := lineStart; + AktNuta := noteStart; + end; + R := GetTimeFromBeat(Czesci[0].Czesc[Czesci[0].Akt].StartNote); + if R <= Music.Length then + begin + Music.MoveTo(R); + PlayStopTime := Music.Length; + PlaySentence := true; + PlayOneNote := false; + Music.Play; + LastClick := -100; + end; + + noteStart := AktNuta; + lineStart := Czesci[0].Akt; + Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0; + AktNuta := 0; + Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2; + Lyric.Selected := AktNuta; + LineChanged:=false; + PlayTime := 0; + PlayVideo := true; + StartVideoPreview; +end; + +procedure TScreenEditSub.StartVideoPreview; +begin + if (PlayTime<0.2) and PlayVideo then + begin + acClose; + VidVis := none; + StartTry := true; + end else if StartTry then + begin + if (AktSong.Video <> '') and + FileExists(AktSong.Path + AktSong.Video) then + begin + acOpenFile(PAnsiChar(AktSong.Path + AktSong.Video)); + + acSkip2(AktSong.VideoGAP, Music.Position); + Czas.Teraz := Music.Position; + Czas.Razem := Music.Length; + StartTry := false; + try + acGetFrame(Czas.Teraz); + VidVis := windowed; + + except + //If an Error occurs Reading Video: prevent Video from being Drawn again and Close Video + Log.LogError('Error drawing Video, Video has been disabled for this Song/Session.'); + Log.LogError('Corrupted File: ' + AktSong.Video); + AktSong.Video := ''; //dirt fix + try + acClose; + VidVis := none; + except + end; + end; + end else + VidVis := none; + end; +end; + procedure TScreenEditSub.NewBeat; begin // click @@ -1134,6 +1257,8 @@ begin begin Czesci[0].Czesc[C].Nuta[N].Start := ceil(Czesci[0].Czesc[C].Nuta[N].Start *f); Czesci[0].Czesc[C].Nuta[N].Dlugosc := floor(Czesci[0].Czesc[C].Nuta[N].Dlugosc *f); + if (Czesci[0].Czesc[C].Nuta[N].Dlugosc=0) then + Czesci[0].Czesc[C].Nuta[N].Dlugosc := 1; end; // N (notes) Czesci[0].Czesc[C].Koniec := Czesci[0].Czesc[C].Nuta[Czesci[0].Czesc[C].HighNut].Start + Czesci[0].Czesc[C].Nuta[Czesci[0].Czesc[C].HighNut].Dlugosc; @@ -1661,13 +1786,15 @@ begin AddText(30, 190, 0, 8, 0, 0, 0, 'Start:'); AddText(30, 215, 0, 8, 0, 0, 0, 'Duration:'); AddText(30, 240, 0, 8, 0, 0, 0, 'Tone:'); - AddText(30, 265, 0, 8, 0, 0, 0, 'Text:'); + AddText(30, 265, 0, 8, 0, 0, 0, 'Text:'); AddText(500, 265, 0, 8, 0, 0, 0, 'VideoGap:'); TextNStart := AddText(180, 190, 0, 8, 0, 0, 0, 'a'); TextNDlugosc := AddText(180, 215, 0, 8, 0, 0, 0, 'b'); TextNTon := AddText(180, 240, 0, 8, 0, 0, 0, 'c'); TextNText := AddText(180, 265, 0, 8, 0, 0, 0, 'd'); + TextVideoGap := AddText(600, 265, 0, 8, 0, 0, 0, 'e'); + // debug TextDebug := AddText(30, 550, 0, 9, 0, 0, 0, ''); end; @@ -1711,6 +1838,7 @@ begin Czesci[0].Akt := 0; AktNuta := 0; noteStart := 0; //when playing sentence + lineStart := 0; Czesci[0].Czesc[0].Nuta[0].Color := 2; if AktSong.Medley.Source <> msNone then @@ -1763,6 +1891,10 @@ begin LineChanged:=false; PlaySentence := false; PlayOneNote := false; + + StartTry := false; + PlayTime := 0; + PlayVideo := false; end; function TScreenEditSub.Draw: boolean; @@ -1775,6 +1907,9 @@ var PlayClick: boolean; line, note: integer; end_: boolean; + + Window: TRectCoords; + Blend: real; begin glClearColor(1,1,1,1); @@ -1782,6 +1917,7 @@ begin if PlaySentenceMidi or PlaySentence then begin MidiPos := USTime.GetTime - MidiTime + MidiStart; + PlayTime := PlayTime + TimeSkip; // click if PlaySentence then begin @@ -1828,17 +1964,23 @@ begin end; end; end else + begin LineChanged := false; + PlayVideo := false; + end; // midi music if PlaySentenceMidi then begin // stop the music - if end_ then begin + if end_ then + begin MidiOut.PutShort($81, Czesci[0].Czesc[Czesci[0].Akt].Nuta[MidiLastNote].Ton + 60, 127); PlaySentenceMidi := false; Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0; - AktNuta := noteStart; + if (Czesci[0].Akt = lineStart) then + AktNuta := noteStart; + Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2; Lyric.Selected := AktNuta; end; @@ -1867,7 +2009,9 @@ begin Music.Stop; PlaySentence := false; Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0; - AktNuta := noteStart; + if (Czesci[0].Akt = lineStart) then + AktNuta := noteStart; + Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2; Lyric.Selected := AktNuta; end; @@ -1973,6 +2117,7 @@ begin Text[TextBPM].Text := FloatToStr(AktSong.BPM[0].BPM / 4); Text[TextGAP].Text := FloatToStr(AktSong.GAP); + Text[TextVideoGap].Text := FloatToStr(AktSong.VideoGap); //Error reading Variables when no Song is loaded if not Error then @@ -2020,12 +2165,72 @@ begin // draw text Lyric.Draw; + if UVideo.VideoOpened and PlayVideo then + begin + Czas.Teraz := Czas.Teraz + TimeSkip; + try + acGetFrame(Czas.Teraz); + + if VidVis=windowed then + begin + Window.Left := 500; + Window.Right := 770; + Window.Upper := 65; + Window.Lower := 250; + Window.windowed := true; + + {if CoverTime>=Ini.PreviewFading then + begin + glColor4f(0, 0, 0, 1); + + glbegin(gl_quads); + glVertex2f(Window.Left, Window.Upper); + glVertex2f(Window.Left, Window.Lower); + glVertex2f(Window.Right, Window.Lower); + glVertex2f(Window.Right, Window.Upper); + glEnd; + end; } + SetAspectCorrection(acoCrop); + Blend := (PlayTime-0.2); + if Blend<0 then + Blend := 0 + else if Blend>1 then + Blend := 1; + + acDrawGLi(ScreenAct, Window, Blend); + end else if VidVis=full then + begin + acDrawGL(ScreenAct); + end; + + //ResetAspectCorrection; + + if (Czas.Teraz>=Czas.Razem) then + begin + acClose; + VidVis := none; + end; + except + //If an Error occurs drawing: prevent Video from being Drawn again and Close Video + log.LogError('Error drawing Video, Video has been disabled for this Song/Session.'); + Log.LogError('Corrupted File: ' + AktSong.Video); + try + acClose; + VidVis := none; + except + + end; + end; + end else + StartVideoPreview; end; procedure TScreenEditSub.onHide; begin MidiOut.Close; MidiOut.Free; + Music.Close; + acClose; //Music.SetVolume(100); end; -- cgit v1.2.3