kill camera

Blitz3D Forums/Blitz3D Programming/kill camera

Rook Zimbabwe

(Posted 2005) [#1]

I created a camera earlier in my game and then created one later... does this use more vid or system memory? Two cameras instead of one???

Can I kill the other camera since I don't really need it?

RZ

GfK	(Posted 2005) [#2]

Erm... if you've got two active cameras you're rendering everything twice?

Delete one.

Rook Zimbabwe

(Posted 2005) [#3]

thank yew... I thought as much!!!

slenkar

(Posted 2005) [#4]

or just 'hide' one

Snarkbait

(Posted 2005) [#5]

You can toggle between two cameras like this:

;assuming bfore main loop:

camera1 = CreateCamera()

camera2 = CreateCamera()
CameraProjMode camera2,0 ;turn off camera 2


If KeyHit(57)
	CameraProjMode camera1,camtoggle
	camtoggle = 1 - camtoggle
	CameraProjMode camera2,camtoggle
EndIf

Rook Zimbabwe

(Posted 2005) [#6]

deleteentity or how about I just create the second camera with the first camera's variable name... that would do it yes???

RZ

Snarkbait

(Posted 2005) [#7]

I don't get it... if you don't need 2 cameras, don't create 2 in the first place?

Beaker

(Posted 2005) [#8]

If you re-use the variable name you won't free the old camera and it will be memory lost forever. Amen.

Free it before creating a new one.

Rook Zimbabwe

(Posted 2005) [#9]

yes freeentity

Damien Sturdy

(Posted 2005) [#10]

This Isn't BlitzMax, there is no Garbage collector, so re-using a variable will not clear an object related to it.

(hell, I dont even know if max does that now!)

_PJ_	(Posted 2005) [#11]

create the second camera with the first camera's variable name... that would do it yes???

No, the variable numerical value is like a memory address, so re-assigning the variable would just point to another memory address. The memory would still be used up with legacy data sat there taking up space and doing nothing.

Rook Zimbabwe

(Posted 2005) [#12]

OK but... I use clearworld() after that intro screen... AND during the intro screen there are only two tris created (the sprite I .PNG to fade in to the intro...) and if I clearworld() and don't create the camera a second time I see nothing...

; ###########################################   THIS CODE IS NOT INDENTED AND IS VERY HARD TO READ
; 												VERY MESSY. 
Graphics3D 640,480,16,0 
SetBuffer BackBuffer()

light=CreateLight(1)
AmbientLight 60, 60, 50

aimer=CreateCamera() ;				CREATE INITIAL CAMERA
PositionEntity aimer,20,2,20

HidePointer

Global set = 0
h=CreatePivot()
PositionEntity h,20,2,40
Global power=1
Global gun_timer=MilliSecs() ; timer to track the difference in millisecs
Global gun_time=450 ; 	time in milliseconds that the gun will fire 
;						lower numbers make the gun spit bullets like a firehose... try 250
Global ammo
Global score
; ################################################  CHANGED THIS FOR MORE FREE FIRE
Type bullet ; 			CREATE a type called bullet
	Field entity ;		gives us a bulet name
	Field speed# ; 		How FAST it will go
	Field range ; 		How long to keep it on the screen
	Field pivot ; 		An AID to AIMING
End Type 
;
;						We don't actually fill this TYPE in yet since we are going to create
;						bullets "on the fly" so to speak (as we need them.) 
;						We could ALSO do the same thing for our targets so we could reposition 
;						them later and make this a real (simple) game.
;
While Not KeyHit(28) ; ENTER BUTTON
Print "hi Mom!"
Wend
FlushKeys

ClearWorld() ; ############################################ REM THIS OUT and the next two leave out
; 															and it won't show
;															ENTITY DOES NOT EXIST
;															
;															Rem it out and UNREM the next two lines 
;															and double render
;															
;															UNREM the next two and LEAVE clearworld()
;															UNREMed and all works good...
;															
;															NO DOUBLE CAMERA

;aimer=CreateCamera()
;PositionEntity aimer,20,2,20

aim=LoadImage("aimpoint2.png")
Global bullet=CreateSphere(32)
EntityType bullet,1
PositionEntity bullet,20,2,20
EntityColor bullet,222,255,222
ScaleEntity bullet,Rand(1,2),Rand(1,2),Rand(1,2)

plane=CreatePlane(2)
EntityColor plane,0,0,255
EntityShininess plane,62
EntityType plane,1

bottle=CreateCylinder(40)
PositionEntity bottle,20,0,50
ScaleEntity bottle,1,2,1
EntityRadius bottle, 2
EntityType bottle, 1

turn = 1 ; make the cylinder rotate

; #########################  SET COLLISIONS SO WE CAN SEE IF WE HIT
Collisions 1,2,2,1
Collisions 2,1,2,1

ammo = 20 ; number of bullets

While Not KeyDown(1)

update_bullet()
check_collide()

If MilliSecs()>gun_time+gun_timer Then ShowEntity bullet
If MilliSecs()<gun_time+gun_timer Then HideEntity bullet

; ########################### TO KEEP THE BOTTLE TURNING ONE DIRECTION
If turn = 1 Then
	turning = 1
		tilt = tilt - 1
			If tilt >= 370
				turn = 2
			EndIf 
EndIf 

If turn = 2 Then 
	turning = -1
		tilt = tilt - 1
			If tilt <= 350
				turn = 1
			EndIf 
EndIf  

If turn =1 = True Then TurnEntity bottle,0,0,turning

If turn =2 = True Then TurnEntity bottle,0,0,turning
; ############################# I DIDN'T WRITE THIS PART... WORKS THOUGH

mxs#=MouseXSpeed()/4 ; used to get mouse movement and thus AIM
mys#=MouseYSpeed()/4

xa#=(xa#-mxs#)Mod 360
ya#=(ya#+mys#)Mod 360

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
RotateEntity aimer,ya#,xa#,0

If KeyDown( 201 )=True Then power=power+1 ; PAGE UP power up FASTER bullets

If KeyDown( 209 )=True Then power=power-1 ; PAGE DOWN power down SLOWER bullets

If power <= 1 Then
	power = 1
EndIf
 
If power >= 12 Then 
	power = 12
EndIf 

If KeyHit(57) = True Then ; 	SPACEBAR to fire
	gun_timer=MilliSecs() 	; 	reset the bullet timer
	create_bullet(aimer)	; call function to create a bullet. Pass across the aimer entity to the function
						  	; so the bullet can come from the guns position
EndIf 

UpdateWorld()
RenderWorld()

DrawImage aim,297,227

Rect 70,15,powerful,5

Text 10,10,"Power:"
Text 10,30,"Energy: " + power
Text 10,70,"Rocks Left: " + ammo
Text 10,90,"SCORE: "+score

check_collide()

Flip
Wend 
End 
; ################################# FUNCTIONS
Function create_bullet(gun_entity) ; this creates a bullet at the aimer

If ammo = 0 Then Return ; no bullets go away!
ammo = ammo - 1

HideEntity bullet ; hide old entity

	b.bullet=New bullet ; make a new bullet entity
		temp_x=EntityX(gun_entity,True)
		temp_y=EntityY(gun_entity,True)
		temp_z=EntityZ(gun_entity,True) 
			b\entity=CopyEntity(bullet)
			b\pivot=CreatePivot()
				PositionEntity b\entity,temp_x,temp_y,temp_z
					EntityType b\entity,2
						RotateEntity b\entity,EntityPitch(gun_entity,True),EntityYaw(gun_entity,True),0
					PositionEntity b\pivot,temp_x,temp_y,temp_z
				b\range = 250  ; set bullet range so it does not clutter the screen (I used power but usually set it at 200 - 300
		b\speed = power  ; set initial bullet speed

End Function

Function update_bullet()

	For b.bullet = Each bullet ; move every bullet fired
		MoveEntity b\entity,0,0,b\speed
		If EntityDistance#(b\entity,b\pivot) > b\range Then
			FreeEntity b\entity
			FreeEntity b\pivot
			Delete b.bullet
		End If
	Next
	
End Function

Function check_collide()

For b.bullet = Each bullet
	If EntityCollided(b\entity,1) Then ;since our bottle is a 1

				HideEntity b\entity
				score = score +10
				FreeEntity b\entity
				FreeEntity b\pivot
				Delete b.bullet
	EndIf
Next
	
	; this function could be reversed to hide the bottle and place a new bottle in a new location
	; simply by a small change of code... 
End Function

See what I mean... Clearworld() has gotten rid of all entities created (including camera and quite possibly light too!

RZ

Snarkbait

(Posted 2005) [#13]

I still don't see any reason why you need to create two cameras. You can use the same camera from the intro for the rest of the program...

Rook Zimbabwe

(Posted 2005) [#14]

I tried that... artifacts... I wish there was a way to flush out graphics card memory... STILL I am recoding and trying to figure out where I didn't clean it right! :)
RZ