Sky issue - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|584\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Sky issue
Tue, 22 Apr 2008, 11:51
DrOnuki	The black hole! I don't want that there! How can I fix it? Thanks! -=-=- zzzzzzzzzzzzzzz
Tue, 22 Apr 2008, 12:01
Hotshot	if u using BLITZ 3D then look for camerarange commands as that will fixed it...I am sure.
Tue, 22 Apr 2008, 12:16
Afr0	Yeah, either that, or try to change the texture... make it larger or something, but back up the original texture before doing any changes. -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Tue, 22 Apr 2008, 12:17
DrOnuki	Cool, thanks! I added "CameraRange camera,15,5000" and now it's fine! Thanks! -=-=- zzzzzzzzzzzzzzz
Tue, 22 Apr 2008, 12:19
GoliX	Or you could make the sky-sphere smaller, and use EntityOrder to have it drawn before everything else, then keep positioning it at the players co-ordinates. Thats probably the most realistic way as then you can't get closer and closer to the 'sky'. \|EDIT\| Some code Draw a map at the start then press 'space'. Notice the sky stays still as you move along ; Controls: move mouse to look around. WSAD to move player. Type vertex Field vert Field corner Field triangle Field x#,y#,z# Field surface End Type SeedRnd MilliSecs() Graphics 512,512,0,2 Dim Aworld(32,32) SetBuffer BackBuffer() While mapdone=0 For x=0 To 32 For y=0 To 32 If Aworld(x,y)=1 Then Color(255,0,0) Rect(x16,y16,16,16,1) Else Color(255,255,255) Rect(x16,y16,16,16,1) EndIf If MouseDown(1) Then Aworld(Floor(MouseX()/16),Floor(MouseY()/16))=1 Next Next Color(0,0,0) Rect(MouseX()-8,MouseY()-8,16,16,1) Flip If KeyHit(57) Then mapdone=1 Wend Graphics3D 640,480,0,2 AmbientLight 100,100,200 light=CreateLight(2) LightColor(light,255,255,100) sun=CreateSphere(8) EntityColor(sun,255,255,0) EntityFX(sun,1) ScaleEntity(sun,100,100,100) LightRange(light,10000) sun2=CreateSphere(8,sun) EntityColor(sun2,255,255,255) EntityFX(sun2,1) EntityAlpha(sun2,0.4) ScaleEntity(sun2,1.6,1.6,1.6) sun3=CreateSphere(8,sun) EntityColor(sun3,150,150,255) EntityFX(sun3,1) EntityAlpha(sun3,0.2) ScaleEntity(sun3,2.2,2.2,2.2) PositionEntity(sun,4000,4000,-200) PositionEntity(light,EntityX(sun,1),EntityY(sun,1),EntityZ(sun,1),1) ;PositionEntity(light,EntityX(sun),EntityY(sun),EntityZ(sun)) EntityParent(light,sun) walltex = CreateTexture(256,256,8) SetBuffer TextureBuffer(walltex) For x=0 To 256 For y=0 To 256 Color Rnd(0,30),Rnd(100,160),Rnd(0,30) Rect x,y,1,1 Next Next floortex = CreateTexture(256,256,8) SetBuffer TextureBuffer(floortex) For x=0 To 256 For y=0 To 256 Color Rnd(100,130),Rnd(100,130),Rnd(100,130) Rect x,y,1,1 Next Next skytex = CreateTexture(256,256,8) SetBuffer TextureBuffer(skytex) For x=0 To 256 For y=0 To 256 Color Rnd(80,100),Rnd(80,100),Rnd(255,255) Rect x,y,1,1 Next Next SetBuffer BackBuffer() Global triangles Global s Global vert1,vert2,vert3 Global nocheck ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; For x=1 To 31 For y=1 To 31 mapmesh=CreateMesh() skybrush=CreateBrush() floorbrush=CreateBrush() wallbrush=CreateBrush() BrushTexture(skybrush,skytex) BrushTexture(floorbrush,floortex) BrushTexture(wallbrush,walltex) BrushFX(skybrush,1) BrushFX(floorbrush,2) BrushFX(wallbrush,2) BrushShininess(floorbrush,0.5) BrushShininess(wallbrush,0.2) mapsurf=CreateSurface(mapmesh,wallbrush) mapfloorsurf=CreateSurface(mapmesh,floorbrush) mapskysurf=CreateSurface(mapmesh,skybrush) above=Aworld(x,y-1) below=Aworld(x,y+1) leftside=Aworld(x-1,y) rightside=Aworld(x+1,y) size#=0.5 triangle=triangle+1 If Aworld(x,y) Then If leftside=0 Then v1.vertex=CreateVertex(mapsurf,x-size,y+size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x-size,y-size,-size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x-size,y+size,-size,1,1,triangle,3) t1=AddTriangle(mapsurf,v1\vert,v2\vert,v3\vert) v1.vertex=CreateVertex(mapsurf,x-size,y+size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x-size,y-size,size,1,1,triangle,2) v3.vertex=CreateVertex(mapsurf,x-size,y-size,-size,0,1,triangle,3) t1=AddTriangle(mapsurf,v1\vert,v2\vert,v3\vert) triangles=triangles+2 EndIf If rightside=0 Then v1.vertex=CreateVertex(mapsurf,x+size,y+size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x+size,y-size,-size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x+size,y+size,-size,1,1,triangle,3) t1=AddTriangle(mapsurf,v3\vert,v2\vert,v1\vert) v1.vertex=CreateVertex(mapsurf,x+size,y+size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x+size,y-size,size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x+size,y-size,-size,0,1,triangle,3) t1=AddTriangle(mapsurf,v3\vert,v2\vert,v1\vert) triangles=triangles+2 EndIf If above=0 Then v1.vertex=CreateVertex(mapsurf,x-size,y-size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x+size,y-size,-size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x-size,y-size,-size,1,1,triangle,3) t1=AddTriangle(mapsurf,v1\vert,v2\vert,v3\vert) v1.vertex=CreateVertex(mapsurf,x-size,y-size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x+size,y-size,size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x+size,y-size,-size,0,1,triangle,3) t1=AddTriangle(mapsurf,v1\vert,v2\vert,v3\vert) triangles=triangles+2 EndIf If below=0 Then v1.vertex=CreateVertex(mapsurf,x-size,y+size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x+size,y+size,-size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x-size,y+size,-size,1,1,triangle,3) t1=AddTriangle(mapsurf,v3\vert,v2\vert,v1\vert) v1.vertex=CreateVertex(mapsurf,x-size,y+size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapsurf,x+size,y+size,size,1,0,triangle,2) v3.vertex=CreateVertex(mapsurf,x+size,y+size,-size,0,1,triangle,3) t1=AddTriangle(mapsurf,v3\vert,v2\vert,v1\vert) triangles=triangles+2 EndIf v1.vertex=CreateVertex(mapfloorsurf,x-size,y-size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapfloorsurf,x+size,y-size,size,1,0,triangle,2) v3.vertex=CreateVertex(mapfloorsurf,x+size,y+size,size,1,1,triangle,3) t1=AddTriangle(mapfloorsurf,v3\vert,v2\vert,v1\vert) If rightside=0 Then VertexColor(mapfloorsurf,v1\vert,92,92,128) VertexColor(mapfloorsurf,v2\vert,92,92,128) VertexColor(mapfloorsurf,v3\vert,92,92,128) EndIf v1.vertex=CreateVertex(mapfloorsurf,x-size,y-size,size,0,0,triangle,1) v2.vertex=CreateVertex(mapfloorsurf,x+size,y+size,size,1,0,triangle,2) v3.vertex=CreateVertex(mapfloorsurf,x-size,y+size,size,0,1,triangle,3) triangles=triangles+2 t1=AddTriangle(mapfloorsurf,v3\vert,v2\vert,v1\vert) If rightside=0 Then VertexColor(mapfloorsurf,v1\vert,92,92,128) VertexColor(mapfloorsurf,v2\vert,92,92,128) VertexColor(mapfloorsurf,v3\vert,92,92,128) EndIf ;v1=AddVertex(mapskysurf,x-size,y-size,-size,0,0) ;v2=AddVertex(mapskysurf,x+size,y-size,-size,1,0) ;v3=AddVertex(mapskysurf,x+size,y+size,-size,1,1) ;t1=AddTriangle(mapskysurf,v1,v2,v3) ;v1=AddVertex(mapskysurf,x-size,y-size,-size,0,0) ;v2=AddVertex(mapskysurf,x+size,y+size,-size,1,0) ;v3=AddVertex(mapskysurf,x-size,y+size,-size,0,1) ;t1=AddTriangle(mapskysurf,v1,v2,v3) EndIf PositionEntity(mapmesh,-160,0,-160) TurnEntity(mapmesh,90,0,0) ScaleEntity(mapmesh,10,10,10) a=CreateCube() PointEntity(light,a) FreeEntity(a) UpdateNormals(mapmesh) ;LightMesh(mapmesh,255,255,100,10000,10,40,20) Next Next ;For v.vertex=Each vertex ; For vv.vertex=Each vertex ; If vv<>v ; If v\x=vv\x Then ; If v\y=vv\y Then ; If v\z=vv\z Then ; v\vert=vv\vert ; EndIf ; EndIf ; EndIf ; EndIf ; Next ;Next ;For triangle= 0 To 1;triangles ; For v.vertex=Each vertex ; If v\triangle=triangle Then ; s=v\surface ; If v\corner=1 Then vert1=v\vert ; If v\corner=2 Then vert2=v\vert ; If v\corner=3 Then vert3=v\vert ; EndIf ; Next ; AddTriangle(s,vert1,vert2,vert3) ;Next ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; player = CreatePivot() playerfeet = CreatePivot(player) ; to detect collisions with the ground (not used yet) playerxspeed# = 0 playeryspeed# = 0 playerzspeed# = 0 playermaxrunspeed = 1 PositionEntity playerfeet, 0,-1,0,False PositionEntity player, 0,0,0,True camera = CreateCamera(player) PositionEntity camera, 0,0,0,False CameraRange(camera,0.01,12000) skybox=CreateCube() FlipMesh(skybox) EntityTexture(skybox,skytex) EntityFX(skybox,1) EntityOrder(skybox,1) MoveEntity(player,0,1,0) MoveMouse GraphicsWidth()/2, GraphicsHeight()/2 Repeat If KeyDown(17) And playerzspeed < playermaxrunspeed Then playerzspeed = playerzspeed + 0.0025 ElseIf playerzspeed > 0 Then playerzspeed = playerzspeed - 0.005 If playerzspeed < 0.05 And playerzspeed > -0.05 Then playerzspeed = 0 EndIf If KeyDown(31) And playerzspeed > -playermaxrunspeed Then playerzspeed = playerzspeed - 0.0025 ElseIf playerzspeed < 0 Then playerzspeed = playerzspeed + 0.005 If playerzspeed < 0.05 And playerzspeed > -0.05 Then playerzspeed = 0 EndIf If KeyDown(32) And playerxspeed < playermaxrunspeed Then playerxspeed = playerxspeed + 0.0025 ElseIf playerxspeed > 0 Then playerxspeed = playerxspeed - 0.005 If playerxspeed < 0.05 And playerxspeed > -0.05 Then playerxspeed = 0 EndIf If KeyDown(30) And playerxspeed > -playermaxrunspeed Then playerxspeed = playerxspeed - 0.0025 ElseIf playerxspeed < 0 Then playerxspeed = playerxspeed + 0.005 If playerxspeed < 0.05 And playerxspeed > -0.05 Then playerxspeed = 0 EndIf MoveEntity player, playerxspeed, playeryspeed, playerzspeed diffx = MouseX() -(GraphicsWidth()/2) diffy = MouseY() -(GraphicsHeight()/2) TurnEntity player, 0, -diffx/2.0, 0 If diffy > 0 And EntityPitch(camera)<80 TurnEntity camera, diffy,0,0 Else If diffy < 0 And EntityPitch(camera)>-80 TurnEntity camera, diffy,0,0 EndIf MoveMouse GraphicsWidth()/2, GraphicsHeight()/2 PositionEntity(skybox,EntityX(player,1),EntityY(player,1),EntityZ(player,1),1) UpdateWorld() RenderWorld() Flip Until KeyDown(1) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Function CreateVertex.vertex(surf%,vx#,vy#,vz#,vu#,vv#,trianglenum,cornernum) v.vertex=New vertex v\vert=AddVertex(surf,vx,vy,vz,vu,vv) v\triangle=trianglenum v\corner=cornernum v\surface=surf v\x=vx v\y=vy v\z=vz Return v End Function --v
Tue, 22 Apr 2008, 12:40
DrOnuki	Thanks very much. I'll stick with the camera range, because it's more simple! Thanks very much everyone -=-=- zzzzzzzzzzzzzzz
Tue, 22 Apr 2008, 12:59
GoliX	Hehe, maybe I put you off with all that excess code . The key commands were: EntityOrder(skybox,1) and PositionEntity(skybox,EntityX(player,1),EntityY(player,1),EntityZ(player,1),1)
Tue, 22 Apr 2008, 13:18
DrOnuki	Well, that's more simple! And works as well! Thanks! -=-=- zzzzzzzzzzzzzzz
Wed, 23 Apr 2008, 01:27
JL235	I'm pretty certain having a rediculously large camera range is a bad idea as it might cause problems in the future. Another alternative, change the background colour to white and add fog so that instead of being a black hole it just fades off to white.