Max Headroom type thing

Blitz3D Forums/Blitz3D Beginners Area/Max Headroom type thing

SoggyP (Posted 2010) [#1]

Hello. I'm sure you can figure out what I'm trying to do here - can anyone fix it? (As you can tell, I've not done much 3d lately :) ) Graphics3D 800,600,32,2 SetBuffer BackBuffer() ;sky texture skytex=CreateTexture(768,128,256) For i = 1 To 6 SetBuffer TextureBuffer(skytex) Color Rnd(255),Rnd(255),Rnd(255) For f=0 To 127 Step 8 Line (i*128),f,(i*128)+127,f Next Next SetBuffer BackBuffer() light=CreateLight() cam=CreateCamera() cube=CreateCube() ScaleEntity cube,128,128,128 FlipMesh cube EntityTexture cube,skytex ;ScaleTexture skytex,1/6,1 ;EntityFX cube,6 p# = 0.5 p_step# = 0.01 While Not KeyDown(1) ;SetBuffer TextureBuffer(skytex) x# = 50 * Sin(p#) + 128 y# = 50 * Cos(p#) + 128 c1 = c1 - 1 If c1 < 0 Then c1 = Rand(100) xd = Rand(3)-2 End If c2 = c2 - 1 If c2 < 0 Then c2 = Rand(100) yd = Rand(3)-2 End If c3 = c3 - 1 If c3 < 0 Then c3 = Rand(100) zd = Rand(3)-2 End If TurnEntity cam,xd/2.0,yd/2.0,zd/2.0 CameraZoom cam, p# PositionEntity cube,EntityX(cam),EntityY(cam),EntityZ(cam) p# = p# + p_step# If p<0.2 Or p>0.8 Then p = p - p_step p_step = p_step * -1.0 End If RenderWorld Text 0,0,Str(p#) Flip Wend End Thanks. Goodbye.

Ross C (Posted 2010) [#2]

Sorry :) No idea what the problem is your having. Can you explain more?

puki (Posted 2010) [#3]

I think it is the black spacing on the faces - not between the lines - but between the sides that he wants to reduce.

SoggyP (Posted 2010) [#4]

Hello. Ok, to expand, what I'd like is a cube with lines on each wall, and the lines on each wall being a single colour. The lines should stretch from edge to edge. Thanks. Jes

Floyd (Posted 2010) [#5]

The cube made by CreateCube() has only one surface. All six faces are textured identically. You need a cube with six surfaces, one for each side. I'm sure there's one around here somewhere. Or you can make your own in code, or with a modeller. I know I've seen Blitz3D examples of a "photo cube" with a different picture on each side.

SoggyP (Posted 2010) [#6]

Hello. Ok, I'll try that route, then come back to pester :) Thanks. Jes

SoggyP (Posted 2010) [#7]

Hello. Finally got around to this, going to update with some more funky stuff later I hope. Graphics3D 800,600,32,2 SetBuffer BackBuffer() ;sky texture skytex=CreateTexture(128,128,3,6) For i = 0 To 5 SetBuffer TextureBuffer(skytex,i) Color Rnd(255),Rnd(255),Rnd(255) For f=0 To 127 Step 4 Line 0,f,127,f Next Next SetBuffer BackBuffer() light=CreateLight() cam=CreateCamera() cube=CreateMesh() b = CreateBrush() BrushTexture b,skytex,0 s=CreateSurface( cube,b ) AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0 AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1 AddTriangle s,0,1,2:AddTriangle s,0,2,3 FreeBrush b b = CreateBrush() BrushTexture b,skytex,1 s=CreateSurface( cube,b ) AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0 AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1 AddTriangle s,0,1,2:AddTriangle s,0,2,3 FreeBrush b b = CreateBrush() BrushTexture b,skytex,2 s=CreateSurface( cube,b ) AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0 AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1 AddTriangle s,0,1,2:AddTriangle s,0,2,3 FreeBrush b b = CreateBrush() BrushTexture b,skytex,3 s=CreateSurface( cube,b ) AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0 AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1 AddTriangle s,0,1,2:AddTriangle s,0,2,3 FreeBrush b b = CreateBrush() BrushTexture b,skytex,4 s=CreateSurface( cube,b ) AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0 AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1 AddTriangle s,0,1,2:AddTriangle s,0,2,3 FreeBrush b b = CreateBrush() BrushTexture b,skytex,5 s=CreateSurface( cube,b ) AddVertex s,-1,-1,-1,1,0:AddVertex s,+1,-1,-1,1,1 AddVertex s,+1,-1,+1,0,1:AddVertex s,-1,-1,+1,0,0 AddTriangle s,0,1,2:AddTriangle s,0,2,3 ScaleMesh cube,100,100,100 FlipMesh cube EntityFX cube,1 p# = 0.5 p_step# = 0.001 While Not KeyDown(1) x# = 50 * Sin(p#) + 128 y# = 50 * Cos(p#) + 128 c1 = c1 - 1 If c1 < 0 Then c1 = Rand(100) xd = Rand(3)-2 End If c2 = c2 - 1 If c2 < 0 Then c2 = Rand(100) yd = Rand(3)-2 End If c3 = c3 - 1 If c3 < 0 Then c3 = Rand(100) zd = Rand(3)-2 End If TurnEntity cam,xd/4.0,yd/4.0,zd/4.0 CameraZoom cam, p# PositionEntity cube,EntityX(cam),EntityY(cam),EntityZ(cam) p# = p# + p_step# If p<0.2 Or p>0.8 Then p = p - p_step p_step = p_step * -1.0 End If RenderWorld Flip Wend End Thanks for the advice. Goodbye.