Screen splitting question - darkbasic works, exe doesn`t!

Author

Message

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 14th Jul 2008 21:47 Edited at: 14th Jul 2008 21:48

Link

Hey guys!

Here is a quick example on splitting the screen made by latch(thank you), and I carried it on for further games:

for v1.13:

sync on
sync rate 60
hide mouse
autocam off

rem make a matrix
make matrix 1,1000,1000,25,25

gosub _init:

do
   rem split the view
   gosub _view_1

gosub _view_2

gosub _view_3
loop

_init:
   make object cube 1,25
   offset limb 1,0,25,0,0
   make mesh from object 1,1
   delete object 1
   make object 1,1,0
   position object 1,0,13,0
   make object 2,1,0
   position object 2,500,13,500
   make object 3,1,0
   position object 3,1000,13,1000

color object 1,rgb(255,0,0)
   color object 2,rgb(0,255,0)
   color object 3,rgb(0,255,255)

delete mesh 1
return

_view_1:
   set camera view 0,0,(screen width()/2)-5,screen height()/2
   turn object left 1,5
   position camera object position x(1),object position y(1),object position z(1)
   point camera 1000,0,1000
   move camera -50
return

_view_2:
   set camera view screen width()/2,0,screen width()-1,screen height()/2
   turn object right 2,10
   position camera object position x(2),object position y(2),object position z(2)
   point camera 1000,0,1000
   move camera -50
return

_view_3:
   set camera view screen width()/4,(screen height()/2)+5,(screen width()/4)*3,screen height()
   roll object left 3,2
   position camera object position x(3),object position y(3),object position z(3)
   point camera 0,0,0
   move camera -50
return

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam off

rem make a matrix
make matrix 1,1000,1000,25,25

gosub _init:

do
   rem split the view
   gosub _view_1

   gosub _view_2

   gosub _view_3
loop

_init:
   make object cube 1,25
   offset limb 1,0,25,0,0
   make mesh from object 1,1
   delete object 1
   make object 1,1,0
   position object 1,0,13,0
   make object 2,1,0
   position object 2,500,13,500
   make object 3,1,0
   position object 3,1000,13,1000

   color object 1,rgb(255,0,0)
   color object 2,rgb(0,255,0)
   color object 3,rgb(0,255,255)

   delete mesh 1
return

_view_1:
   set camera view 0,0,(screen width()/2)-5,screen height()/2
   turn object left 1,5
   position camera object position x(1),object position y(1),object position z(1)
   point camera 1000,0,1000
   move camera -50
return

_view_2:
   set camera view screen width()/2,0,screen width()-1,screen height()/2
   turn object right 2,10
   position camera object position x(2),object position y(2),object position z(2)
   point camera 1000,0,1000
   move camera -50
return

_view_3:
   set camera view screen width()/4,(screen height()/2)+5,(screen width()/4)*3,screen height()
   roll object left 3,2
   position camera object position x(3),object position y(3),object position z(3)
   point camera 0,0,0
   move camera -50
return

for v1.14 or v1.2:

sync on
sync rate 60
hide mouse
autocam off

rem make a matrix
make matrix 1,1000,1000,25,25

gosub _init:

do
   rem split the view
   gosub _view_1

gosub _view_2

gosub _view_3

rem this sync may not be necessary
   `sync
loop

_init:
   make object cube 1,25
   offset limb 1,0,25,0,0
   make mesh from object 1,1
   delete object 1
   make object 1,1,0
   position object 1,0,13,0
   make object 2,1,0
   position object 2,500,13,500
   make object 3,1,0
   position object 3,1000,13,1000

color object 1,rgb(255,0,0)
   color object 2,rgb(0,255,0)
   color object 3,rgb(0,255,255)

delete mesh 1
return

_view_1:
   set camera view 0,0,(screen width()/2)-5,screen height()/2
   turn object left 1,5
   position camera object position x(1),object position y(1),object position z(1)
   point camera 1000,0,1000
   move camera -50
   sync
return

_view_2:
   set camera view screen width()/2,0,screen width()-1,screen height()/2
   turn object right 2,10
   position camera object position x(2),object position y(2),object position z(2)
   point camera 1000,0,1000
   move camera -50
   sync
return

_view_3:
   set camera view screen width()/4,(screen height()/2)+5,(screen width()/4)*3,screen height()
   roll object left 3,2
   position camera object position x(3),object position y(3),object position z(3)
   point camera 0,0,0
   move camera -50
   sync
return

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam off

rem make a matrix
make matrix 1,1000,1000,25,25

gosub _init:

do
   rem split the view
   gosub _view_1

   gosub _view_2

   gosub _view_3

   rem this sync may not be necessary
   `sync
loop

_init:
   make object cube 1,25
   offset limb 1,0,25,0,0
   make mesh from object 1,1
   delete object 1
   make object 1,1,0
   position object 1,0,13,0
   make object 2,1,0
   position object 2,500,13,500
   make object 3,1,0
   position object 3,1000,13,1000

   color object 1,rgb(255,0,0)
   color object 2,rgb(0,255,0)
   color object 3,rgb(0,255,255)

   delete mesh 1
return

_view_1:
   set camera view 0,0,(screen width()/2)-5,screen height()/2
   turn object left 1,5
   position camera object position x(1),object position y(1),object position z(1)
   point camera 1000,0,1000
   move camera -50
   sync
return

_view_2:
   set camera view screen width()/2,0,screen width()-1,screen height()/2
   turn object right 2,10
   position camera object position x(2),object position y(2),object position z(2)
   point camera 1000,0,1000
   move camera -50
   sync
return

_view_3:
   set camera view screen width()/4,(screen height()/2)+5,(screen width()/4)*3,screen height()
   roll object left 3,2
   position camera object position x(3),object position y(3),object position z(3)
   point camera 0,0,0
   move camera -50
   sync
return

Anyway, this all works fine in darkbasic, but once you make an exe out of it, the screen blinks and flashes like mad!

How can I stop this?

Thanks, TheComet

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 15th Jul 2008 00:53

Link

The problem has to do with the call to SYNC. It redraws the screen every time it's encountered - so each camera frame is drawn then erased and you can see it. When a DB script is made into an exe, in fullscreen mode (i'm making some assumptions here) the exe's TOP sync rate seems to be limited by a max of 2x the monitors refresh rate. In my case, it's 2 x 85hz. However, when run in windowed mode, the SYNC controls the redraw of the db app independently of the monitor refresh. Make exes out of the following examples and observe the FPS:

+ Code Snippet

`set window on
sync on
sync rate 0

do
   cls
   print str$(screen fps())

   sync
loop

+ Code Snippet

set window on
sync on
sync rate 0

do
   cls
   print str$(screen fps())

   sync
loop

In the 1.20 example you posted, try putting SET WINDOW ON at the top of the program. Then try increasing the SYNC RATE. In both cases, the three windows with the rotating cubes looks smooth on my machine.

Enjoy your day.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 19th Jul 2008 18:07

Link

That works! Thanks Latch

Isn`t there a way to fix this to work in fullscreen mode?

Your signature has been erased by a mod - Please reduce it to 600x120 maximum size

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 20th Jul 2008 03:40 Edited at: 20th Jul 2008 03:42

Link

I don't really know. I've always noticed fullscreen exes do not run as fast as windowed mode exes.

For some reason, windowed mode exes run much closer to the speed that the script runs in the DBC editor than fullscreen exes. You can fake a fullscreen app in windowed mode by getting the desktop dimensions and bit depth and use SET DISPLAY MODE with those values and using the command SET WINDOW LAYOUT 0,0,0 to remove the titlebar . You can get the desktop dimensions using the win32 api. You can also grab it out of regedit by accessing the key:

HKEY_CURRENT_USERDisplaySettings

There are two values : BitsPerPixel and Resolution

Lookup command line options for regedit. I think it's regedit /e to export a key to a file. You could call that using EXECUTE FILE from DBC. But look up the syntax, I'm not positive of it.

Using the win32 api, there's a function called GetSystemMetrics.

+ Code Snippet

set window on
user32=1
load dll "user32.dll",user32

set_display_size_to_desktop(user32)

set window layout 0,0,0

Print "HELLO WORLD"

wait key
end
function set_display_size_to_desktop(user32)
   wd=call dll(user32,"GetSystemMetrics",0)
   ht=call dll(user32,"GetSystemMetrics",1)
   wait 0
   set display mode wd,ht,32
   maximize window
endfunction

Enjoy your day.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 20th Jul 2008 10:56

Link

Good suggestion, my desktop is exactly 1024*768, but making a game with a resolution of those dimensions will slow down the game more than if you have it in fullscreen mode...

Anyway, I`ll try that method out, thanks Latch

TheComet

Your signature has been erased by a mod - Please reduce it to 600x120 maximum size

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Screen splitting question - darkbasic works, exe doesn`t!