Sky issues

Blitz3D Forums/Blitz3D Beginners Area/Sky issues

Eren	(Posted 2014) [#1]

I made a sky in my program with this code:

Global sky = CreateSphere()
ScaleEntity sky,1000,1000,1000
FlipMesh sky

It works fine, but whenever I move the character, I see random black triangles and other shapes appearing on the sky. I don't know what's causing this but does anyone know how to fix it?

Rick Nasher

(Posted 2014) [#2]

Perhaps the camerarange is too short?
If so increase it and also move the sky entity along with the game character/camera otherwise still will get out of range.

Guy Fawkes

(Posted 2014) [#3]

Global gfxwidth = 800
Global gfxheight = 600
Global gfxdepth = 0
Global gfxmode = 2

Graphics3D(gfxwidth, gfxheight, gfxdepth, gfxmode)
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global movespeed#
Global turnspeed#

Global cam = CreateCamera()
CameraRange cam, 0.01, 10000
PositionEntity cam, 0, 1, 0

AmbientLight 255, 255, 255

Global sky = CreateSphere(64)

ScaleEntity sky, 100, 100, 100
EntityColor sky, 102, 102, 255
EntityOrder sky, 1000
FlipMesh sky

Global land = CreatePlane()
EntityColor land, 0, 64, 0

separation_left_rnd = Rnd(0, 2)
separation_middle_rnd = Rnd(0, 2)
separation_right_rnd = Rnd(0, 2)

Global eye_separation_left
Global eye_separation_middle
Global eye_separation_right

If separation_left_rnd = 0 Then eye_separation_left = CreateCube()
If separation_left_rnd = 1 Then eye_separation_left = CreateCylinder(32)
If separation_left_rnd = 2 Then eye_separation_left = CreateSphere(2)

If separation_middle_rnd = 0 Then eye_separation_middle = CreateCube()
If separation_middle_rnd = 1 Then eye_separation_middle = CreateCylinder(32)
If separation_middle_rnd = 2 Then eye_separation_middle = CreateSphere(2)

If separation_right_rnd = 0 Then eye_separation_right = CreateCube()
If separation_right_rnd = 1 Then eye_separation_right = CreateCylinder(32)
If separation_right_rnd = 2 Then eye_separation_right = CreateSphere(2)

EntityColor eye_separation_left, Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
RotateEntity eye_separation_left, Rnd(-270, 270), Rnd(-359, 359), Rnd(-270, 270)
PositionEntity eye_separation_left, -10, 2.0, 10
ScaleEntity eye_separation_left, Rnd(-2.0, 2.0), Rnd(-2.0, 2.0), Rnd(-2.0, 2.0)
EntityAlpha eye_separation_left, Rnd(0.65, 0.85)

EntityColor eye_separation_middle, Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
RotateEntity eye_separation_middle, Rnd(-270, 270), Rnd(-359, 359), Rnd(-270, 270)
PositionEntity eye_separation_middle, 0, 2.0, 10
ScaleEntity eye_separation_middle, Rnd(-2.0, 2.0), Rnd(-2.0, 2.0), Rnd(-2.0, 2.0)
EntityAlpha eye_separation_middle, Rnd(0.65, 0.85)

EntityColor eye_separation_right, Rnd(0, 255), Rnd(0, 255), Rnd(0, 255)
RotateEntity eye_separation_right, Rnd(-270, 270), Rnd(-359, 359), Rnd(-270, 270)
PositionEntity eye_separation_right, 10, 2.0, 10
ScaleEntity eye_separation_right, Rnd(-2.0, 2.0), Rnd(-2.0, 2.0), Rnd(-2.0, 2.0)
EntityAlpha eye_separation_right, Rnd(0.65, 0.85)

	While Not KeyDown(1)
	
		If KeyHit(57)
			w=1-w
		EndIf
		
		Wireframe w
	
		skyyaw# = skyyaw# - 0.01
		
		If skyyaw# < -359.0 Or skyyaw# > 359.0 Then skyyaw# = 0.0
	
		PositionEntity sky, EntityX#(cam, 1), EntityY#(cam, 1), EntityZ#(cam, 1)
		RotateEntity sky, 0, skyyaw#, 0
		
		xrot1# = 1.0*Cos(360.0)
		yrot1# = 1.0*Cos(360.0)
		zrot1# = 1.0*Cos(360.0)
		
		xrot2# = 1.0*Sin(90.0)
		yrot2# = 1.0*Sin(90.0)
		zrot2# = 1.0*Sin(90.0)
		
		xrot3# = 1.0*Tan(25.0)
		yrot3# = 1.0*Tan(25.0)
		zrot3# = 1.0*Tan(25.0)
		
		TurnEntity(eye_separation_left, xrot1#, yrot1#, zrot1#)
		TurnEntity(eye_separation_middle, xrot2#, yrot2#, zrot2#)
		TurnEntity(eye_separation_right, xrot3#, yrot3#, zrot3#)
	
		Set_Speeds()
		Move(cam)
	
		UpdateWorld
		RenderWorld
		
		Text 10, 10, "Move / Turn with Arrows / WASD"
		Text 10, 30, "-----------------"
		Text 10, 50, "X: "+EntityX#(cam, 1)
		Text 10, 70, "Y: "+EntityY#(cam, 1)
		Text 10, 90, "Z: "+EntityZ#(cam, 1)
		Text 10, 110, "-----------------"
		Text 10, 130, "Pitch: "+EntityPitch#(cam, 1)
		Text 10, 150, "Yaw: "+EntityYaw#(cam, 1)
		Text 10, 170, "Roll: "+EntityRoll#(cam, 1)
		Text 10, 190, "-----------------"
		Text 10, 210, "Press "+Q$("space")+" to turn on / off wireframe mode"
		
		Flip 0
		Delay 10
			
	Wend

End

Function Move(ent)

	;Up
	If (KeyDown(17) Or KeyDown(200)) Then MoveEntity(cam, 0, 0, movespeed#)
	
	;Down
	If (KeyDown(31) Or KeyDown(208)) Then MoveEntity(cam, 0, 0, -movespeed#)
	
	;Left
	If (KeyDown(30) Or KeyDown(203)) Then TurnEntity(cam, 0, movespeed#, 0)

	;Right
	If (KeyDown(32) Or KeyDown(205)) Then TurnEntity(cam, 0, -movespeed#, 0)

End Function

Function Set_Speeds()

	;If not shift
	If Not (KeyDown(42) Or KeyDown(54))
	
		movespeed# = 1.0
		turnspeed# = 3.0
	
	;If shift
	Else

		movespeed# = 3.0
		turnspeed# = 5.0
	
	EndIf

End Function

Function Q$(strng$)
	Return Chr$(34)+strng$+Chr$(34)
End Function

Eren	(Posted 2014) [#4]

How do I increase the camera range?

wmaass

(Posted 2014) [#5]

You can use CamerRange. Check the manual link below:

http://www.blitzbasic.com/b3ddocs/command.php?name=CameraRange&ref=3d_cat

Guy Fawkes

(Posted 2014) [#6]

You don't need a range beyond 100,000. BELIEVE me. I already went there -.- BIG mistake. What you CAN do is draw the sky at a relatively big size, then do EntityOrder sky, 10000, so it draws the sky first in front of everything else, then ScaleEntity sky, 100, 100, 100 : FlipMesh sky in order to see "inside" the "drawn 1st" sky. Then in the main loop:

BEFORE Main Loop:

cam = CreateCamera()
CameraRange cam, .01, 10000.0

In Main Loop:

PositionEntity(sky, EntityX#(camera, 1), EntityY#(camera, 1), EntityZ#(camera, 1), 1)

In order to have the sky be "infinite".

Hope that helps!

Good luck on your project!

Sincerely,

~GF