From 8bf5d685ad3b8ff361f4d435c982d6e3e8fc3396 Mon Sep 17 00:00:00 2001 From: f1fth_freed0m Date: Wed, 5 Mar 2008 23:47:36 +0000 Subject: Translated Variable Names and Types TCzesci to TLines TMuzyka to TMelody HighNut to HighNote Nuta to Note Czesc to Line git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@913 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/USong.pas | 110 ++++++++++++++++++++++---------------------- 1 file changed, 55 insertions(+), 55 deletions(-) (limited to 'Game/Code/Classes/USong.pas') diff --git a/Game/Code/Classes/USong.pas b/Game/Code/Classes/USong.pas index 6b4a2f09..c7d11374 100644 --- a/Game/Code/Classes/USong.pas +++ b/Game/Code/Classes/USong.pas @@ -114,7 +114,7 @@ implementation uses TextGL, UIni, - UMusic, // needed for Czesci .. ( whatever that is ) + UMusic, // needed for Lines .. ( whatever that is ) UMain; //needed for Player constructor TSong.create( const aFileName : WideString ); @@ -181,7 +181,7 @@ begin MultBPM := 4; // multiply beat-count of note by 4 Mult := 1; // accuracy of measurement of note Base[0] := 100; // high number - Czesci[0].Wartosc := 0; + Lines[0].Wartosc := 0; self.Relative := false; Rel[0] := 0; CP := 0; @@ -222,16 +222,16 @@ begin Read(SongFile, TempC); until ((TempC = ':') or (TempC = 'F') or (TempC = '*')); - SetLength(Czesci, 2); - for Pet := 0 to High(Czesci) do begin - SetLength(Czesci[Pet].Czesc, 1); - Czesci[Pet].High := 0; - Czesci[Pet].Ilosc := 1; - Czesci[Pet].Akt := 0; - Czesci[Pet].Resolution := self.Resolution; - Czesci[Pet].NotesGAP := self.NotesGAP; - Czesci[Pet].Czesc[0].IlNut := 0; - Czesci[Pet].Czesc[0].HighNut := -1; + SetLength(Lines, 2); + for Pet := 0 to High(Lines) do begin + SetLength(Lines[Pet].Line, 1); + Lines[Pet].High := 0; + Lines[Pet].Ilosc := 1; + Lines[Pet].Akt := 0; + Lines[Pet].Resolution := self.Resolution; + Lines[Pet].NotesGAP := self.NotesGAP; + Lines[Pet].Line[0].IlNut := 0; + Lines[Pet].Line[0].HighNote := -1; end; // TempC := ':'; @@ -289,24 +289,24 @@ begin if not Both then begin - Czesci[CP].Czesc[Czesci[CP].High].BaseNote := Base[CP]; - Czesci[CP].Czesc[Czesci[CP].High].LyricWidth := glTextWidth(PChar(Czesci[CP].Czesc[Czesci[CP].High].Lyric)); + Lines[CP].Line[Lines[CP].High].BaseNote := Base[CP]; + Lines[CP].Line[Lines[CP].High].LyricWidth := glTextWidth(PChar(Lines[CP].Line[Lines[CP].High].Lyric)); //Total Notes Patch - Czesci[CP].Czesc[Czesci[CP].High].TotalNotes := 0; - for I := low(Czesci[CP].Czesc[Czesci[CP].High].Nuta) to high(Czesci[CP].Czesc[Czesci[CP].High].Nuta) do + Lines[CP].Line[Lines[CP].High].TotalNotes := 0; + for I := low(Lines[CP].Line[Lines[CP].High].Note) to high(Lines[CP].Line[Lines[CP].High].Note) do begin - Czesci[CP].Czesc[Czesci[CP].High].TotalNotes := Czesci[CP].Czesc[Czesci[CP].High].TotalNotes + Czesci[CP].Czesc[Czesci[CP].High].Nuta[I].Dlugosc * Czesci[CP].Czesc[Czesci[CP].High].Nuta[I].Wartosc; + Lines[CP].Line[Lines[CP].High].TotalNotes := Lines[CP].Line[Lines[CP].High].TotalNotes + Lines[CP].Line[Lines[CP].High].Note[I].Dlugosc * Lines[CP].Line[Lines[CP].High].Note[I].Wartosc; end; //Total Notes Patch End end else begin - for Pet := 0 to High(Czesci) do begin - Czesci[Pet].Czesc[Czesci[Pet].High].BaseNote := Base[Pet]; - Czesci[Pet].Czesc[Czesci[Pet].High].LyricWidth := glTextWidth(PChar(Czesci[Pet].Czesc[Czesci[Pet].High].Lyric)); + for Pet := 0 to High(Lines) do begin + Lines[Pet].Line[Lines[Pet].High].BaseNote := Base[Pet]; + Lines[Pet].Line[Lines[Pet].High].LyricWidth := glTextWidth(PChar(Lines[Pet].Line[Lines[Pet].High].Lyric)); //Total Notes Patch - Czesci[Pet].Czesc[Czesci[Pet].High].TotalNotes := 0; - for I := low(Czesci[Pet].Czesc[Czesci[Pet].High].Nuta) to high(Czesci[Pet].Czesc[Czesci[Pet].High].Nuta) do + Lines[Pet].Line[Lines[Pet].High].TotalNotes := 0; + for I := low(Lines[Pet].Line[Lines[Pet].High].Note) to high(Lines[Pet].Line[Lines[Pet].High].Note) do begin - Czesci[Pet].Czesc[Czesci[Pet].High].TotalNotes := Czesci[Pet].Czesc[Czesci[Pet].High].TotalNotes + Czesci[Pet].Czesc[Czesci[Pet].High].Nuta[I].Dlugosc * Czesci[Pet].Czesc[Czesci[Pet].High].Nuta[I].Wartosc; + Lines[Pet].Line[Lines[Pet].High].TotalNotes := Lines[Pet].Line[Lines[Pet].High].TotalNotes + Lines[Pet].Line[Lines[Pet].High].Note[I].Dlugosc * Lines[Pet].Line[Lines[Pet].High].Note[I].Wartosc; end; //Total Notes Patch End end; @@ -578,43 +578,43 @@ begin end; end; // case - with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].High] do begin - SetLength(Nuta, Length(Nuta) + 1); + with Lines[NrCzesci].Line[Lines[NrCzesci].High] do begin + SetLength(Note, Length(Note) + 1); IlNut := IlNut + 1; - HighNut := HighNut + 1; - Muzyka.IlNut := Muzyka.IlNut + 1; + HighNote := HighNote + 1; + Melody.IlNut := Melody.IlNut + 1; - Nuta[HighNut].Start := StartP; + Note[HighNote].Start := StartP; if IlNut = 1 then begin - StartNote := Nuta[HighNut].Start; - if Czesci[NrCzesci].Ilosc = 1 then + StartNote := Note[HighNote].Start; + if Lines[NrCzesci].Ilosc = 1 then Start := -100; -// Start := Nuta[HighNut].Start; +// Start := Note[HighNote].Start; end; - Nuta[HighNut].Dlugosc := DurationP; - Muzyka.DlugoscNut := Muzyka.DlugoscNut + Nuta[HighNut].Dlugosc; + Note[HighNote].Dlugosc := DurationP; + Melody.DlugoscNut := Melody.DlugoscNut + Note[HighNote].Dlugosc; // back to the normal system with normal, golden and now freestyle notes case TypeP of - 'F': Nuta[HighNut].Wartosc := 0; - ':': Nuta[HighNut].Wartosc := 1; - '*': Nuta[HighNut].Wartosc := 2; + 'F': Note[HighNote].Wartosc := 0; + ':': Note[HighNote].Wartosc := 1; + '*': Note[HighNote].Wartosc := 2; end; - Czesci[NrCzesci].Wartosc := Czesci[NrCzesci].Wartosc + Nuta[HighNut].Dlugosc * Nuta[HighNut].Wartosc; + Lines[NrCzesci].Wartosc := Lines[NrCzesci].Wartosc + Note[HighNote].Dlugosc * Note[HighNote].Wartosc; - Nuta[HighNut].Ton := NoteP; - if Nuta[HighNut].Ton < Base[NrCzesci] then Base[NrCzesci] := Nuta[HighNut].Ton; - Nuta[HighNut].TonGamy := Nuta[HighNut].TonGamy mod 12; + Note[HighNote].Ton := NoteP; + if Note[HighNote].Ton < Base[NrCzesci] then Base[NrCzesci] := Note[HighNote].Ton; + Note[HighNote].TonGamy := Note[HighNote].TonGamy mod 12; - Nuta[HighNut].Tekst := Copy(LyricS, 2, 100); - Lyric := Lyric + Nuta[HighNut].Tekst; + Note[HighNote].Tekst := Copy(LyricS, 2, 100); + Lyric := Lyric + Note[HighNote].Tekst; if TypeP = 'F' then - Nuta[HighNut].FreeStyle := true; + Note[HighNote].FreeStyle := true; - Koniec := Nuta[HighNut].Start + Nuta[HighNut].Dlugosc; + Koniec := Note[HighNote].Start + Note[HighNote].Dlugosc; end; // with end; @@ -624,31 +624,31 @@ I: Integer; begin // stara czesc //Alter Satz //Update Old Part - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].BaseNote := Base[NrCzesciP]; - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].LyricWidth := glTextWidth(PChar(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Lyric)); + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].BaseNote := Base[NrCzesciP]; + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].LyricWidth := glTextWidth(PChar(Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Lyric)); //Total Notes Patch - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes := 0; - for I := low(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta) to high(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta) do + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].TotalNotes := 0; + for I := low(Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note) to high(Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note) do begin - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes := Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes + Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta[I].Dlugosc * Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta[I].Wartosc; + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].TotalNotes := Lines[NrCzesciP].Line[Lines[NrCzesciP].High].TotalNotes + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note[I].Dlugosc * Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note[I].Wartosc; end; //Total Notes Patch End // nowa czesc //Neuer Satz //Update New Part - SetLength(Czesci[NrCzesciP].Czesc, Czesci[NrCzesciP].Ilosc + 1); - Czesci[NrCzesciP].High := Czesci[NrCzesciP].High + 1; - Czesci[NrCzesciP].Ilosc := Czesci[NrCzesciP].Ilosc + 1; - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].HighNut := -1; + SetLength(Lines[NrCzesciP].Line, Lines[NrCzesciP].Ilosc + 1); + Lines[NrCzesciP].High := Lines[NrCzesciP].High + 1; + Lines[NrCzesciP].Ilosc := Lines[NrCzesciP].Ilosc + 1; + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].HighNote := -1; if self.Relative then begin - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Start := Param1; + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Start := Param1; Rel[NrCzesciP] := Rel[NrCzesciP] + Param2; end else - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Start := Param1; + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Start := Param1; Base[NrCzesciP] := 100; // high number end; -- cgit v1.2.3