Sorry your browser is not supported!

Sync On
Sync Rate 60

Make Matrix 1,100,100,10,10

Autocam Off
For a = 1 to 36
	Make Object Cube a,10
	Position Object a, 50+40*sin(a*10), 0, 50+40*cos(a*10)
Next a

Position Camera 0,50,10,50

Make Camera 1
Position Camera 1, 50,100,50
Point Camera 1,50,0,50
Set Camera View 1, 0,0,256,256
Set Camera Aspect 1,1

Set Current Camera 0

Do

	Text 0,0, "Red spheres are supposed to be seen by the main camera"

	For a = 1 to 36
		If object in screen(a) then Color Object a, 0xFFFF0000 else Color Object a, 0xFFFFFFFF
	Next a

	ax# = wrapvalue(ax#+MouseMoveY()*0.2)
	ay# = wrapvalue(ay#+MouseMoveX()*0.2)
	Rotate Camera ax#, ay#, 0
	Move Camera Upkey()-DownKey()

	If offsetLimb = 0
		Text 0,750, "Press space for the 'offset limb' test"
		If spaceKey()
			offsetLimb = 1
			For a = 1 to 36
				Delete Object a
				Make Object Sphere a,10
				Offset Limb a,0,50+40*sin(a*10), 0, 50+40*cos(a*10),1
			Next a		
		EndIf
	EndIf

	Sync
Loop

`
`============================================
`BlueIDE 2 V2.0.22a
`Dark Basic Professional - Version 1.071
`============================================
`
`
`Main Source File
`

SYNC ON
SYNC RATE 60

MAKE MATRIX 1,100,100,10,10

AUTOCAM OFF

FOR a = 1 TO 36
	MAKE OBJECT CUBE a,10
	POSITION OBJECT a, 50+40*SIN(a*10), 0, 50+40*COS(a*10)
NEXT a

// La fonction detecte les objets de TOUTES les cameras affichees a l'ecran, donc
// on doit s'arranger pour que la camera courante s'affiche par dessus les autres
// (la cam 0 est recouverte par la cam 1, elle meme recouverte par la cam 2, etc.)
//
current_cam=1
other_cam=0

IF CAMERA EXIST(other_cam)=0 THEN MAKE CAMERA other_cam
COLOR BACKDROP other_cam,RGB(0,128,0)
POSITION CAMERA other_cam, 50,100,50
POINT CAMERA other_cam,50,0,50
SET CAMERA VIEW other_cam, 0,0,256,256
SET CAMERA ASPECT other_cam,1
//
SET CAMERA TO IMAGE other_cam,1,256,256,0

MAKE CAMERA current_cam
COLOR BACKDROP current_cam,RGB(0,0,128)
POSITION CAMERA current_cam,50,10,50
SET CURRENT CAMERA current_cam

result$="OFF"
DO
   PASTE IMAGE 1,0,0

	TEXT 0,0, "Red spheres are supposed to be seen by the main camera"

	old_tch1=tch1
	tch1=SHIFTKEY()
	IF tch1>old_tch1
	   alternative_method=(alternative_method~~1)
	   IF alternative_method
	      result$="ON"
	   ELSE
	      result$="OFF"
	   ENDIF
	ENDIF
	
	old_tch2=tch2
	tch2=CONTROLKEY()
	IF tch2>old_tch2
	   Bounds_Flag=(Bounds_Flag~~1)
	   offsetLimb = 0
	ENDIF
	
	IF RETURNKEY() THEN POSITION CAMERA current_cam,0,20,0
	
	TEXT 260,76, "Alternative_method (Shiftkey) = "+result$
	TEXT 260,100,"Position camera 0,20,0 (Returnkey)"
	TEXT 0,460, "Bounds Flag (controlkey) = "+STR$(Bounds_Flag)
	
	IF alternative_method THEN check_object()  

	FOR a = 1 TO 36
      IF alternative_method
         IF object_in_screen(a) THEN COLOR OBJECT a, 0xFFFF0000 ELSE COLOR OBJECT a, 0xFFFFFFFF
      ELSE
         IF OBJECT IN SCREEN(a) THEN COLOR OBJECT a, 0xFFFF0000 ELSE COLOR OBJECT a, 0xFFFFFFFF
      ENDIF
      
	NEXT a

	ax# = WRAPVALUE(ax#+MOUSEMOVEY()*0.2)
	ay# = WRAPVALUE(ay#+MOUSEMOVEX()*0.2)
	ROTATE CAMERA ax#, ay#, 0
	MOVE CAMERA UPKEY()-DOWNKEY()

	IF offsetLimb = 0
		TEXT 0,440, "Press space for the 'offset limb' test"
		IF SPACEKEY()
			offsetLimb = 1
			FOR a = 1 TO 36
				DELETE OBJECT a
				MAKE OBJECT SPHERE a,10
				//
				OFFSET LIMB a,0,50+40*SIN(a*10), 0, 50+40*COS(a*10),Bounds_Flag
			NEXT a		
		ENDIF
	ENDIF

	SYNC
LOOP

END

FUNCTION check_object()
   //
   //   This method only work with primitive or .DBO object
   //
   
   IF function_check_object =0
      GLOBAL function_check_object
      GLOBAL function_MAX_OBJECT_CHECK=1024
      function_check_object=MAKE MEMORY(function_MAX_OBJECT_CHECK)
   ENDIF

   FILL MEMORY function_check_object,0,function_max_object_check
   PERFORM CHECKLIST FOR ONSCREEN OBJECTS 0
   FOR i=1 TO CHECKLIST QUANTITY()
      a=CHECKLIST VALUE A(i)
      z=function_check_object+a
      *z=(*z)||(a<>0)
   NEXT i
ENDFUNCTION

FUNCTION object_in_screen(obj)
   o=function_check_object+obj
   return_value=(*o)&&255
ENDFUNCTION return_value

sync on
sync rate 0
autocam off
for t=1 to 1000
	make object cube t,10
	position object t,rnd(500),rnd(500),rnd(500)
next t
position camera 250,250,250

sync rate 60
timeStart as float
timeElapsed as float
spd=5

do
   timeStart = timer( )

      tog#=timeElapsed / spd
      `Control Camera
         cr#=0:cf#=0
      if rightkey()=1 or KEYSTATE(32)=1 then cr#=-tog#
      if leftkey()=1 or KEYSTATE(30)=1 then cr#=tog#
      if upkey()=1 or KEYSTATE(17)=1 then cf#=tog#
      if downkey()=1 or KEYSTATE(31)=1 then cf#=-tog#
         ncr#=curvevalue(cr#,ncr#,2.5)
         ncf#=curvevalue(cf#,ncf#,2.5)
         cx#=cx#+mousemovey()*0.2
         cy#=cy#+mousemovex()*0.2
      if cx#>80 then cx#=80
      if cx#<-80  then cx#=-80
         ncx#=curveangle(cx#,ncx#,2)
         ncy#=curveangle(cy#,ncy#,2)
         move camera 0,ncf#
         rotate camera 0,wrapvalue(ncy#-90),0
         move camera ncr#
         rotate camera 0,wrapvalue(ncy#+90),0
         rotate camera 0,ncx#,ncy#,0

      if spacekey()=0
         show()
      endif

sync
   timeElapsed = timer( ) - timeStart
loop



function show()
	for t=1 to 1000
		show object t
		if object in screen(t)=0 then hide object t
	next t
endfunction

sync on : sync rate 30

for i=1 to 100
	make object sphere i,10
	position object i,rnd(100),rnd(100),rnd(100)
next i

make camera 1
set camera view 1,0,0,0,0

do
	if upkey() then move camera 10
	rotate camera camera angle x()+mousemovey(),camera angle y()+mousemovex(),0
	if camera angle x()>90 then xrotate camera 90
	if camera angle x()<-90 then xrotate camera -90
	
	if returnkey() then position camera 1,camera position x(),camera position y(),camera position z():rotate camera 1,camera angle x(),camera angle y(),camera angle z()
	
	for i=1 to 100
		if object in screen(i)
			show object i
		else
			hide object i
		endif
	next i
	
	sync
loop

sync on
sync rate 0
autocam off

make object cube 1, 10
position object 1, 0, 0, 100

point camera 0, 0, 0, 100
set camera view 0, 0, 0, screen width()/2, screen height()/2

make camera 1
point camera 1, 0, 0, -100
set camera view 1, screen width()/2, screen height()/2, screen width(), screen height()

` Current camera is 1, as that was the last camera created
` Uncomment the following line to detect the object
` set current camera 0

do
   set cursor 0, screen height()/2
   print object in screen(1)

   sync
loop

function ObjectInScreen_AllCameras(Obj as integer)
   local CC as integer
   local i as integer

   CC = current camera()

   for i = 0 to 31
      if camera exist(i)
         set current camera i
         if object in screen(i)
            set current camera CC
            exitfunction 1
         endif
      endif
   next

   set current camera CC
endfunction 0