use text for numbers

stepmania/Themes/default/Graphics/ScreenEvaluation stage.lua

@@ -1,4 +1,7 @@
 local t = LoadActor("ScreenWithMenuElements stage/stage" ) .. {
-	BeginCommand=cmd(playcommand,"Set", { StageToShow = SCREENMAN:GetTopScreen():GetStageStats():GetStage() } );
+	BeginCommand=cmd(playcommand,"Set", {
+		StageToShow = SCREENMAN:GetTopScreen():GetStageStats():GetStage();
+		StageNumber = SCREENMAN:GetTopScreen():GetStageStats():GetStageIndex();
+	} );
 };
 return t;

stepmania/Themes/default/Graphics/ScreenWithMenuElements stage/default.lua

@@ -1,7 +1,10 @@
 local t = LoadActor("stage" ) .. {
 	BeginCommand=cmd(playcommand,"Update");
 	CurrentSongChangedMessageCommand=cmd(playcommand,"Update");
-	UpdateCommand=cmd(playcommand,"Set", { StageToShow = GAMESTATE:GetCurrentStage(); } );
+	UpdateCommand=cmd(playcommand,"Set", {
+		StageToShow = GAMESTATE:GetCurrentStage();
+		StageNumber = GAMESTATE:GetStageIndex();
+	} );
 };
 
 return t;

stepmania/Themes/default/Graphics/ScreenWithMenuElements stage/stage.lua

@@ -3,9 +3,23 @@ local stages = Def.ActorFrame {
 
 for _, s in ipairs(Stage) do
 --	if GAMESTATE:IsStagePossible(s) then
-	stages[#stages+1] = LoadActor("_stage " .. s) .. {
-		SetCommand=function(self, params) self:visible( params.StageToShow == s ) end;
-	}
+	if s == "Stage_Normal" then
+		stages[#stages+1] = LoadFont("_shared2") .. {
+			InitCommand=cmd(shadowlength,0);
+			SetCommand=function(self, params)
+				self:visible( params.StageToShow == s );
+				if params.StageNumber then
+					self:settext( string.format("%i", params.StageNumber+1) );
+				end
+			end;
+		}
+	else
+		stages[#stages+1] = LoadActor("_stage " .. s) .. {
+			SetCommand=function(self, params)
+				self:visible( params.StageToShow == s );
+			end;
+		}
+	end
 end
 
 return stages;