Redrawing desktop sized backbuffer is GPU intensive so add settings property to limit refresh rate - only really relevant when running resolutions higher than 1080p on a high refresh rate monitor

Author: MaximDude

Bender.bmx

@@ -29,7 +29,6 @@ Repeat
 	g_UserInterface = New UserInterface(g_DefaultMaximizeWindow)
 	g_FileIO = New FileIO()
 	g_GraphicsOutput = New GraphicsOutput(g_UserInterface.GetMaxWorkspaceWidth())
-	EnablePolledInput()
 
 	'Apply user settings/defaults.
 	g_UserInterface.SetColorTextboxValues(g_GraphicsOutput.SetBackgroundColor(Int[][g_DefaultBackgroundRed, g_DefaultBackgroundGreen, g_DefaultBackgroundBlue]))
@@ -40,10 +39,21 @@ Repeat
 	g_UserInterface.SetFileTypeComboBoxVisible(g_UserInterface.SetSaveAsIndexedCheckboxValue(g_FileIO.SetSaveAsIndexed(g_DefaultSaveAsIndexed)))
 	g_UserInterface.SetFileTypeComboBoxSelectedItem(g_FileIO.SetIndexedFileType(g_DefaultIndexedFileType))
 
+	Local refreshTimer:TTimer = CreateTimer(g_DefaultOutputRefreshRate)
+	Local refreshOutput:Int = False
+
+	EnablePolledInput()
+
 	Repeat
+		refreshOutput = False
 		PollEvent()
 
 		Select EventID()
+			Case EVENT_TIMERTICK
+				Select EventSource()
+					Case refreshTimer
+						refreshOutput = True
+				EndSelect
 			Case EVENT_APPRESUME
 				ActivateWindow(g_UserInterface.m_MainWindow)
 			Case EVENT_WINDOWSIZE
@@ -112,6 +122,8 @@ Repeat
 		EndSelect
 
 		g_GraphicsOutput.Update()
-		g_GraphicsOutput.Draw()
+		If refreshOutput Then
+			g_GraphicsOutput.Draw()
+		EndIf
 	Forever
 Forever

Types/SettingsManager.bmx

@@ -3,6 +3,7 @@ Import "Utility.bmx"
 '//// DEFAULT/USER EDITOR SETTINGS //////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
 Global g_DefaultMaximizeWindow:Int = False
+Global g_DefaultOutputRefreshRate:Int = DesktopHertz()
 Global g_DefaultBackgroundRed:Int = 50
 Global g_DefaultBackgroundGreen:Int = 170
 Global g_DefaultBackgroundBlue:Int = 255
@@ -47,6 +48,8 @@ Type SettingsManager
 			Select propAndValue[0]
 				Case "StartMaximizedWindow"
 					g_DefaultMaximizeWindow = Utility.Clamp(propAndValue[1].ToInt(), False, True)
+				Case "OutputRefreshRate"
+					g_DefaultOutputRefreshRate = Utility.Clamp(propAndValue[1].ToInt(), 1, DesktopHertz())
 				Case "BackgroundRed"
 					g_DefaultBackgroundRed = Utility.Clamp(propAndValue[1].ToInt(), 0, 255)
 				Case "BackgroundGreen"
@@ -82,6 +85,7 @@ Type SettingsManager
 		Local outputString:TStringBuilder = New TStringBuilder("// User Settings~n~n")
 
 		outputString.Append("StartMaximizedWindow = " + g_DefaultMaximizeWindow + "~n")
+		outputString.Append("OutputRefreshRate = " + g_DefaultOutputRefreshRate + "~n")
 		outputString.Append("BackgroundRed = " + propertyValues[0] + "~n")
 		outputString.Append("BackgroundGreen = " + propertyValues[1] + "~n")
 		outputString.Append("BackgroundBlue = " + propertyValues[2] + "~n")