Please include a EXCLUSIVE fullscreen option!

Author

Message

ale870

17

Years of Service

User Offline

Joined: 17th Jan 2007

Location:

Posted: 3rd Feb 2012 12:27

Link

Hello,

I really cannot understand why PureGDK, a great program for PureBasic, does not support Fullscreen exclusive mode.

I red some posts about this, but I need to highlight a real problem.

Many computers suffer for hi screen resolution.
It means I need to set lower resolutions to get acceptable performances.

Now, currently in pureGDK, I can get a "fake" full screen (window without borders). The final resolution is the same used by the desktop, and the game performance slow-down.

I cannot ask to the players to change windows resolution to get acceptable performances.

So please include a function to setup an exclusive fullscreen mode.

I made a test, with spinning cube:

fake fullscreen (640x480 -> 1680x1050): 280 fps
real full screen (640x480): 960 fps

Thank you.

--Alessandro

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 3rd Feb 2012 17:10

Link

Many times I was complain about resolutions , but I wasn't listened.

Except screen resolutions , will be great and original PureBasic Data , be compatible with DarkBasic data.

Back to top

Profile PM Email Website

ale870

17

Years of Service

User Offline

Joined: 17th Jan 2007

Location:

Posted: 3rd Feb 2012 18:11

Link

This is a piece of text extracted from the original HELP online of Dark basic:

Quote: "Desktop Full screen

Be aware that running as DESKTOP and DESKTOPFULL means the application runs in windows mode stretched to the size of the desktop. You still have the option for full screen exclusive mode, as well as hidden mode and standard window mode. Be aware some older cards incur a performance penalty when stretching the contents of a window using the desktop rendering modes.
"

As you can read here, stretching mode could be a problem for older cards. I wish to add: even for cheap cards like the mounted in netbooks, or notebooks with intel 4m, intel g95, gma3150, etc....

That is a serious problem: I use puregdk for flexibility and performance, but I risk to loose hundred of FPS due to this incredible problem.

--Alessandro

Back to top

Profile PM Email Website

Mistrel

Retired Moderator

18

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 3rd Feb 2012 18:42

Link

Quote: "I cannot ask to the players to change windows resolution to get acceptable performances."

How to > Basics for.. > Fundamentals

This is covered in How to change the resolution:

C++:

+ Code Snippet

bool setResolution(int width, int height, int depth,
   int flag = CDS_FULLSCREEN)
{
   bool result;
   DEVMODE screenSettings;

   screenSettings.dmSize = sizeof(DEVMODE);
   screenSettings.dmPelsWidth = width;
   screenSettings.dmPelsHeight = height;
   screenSettings.dmBitsPerPel = depth;
   screenSettings.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT | DM_BITSPERPEL;

   if (ChangeDisplaySettings(&screenSettings, flag) == DISP_CHANGE_SUCCESSFUL)
      result = true;

   return result;
}

PureBasic:

+ Code Snippet

Procedure SetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result
  Protected ScreenSettings.DEVMODE
  
  ScreenSettings\dmSize=SizeOf(DEVMODE)
  ScreenSettings\dmPelsWidth=Width
  ScreenSettings\dmPelsHeight=Height
  ScreenSettings\dmBitsPerPel=Depth
  ScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL
  
  If ChangeDisplaySettings_(@ScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL
    Result=#True
  EndIf
  
  ProcedureReturn Result
EndProcedure

Back to top

Profile PM Email Website

ale870

17

Years of Service

User Offline

Joined: 17th Jan 2007

Location:

Posted: 3rd Feb 2012 20:02 Edited at: 3rd Feb 2012 20:05

Link

Thank you, it works.
I "merged" your suggestion with the trick to get a window borderless, so now I can get a real fullscreen, non-exclusive, with the requested REAL RESOLUTION. Furthermore in this way, even if I change Window resolution, the desktop icons are not moved.

I wish to share my final function with the community:

;========================================================================================================================
;========================================================================================================================

Procedure setResolution(argWidth, argHeight, argDepth, argFlag=#CDS_FULLSCREEN) 
	Protected result.b
	Protected ScreenSettings.DEVMODE
	
	;.......................................................................................
	; Set Screen resolution
	;
	ScreenSettings\dmSize       = SizeOf(DEVMODE)
	ScreenSettings\dmPelsWidth  = argWidth
	ScreenSettings\dmPelsHeight = argHeight
	ScreenSettings\dmBitsPerPel = argDepth
	ScreenSettings\dmFields     = #DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL
	
	If ChangeDisplaySettings_(@ScreenSettings, argFlag) = #DISP_CHANGE_SUCCESSFUL
		result = #True
	EndIf
	
	;.......................................................................................
	; Initialize PureBasic desktop library
	;
	
	; Set the main window as borderless
	Protected win.i = OpenWindow(#PB_Any, 0, 0, argWidth, argHeight, "PureGDK", #PB_Window_BorderLess)
	
	; Attach the PureGDK screen to the window
	dbOpenScreen(WindowID(win), 0, 0, argWidth, argHeight)
	
	; Set the display Mode
	dbSetDisplayMode(argWidth, argHeight, argDepth, 0) 
	
	; Set the window to the to the top of the z-order 
	SetWindowPos_(WindowID(win), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOREPOSITION|#SWP_NOSIZE) 
	
	ProcedureReturn result
EndProcedure

+ Code Snippet

;========================================================================================================================
;========================================================================================================================

Procedure setResolution(argWidth, argHeight, argDepth, argFlag=#CDS_FULLSCREEN) 
	Protected result.b
	Protected ScreenSettings.DEVMODE
	
	;.......................................................................................
	; Set Screen resolution
	;
	ScreenSettings\dmSize       = SizeOf(DEVMODE)
	ScreenSettings\dmPelsWidth  = argWidth
	ScreenSettings\dmPelsHeight = argHeight
	ScreenSettings\dmBitsPerPel = argDepth
	ScreenSettings\dmFields     = #DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL
	
	If ChangeDisplaySettings_(@ScreenSettings, argFlag) = #DISP_CHANGE_SUCCESSFUL
		result = #True
	EndIf
	
	;.......................................................................................
	; Initialize PureBasic desktop library
	;
	
	; Set the main window as borderless
	Protected win.i = OpenWindow(#PB_Any, 0, 0, argWidth, argHeight, "PureGDK", #PB_Window_BorderLess)
	
	; Attach the PureGDK screen to the window
	dbOpenScreen(WindowID(win), 0, 0, argWidth, argHeight)
	
	; Set the display Mode
	dbSetDisplayMode(argWidth, argHeight, argDepth, 0) 
	
	; Set the window to the to the top of the z-order 
	SetWindowPos_(WindowID(win), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOREPOSITION|#SWP_NOSIZE) 
	
	ProcedureReturn result
EndProcedure

This is a complete example you can use to test performances based on the screen resolution:

XIncludeFile "..\..\include\h.InitPureGDK.pb"
XIncludeFile "..\..\include\puregdk\core\h.PureGDK.pb"

EnableExplicit

;========================================================================================================================
;========================================================================================================================

Procedure setResolution(argWidth, argHeight, argDepth, argFlag=#CDS_FULLSCREEN) 
	Protected result.b
	Protected ScreenSettings.DEVMODE
	
	;.......................................................................................
	; Set Screen resolution
	;
	ScreenSettings\dmSize       = SizeOf(DEVMODE)
	ScreenSettings\dmPelsWidth  = argWidth
	ScreenSettings\dmPelsHeight = argHeight
	ScreenSettings\dmBitsPerPel = argDepth
	ScreenSettings\dmFields     = #DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL
	
	If ChangeDisplaySettings_(@ScreenSettings, argFlag) = #DISP_CHANGE_SUCCESSFUL
		result = #True
	EndIf
	
	;.......................................................................................
	; Initialize PureBasic desktop library
	;
	
	; Set the main window as borderless
	Protected win.i = OpenWindow(#PB_Any, 0, 0, argWidth, argHeight, "PureGDK", #PB_Window_BorderLess)
	
	; Attach the PureGDK screen to the window
	dbOpenScreen(WindowID(win), 0, 0, argWidth, argHeight)
	
	; Set the display Mode
	dbSetDisplayMode(argWidth, argHeight, argDepth, 0) 
	
	; Set the window to the to the top of the z-order 
	SetWindowPos_(WindowID(win), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOREPOSITION|#SWP_NOSIZE) 
	
	ProcedureReturn result
EndProcedure

;========================================================================================================================
;========================================================================================================================

If Not InitPureGDK("gdkengine.dll", "..\..\..\..\")
	Debug "Error: cannot initialize PureGDK."
	
	End
EndIf

If setResolution(1680, 1050, 32) = #False
	Debug "Error: cannot set requested resolution."
	End
EndIf

;/ No FPS limit, so you can test the real FPS!
dbSyncRate(0)

;/ Create a cube
Define CubeObject.i = dbCreateObjectCube(3)

;/ Variables definitions
Define x.f
Define y.f
Define z.f

Define currentFps.s

Repeat
	
	;/ Increment the x, y, and z variables during each loop
	x.f+0.02
	y.f+0.04
	z.f+0.08
	
	dbRotateObject(CubeObject, x.f, y.f, z.f)
	
	currentFps = Str(dbScreenFps())
	dbText(10, 10, currentFps)
	
	;/ Update the screen
	dbSync()
Until (WindowEvent()=#PB_Event_CloseWindow)

dbCloseScreen()

+ Code Snippet


XIncludeFile "..\..\include\h.InitPureGDK.pb"
XIncludeFile "..\..\include\puregdk\core\h.PureGDK.pb"

EnableExplicit

;========================================================================================================================
;========================================================================================================================

Procedure setResolution(argWidth, argHeight, argDepth, argFlag=#CDS_FULLSCREEN) 
	Protected result.b
	Protected ScreenSettings.DEVMODE
	
	;.......................................................................................
	; Set Screen resolution
	;
	ScreenSettings\dmSize       = SizeOf(DEVMODE)
	ScreenSettings\dmPelsWidth  = argWidth
	ScreenSettings\dmPelsHeight = argHeight
	ScreenSettings\dmBitsPerPel = argDepth
	ScreenSettings\dmFields     = #DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL
	
	If ChangeDisplaySettings_(@ScreenSettings, argFlag) = #DISP_CHANGE_SUCCESSFUL
		result = #True
	EndIf
	
	;.......................................................................................
	; Initialize PureBasic desktop library
	;
	
	; Set the main window as borderless
	Protected win.i = OpenWindow(#PB_Any, 0, 0, argWidth, argHeight, "PureGDK", #PB_Window_BorderLess)
	
	; Attach the PureGDK screen to the window
	dbOpenScreen(WindowID(win), 0, 0, argWidth, argHeight)
	
	; Set the display Mode
	dbSetDisplayMode(argWidth, argHeight, argDepth, 0) 
	
	; Set the window to the to the top of the z-order 
	SetWindowPos_(WindowID(win), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOREPOSITION|#SWP_NOSIZE) 
	
	ProcedureReturn result
EndProcedure


;========================================================================================================================
;========================================================================================================================

If Not InitPureGDK("gdkengine.dll", "..\..\..\..\")
	Debug "Error: cannot initialize PureGDK."
	
	End
EndIf

If setResolution(1680, 1050, 32) = #False
	Debug "Error: cannot set requested resolution."
	End
EndIf

;/ No FPS limit, so you can test the real FPS!
dbSyncRate(0)

;/ Create a cube
Define CubeObject.i = dbCreateObjectCube(3)

;/ Variables definitions
Define x.f
Define y.f
Define z.f

Define currentFps.s

Repeat
	
	;/ Increment the x, y, and z variables during each loop
	x.f+0.02
	y.f+0.04
	z.f+0.08
	
	dbRotateObject(CubeObject, x.f, y.f, z.f)
	
	currentFps = Str(dbScreenFps())
	dbText(10, 10, currentFps)
	
	;/ Update the screen
	dbSync()
Until (WindowEvent()=#PB_Event_CloseWindow)

dbCloseScreen()

Thank you!

--Alessandro

Back to top

Profile PM Email Website

Mistrel

Retired Moderator

18

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 3rd Feb 2012 20:23

Link

Have fun. And be sure to read all of those fundamentals!

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 4th Feb 2012 23:59

Link

Thank you for this screen resolution functions , it will be very useful.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

PureGDK / Please include a EXCLUSIVE fullscreen option!