aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--us_maker_edition/game/themes/Classic.ini14
-rw-r--r--us_maker_edition/game/themes/Deluxe.ini18
-rw-r--r--us_maker_edition/game/themes/Verdure.ini245
-rw-r--r--us_maker_edition/src/base/UThemes.pas10
-rw-r--r--us_maker_edition/src/screens/UScreenEditSub.pas67
5 files changed, 215 insertions, 139 deletions
diff --git a/us_maker_edition/game/themes/Classic.ini b/us_maker_edition/game/themes/Classic.ini
index 919080d6..a4e255ab 100644
--- a/us_maker_edition/game/themes/Classic.ini
+++ b/us_maker_edition/game/themes/Classic.ini
@@ -8012,6 +8012,8 @@ Y = 535
H = 41
[EditSub]
+[EditSubBackground]
+Type = Colorized
[EditSubTitle]
X = 30
@@ -8402,3 +8404,15 @@ SBGColor = DarkBlue
SBGDColor = LightBlue
STColor = White
STDColor = GrayDark
+
+[EditSubBackgroundImage]
+X = 510
+Y = 60
+W = 250
+H = 205
+Z = 0.95
+Color = White
+Tex = prevbackground
+Type = Transparent
+Reflection = 0
+ReflectionSpacing = 22
diff --git a/us_maker_edition/game/themes/Deluxe.ini b/us_maker_edition/game/themes/Deluxe.ini
index dd72bfc0..623d6519 100644
--- a/us_maker_edition/game/themes/Deluxe.ini
+++ b/us_maker_edition/game/themes/Deluxe.ini
@@ -8681,6 +8681,8 @@ Y = 535
H = 41
[EditSub]
+[EditSubBackground]
+Tex = EditBG
[EditSubTitle]
X = 30
@@ -8761,7 +8763,7 @@ SBGDColor = ColorLight
STColor = White
STDColor = GrayDark
-[EditSubCover]
+[EditSubSlideCover]
X = 30
Y = 123
W = 100
@@ -8788,7 +8790,7 @@ SBGDColor = ColorLight
STColor = White
STDColor = GrayDark
-[EditSubBackground]
+[EditSubSlideBG]
X = 30
Y = 144
W = 100
@@ -9071,3 +9073,15 @@ SBGColor = DarkBlue
SBGDColor = LightBlue
STColor = White
STDColor = GrayDark
+
+[EditSubBackgroundImage]
+X = 510
+Y = 60
+W = 250
+H = 205
+Z = 0.95
+Color = White
+Tex = prevbackground
+Type = Transparent
+Reflection = 0
+ReflectionSpacing = 22
diff --git a/us_maker_edition/game/themes/Verdure.ini b/us_maker_edition/game/themes/Verdure.ini
index 2e878391..1e225675 100644
--- a/us_maker_edition/game/themes/Verdure.ini
+++ b/us_maker_edition/game/themes/Verdure.ini
@@ -8994,6 +8994,8 @@ Y = 535
H = 41
[EditSub]
+[EditSubBackground]
+Tex = EditBG
[EditSubTitle]
X = 30
@@ -9004,22 +9006,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_TITLE
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 350
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubArtist]
X = 30
@@ -9030,22 +9031,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_ARTIST
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 350
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubMP3]
X = 30
@@ -9056,25 +9056,24 @@ SkipX = 10
TextSize = 16
Text = EDIT_MP3
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = SelectBG
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 1
OneItemOnly = 1
SBGW = 350
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
-[EditSubCover]
+[EditSubSlideCover]
X = 30
Y = 123
W = 100
@@ -9083,25 +9082,24 @@ SkipX = 10
TextSize = 16
Text = EDIT_COVER
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = SelectBG
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 1
OneItemOnly = 1
SBGW = 350
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
-[EditSubBackground]
+[EditSubSlideBG]
X = 30
Y = 144
W = 100
@@ -9110,23 +9108,22 @@ SkipX = 10
TextSize = 16
Text = EDIT_BACKGROUND
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = SelectBG
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 1
OneItemOnly = 1
SBGW = 350
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubBPM]
X = 30
@@ -9137,22 +9134,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_BPM
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 100
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubGAP]
X = 30
@@ -9163,22 +9159,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_GAP
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 100
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubStart]
X = 30
@@ -9189,22 +9184,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_START
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 100
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubDuration]
X = 30
@@ -9215,22 +9209,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_DURATION
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 100
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubTone]
X = 30
@@ -9241,22 +9234,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_TONE
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 100
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubLyric]
X = 30
@@ -9267,22 +9259,21 @@ SkipX = 10
TextSize = 16
Text = EDIT_LYRIC
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 350
Align = 0
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubVideoGap]
X = 510
@@ -9291,30 +9282,29 @@ W = 100
H = 20
SkipX = 10
TextSize = 16
-Text = EDIT_VIDEOGAP
Tex = MainBar
-Type = Colorized
+Type = Transparent
TexSBG = MainBar
-TypeSBG = Colorized
+TypeSBG = Transparent
ShowArrows = 0
SBGW = 100
Align = 0
+Text = EDIT_VIDEOGAP
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorLight
+SBGDColor = ColorLight
TColor = White
TDColor = White
-
-SBGColor = ColorDark
-SBGDColor = ColorLight
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubSelectVolAudio]
TexSBG = SelectBG
Text = EDIT_VOLUME_AUDIO
-Type = Colorized
-TypeSBG = Colorized
+Type = Transparent
+TypeSBG = Transparent
X = 580
Y = 545
W = 250
@@ -9325,21 +9315,20 @@ ShowArrows = 1
OneItemOnly = 1
SBGW = 100
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorDark
+SBGDColor = ColorDark
TColor = White
TDColor = White
-
-SBGColor = DarkBlue
-SBGDColor = LightBlue
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubSelectVolMidi]
TexSBG = SelectBG
Text = EDIT_VOLUME_MIDI
-Type = Colorized
-TypeSBG = Colorized
+Type = Transparent
+TypeSBG = Transparent
X = 580
Y = 562
W = 0
@@ -9350,21 +9339,20 @@ ShowArrows = 1
OneItemOnly = 1
SBGW = 100
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorDark
+SBGDColor = ColorDark
TColor = White
TDColor = White
-
-SBGColor = DarkBlue
-SBGDColor = LightBlue
STColor = White
-STDColor = GrayDark
+STDColor = White
[EditSubSelectVolClick]
TexSBG = SelectBG
Text = EDIT_VOLUME_CLICK
-Type = Colorized
-TypeSBG = Colorized
+Type = Transparent
+TypeSBG = Transparent
X = 580
Y = 579
W = 0
@@ -9375,12 +9363,23 @@ ShowArrows = 1
OneItemOnly = 1
SBGW = 100
-Color = ColorDark
-DColor = ColorLight
+Color = ColorLight
+DColor = ColorDark
+SBGColor = ColorDark
+SBGDColor = ColorDark
TColor = White
TDColor = White
-
-SBGColor = DarkBlue
-SBGDColor = LightBlue
STColor = White
-STDColor = GrayDark
+STDColor = White
+
+[EditSubBackgroundImage]
+X = 510
+Y = 60
+W = 250
+H = 205
+Z = 0.95
+Color = White
+Tex = prevbackground
+Type = Transparent
+Reflection = 0
+ReflectionSpacing = 22
diff --git a/us_maker_edition/src/base/UThemes.pas b/us_maker_edition/src/base/UThemes.pas
index 21d729f8..de569b97 100644
--- a/us_maker_edition/src/base/UThemes.pas
+++ b/us_maker_edition/src/base/UThemes.pas
@@ -507,6 +507,7 @@ type
TThemeEditSub = class(TThemeBasic)
//in editor - headers
+ BackgroundImage: TThemeStatic;
SlideTitle: TThemeSelectSlide;
SlideArtist: TThemeSelectSlide;
SlideMP3: TThemeSelectSlide;
@@ -521,7 +522,7 @@ type
SelectVolAudio: TThemeSelectSlide;
SelectVolMidi: TThemeSelectSlide;
SelectVolClick: TThemeSelectSlide;
- SlideVideoGap: TThemeSelectSlide;
+ SlideVideoGap: TThemeSelectSlide;
end;
//Error- and Check-Popup
@@ -913,7 +914,7 @@ begin
Edit := TThemeEdit.Create;
EditSub := TThemeEditSub.Create;
-
+
ErrorPopup := TThemeError.Create;
CheckPopup := TThemeCheck.Create;
@@ -1405,11 +1406,12 @@ begin
// editor
ThemeLoadBasic (EditSub, 'EditSub');
+ ThemeLoadStatic(EditSub.BackgroundImage, 'EditSubBackgroundImage');
ThemeLoadSelectSlide(EditSub.SlideTitle, 'EditSubTitle');
ThemeLoadSelectSlide(EditSub.SlideArtist, 'EditSubArtist');
ThemeLoadSelectSlide(EditSub.SlideMP3, 'EditSubMP3');
- ThemeLoadSelectSlide(EditSub.SlideCover, 'EditSubCover');
- ThemeLoadSelectSlide(EditSub.SlideBackground, 'EditSubBackground');
+ ThemeLoadSelectSlide(EditSub.SlideCover, 'EditSubSlideCover');
+ ThemeLoadSelectSlide(EditSub.SlideBackground, 'EditSubSlideBG');
ThemeLoadSelectSlide(EditSub.SlideBPM, 'EditSubBPM');
ThemeLoadSelectSlide(EditSub.SlideGAP, 'EditSubGAP');
ThemeLoadSelectSlide(EditSub.SlideStart, 'EditSubStart');
diff --git a/us_maker_edition/src/screens/UScreenEditSub.pas b/us_maker_edition/src/screens/UScreenEditSub.pas
index ee29b93b..96dc7708 100644
--- a/us_maker_edition/src/screens/UScreenEditSub.pas
+++ b/us_maker_edition/src/screens/UScreenEditSub.pas
@@ -187,6 +187,8 @@ type
VolumeAudio: array of UTF8String;
VolumeMidi: array of UTF8String;
VolumeClick: array of UTF8String;
+ // background image & video preview
+ BackgroundImageId: integer;
// currentX, CurrentY
CurrentX: integer;
CurrentY: integer;
@@ -237,7 +239,7 @@ type
// show transparent background note for intaractions
procedure ShowInteractiveBackground;
public
- Tex_Background: TTexture;
+ Tex_PrevBackground: TTexture;
FadeOut: boolean;
constructor Create; override;
procedure OnShow; override;
@@ -1237,6 +1239,14 @@ begin
CopyToUndo;
SelectsS[Interactions[nBut].Num].SelectedOption := SelectsS[Interactions[nBut].Num].SelectedOption -1;
CurrentSong.Background := Path(SelectsS[Interactions[nBut].Num].TextOptT[SelectsS[Interactions[nBut].Num].SelectedOption]);
+ // change background picture
+ Tex_PrevBackground := Texture.LoadTexture(CurrentSong.Path.Append(CurrentSong.Background));
+ Texture.AddTexture(Tex_PrevBackground, TEXTURE_TYPE_PLAIN, false);
+ Statics[BackgroundImageId].Texture := Tex_PrevBackground;
+ Statics[BackgroundImageId].Texture.X := theme.EditSub.BackgroundImage.X;
+ Statics[BackgroundImageId].Texture.Y := theme.EditSub.BackgroundImage.Y;
+ Statics[BackgroundImageId].Texture.W := theme.EditSub.BackgroundImage.W;
+ Statics[BackgroundImageId].Texture.H := theme.EditSub.BackgroundImage.H;
end;
if ((BackgroundSlideId = Interactions[nBut].Num) and (Action = maRight) and (SelectsS[Interactions[nBut].Num].SelectedOption < Length(SelectsS[Interactions[nBut].Num].TextOptT)-1)) then
@@ -1244,7 +1254,15 @@ begin
CopyToUndo;
SelectsS[Interactions[nBut].Num].SelectedOption := SelectsS[Interactions[nBut].Num].SelectedOption +1;
CurrentSong.Background := Path(SelectsS[Interactions[nBut].Num].TextOptT[SelectsS[Interactions[nBut].Num].SelectedOption]);
- end;
+ // change background picture
+ Tex_PrevBackground := Texture.LoadTexture(CurrentSong.Path.Append(CurrentSong.Background));
+ Texture.AddTexture(Tex_PrevBackground, TEXTURE_TYPE_PLAIN, false);
+ Statics[BackgroundImageId].Texture := Tex_PrevBackground;
+ Statics[BackgroundImageId].Texture.X := theme.EditSub.BackgroundImage.X;
+ Statics[BackgroundImageId].Texture.Y := theme.EditSub.BackgroundImage.Y;
+ Statics[BackgroundImageId].Texture.W := theme.EditSub.BackgroundImage.W;
+ Statics[BackgroundImageId].Texture.H := theme.EditSub.BackgroundImage.H;
+ end;
if ((Mp3SlideId = Interactions[nBut].Num) and (Action = maLeft) and (SelectsS[Interactions[nBut].Num].SelectedOption > 0)) then
begin
@@ -1962,7 +1980,7 @@ begin
//Theme:
//bg
glDisable(GL_BLEND);
-
+{
x := 0;
y := 0;
w := 800;
@@ -1973,7 +1991,7 @@ begin
glVertex2f(x, y+h);
glVertex2f(x+w, y+h);
glVertex2f(x+w, y);
- glEnd;
+ glEnd;}
// Line
glColor4f(0.9, 0.9, 0.9, 1);
@@ -2290,6 +2308,7 @@ end;
constructor TScreenEditSub.Create;
begin
inherited Create;
+ LoadFromTheme(Theme.EditSub);
//video
fCurrentVideo := nil;
SetLength(Player, 1);
@@ -2378,6 +2397,8 @@ begin
SelectsS[VideoGapSlideId].Text.Align := 0;
SelectsS[VideoGapSlideId].Text.X := SelectsS[VideoGapSlideId].Texture.X + 3;
+ // background image & preview
+ BackgroundImageId := AddStatic(Theme.EditSub.BackgroundImage);
// TextTitle := AddText(180, 65, 0, 24, 0, 0, 0, 'a');
// TextArtist := AddText(180, 90, 0, 24, 0, 0, 0, 'b');
// TextMp3 := AddText(180, 115, 0, 24, 0, 0, 0, 'c');
@@ -2584,7 +2605,7 @@ begin
// volume slides
SetLength(VolumeAudio, 0);
SetLength(VolumeMidi, 0);
- SetLength(VolumeClick, 0);
+ SetLength(VolumeClick, 0);
for i:=0 to 100 do
begin
SetLength(VolumeAudio, high(VolumeAudio)+2);
@@ -2630,6 +2651,32 @@ begin
AudioInput.CaptureStart;
end;
+ // background picture
+ try
+ //BgFile := CurrentSong.Path.Append(CurrentSong.Background);
+ Statics[BackgroundImageId].Texture.X := 500;
+ Statics[BackgroundImageId].Texture.Y := 65;
+ Statics[BackgroundImageId].Texture.W := 80;
+ Statics[BackgroundImageId].Texture.H := 0;
+
+ if (Not (CurrentSong.Background = PATH_NONE) and CurrentSong.Path.Append(CurrentSong.Background).Exists) then
+ begin
+ log.LogError('background:' + CurrentSong.Background.ToUTF8());
+ Tex_PrevBackground := Texture.LoadTexture(CurrentSong.Path.Append(CurrentSong.Background));
+ Texture.AddTexture(Tex_PrevBackground, TEXTURE_TYPE_PLAIN, true);
+ Statics[BackgroundImageId].Texture := Tex_PrevBackground;
+ Statics[BackgroundImageId].Texture.X := theme.EditSub.BackgroundImage.X;
+ Statics[BackgroundImageId].Texture.Y := theme.EditSub.BackgroundImage.Y;
+ Statics[BackgroundImageId].Texture.W := theme.EditSub.BackgroundImage.W;
+ Statics[BackgroundImageId].Texture.H := theme.EditSub.BackgroundImage.H;
+
+ end;
+
+ except
+ Log.LogError('Background could not be loaded: ' + CurrentSong.Background.ToNative);
+ Tex_PrevBackground.TexNum := 0;
+ end;
+
//Interaction := 0;
TextEditMode := false;
TitleEditMode := false;
@@ -2646,7 +2693,7 @@ var
notechange: boolean;
begin
- glClearColor(1,1,1,1);
+ //glClearColor(1,1,1,1);
// midi music
if PlaySentenceMidi then
@@ -2827,9 +2874,9 @@ begin
fCurrentVideo.GetFrame(CurrentSong.VideoGAP + AudioPlayback.Position);
fCurrentVideo.SetScreen(1);
fCurrentVideo.Alpha := 1;
- fCurrentVideo.SetScreenPosition(510, 60, 1);
- fCurrentVideo.Width := 250;
- fCurrentVideo.Height := 205;
+ fCurrentVideo.SetScreenPosition(theme.EditSub.BackgroundImage.X, theme.EditSub.BackgroundImage.Y, 1);
+ fCurrentVideo.Width := theme.EditSub.BackgroundImage.W;
+ fCurrentVideo.Height := theme.EditSub.BackgroundImage.H;
fCurrentVideo.ReflectionSpacing := 1;
fCurrentVideo.AspectCorrection := acoCrop;
@@ -2849,7 +2896,7 @@ begin
{$ENDIF}
Lyric.Free;
//Music.SetVolume(1.0);
- AudioInput.CaptureStop;
+ AudioInput.CaptureStop;
end;
function TScreenEditSub.GetNoteName(Note: integer): string;