Code Snippets->Multiple camera setup
O
OSX Using Happy Dude Joined: 21st Aug 2003
Location: At home
Posted: 20th Oct 2003 21:02
Test program:
+ Code Snippet
GLOBAL dim playerCamera(MAXPLAYERS) as _PLAYERCAMERA
global screenInfo as _SCREENINFO

resetAllCameras()
getScreenSize()
createViewPort(1,ONEPLAYER_HALFSCREEN)
make object cube 1,500.0
position object 1,0.0,0.0,0.0
position camera playerCamera(PLAYER1).camNum,-100.0,-100,-1000.0
`position camera playerCamera(PLAYER2).camNum,-100.0,-100,-1000.0
`position camera playerCamera(PLAYER3).camNum,-100.0,-100,-1000.0
`position camera playerCamera(PLAYER4).camNum,-100.0,-100,-1000.0
a#=0.0
do
   rotate object 1,a#,0.0,0.0
   inc a#,2.0
   sync
loop


Main Functions:
+ Code Snippet
Rem *** Include File: C:\Program Files\Dark Basic Software\Dark Basic Professional\Routines\MultiCamera.dba ***
Rem Created: 19/10/2003 13:43:16

Rem Included in Project: C:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\TestMultiCamera\TestMultiCamera.dbpro
type _SCREENINFO
   screenWidth as DWORD
   screenHeight as DWORD
   halfX as DWORD
   halfY as DWORD
   thirdX as DWORD
   thirdY as DWORD
endtype

type _PLAYERCAMERA
   camNum as DWORD
   viewX as DWORD
   viewY as DWORD
   viewDX as DWORD
   viewDY as DWORD
endtype

#constant MAXPLAYERS    4
#constant PLAYER1CAMERA 1
#constant PLAYER2CAMERA 2
#constant PLAYER3CAMERA 3
#constant PLAYER4CAMERA 4

#constant PLAYER1       1
#constant PLAYER2       2
#constant PLAYER3       3
#constant PLAYER4       4

#constant NOCAMERA      0

#constant ONEPLAYER_FULLSCREEN   1<<0
#constant ONEPLAYER_HALFSCREEN   1<<1
#constant ONEPLAYER_169RATIO     1<<2
#constant TWOPLAYER_HORZSPLIT    1<<3
#constant TWOPLAYER_VERTSPLIT    1<<4
#constant THREEPLAYER_HORZSPLIT  1<<5
#constant THREEPLAYER_VERTSPLIT  1<<6
#constant THREEPLAYER_GROUP      1<<7

function getScreenSize
   screenInfo.screenWidth=screen width()
   screenInfo.screenHeight=screen height()
   screenInfo.halfX=screenInfo.screenWidth>>1
   screenInfo.halfY=screenInfo.screenHeight>>1
   screenInfo.thirdX=screenInfo.screenWidth/3
   screenInfo.thirdY=screenInfo.screenHeight/3
endfunction

function resetAllCameras
local l as DWORD

   for l=1 to MAXPLAYERS:playerCamera(l).camNum=NOCAMERA:next l
endfunction

function clearAllCameras
local l as DWORD

   for l=1 to MAXPLAYERS
      if playerCamera(l).camNum<>NOCAMERA
         delete camera playerCamera(l).camNum
         playerCamera(l).camNum=NOCAMERA
      endif
   next l
endfunction

function createViewPort(numPlayers as DWORD,flags as DWORD)
local l as DWORD

   playerCamera(PLAYER1).camNum=PLAYER1CAMERA
   if numPlayers>=2 then playerCamera(PLAYER2).camNum=PLAYER2CAMERA
   if numPlayers>=3 then playerCamera(PLAYER3).camNum=PLAYER3CAMERA
   if numPlayers=4 then playerCamera(PLAYER4).camNum=PLAYER4CAMERA

   select numPlayers
      case  1  :  REM One player
                  if flags && ONEPLAYER_FULLSCREEN
                     playerCamera(PLAYER1).viewX=0
                     playerCamera(PLAYER1).viewY=0
                     playerCamera(PLAYER1).viewDX=screenInfo.screenWidth
                     playerCamera(PLAYER1).viewDY=screenInfo.screenHeight
                  else
                     if flags && ONEPLAYER_HALFSCREEN
                        playerCamera(PLAYER1).viewX=screenInfo.halfX>>1
                        playerCamera(PLAYER1).viewY=screenInfo.halfY>>1
                        playerCamera(PLAYER1).viewDX=playerCamera(PLAYER1).viewX+screenInfo.halfX
                        playerCamera(PLAYER1).viewDY=playerCamera(PLAYER1).viewY+screenInfo.halfY
                     else
                        playerCamera(PLAYER1).viewX=0
                        playerCamera(PLAYER1).viewY=screenInfo.halfY>>1
                        playerCamera(PLAYER1).viewDX=screenInfo.screenWidth
                        playerCamera(PLAYER1).viewDY=playerCamera(PLAYER1).viewY+screenInfo.halfY
                     endif
                  endif
                  endcase
      case  2  :  REM Two players
                  if flags && TWOPLAYER_HORZSPLIT
                     playerCamera(PLAYER1).viewX=0
                     playerCamera(PLAYER1).viewY=0
                     playerCamera(PLAYER1).viewDX=screenInfo.halfX-1
                     playerCamera(PLAYER1).viewDY=screenInfo.screenHeight

                     playerCamera(PLAYER2).viewX=screenInfo.halfX+1
                     playerCamera(PLAYER2).viewY=0
                     playerCamera(PLAYER2).viewDX=screenInfo.screenWidth
                     playerCamera(PLAYER2).viewDY=screenInfo.screenHeight
                  else
                     if flags && TWOPLAYER_VERTSPLIT
                        playerCamera(PLAYER1).viewX=0
                        playerCamera(PLAYER1).viewY=0
                        playerCamera(PLAYER1).viewDX=screenInfo.screenWidth
                        playerCamera(PLAYER1).viewDY=screenInfo.halfY-1

                        playerCamera(PLAYER2).viewX=0
                        playerCamera(PLAYER2).viewY=screenInfo.halfY+1
                        playerCamera(PLAYER2).viewDX=screenInfo.screenWidth
                        playerCamera(PLAYER2).viewDY=screenInfo.screenHeight
                     endif
                  endif
                  endcase
      case  3  :  REM Three players
                  if flags && THREEPLAYER_HORZSPLIT
                     playerCamera(PLAYER1).viewX=0
                     playerCamera(PLAYER1).viewY=0
                     playerCamera(PLAYER1).viewDX=screenInfo.thirdX
                     playerCamera(PLAYER1).viewDY=screenInfo.screenHeight

                     playerCamera(PLAYER2).viewX=screenInfo.thirdX+1
                     playerCamera(PLAYER2).viewY=0
                     playerCamera(PLAYER2).viewDX=(screenInfo.thirdX*2)-1
                     playerCamera(PLAYER2).viewDY=screenInfo.screenHeight

                     playerCamera(PLAYER3).viewX=(screenInfo.thirdX*2)+1
                     playerCamera(PLAYER3).viewY=0
                     playerCamera(PLAYER3).viewDX=screenInfo.screenWidth
                     playerCamera(PLAYER3).viewDY=screeninfo.screenHeight
                  else
                     if flags && THREEPLAYER_VERTSPLIT
                        playerCamera(PLAYER1).viewX=0
                        playerCamera(PLAYER1).viewY=0
                        playerCamera(PLAYER1).viewDX=screenInfo.screenWidth
                        playerCamera(PLAYER1).viewDY=screenInfo.thirdY-1

                        playerCamera(PLAYER2).viewX=0
                        playerCamera(PLAYER2).viewY=screenInfo.thirdY+1
                        playerCamera(PLAYER2).viewDX=screenInfo.screenWidth
                        playerCamera(PLAYER2).viewDY=(screenInfo.thirdY*2)-1

                        playerCamera(PLAYER3).viewX=0
                        playerCamera(PLAYER3).viewY=(screenInfo.thirdY*2)+1
                        playerCamera(PLAYER3).viewDX=screenInfo.screenWidth
                        playerCamera(PLAYER3).viewDY=screeninfo.screenHeight
                     else
                        if flags && THREEPLAYER_GROUP
                           playerCamera(PLAYER1).viewX=0
                           playerCamera(PLAYER1).viewY=0
                           playerCamera(PLAYER1).viewDX=screenInfo.halfX-1
                           playerCamera(PLAYER1).viewDY=screenInfo.halfY-1

                           playerCamera(PLAYER2).viewX=screenInfo.halfX+1
                           playerCamera(PLAYER2).viewY=0
                           playerCamera(PLAYER2).viewDX=screenInfo.screenWidth
                           playerCamera(PLAYER2).viewDY=screenInfo.halfY-1

                           playerCamera(PLAYER3).viewX=0
                           playerCamera(PLAYER3).viewY=screenInfo.halfY+1
                           playerCamera(PLAYER3).viewDX=screenInfo.screenWidth
                           playerCamera(PLAYER3).viewDY=screeninfo.screenHeight
                        endif
                     endif
                  endif
                  endcase
      case  4  :  REM 4 players
                  playerCamera(PLAYER1).viewX=0
                  playerCamera(PLAYER1).viewY=0
                  playerCamera(PLAYER1).viewDX=screenInfo.halfX-1
                  playerCamera(PLAYER1).viewDY=screenInfo.halfY-1

                  playerCamera(PLAYER2).viewX=screenInfo.halfX+1
                  playerCamera(PLAYER2).viewY=0
                  playerCamera(PLAYER2).viewDX=screenInfo.screenWidth
                  playerCamera(PLAYER2).viewDY=screenInfo.halfY-1

                  playerCamera(PLAYER3).viewX=0
                  playerCamera(PLAYER3).viewY=screenInfo.halfY+1
                  playerCamera(PLAYER3).viewDX=screenInfo.halfX-1
                  playerCamera(PLAYER3).viewDY=screenInfo.screenHeight

                  playerCamera(PLAYER4).viewX=screenInfo.halfX+1
                  playerCamera(PLAYER4).viewY=screenInfo.halfY+1
                  playerCamera(PLAYER4).viewDX=screenInfo.screenWidth
                  playerCamera(PLAYER4).viewDY=screenInfo.screenHeight
                  endcase
   endselect

   for l=PLAYER1 to PLAYER1+(numPlayers-1)
      if playerCamera(l).camNum<>0
         make camera playerCamera(l).camNum
         set camera view playerCamera(l).camNum,_
                        playerCamera(l).viewX,playerCamera(l).viewY,_
                        playerCamera(l).viewDX,playerCamera(l).viewDY
      endif
   next l
endfunction


The main createViewPort function is designed to create cameras & viewports for up to 4 cameras, with different styles for up to 3 people :

ONEPLAYER_FULLSCREEN - Creates a full width viewport for one player
ONEPLAYER_HALFSCREEN - Creates a half width and height viewport for one player, centered to the width of the screen.
ONEPLAYER_169RATIO - Creates a full width, but half height viewport for one player, centred to the screen. Emulates the 16:9 TV format.

TWOPLAYER_HORZSPLIT - Creates a two player horizontally split screen
TWOPLAYER_VERTSPLIT - Creates a two player vertically split screen

THREEPLAYER_HORZSPLIT - Creates a three player horizontally split screen
THREEPLAYER_VERTSPLIT - Creates a three player vertically split screen
THREEPLAYER_GROUP - Creates two sections : The top half is split in two horizontally, whilst the bottom half isn't
O
OSX Using Happy Dude Joined: 21st Aug 2003
Location: At home
Posted: 20th Oct 2003 22:27
Do make sure that camera 0 points to a blank image otherwise you have also have that in the background.