Starwars-Like title?

Blitz3D Forums/Blitz3D Programming/Starwars-Like title?

Guy Fawkes

(Posted 2010) [#1]

How can I make a word scroller look as close to what the starwars title screen does on the original starwars? U know, w/ the slanted words, and the scrolling, and fading of the text as it nears the top of the screen? something that can basically create an invisible plane, and texture it w/ the words on the screen?

D4NM4N

(Posted 2010) [#2]

stick a plane at 75-45' to the camera and render the text to the texture first before rendering it to the screen.

see the render to texture example.

Ross C

(Posted 2010) [#3]

You could also use some black fog (Camerafogmode), if you have a plain black background, and it would give you the fading out effect. The only other way is to have a custom built mesh, with vertex alpha.

Or, i suppose you could use a fading out to black texture on top as well.

Guy Fawkes

(Posted 2010) [#4]

i dont really know how to render text onto a texture. if i knew, then i could easily build the code for the title screen

Ross C

(Posted 2010) [#5]

Well, SetBuffer() & TextureBuffer() command. Then use the text command.

SetBuffer determines what buffer your drawing (2d only) command will draw to. That's about all there is to it. Be warned the drawing straight to a texturebuffer sometimes can fail on some PC's. I've never had it happen to me though.

Guy Fawkes

(Posted 2010) [#6]

ok. i know how now. the only thing i dont get. is how do u know what size texture to create?

Guy Fawkes

(Posted 2010) [#7]

here's my code so far, how do i make it so the texture is ALWAYS positioned in the middle and top of the cube?

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480 
SetBuffer BackBuffer() 

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 

ScaleEntity cube, .0001, 10, 5

PositionEntity cube,0,0,5 

PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*2

; Create texture of size 256x256 
tex=CreateTexture(256,256) 

PositionTexture tex, MeshWidth(cube)/2, MeshHeight(cube)-TextureHeight(tex)
ScaleTexture tex, MeshWidth(cube)/2, MeshHeight(cube)/2

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

; Clear texture buffer with background white color 
ClsColor 255,255,255 
Cls 

; Draw text on texture 
font=LoadFont("arial",24) 
SetFont font 
Color 0,0,0
Text 0,0,"This texture" 
Text 0,40,"was created using" : Color 0,0,255 
Text 0,80,"CreateTexture()" : Color 0,0,0 
Text 0,120,"and drawn to using" : Color 0,0,255 
Text 0,160,"SetBuffer TextureBuffer()" 

; Texture cube with texture 
EntityTexture cube,tex 

RotateEntity cube, 0, -90, 60

; Set buffer - backbuffer 
SetBuffer BackBuffer() 

While Not KeyDown( 1 ) 

pitch#=0 
yaw#=0 
roll#=0 

If KeyDown( 208 )=True Then pitch#=-1 
If KeyDown( 200 )=True Then pitch#=1 
If KeyDown( 203 )=True Then yaw#=-1 
If KeyDown( 205 )=True Then yaw#=1 
If KeyDown( 45 )=True Then roll#=-1 
If KeyDown( 44 )=True Then roll#=1 

TurnEntity cube,pitch#,yaw#,roll# 

RenderWorld 

Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1

Flip 

Wend 

End

D4NM4N

(Posted 2010) [#8]

As i said it tells you how to do it in the render to texture exaample that comes with blitz. Once you have the buffer set you just use the text command with a font, or drawimage with a bitmap font. Then change back to the backbuffer before renderworld & flip.

Guy Fawkes

(Posted 2010) [#9]

no, i already did that. i now need to know how to make it so the texture is always POSITIONED in the middle at the top of the cube

Ross C

(Posted 2010) [#10]

Depends on how much detail you want, and how close the text will be to the screen. One thing to keep in mind, is the default mipmapping, it reduces the texture detail the further the texture gets from the camera. Anyway, you'll just need to experiment.

Ross C

(Posted 2010) [#11]

Late post there. The text command has a centre command too.

Kryzon

(Posted 2010) [#12]

I'm much more moving things in texture only (and using one or more textures for the text. All these textures with alpha channels, of course).

That way you can prepare a special mesh with Vertex Alpha on the top vertices, so that the text fades out when it's far away from the camera. You can use the B3D Pipeline for that. It's much easier because everthing is automated (the smooth alpha gradation, that is).

You would just need to keep moving the texture(s) with a negative value on the V axis and Direct3D will take care of the rest.

Ross C

(Posted 2010) [#13]

Your asking for trouble :P

Guy Fawkes

(Posted 2010) [#14]

no, not center the text in the middle of the texture. i mean center the texture in the middle of the 3d cube.

D4NM4N

(Posted 2010) [#15]

basically if you can get it working on the normal 2d screen area @ 1024x1024 first exactly how you want it (draw a temporary blue rectangle under the text as a guide). Then using a simple copyrect to the same buffer with a pixel or two offset on the grab to scroll the area upwards.

then once that works perfectly, just draw it to a 1024x1024 texture assigned to the plane using setbuffer().

You do not need to scroll the texture's UV at all.

Ross C

(Posted 2010) [#16]

Your using position texture. Don't use that. The texture should be automatically centred, and spread across the whole face of the cube.

Guy Fawkes

(Posted 2010) [#17]

even if it's flat?

Ross C

(Posted 2010) [#18]

Wait. You didn't read/understand what i said. You need to use the centre command with the texture command, and position each text line in the centre of the texture when drawing it.

D4NM4N

(Posted 2010) [#19]

yes. The texturebuffer acts exactly the same as the screen does. once the buffer is set any drawing commands (or 3d with renderworld) will be drawn to it, just as they would to the screen/backbuffer.
Positiontexture effects the textures positional UVs which is not what you want. (at all!)

As i said, get it working in a 1024^ area of the screen first (simple text scrolling upwards). then you can render it on your plane in 3 more lines of code.

PS, the size of the texture should always be power of 2 ie 512x512 or 1024x1024.

Kryzon

(Posted 2010) [#20]

Seriously, using textures is so simple you could do it with the blink of an eye. The only thing that could complicate is the fade out at the top (and\or bottom) of the plane, and that is handled automatically because of the vertex alpha.

Of course, this method will be cumbersome if you don't know how to set the vertex alpha or create alpha-channelled textures.

EDIT:

(imagine text instead of the flat white, of course. That fade out is entirely from vertex-alpha).

You know why I so strongly support this method? because you would need to only load the mesh, apply the text-textures and move them. Just that.
No real-time image rendering. Just offseting a float (you'd also spare the rasterizer of having to handle 6 triangles instead of only 2...).

Guy Fawkes

(Posted 2010) [#21]

here's what i have so far, it's now cutting off part of the words in the texture:

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480 
SetBuffer BackBuffer() 

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 

ScaleEntity cube, .0001, 10, 5

PositionEntity cube,0,0,5 

PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*2

EntityColor cube, 127,127,127

; Create texture of size 256x256 
tex=CreateTexture(256,256,1+256+512) 

;ScaleTexture tex, MeshWidth(cube)/2, MeshHeight(cube)/2

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

; Clear texture buffer with background white color 
ClsColor 255,255,255 
Cls 

; Draw text on texture 
font=LoadFont("arial",24) 
SetFont font 
Color 255,255,255
Text 0,0,"This texture", 1, 1
Text 0,40,"was created using", 1, 1 : Color 0,255,255
Text 0,80,"CreateTexture()", 1, 1 : Color 255,255,255
Text 0,120,"and drawn to using", 1, 1 : Color 0,255,255
Text 0,160,"SetBuffer TextureBuffer()", 1, 1 
Text 0,180,"SetBuffer TextureBuffer()", 1, 1 
Text 0,200,"SetBuffer TextureBuffer()", 1, 1 
Text 0,220,"SetBuffer TextureBuffer()", 1, 1 
Text 0,240,"SetBuffer TextureBuffer()", 1, 1 

; Texture cube with texture 
EntityTexture cube,tex 

RotateEntity cube, 0, -90, 60

; Set buffer - backbuffer 
SetBuffer BackBuffer() 

u_postion# = 1
v_position# = 1

While Not KeyDown( 1 ) 

;MoveEntity cube, 0, .1, 0

pitch#=0 
yaw#=0 
roll#=0 

;If KeyDown( 208 )=True Then pitch#=-1 
;If KeyDown( 200 )=True Then pitch#=1 
;If KeyDown( 203 )=True Then yaw#=-1 
;If KeyDown( 205 )=True Then yaw#=1 
;If KeyDown( 45 )=True Then roll#=-1 
;If KeyDown( 44 )=True Then roll#=1 

;If KeyDown(44) Then u# = u# + 1
;If KeyDown(45) Then v# = v# + 1

; Change uv position values depending on key pressed 
If KeyDown( 208 )=True Then u_position#=u_position#-0.001 
If KeyDown( 200 )=True Then u_position#=u_position#+0.001 
If KeyDown( 203 )=True Then v_position#=v_position#-0.001 
If KeyDown( 205 )=True Then v_position#=v_position#+0.001 

; Position texture 
PositionTexture tex,u_position#,v_position# 

TurnEntity cube,pitch#,yaw#,roll# 

RenderWorld 

Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1

Flip 

Wend 

End

Ross C

(Posted 2010) [#22]

You need to set the start X draw co-ord, for halfway across the texture. Your texture is 256 pixels/texels across, so you need to draw the text X co-ords at halfway across 256.

D4NM4N

(Posted 2010) [#23]

Why are you scaling te texture= if you use a flat cube the textureUV is already 0,0,1,1. You dont need to scale it at all.

Guy Fawkes

(Posted 2010) [#24]

works GREAT now! thanks Ross! One problem though. How can I make it so the texture is still there and viewable, but the object is invisible, and how can i fade it out as the words scroll across the top of the mesh?

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480 
SetBuffer BackBuffer() 

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 

ScaleEntity cube, .0001, 10, 5

PositionEntity cube,0,0,5 

PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*2

EntityColor cube, 127,127,127

; Create texture of size 256x256 
tex=CreateTexture(256,256,1+256+512) 

;ScaleTexture tex, MeshWidth(cube)/2, MeshHeight(cube)/2

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

; Clear texture buffer with background white color 
ClsColor 255,255,255 
Cls 

; Draw text on texture 
font=LoadFont("arial",24) 
SetFont font 
Color 255,255,255
Text 128,0,"This texture", 1, 1
Text 128,40,"was created using", 1, 1 : Color 0,255,255
Text 128,80,"CreateTexture()", 1, 1 : Color 255,255,255
Text 128,120,"and drawn to using", 1, 1 : Color 0,255,255
Text 128,160,"SetBuffer TextureBuffer()", 1, 1 
Text 128,180,"SetBuffer TextureBuffer()", 1, 1 
Text 128,200,"SetBuffer TextureBuffer()", 1, 1 
Text 128,220,"SetBuffer TextureBuffer()", 1, 1 
Text 128,240,"SetBuffer TextureBuffer()", 1, 1 

; Texture cube with texture 
EntityTexture cube,tex 

RotateEntity cube, 0, -90, 60

; Set buffer - backbuffer 
SetBuffer BackBuffer() 

u_postion# = 1
v_position# = 1

While Not KeyDown( 1 ) 

v_position#=v_position#-0.001

;MoveEntity cube, 0, .1, 0

pitch#=0 
yaw#=0 
roll#=0 

;If KeyDown( 208 )=True Then pitch#=-1 
;If KeyDown( 200 )=True Then pitch#=1 
;If KeyDown( 203 )=True Then yaw#=-1 
;If KeyDown( 205 )=True Then yaw#=1 
;If KeyDown( 45 )=True Then roll#=-1 
;If KeyDown( 44 )=True Then roll#=1 

;If KeyDown(44) Then u# = u# + 1
;If KeyDown(45) Then v# = v# + 1

; Change uv position values depending on key pressed 
If KeyDown( 208 )=True Then u_position#=u_position#-0.001 
If KeyDown( 200 )=True Then u_position#=u_position#+0.001 
If KeyDown( 203 )=True Then v_position#=v_position#-0.001 
If KeyDown( 205 )=True Then v_position#=v_position#+0.001 

; Position texture 
PositionTexture tex,u_position#,v_position# 

TurnEntity cube,pitch#,yaw#,roll# 

RenderWorld 

Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1

Flip 

Wend 

End

Guy Fawkes

(Posted 2010) [#25]

Ok. How can I make it so I can color the cube black, but still keep the letters in the texture white? i tried, and it made the entire texture invisible ><

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480,0,2 
SetBuffer BackBuffer() 

AmbientLight 255,255,255

Global theme = Load3DSound("Music/02.mp3")
LoopSound theme
PlaySound theme

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 

ScaleEntity cube, .0001, 200, 55

PositionEntity cube,0,0,5 

PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*2

;EntityColor cube, 127,127,127

; Create texture of size 256x256 
tex=CreateTexture(128,512,1+256+512)

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

; Clear texture buffer with background white color 
ClsColor 0,0,0
Cls 

; Draw text on texture 
font=LoadFont("Arial",12,True,False,False) 
SetFont font
Color 255,255,255
;Text TextureWidth(tex)/2,240,"This texture", 1, 1
;Text TextureWidth(tex)/2,220,"was created using", 1, 1 : Color 0,255,255
;Text TextureWidth(tex)/2,200,"CreateTexture()", 1, 1 : Color 0,0,0
;Text TextureWidth(tex)/2,180,"and drawn to using", 1, 1 : Color 0,255,255
;Text TextureWidth(tex)/2,160,"SetBuffer TextureBuffer()", 1, 1 
;Text TextureWidth(tex)/2,140,"SetBuffer TextureBuffer()", 1, 1 
;Text TextureWidth(tex)/2,120,"SetBuffer TextureBuffer()", 1, 1 

Text TextureWidth(tex)/2,280,"Test1", 1, 1
Text TextureWidth(tex)/2,300,"Test2", 1, 1 

; Texture cube with texture 
EntityTexture cube,tex 

RotateEntity cube, 0, -90, 45

; Set buffer - backbuffer 
SetBuffer BackBuffer() 

u_position# = 1
v_position# = 1

Global logo = LoadImage("logo.png")

	If FileType("logo.png") = 0 Then RuntimeError "logo missing!"
	
	EntityColor cube, 0,0,0

While Not KeyDown( 1 ) 

v_position#=v_position#-0.001

;MoveEntity cube, 0, .1, 0

pitch#=0 
yaw#=0 
roll#=0 

If KeyDown( 208 )=True Then pitch#=-1 
If KeyDown( 200 )=True Then pitch#=1 
If KeyDown( 203 )=True Then yaw#=-1 
If KeyDown( 205 )=True Then yaw#=1 
If KeyDown( 30 )=True Then roll#=-1
If KeyDown( 31 )=True Then roll#=1
MoveEntity cube, 0, (KeyDown(32)-KeyDown(33))*1, 0
MoveEntity cube, (KeyDown(34)-KeyDown(35))*1, 0, 0
MoveEntity cube, 0, 0, (KeyDown(36)-KeyDown(37))*1

;If KeyDown(44) Then u# = u# + 1
;If KeyDown(45) Then v# = v# + 1

; Change uv position values depending on key pressed 
If KeyDown( 44 )=True Then u_position#=u_position#-0.001 
If KeyDown( 45 )=True Then u_position#=u_position#+0.001 
If KeyDown( 46 )=True Then v_position#=v_position#-0.001 
If KeyDown( 47 )=True Then v_position#=v_position#+0.001
If u_position# > MeshWidth(cube) Then u_position# = MeshWidth(cube)
; Position texture 
PositionTexture tex,u_position#,v_position# 

TurnEntity cube,pitch#,yaw#,roll# 

PositionEntity cube, 0, 0, 100

RenderWorld 

Color 255,255,255

Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1

DrawImage logo, GraphicsWidth()/2-ImageWidth(logo)/2, GraphicsHeight()/2-ImageHeight(logo)/2

Flip 

Wend 

End

D4NM4N

(Posted 2010) [#26]

entitycolor entity,0,0,0
entityFX entity,1+8

Ross C

(Posted 2010) [#27]

I think what you want to do, is disable lighting, as D4NM4N suggests, with entityfx 1, and the entity color to 0,0,0 (BLACK), but set the entityblend mode to add.

Now, each time you cls on your texture, change the clscolor to 0,0,0 (BLACK) and your text writing color to 255,255,255 (WHITE).

The blend mode of add, should take the RGB value of each pixel in the texture, and add it to whatever is behind. So, 0,0,0 pixels will add nothing, and therefore appear invisible. 255,255,255 pixel, will add solid white to what ever is behind, so will appear bright white.

Guy Fawkes

(Posted 2010) [#28]

Entitycolor doesnt work but EntityFX works GREAT! Now the only problems are, how do I slowly fade out the text as it reaches the top of cube (or screen if u prefer) and stop it from after reaching the top of the screen, loop back to the bottom and display it again ?

Ross C

(Posted 2010) [#29]

The easiest way, probably, is to put another texture on top. This will act as a fader. I will knock up a texture when i get home. I'm glad to see you've coded this all yourself though, thus far, so well done :)

Guy Fawkes

(Posted 2010) [#30]

Hey, thanks alot, Ross! :)

Guy Fawkes

(Posted 2010) [#31]

Ok, problem. For some reason, the texture is not centered in the right place on the cube, or is not positioned in the right place on the cube, so the words are all f'ed up..

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480,0,2 
SetBuffer BackBuffer() 

AmbientLight 255,255,255

Global theme = Load3DSound("Music/02.mp3")
LoopSound theme
PlaySound theme

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 

; Create texture of size 256x256 
tex=CreateTexture(128,512,1+256+512)

ScaleEntity cube, .0001, 200, TextureHeight(tex)/2

ScaleTexture tex, .8, .8

PositionEntity cube,0,0,5 

PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*2

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

; Clear texture buffer with background white color 
;ClsColor 0,0,0
;Cls 

; Draw text on texture 
font=LoadFont("Arial",12,True,False,False) 
SetFont font
Color 255,255,255
;Text TextureWidth(tex)/2,240,"This texture", 1, 1
;Text TextureWidth(tex)/2,220,"was created using", 1, 1 : Color 0,255,255
;Text TextureWidth(tex)/2,200,"CreateTexture()", 1, 1 : Color 0,0,0
;Text TextureWidth(tex)/2,180,"and drawn to using", 1, 1 : Color 0,255,255
;Text TextureWidth(tex)/2,160,"SetBuffer TextureBuffer()", 1, 1 
;Text TextureWidth(tex)/2,140,"SetBuffer TextureBuffer()", 1, 1 
;Text TextureWidth(tex)/2,120,"SetBuffer TextureBuffer()", 1, 1 

Text TextureWidth(tex)/2,380,"Test1Test1Test1Test1Test1Test1Test1Test1", 1, 1
Text TextureWidth(tex)/2,400,"Test2Test2Test2Test2Test2Test2Test2Test2", 1, 1 

; Texture cube with texture 
EntityTexture cube,tex 

RotateEntity cube, 0, -90, 45

; Set buffer - backbuffer 
SetBuffer BackBuffer() 

u_position# = 1
v_position# = 1

Global logo = LoadImage("logo.png")

	If FileType("logo.png") = 0 Then RuntimeError "logo missing!"
	
EntityFX cube, 1+8

Global TWidth#, THeight#

While Not KeyDown( 1 ) 

v_position#=v_position#-0.001

;MoveEntity cube, 0, .1, 0

pitch#=0 
yaw#=0 
roll#=0 

If KeyDown( 208 )=True Then pitch#=-1 
If KeyDown( 200 )=True Then pitch#=1 
If KeyDown( 203 )=True Then yaw#=-1 
If KeyDown( 205 )=True Then yaw#=1 
If KeyDown( 30 )=True Then roll#=-1
If KeyDown( 31 )=True Then roll#=1
MoveEntity cube, 0, (KeyDown(32)-KeyDown(33))*1, 0
MoveEntity cube, (KeyDown(34)-KeyDown(35))*1, 0, 0
MoveEntity cube, 0, 0, (KeyDown(36)-KeyDown(37))*1

;If KeyDown(44) Then u# = u# + 1
;If KeyDown(45) Then v# = v# + 1

; Change uv position values depending on key pressed 
If KeyDown( 44 )=True Then u_position#=u_position#-0.001 
If KeyDown( 45 )=True Then u_position#=u_position#+0.001 
If KeyDown( 46 )=True Then v_position#=v_position#-0.001 
If KeyDown( 47 )=True Then v_position#=v_position#+0.001
If KeyDown( 48)=True Then TWidth# = TWidth#+.1 : ScaleTexture tex, TWidth#, THeight#
If KeyDown( 49)=True Then TWidth# = TWidth#-.1 : ScaleTexture tex, TWidth#, THeight#
If KeyDown( 50)=True Then THeight# = THeight#+.1 : ScaleTexture tex, TWidth#, THeight#
If KeyDown( 51)=True Then THeight# = THeight#-.1 : ScaleTexture tex, TWidth#, THeight#

If TWidth# < 0.1 Then TWidth# = 0.1
If TWidth# > 1.0 Then TWidth# = 1.0
If THeight# < 0.1 Then THeight# = 0.1
If THeight# > 1.0 Then THeight# = 1.0
If u_position# > MeshWidth(cube) Then u_position# = MeshWidth(cube)
; Position texture 
PositionTexture tex,u_position#,v_position# 

TurnEntity cube,pitch#,yaw#,roll# 

PositionEntity cube, 0, 0, 100

RenderWorld 

Color 255,255,255

Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+100, "TextureWidth(tex): "+TextureWidth(tex), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+120, "TextureHeight(tex): "+TextureHeight(tex), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+140, "TWidth#: "+TWidth#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+160, "THeight#: "+THeight#, 1, 1

DrawImage logo, GraphicsWidth()/2-ImageWidth(logo)/2, GraphicsHeight()/2-ImageHeight(logo)/2

Flip 

Wend 

End

JA2	(Posted 2010) [#32]

I'm glad to see you've coded this all yourself though, thus far, so well done :)

Not quite :( Looks like Rez started by stealing this code:

http://www.blitzbasic.com/Community/posts.php?topic=87946#1000967

I first noticed that he had a habit of doing this about a year ago when I saw him posting some of my old code and asking people to 'fix' it for him. Looks like he hasn't learned much in the last year...

Ross C

(Posted 2010) [#33]

Hmmm, perhaps not Regardless, i'm not writing code out for him, so i'm happy to help, by giving ideas out. Anyway, i was busy with other stuff last night so i'll do that texture.

Oh and scaling the texture will cause it to repeat itself. You don't/shouldn't be scvaling the texture, as the entire texture fills the cube faces. If you need more text to fit on, then reduce your text font size.

Guy Fawkes

(Posted 2010) [#34]

JA2, STAY THE HELL OUT OF MY LIFE! I don't NEED your sorry ass here

JA2	(Posted 2010) [#35]

JA2, STAY THE HELL OUT OF MY LIFE! I don't NEED your sorry ass here

I'm not a part of your life, thankfully.

Please don't bring my donkey back into this, he's still in therapy after you called him dumb and spewed lots of capital letters at him.

Guy Fawkes

(Posted 2010) [#36]

Good, well u can take ur "donkey", and GTFO of this thread and leave me the **** alone!

Ross C

(Posted 2010) [#37]

Regardless of what JA2 says, you can't go about swearing at folks all the time. And stop being so overdramatic about it, before you get banned. Just concentrate on the subject at hand.

Ginger Tea

(Posted 2010) [#38]

i have to agree
in one thread you named ja2 specifically and he had not posted in that or another recent thread by you, yet doing so was just a self fulfilling prophercy
you might as well be a pre teen girl at a sleep over calling bloody mary three times into a mirror and wonder why shes then slitting your throat
but i digress

now in learning studying other code works and as we know its how you do your thing, but as long as you know what the code your studying does and arnt just changing something willy nilly then asking why its borked, ill call that progress

grabbing 5 random jigsaw pieces and trying to force them together doesnt work and even if it did, the picture would be wrong
knowing what the code does is imortant, more than "oh it ran, thats good ill just C+P it into this bit" then finding out its all borked because of it

this thread is progress (aside from all the toys outside of the pram)
only rez has posted code, even if it is not apparantly his, no one has said "change this block to that or this line to this"
all thats been offered is advice and non code explanation of what to do and hes heading in the direction you prod him in

i normally keep out of dark shadow wing threads, but ill atleast defend him on 'some' progress

Guy Fawkes

(Posted 2010) [#39]

Ok, so Ross, what texture were u talking about? and why?

Ross C

(Posted 2010) [#40]

http://www.rosscrooks.pwp.blueyonder.co.uk/star_wars_text.zip

I have added the texture and re-arranged your/or the copy you copied. It was a bit of a mess. No globals, and references to the cube and camera all over the place.

When coding, you should try to keep all the commands that place and set up each entity, together. It makes it eaiser to make changes to that entity, and track down potential errors. In the code you posted above too, the texture background wasn't actually transparent. Anyway, the texture i have added, is a simple fading to back.

The way this works, is it blends down, onto the texture below. Any pixels that blend with black, will become trasparent. Anything blending with white, will be completely opaque. And anything inbetween, will be... well inbetween.

Guy Fawkes

(Posted 2010) [#41]

Thanks Ross :) There's only 1 problem though. How can I make it so that no matter how big of a z-scale I give the cube, the words on the cube will NEVER run out of space and cut off the words?

Ross C

(Posted 2010) [#42]

You will always run out of space. I'm not sure what you mean though...

Guy Fawkes

(Posted 2010) [#43]

Try out this example, it's from the zip file u sent me, only I modded it so it shows that glitch:

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480,0,2 
SetBuffer BackBuffer() 

AmbientLight 255,255,255

Global theme = Load3DSound("Music/02.mp3")
LoopSound theme
PlaySound theme


Global light=CreateLight() 
	RotateEntity light,90,0,0 

Global cube=CreateCube() 
	ScaleEntity cube, .0001, 200, 200
	PositionEntity cube,0,0,5 
	RotateEntity cube, 0, -90, 45
	EntityFX cube, 1
	EntityBlend cube,3

Global camera=CreateCamera() 
	PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*100
	CameraClsColor camera,0,0,0


Global fade_tex = LoadTexture("fade.png")
	EntityTexture cube,fade_tex,0,1


; Create texture of size 256x256 
Global tex = CreateTexture(128,512,1+256+512)
Global u_position# = 1
Global v_position# = 1

;ScaleTexture tex, .8, .8

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

	; Draw text on texture 
	Global font=LoadFont("Arial",12,True,False,False) 
	SetFont font
	Color 255,255,255
	
	Text TextureWidth(tex)/2,380,"Test1Test1Test1Test1Test2Test2Test2Test2", 1, 1
	Text TextureWidth(tex)/2,400,"Test2Test2Test2Test2Test2Test2Test2Test2", 1, 1 

	; Texture cube with texture 
	EntityTexture cube,tex,0,0


; Set buffer - backbuffer 
SetBuffer BackBuffer() 


Global logo = LoadImage("logo.png")
	If FileType("logo.png") = 0 Then RuntimeError "logo missing!"
	

Global TWidth#, THeight#



While Not KeyDown( 1 ) 

	v_position#=v_position#-0.001
	
	;MoveEntity cube, 0, .1, 0
	
	
	pitch#=0 
	yaw#=0 
	roll#=0 
	
	If KeyDown( 208 )=True Then pitch#=-1 
	If KeyDown( 200 )=True Then pitch#=1 
	If KeyDown( 203 )=True Then yaw#=-1 
	If KeyDown( 205 )=True Then yaw#=1 
	If KeyDown( 30 )=True Then roll#=-1
	If KeyDown( 31 )=True Then roll#=1
	MoveEntity cube, 0, (KeyDown(32)-KeyDown(33))*1, 0
	MoveEntity cube, (KeyDown(34)-KeyDown(35))*1, 0, 0
	MoveEntity cube, 0, 0, (KeyDown(36)-KeyDown(37))*1
	
	;If KeyDown(44) Then u# = u# + 1
	;If KeyDown(45) Then v# = v# + 1
	
	; Change uv position values depending on key pressed 
	If KeyDown( 44 )=True Then u_position#=u_position#-0.001 
	If KeyDown( 45 )=True Then u_position#=u_position#+0.001 
	If KeyDown( 46 )=True Then v_position#=v_position#-0.001 
	If KeyDown( 47 )=True Then v_position#=v_position#+0.001
	If KeyDown( 48)=True Then TWidth# = TWidth#+.1 : ScaleTexture tex, TWidth#, THeight#
	If KeyDown( 49)=True Then TWidth# = TWidth#-.1 : ScaleTexture tex, TWidth#, THeight#
	If KeyDown( 50)=True Then THeight# = THeight#+.1 : ScaleTexture tex, TWidth#, THeight#
	If KeyDown( 51)=True Then THeight# = THeight#-.1 : ScaleTexture tex, TWidth#, THeight#
	
	If TWidth# < 0.1 Then TWidth# = 0.1
	If TWidth# > 1.0 Then TWidth# = 1.0
	If THeight# < 0.1 Then THeight# = 0.1
	If THeight# > 1.0 Then THeight# = 1.0
	If u_position# > MeshWidth(cube) Then u_position# = MeshWidth(cube)
	; Position texture 
	PositionTexture tex,u_position#,v_position# 
	
	RotateEntity cube,EntityPitch(cube,True)+pitch#,EntityYaw(cube,True)+yaw#,EntityRoll(cube,True)+roll# 
	
	RenderWorld 
	
;	Color 255,255,255
	
;	Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+100, "TextureWidth(tex): "+TextureWidth(tex), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+120, "TextureHeight(tex): "+TextureHeight(tex), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+140, "TWidth#: "+TWidth#, 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+160, "THeight#: "+THeight#, 1, 1
	
;	DrawImage logo, GraphicsWidth()/2-ImageWidth(logo)/2, GraphicsHeight()/2-ImageHeight(logo)/2
	
	Flip 

Wend 

End

Guy Fawkes

(Posted 2010) [#44]

also, it stretches the text, so i dont like that

Ross C

(Posted 2010) [#45]

Erm, all these things are under your control. It's not a glitch. If you don't like the way the text is stretched, simply don't scale the cube X axis so much. Also, if you don't want the text getting cut off, move the camera back, or move the cube forwards,

Guy Fawkes

(Posted 2010) [#46]

um, dude. it's not the x-axis it's on. it's the z-axis. the x-axis is .0001, and it's rotated so the z-axis works like the x-axis.

Guy Fawkes

(Posted 2010) [#47]

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480,0,2 
SetBuffer BackBuffer() 

AmbientLight 255,255,255

Global theme = Load3DSound("Music/02.mp3")
LoopSound theme
PlaySound theme


Global light=CreateLight() 
	RotateEntity light,90,0,0 

Global cube=CreateCube() 
	ScaleEntity cube, .0001, 200, 100
	PositionEntity cube,0,0,5 
	RotateEntity cube, 0, -90, 45
	EntityFX cube, 1
	EntityBlend cube,3

Global camera=CreateCamera() 
	PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*200
	CameraClsColor camera,0,0,0


Global fade_tex = LoadTexture("fade.png")
	EntityTexture cube,fade_tex,0,1


; Create texture of size 256x256 
Global tex = CreateTexture(128,512,1+256+512)
Global u_position# = 1
Global v_position# = 1

;ScaleTexture tex, .8, .8

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

	; Draw text on texture 
	Global font=LoadFont("Arial",12,True,False,False) 
	SetFont font
	Color 255,255,255
	
	Text TextureWidth(tex)/2,380,"Test1Test1Test1Test1Test2Test2Test2Test2", 1, 1
	Text TextureWidth(tex)/2,400,"Test2Test2Test2Test2Test2Test2Test2Test2", 1, 1 

	; Texture cube with texture 
	EntityTexture cube,tex,0,0


; Set buffer - backbuffer 
SetBuffer BackBuffer() 


Global logo = LoadImage("logo.png")
	If FileType("logo.png") = 0 Then RuntimeError "logo missing!"
	

Global TWidth#, THeight#



While Not KeyDown( 1 ) 

	v_position#=v_position#-0.001
	
	;MoveEntity cube, 0, .1, 0
	
	
	pitch#=0 
	yaw#=0 
	roll#=0 
	
	If KeyDown( 208 )=True Then pitch#=-1 
	If KeyDown( 200 )=True Then pitch#=1 
	If KeyDown( 203 )=True Then yaw#=-1 
	If KeyDown( 205 )=True Then yaw#=1 
	If KeyDown( 30 )=True Then roll#=-1
	If KeyDown( 31 )=True Then roll#=1
	MoveEntity cube, 0, (KeyDown(32)-KeyDown(33))*1, 0
	MoveEntity cube, (KeyDown(34)-KeyDown(35))*1, 0, 0
	MoveEntity cube, 0, 0, (KeyDown(36)-KeyDown(37))*1
	
	;If KeyDown(44) Then u# = u# + 1
	;If KeyDown(45) Then v# = v# + 1
	
	; Change uv position values depending on key pressed 
	If KeyDown( 44 )=True Then u_position#=u_position#-0.001 
	If KeyDown( 45 )=True Then u_position#=u_position#+0.001 
	If KeyDown( 46 )=True Then v_position#=v_position#-0.001 
	If KeyDown( 47 )=True Then v_position#=v_position#+0.001
	If KeyDown( 48)=True Then TWidth# = TWidth#+.1 : ScaleTexture tex, TWidth#, THeight#
	If KeyDown( 49)=True Then TWidth# = TWidth#-.1 : ScaleTexture tex, TWidth#, THeight#
	If KeyDown( 50)=True Then THeight# = THeight#+.1 : ScaleTexture tex, TWidth#, THeight#
	If KeyDown( 51)=True Then THeight# = THeight#-.1 : ScaleTexture tex, TWidth#, THeight#
	
	If TWidth# < 0.1 Then TWidth# = 0.1
	If TWidth# > 1.0 Then TWidth# = 1.0
	If THeight# < 0.1 Then THeight# = 0.1
	If THeight# > 1.0 Then THeight# = 1.0
	If u_position# > MeshWidth(cube) Then u_position# = MeshWidth(cube)
	; Position texture 
	PositionTexture tex,u_position#,v_position# 
	
	RotateEntity cube,EntityPitch(cube,True)+pitch#,EntityYaw(cube,True)+yaw#,EntityRoll(cube,True)+roll# 
	
	RenderWorld 
	
;	Color 255,255,255
	
;	Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+100, "TextureWidth(tex): "+TextureWidth(tex), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+120, "TextureHeight(tex): "+TextureHeight(tex), 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+140, "TWidth#: "+TWidth#, 1, 1
;	Text GraphicsWidth()/2, GraphicsHeight()/2+160, "THeight#: "+THeight#, 1, 1
	
;	DrawImage logo, GraphicsWidth()/2-ImageWidth(logo)/2, GraphicsHeight()/2-ImageHeight(logo)/2
	
	Flip 

Wend 

End

Ross C

(Posted 2010) [#48]

Same difference. You know what i'm saying though. Anyway, you've implemented that, so whats the issue now? If you want to fit more text in each line, you'll have to either, choose a smaller font size, or make your texture width, bigger.

Guy Fawkes

(Posted 2010) [#49]

Tried that.. :3

Ross C

(Posted 2010) [#50]

and?

JA2	(Posted 2010) [#51]

Nice to see that you're trying things on your own now, Rez :)

Ginger Tea

(Posted 2010) [#52]

dont forget to have a dancing purple elephant inbetween a paragraph

Guy Fawkes

(Posted 2010) [#53]

Did u even bother to try out the code to see why it was doing what it was doing?

Ginger Tea

(Posted 2010) [#54]

if that was to me:
did you ever read and watch the opening crawl to something something darkside?

Guy Fawkes

(Posted 2010) [#55]

That was NOT to u.....

JA2	(Posted 2010) [#56]

Did u even bother to try out the code to see why it was doing what it was doing?[quote]
[quote]if that was to me:

I think the (rather rude) reply was to Ross C. Shame really, after all he's done to help Rez...

Ginger Tea

(Posted 2010) [#57]

well seeing how the posts above mine went it did seem odd to be to me but i had to ask
and as ross' post was a question, to reply with a question seemed doubly odd

Guy Fawkes

(Posted 2010) [#58]

and its a shame ur still on these forums, JA2.

Sauer

(Posted 2010) [#59]

Guy Fawkes

(Posted 2010) [#60]

ur post doesnt phase me

and i WASNT TRYING to be rude to ross. maybe ja2, but NOT ross

Ginger Tea

(Posted 2010) [#61]

Did u even bother to try out the code to see why it was doing what it was doing?

comes across as rude

re my previous few posts
if you had said

Ross, Did u even bother to try out the code to see why it was doing what it was doing?

i wouild have known it was to ross and not me as i was the last post in the thread

and you never answered my question ;) (even though it started with "if that was aimed at me" which it transpires it wasnt, still all the same ...)

Ross C

(Posted 2010) [#62]

Yep, i still don't know what is wrong with the code.

To stretch the text less, scale the cube less.
To increase the amount of text you can fit in a line, either:

- Increase the width of the texture
- Decrease the font size of the text

Can you detail what the issue is?

JA2	(Posted 2010) [#63]

and its a shame ur still on these forums, JA2.

Why? Because I don't do your programming for you?

ur post doesnt phase me

and i WASNT TRYING to be rude to ross. maybe ja2, but NOT ross

Well you shouldn't be trying to be rude to anyone really. I dunno why you go off on these rants, Rez. It really is quite childish...

Guy Fawkes

(Posted 2010) [#64]

no. because of the fact that u exist.

Guy Fawkes

(Posted 2010) [#65]

yes, i can detail what the issue is. infact. ill show u. *uploading image*

JA2	(Posted 2010) [#66]

no. because of the fact that u exist.

And that bothers you?

Hahahahaha

Guy Fawkes

(Posted 2010) [#67]

of course. if u didnt exist, i would have a MUCH better life on these forums

JA2	(Posted 2010) [#68]

of course. if u didnt exist, i would have a MUCH better life on these forums

Awww now you've gone and hurt my feelings...

Guy Fawkes

(Posted 2010) [#69]

Guy Fawkes

(Posted 2010) [#70]

; TextureBuffer Example 
; --------------------- 

Graphics3D 640,480,0,1
SetBuffer BackBuffer() 

AmbientLight 255,255,255

Global theme = Load3DSound("Music/02.wma")
LoopSound theme
PlaySound theme

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 

; Create texture of size 256x256 
tex=CreateTexture(128,512,1+256+512)

ScaleEntity cube, .0001, 200, 55

ScaleTexture tex, .8, .8

PositionEntity cube,0,0,5 

PositionEntity camera, EntityX(cube), EntityY(cube), EntityZ(cube)-MeshDepth(cube)*2

; Set buffer - texture buffer 
SetBuffer TextureBuffer(tex) 

; Clear texture buffer with background white color 
;ClsColor 0,0,0
;Cls 

; Draw text on texture 
font=LoadFont("Arial",12,True,False,False) 
SetFont font
Color 255,255,255
;Text TextureWidth(tex)/2,240,"This texture", 1, 1
;Text TextureWidth(tex)/2,220,"was created using", 1, 1 : Color 0,255,255
;Text TextureWidth(tex)/2,200,"CreateTexture()", 1, 1 : Color 0,0,0
;Text TextureWidth(tex)/2,180,"and drawn to using", 1, 1 : Color 0,255,255
;Text TextureWidth(tex)/2,160,"SetBuffer TextureBuffer()", 1, 1 
;Text TextureWidth(tex)/2,140,"SetBuffer TextureBuffer()", 1, 1 
;Text TextureWidth(tex)/2,120,"SetBuffer TextureBuffer()", 1, 1 

Text TextureWidth(tex)/2,380,"Test1Test2Test1Test2Test1Test2Test1Test2Test1Test2Test1Test2Test1Test2Test1Test2", 1, 1
Text TextureWidth(tex)/2,400,"Test3Test4Test3Test4Test3Test4Test3Test4Test3Test4Test3Test4Test3Test4Test3Test4", 1, 1 

; Texture cube with texture 
EntityTexture cube,tex 

RotateEntity cube, 0, -90, 45

; Set buffer - backbuffer 
SetBuffer BackBuffer() 

u_position# = 1
v_position# = 1

;Global logo = LoadImage("logo.png")

;	If FileType("logo.png") = 0 Then RuntimeError "logo missing!"
	
;EntityFX cube, 1+8

EntityColor cube, 255, 255, 255

Global TWidth#, THeight#

While Not KeyDown( 1 ) 

v_position#=v_position#-0.001

;MoveEntity cube, 0, .1, 0

pitch#=0 
yaw#=0 
roll#=0 

If KeyDown( 208 )=True Then pitch#=-1 
If KeyDown( 200 )=True Then pitch#=1 
If KeyDown( 203 )=True Then yaw#=-1 
If KeyDown( 205 )=True Then yaw#=1 
If KeyDown( 30 )=True Then roll#=-1
If KeyDown( 31 )=True Then roll#=1
MoveEntity cube, 0, (KeyDown(32)-KeyDown(33))*1, 0
MoveEntity cube, (KeyDown(34)-KeyDown(35))*1, 0, 0
MoveEntity cube, 0, 0, (KeyDown(36)-KeyDown(37))*1

;If KeyDown(44) Then u# = u# + 1
;If KeyDown(45) Then v# = v# + 1

; Change uv position values depending on key pressed 
If KeyDown( 44 )=True Then u_position#=u_position#-0.001 
If KeyDown( 45 )=True Then u_position#=u_position#+0.001 
If KeyDown( 46 )=True Then v_position#=v_position#-0.001 
If KeyDown( 47 )=True Then v_position#=v_position#+0.001
If KeyDown( 48)=True Then TWidth# = TWidth#+.1 : ScaleTexture tex, TWidth#, THeight#
If KeyDown( 49)=True Then TWidth# = TWidth#-.1 : ScaleTexture tex, TWidth#, THeight#
If KeyDown( 50)=True Then THeight# = THeight#+.1 : ScaleTexture tex, TWidth#, THeight#
If KeyDown( 51)=True Then THeight# = THeight#-.1 : ScaleTexture tex, TWidth#, THeight#

If TWidth# < 0.1 Then TWidth# = 0.1
If TWidth# > 1.0 Then TWidth# = 1.0
If THeight# < 0.1 Then THeight# = 0.1
If THeight# > 1.0 Then THeight# = 1.0
If u_position# > MeshWidth(cube) Then u_position# = MeshWidth(cube)
; Position texture 
PositionTexture tex,u_position#,v_position# 

TurnEntity cube,pitch#,yaw#,roll# 

PositionEntity cube, 0, 0, 100

RenderWorld 

Color 255,255,255

Text GraphicsWidth()/2, GraphicsHeight()/2, "X-rotation: "+EntityPitch(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y-rotation: "+EntityYaw(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z-rotation: "+EntityRoll(cube), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+60, "u#: "+u#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+80, "v#: "+v#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+100, "TextureWidth(tex): "+TextureWidth(tex), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+120, "TextureHeight(tex): "+TextureHeight(tex), 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+140, "TWidth#: "+TWidth#, 1, 1
Text GraphicsWidth()/2, GraphicsHeight()/2+160, "THeight#: "+THeight#, 1, 1

;DrawImage logo, GraphicsWidth()/2-ImageWidth(logo)/2, GraphicsHeight()/2-ImageHeight(logo)/2

Flip 

Wend 

End

Guy Fawkes

(Posted 2010) [#71]

i want to be able to scale the texture on the cube, so that no matter WHAT size i stretch the z-value to, the scale of the texture will always be the cube size / 2 , and keep the same font width instead of stretching it out

GIB3D

(Posted 2010) [#72]

Maybe try using the texture flags 16 and 32?

Guy Fawkes

(Posted 2010) [#73]

nope, didnt work

Ross C

(Posted 2010) [#74]

you need to keep the scaling of the cube in proportion to the scaling of the texture. i really don't know why your scaling it at all. essentially if your texture is 128 x 512 then your cubes coresponding dimensions should be the same ratio. ie. the cubes height should be 4 times its width. keep them in proportion.

Guy Fawkes

(Posted 2010) [#75]

I'm scaling for a reason. the longer I scale the height, the more room I have to put more text.

Here's what the 'cube' REALLY looks like w/ the background texture

Exhibit A:

Exhibit B:

Now do u see how I'm using the z value as the width of the cube?

Guy Fawkes

(Posted 2010) [#76]

This is why I want to scale the texture, so I can A) Keep it in the middle of the cube itself, and B) Display ALL the text from the left, to the right of the cube itself, and move the text up, while having the effect of making the cube 'invisible' w/ a fade out texture.

Ross C

(Posted 2010) [#77]

you need to increase the texture size then height wise. then scale your cube according as described in my last post. because your working with textures, that have to have power of 2 dimensions , you have to scale your cube accordingly, and will be therefore limited to the sizes you can make your cube. oh and i,m assuming the textue will stretch upwards here.

Guy Fawkes

(Posted 2010) [#78]

in THOSE 2 pics. yes. in the original engine, nope. it will actually stretch it width-wise. not height-wise. as i rotated the object itself.

Ross C

(Posted 2010) [#79]

but surely you will run out of room height wise? anyway, the solution is the same. simply choose a bigger width for your texture and scale your cube according to the dimensions of the texture.

Guy Fawkes

(Posted 2010) [#80]

no. thats the genius about the fade out of the texture. i can make it as tall as i want, and it will display the WHOLE story :)

Ross C

(Posted 2010) [#81]

So, is your problem solved?

Guy Fawkes

(Posted 2010) [#82]

no. not yet. i still have yet to make the words on the texture all be there w/o cutting out some of the words.

Ross C

(Posted 2010) [#83]

You need to make the writing smaller, or, make the texture wider. That's the only way the text won't get cut off.

Ginger Tea

(Posted 2010) [#84]

please, please, please proof read and spell check everything before committing it to a png or whatever, i know in the past i, and others, have commented on some of your post eccentricities, but i would be dishing out this advice to anyone including myself, i gave word a sezure with red and green wavy lines all over the show and i was the only person i intended to ever read my text.

note this is severly lacking in my forum posts as i dont use any proof reading tools for this kinda thing

mr paper clip over and out ;)

Guy Fawkes

(Posted 2010) [#85]

so it was ONE mistake. im human too ya know.

Guy Fawkes

(Posted 2010) [#86]

How can I make the text like this? I need text-wrap. Is there a such function in Blitz, or a link to where I can find this function in Blitz 3D?

http://www.youtube.com/watch?v=wRHFcQgNFQ8

JA2	(Posted 2010) [#87]

http://www.blitzbasic.com/codearcs/codearcs.php

Ross C

(Posted 2010) [#88]

I did a textbox function for you, sometime last year, which featured text wrapping, and was in a nice function. I don't have it anymore.

Oh wait, just searched:

http://www.rosscrooks.pwp.blueyonder.co.uk/textscoller.zip

This link contains a basic version, i'm not sure if it contain the text scrolling version, but you should still have it somewhere, as i finished it off.

http://www.blitzbasic.com/Community/posts.php?topic=77340

I did a 2d version for someone in this thread and included the source. I don't know if it's all there, but the text wrapping part is def there. Anyway, you have the code needed to wrap text :)

Ross C

(Posted 2010) [#89]

I still have the email i sent you, with the code. But you have no email address so i can't forward it.

Guy Fawkes

(Posted 2010) [#90]

i have an email address, i will forward a message to ur email. So check ur inbox :)

Ross C

(Posted 2010) [#91]

Sent

Guy Fawkes

(Posted 2010) [#92]

Thanks, Ross. But I didn't know it was THAT demo that you were talking about. I still have the WHOLE project in fact! =D

Guy Fawkes

(Posted 2010) [#93]

Ross, can you make it so that this code of yours "presses enter" automatically until it reaches the end of what it's supposed to say then it stops and doesnt display anymore text? and is there a way i can slow it down?

Graphics3D 800,600

Global camera = CreateCamera()
PositionEntity camera,4,-2,-8

Type paragraph

	Field handle_
	Field text_$
	
End Type

Type cur_paragraph ; the current paragraph being displayed.

	
	Field status ; 0 = not running (hidden)
				 ; 1 = paragraph is running.
				 ; 2 = paragraph is finished, waiting for enter

	Field wait_finish ; 0 = enter may be pressed at any time to skip the current text.
					  ; 1 = enter may only be pressed when the text has reached the end.

	Field handle_ ; handle to the type object containing the current paragraph
	Field text_$ ; the string of text
	Field x ; pixel position on the texture
	Field y ; pixel position on the texture
	Field char ; current character
	Field line_width
	Field character_height
	Field line_spacing ; pixel space between lines. Can be minus
	Field character_spacing ; pixel space characters. Can be minus
	Field speed# ; the speed the characters are drawn
	Field timer
	Field time

End Type


Global p.cur_paragraph = New cur_paragraph
p\time = 10
p\timer = MilliSecs()
p\wait_finish = 1
p\x = 10
p\y = 10

;set up the window variables and textures

Global window_mesh = CreateMesh()
EntityFX window_mesh,1
Global window_surface = CreateSurface(window_mesh)
Global window_text_surface = CreateSurface(window_mesh)

Global frame_texture = LoadTexture("frame.png",2)
Global text_texture = LoadTexture("text_texture.png")
Global master_text_texture = CreateTexture(512,256)
CopyRect 0,0,512,256,0,0,TextureBuffer(text_texture),TextureBuffer(master_text_texture)
; the reason for the above is when you load two or more identical textures, blitz uses only ONE copy, so,
; you must either have different file names for them, or do what i did and manually copy it to a blank texture.
; The reason i'm doing the above anyway, is because i'm writing the text directly to the texture, so it may be
; faded along with the window.


Global frame_brush = CreateBrush()
BrushTexture frame_brush, frame_texture

Global text_brush = CreateBrush()
BrushTexture text_brush, text_texture

Global window_fw#  = 0.1
Global window_fh# = 0.1
Global window_w#  = 10 ; the width of the window. Does not include the border size.
Global window_h# = 5  ; the height of the window. Does not include the border size.

create_window()


Global max_paragraphs
Global current_paragraph = 0 ; set to zero to disable window
Global wait_finish = 0 ; 0 = enter will skip to the next screen regardless of whether paragraph is finished
Global max_line_width = 480
Global test_string$
Read max_paragraphs
Dim paragraph_handle(max_paragraphs)

read_paragraphs()

p\status = 0
;load_first_paragraph(p.cur_paragraph)


Global pixel_width = 512 ; the width of the texture to be written to.

font = LoadFont("arialblack",20,True)
SetFont font

;testing
;SetBuffer TextureBuffer(text_texture)
;Color 255,255,255
;Text 11,11,"Hello, this is a 3d text test for drawing a texture"
;Color 55,55,55
;Text 10,10,"Hello, this is a 3d text test for drawing a texture"
;SetBuffer BackBuffer()
;/testing

While Not KeyHit(1)

	Cls
	update_paragraph()

	If KeyDown(200) Then MoveEntity window_mesh,0   ,0.1 ,0
	If KeyDown(208) Then MoveEntity window_mesh,0   ,-0.1,0
	If KeyDown(203) Then MoveEntity window_mesh,-0.1,0   ,0
	If KeyDown(205) Then MoveEntity window_mesh,0.1 ,0   ,0


	UpdateWorld
	RenderWorld
	Text 0,0,"Press Enter to move to the next paragraph"
	Text 0,20," ARROW KEYS to move the window"
	Flip
Wend
End

Function read_paragraphs()

	For loop = 1 To max_paragraphs
	
		par.paragraph = New paragraph
		
			Read par\text_$
			paragraph_handle(loop) = Handle par.paragraph
			
	Next
	
End Function


Function update_letters()

		Local next_word_status
		DebugLog(" updating letters")
		p\char = p\char + 1
		If p\char > Len(p\text_) Then ; last character reached
			
			p\status = 2
		Else
			If Mid(p\text_,p\char,1) = " " Then
				next_word_status = check_next_word(p\text_,p\char,p\x)
				If next_word_status = -1 Then ; no more words
					p\status = 2
				ElseIf next_word_status = 0 ; not enough room on this line
					p\y = p\y + StringHeight(p\text_)
					p\x = 10 ; 10 = how much the text is inset.
				ElseIf next_word_status = 1 ; enough room on this line
					p\x = p\x + StringWidth(" ") ; advance the p\x variable the width of a string
					; no need to draw anything.
				End If
			Else

				SetBuffer TextureBuffer(text_texture)
				Text p\x,p\y,Mid(p\text_,p\char,1)
				SetBuffer BackBuffer()
				p\x = p\x + StringWidth(Mid(p\text_,p\char,1))
			End If
		End If
		
		
				; the character is a space, so check the next word and see if it fits.
	
End Function


Function update_paragraph()

	Local key_advance = 0 ; a flag to say the key has been pressed to advance screens. Reason being you can
						  ; only poll for keyhit() once per loop.

	If KeyHit(28) Then
		key_advance = 1
	End If
	
	If p\status = 0 Then
	
		HideEntity window_mesh
		
		If key_advance = 1 Then
		
				If current_paragraph = max_paragraphs Then ; if there is no more paragraphs left then
			
					p\status = 0			; set to status to not running and
					HideEntity window_mesh	; hide the window.
				
				Else
					current_paragraph = current_paragraph + 1 ; set to the next paragraph.
					load_next_paragraph(p.cur_paragraph)
					p\status = 1
					ShowEntity window_mesh
				
				End If
				
		End If
			
		
	ElseIf p\status = 1 Then

		If MilliSecs() > p\time + p\timer Then
			update_letters()
			p\timer = MilliSecs() ; reset timer

		End If
		
		If key_advance = 1 Then
			If p\wait_finish = 0 Then ; If the wait to finish flag is OFF, then enter can be pressed anytime to skip
			
				If current_paragraph = max_paragraphs Then ; if there is no more paragraphs left then
			
					p\status = 0			; set to status to not running and
					HideEntity window_mesh	; hide the window.
				
				Else
					current_paragraph = current_paragraph + 1 ; set to the next paragraph.
					load_next_paragraph(p.cur_paragraph)
				
				End If
				
			End If
		End If
		
	ElseIf p\status = 2
	
		If key_advance = 1 Then ; check for the enter key being pressed.
		
			If current_paragraph = max_paragraphs Then ; if there is no more paragraphs left then
			
					p\status = 0			; set to status to not running and
					HideEntity window_mesh	; hide the window.
					CopyRect 0,0,512,256,0,0,TextureBuffer(master_text_texture),TextureBuffer(text_texture)
				
			Else
					current_paragraph = current_paragraph + 1 ; set to the next paragraph.
					load_next_paragraph(p.cur_paragraph) ; send across the cur_paragraph object.
					CopyRect 0,0,512,256,0,0,TextureBuffer(master_text_texture),TextureBuffer(text_texture)
					DebugLog(" TEXTURE COPIED")
					p\status = 1
					p\x = 10
					p\y = 10
					p\timer = MilliSecs()
					p\char = 0
				

			End If
			
		End If
		
	End If

End Function

Function check_next_word(text_$,pos,linewidth)

	Local temp_text$ = ""
	Local temp_char = 0
	Local loop_exit = 0
	
	Repeat
	
		temp_char = temp_char + 1
		If pos+temp_char > Len(text_) Then
			loop_exit = 1
		End If
	
	Until Mid$(text_,pos+temp_char,1) = " " Or loop_exit = 1 
	
	temp_text = Mid$(text_,pos,temp_char)

	If temp_char = 1 And loop_exit = 1 Then
		temp_text = ""
		Return -1
	End If

	If linewidth + StringWidth(temp_text) > max_line_width Then
		Return 0
	Else
		Return 1
	End If


	;DebugLog(" End word ="+temp_text$+"=")

	
End Function

Function load_next_paragraph(temp.cur_paragraph)

	temp_p.paragraph = Object.paragraph(paragraph_handle(current_paragraph))
	DebugLog(" object handle = "+paragraph_handle(current_paragraph))
	temp\text_ = temp_p\text_
	
End Function

Function create_window()

	add_quad(window_surface, 0, window_fw, 0, -window_fh, 0, 0.333, 0, 0.333)
	add_quad(window_surface, window_fw, window_fw+window_w, 0, -window_fh, 0.333, 0.666, 0, 0.333)
	add_quad(window_surface, window_fw+window_w, window_fw+window_w+window_fw, 0, -window_fh, 0.666, 1, 0, 0.333)
	
	add_quad(window_surface, 0,         window_fw,          -window_fh, -window_h-window_fh, 0, 0.333, 0.333, 0.666)
	add_quad(window_text_surface, window_fw, window_fw+window_w, -window_fh, -window_fh-window_h, 0, 1, 0, 1)
	add_quad(window_surface, window_fw+window_w, window_fw+window_w+window_fw, -window_fh, -window_fh-window_h, 0.666, 1, 0.333, 0.666)
	
	add_quad(window_surface, 0,         window_fw,          -window_fh-window_h, -window_h-window_fh-window_fh, 0, 0.333, 0.666, 1)
	add_quad(window_surface, window_fw, window_fw+window_w, -window_fh-window_h, -window_h-window_fh-window_fh, 0.333, 0.666, 0.666, 1)
	add_quad(window_surface, window_fw+window_w, window_fw+window_w+window_fw, -window_fh-window_h, -window_h-window_fh-window_fh, 0.666, 1, 0.666, 1)
	
	PaintSurface window_surface, frame_brush
	PaintSurface window_text_surface, text_brush
	
	UpdateNormals window_mesh

End Function

Function add_quad(surface,x0#,x1#,y0#,y1#, u0#,u1#,v0#,v1#)

	;top
	ve0 = AddVertex(surface,x0,y0,0,    u0, v0)
	ve1 = AddVertex(surface,x1,y0,0,    u1, v0)
	ve2 = AddVertex(surface,x0,y1,0,    u0, v1)
	ve3 = AddVertex(surface,x1,y1,0,    u1, v1)

	AddTriangle(surface,ve0,ve1,ve3)
	AddTriangle(surface,ve0,ve3,ve2)

	DebugLog(" DOING!")

End Function

Data 10
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the second paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."
Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."

Ross C

(Posted 2010) [#94]

just remove the part where the key hit exists and satisfy the condition for proceeding.

Guy Fawkes

(Posted 2010) [#95]

what do u mean by that last part, mate? i get the 1st part. also, how do i slow down the text?

Ross C

(Posted 2010) [#96]

Well, i haven't looked at this in a while, but the time field in the cur_paragraph type collection, would be my best bet for slowing it down. Increase whatever value it has. In fact, there is a reference to it, directly below, in the form of :

p\time = 10"

Also, the way this is designed to work, is the data statements at the end, are all seperate windows.

Data "This is the first paragraph of ten. This code should word wrap the letters round so that they all fit in the window. And let the user press a button to continue to the next text."

That is all the one paragraph. It was designed to do this, based on your need for it. I'm sure when it opens up a new paragraph, it will clear the screen, so pressing enter automatically won't help. I'm afraid i don't really have the time to sift through this, as i'm busy helping someone do graphics. It shouldn't be too hard to adopt this though.

		If p\char > Len(p\text_) Then ; last character reached
			
			p\status = 2
		Else
			If Mid(p\text_,p\char,1) = " " Then
				next_word_status = check_next_word(p\text_,p\char,p\x)
				If next_word_status = -1 Then ; no more words
					p\status = 2
				ElseIf next_word_status = 0 ; not enough room on this line
					p\y = p\y + StringHeight(p\text_)
					p\x = 10 ; 10 = how much the text is inset.
				ElseIf next_word_status = 1 ; enough room on this line
					p\x = p\x + StringWidth(" ") ; advance the p\x variable the width of a string
					; no need to draw anything.
				End If
			Else

				SetBuffer TextureBuffer(text_texture)
				Text p\x,p\y,Mid(p\text_,p\char,1)
				SetBuffer BackBuffer()
				p\x = p\x + StringWidth(Mid(p\text_,p\char,1))
			End If
		End If

This part inside update_letters() function. It checks the current character. If it is a space, then it will look ahead at the next word, and check to see if it fits. More spefically this:

				ElseIf next_word_status = 0 ; not enough room on this line
					p\y = p\y + StringHeight(p\text_)
					p\x = 10 ; 10 = how much the text is inset.

If the next word doesn't fit, then it will start a new line. So, if you choose a specific character to be a line terminator, it will automatically start a new line.

So, in the update_letters() function, put in another IF statement to check for this character. If it's found, simply copy the code that executes if next_word_status = 0, as above. That will start a new line, and enable you to use this for what you need.

Guy Fawkes

(Posted 2010) [#97]

how can i get it to show the text, but remove the whole window?

Ross C

(Posted 2010) [#98]

If i'm going to have to recode i can't. it should be pretty straight forward to rip out the parts you need to code this . you said you learn by example so that code should be perfect. just read through it and study what is happening. it's all there for you

Oiduts Studios

(Posted 2010) [#99]

Wow, 98 posts and he still doesn't get it. Rez, i'm sorry but you need to learn how to teach yourself, not get others to do the work for you.

JA2	(Posted 2010) [#100]

Next post from Rez will be something like:

BACK OFF I am teh bestest coder EVER and I've made something EVEN BETTER than you can code. I'm LEAVING the blitz forums FOR GOOD because of that donkey JA2!!!

Oiduts Studios

(Posted 2010) [#101]

I do not want to make enemies, just wanted to point that out.

Guy Fawkes

(Posted 2010) [#102]

u know what, ja2?! NOW look whos being the stupid d***! LEAVE ME THE FUCK ALONE!

JA2	(Posted 2010) [#103]

u know what, ja2?! NOW look whos being the stupid d***! LEAVE ME THE FUCK ALONE!

Aww come on, Rez. Don't be so mean...

Hahaha

Oiduts Studios

(Posted 2010) [#104]

This is a good time for a lock, just sayin.

JA2	(Posted 2010) [#105]

I'm wondering why Rez edited out the d*** but left the f*** unedited?

Guy Fawkes

(Posted 2010) [#106]

LEAVE ME ALONE U PRICK!

JA2	(Posted 2010) [#107]

LEAVE ME ALONE U PRICK!

Hahaha

I'm not doing anything to you. Don't get yourself banned, Rez...