Print Question

BlitzPlus Forums/BlitzPlus Programming/Print Question

rdodson41

(Posted 2004) [#1]

Is there a way to print to the graphics buffer, but with good print and input commands? Like in Blitz3D? The console just doesn't suit my purposes. Or if that's not possible, has anyone developed a good algorithem for printing and inputing on the graphics buffer thats decently fast? Tanks in advance!

DNielsen

(Posted 2004) [#2]

Use the Text() command

rdodson41

(Posted 2004) [#3]

No i know, but can I make it so its just, Print "Hello World!" and it prints it on the gfx bufffer? I dont want to keep track of any variables, and i want it to act like Print does on the console, such that when the screen is filled, it moves everything up, just like print and input work in B3D.

DNielsen

(Posted 2004) [#4]

Personally, I use the Text() command because its very fast and manually keep track of my X and Y coordinates. I am a newbie myself and am looking (myself) for something similar as you are

soja	(Posted 2004) [#5]

You would have to code your own functions for scrolling, line tracking, etc. Basically, simulate the console with the Text command. In BlitzPlus, Print and Input have minimal use in finished projects (they don't even work with StdIn and StdOut).

DNielsen

(Posted 2004) [#6]

I use Text() only, because I currently only use BlitzPlus in fullscreen mode software

rdodson41

(Posted 2004) [#7]

@soja, could you tell me how i could make something like that? I've been trying and nothing works.

WolRon

(Posted 2004) [#8]

Oh - my - God.

I realize that it's extremely tough...

Graphics 640,480, 0, 0

Global texty = -15

;beginning of scrolling text demo
MyPrint "hello world"
For iter = 1 To 25
	MyPrint "iteration number " + iter
Next
MyPrint "the end of the iterations."
MyPrint ""
MyPrint "Press a key to enter another line"
WaitKey()
MyPrint "Continue pressing a key"
WaitKey()
MyPrint "Line 2"
WaitKey()
MyPrint "Line 3"
WaitKey()
MyPrint "Line 4"
WaitKey()
MyPrint "Line 5"
WaitKey()
MyPrint "this is the end of the test..."
MyPrint "press the key one more time.
WaitKey()


End

Function MyPrint(txt$)
	texty = texty + 15
	If texty > 479
		scroll()
	EndIf
	Text 0, texty, txt$
	Flip
	Text 0, texty, txt$
End Function

Function scroll()
		Color 0, 0, 0
		For double = 1 To 2
			CopyRect 0, 15, 640, 465, 0, 0
			Rect 0, 466, 640, 15
			Flip
		Next
		Color 255, 255, 255
		texty = texty - 15
End Function

rdodson41

(Posted 2004) [#9]

Thanks WolRon!