Zotoaster`s Text Wrap Function - GameCreators Forum

Author

Message

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 26th May 2010 17:11 Edited at: 27th May 2010 09:49

Link

sync on : sync rate 60
set display mode 1024,768,32

`Main Loop
do

sx=mousex()-100
sy=mousey()-100

ink rgb(92,92,92),0 : box 100,100,100+sx,100+sy
textWrap(100,100,sx,sy,"Hello, my name is Zotoaster. Use this function for text wrapping",rgb(255,255,255))

sync
cls
loop

`Functions - Label
function textWrap(x,y,sx,sy,text$,col as dword)
   ink col,0
   for t=1 to getTokens(text$," ")
      posx=posx+text width(getToken(text$," ",t-1))
      if (posx+text width(getToken(text$," ",t)))>sx
         posx=0
         posy=posy+text height(getToken(text$," ",t))
      endif
      text x+posx,y+posy,getToken(text$," ",t)
   next t
endfunction

`Functions - String
function getTokens(st$,sp$)
if left$(st$,1)<>sp$ then nst$=sp$+st$
if right$(st$,1)<>sp$ then nst$=nst$+sp$
repeat
   inc counter
   cur$=mid$(nst$,counter)
   if cur$=sp$ then inc splits
until counter>len(nst$)
tokens=splits-1
endfunction tokens
function getToken(st$,sp$,num)
if left$(st$,1)<>sp$ then nst$=sp$+st$
if right$(st$,1)<>sp$ then nst$=nst$+sp$
   repeat
      inc counter
      cur$=mid$(nst$,counter)
      if cur$=sp$ then inc splits
   until splits=num or counter>len(st$)
   repeat
      inc counter
      cur$=mid$(nst$,counter)
      if cur$<>sp$ then token$=token$+cur$
   until cur$=sp$ or counter>len(st$)
   ret$=token$+sp$
endfunction ret$

+ Code Snippet

sync on : sync rate 60
set display mode 1024,768,32


`Main Loop
do

sx=mousex()-100
sy=mousey()-100

ink rgb(92,92,92),0 : box 100,100,100+sx,100+sy
textWrap(100,100,sx,sy,"Hello, my name is Zotoaster. Use this function for text wrapping",rgb(255,255,255))

sync
cls
loop


`Functions - Label
function textWrap(x,y,sx,sy,text$,col as dword)
   ink col,0
   for t=1 to getTokens(text$," ")
      posx=posx+text width(getToken(text$," ",t-1))
      if (posx+text width(getToken(text$," ",t)))>sx
         posx=0
         posy=posy+text height(getToken(text$," ",t))
      endif
      text x+posx,y+posy,getToken(text$," ",t)
   next t
endfunction

`Functions - String
function getTokens(st$,sp$)
if left$(st$,1)<>sp$ then nst$=sp$+st$
if right$(st$,1)<>sp$ then nst$=nst$+sp$
repeat
   inc counter
   cur$=mid$(nst$,counter)
   if cur$=sp$ then inc splits
until counter>len(nst$)
tokens=splits-1
endfunction tokens
function getToken(st$,sp$,num)
if left$(st$,1)<>sp$ then nst$=sp$+st$
if right$(st$,1)<>sp$ then nst$=nst$+sp$
   repeat
      inc counter
      cur$=mid$(nst$,counter)
      if cur$=sp$ then inc splits
   until splits=num or counter>len(st$)
   repeat
      inc counter
      cur$=mid$(nst$,counter)
      if cur$<>sp$ then token$=token$+cur$
   until cur$=sp$ or counter>len(st$)
   ret$=token$+sp$
endfunction ret$

This is the code i`m interesting with, it works really well.Except that if the text goes longer it goes slower, from ~1000 FPS uncaped to ~15 with some other longer text, it have something related to spaces, but i can`t understand the code well because i can`t understand what means every variable by itself.

If Zotoaster can help on this.Or somebody else who knows how text wraping work.

Any tutorials and explanations are welcome.

EDIT: Sorry for bother it look this is some old stuff, cloggy`s d3d dll does the same with few lines of code and run with ~2000FPS with 4-5 times longer text wraped.
I just wanted you to know if someone need text wrap "d3d_boxtext" is the comand, very usefull plugin really!

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 28th May 2010 03:37 Edited at: 28th May 2010 03:39

Link

WOW, that text wrap function is mad, I wonder how old that is. I had a hunt round my giant library of code snippets sitting on my hard drive. This is a text wrap function I wrote awhile ago:

+ Code Snippet

function WrapText( X as integer, Y as integer, txt as string, Width as integer, YSpacing as integer )

   local wIndex as integer
   local lineNum as integer
   local length as integer
   
   while text width(txt) >= Width
      length = len(txt)
      wIndex = 0
      for i = 1 to length
         if mid$(txt, i) = " " Then wIndex = i
         if text width(left$(txt, i)) > Width then exit
      next i
      text X, Y+(lineNum*YSpacing), left$(txt, (wIndex - 1))
      txt = right$(txt, (length - wIndex))
      inc lineNum
   endwhile
   text X, Y+(lineNum*YSpacing), txt
   
endfunction

Note: It's function specific, so text to short or wrap width to short I wouldn't class as wrap-able. I don't see a point in using a WrapText function for something that's not wrap-able, hence the reason I didn't put measures in place to deal with unwrap-able text.

Anyway, one issue everyone has is that DBP's 2D drawing commands are really really slow, hence why everyone uses cloggy`s d3d dll which has a 500 percent (not kidding) increase over DBP's 2D stuff. So this is the reason for the massive performance increase.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 28th May 2010 09:06

Link

Are you using some particular algorithm?
I read about the greedy algorithm which wrap the text by words, if last word can`t fit to the end of the line border, it`s pasted on the next one...

sync on : sync rate 00
set window position 0,0
backdrop on
BoxStartX = 100
BoxStartY = 100
d3d_init
FontSize = 8
QuarterFont = int(FontSize/4)
d3d_font 1,"Arial",FontSize,0,0,1
dim text_arr(1) as string
text1$ = "Text1:The Font ID is that of a font created by D3D_FONT. Horizontal alignment can be 0 - Left Aligned, 1 - Centered, or 2 - Right Aligned.Vertical alignment can be 0 - Top Aligned, 1 - Centered, 2 - Bottom Aligned. Specifying a colour value will override the colour setby D3D_COLOR."
text2$ ="Text2:The Font ID is that of a font created by D3D_FONT. Horizontal alignment can be 0 - Left Aligned, 1 - Centered, or 2 - Right Aligned.Vertical alignment can be 0 - Top Aligned, 1 - Centered, 2 - Bottom Aligned. Specifying a colour value will override the colour setby D3D_COLOR."
Filename$ = "text.dat"
FileID = find free datafile()
open datafile to write FileID,Filename$
write datafile string FileID,text1$
write datafile string FileID,text2$
close datafile FileID

`TextLen = len(text$)
TextCount = 2
do
text 0,0,"TextLen: " + str$(TextLen)
text 0,20,"FPS: " + str$(Screen fps())
`text 0,40,""+text_arr(0)
`text 0,60,""+text_arr(1)
`		BoxEndX=mousex()
`		BoxEndY=mousey()
	
if flag = 1
	For TXT = 1 to TextCount	
		`Aspect Ratio 3:4
		BoxWidth = TextLen/3
		BoxHeight = TextLen/4
		BoxText$ = "text"+str$(TXT)+"$"
		BoxStartX = 100
		BoxStartY = TXT*100
		if datafile exist (FileID) = 0
			open datafile to read FileID,Filename$
				for arr = 0 to 1
					text$ = datafile string$ (FileID)
					text_arr(arr) = text$
				next arr
		endif
		TextLen = len(text$)
		d3d_wrapedtext(BoxStartX,BoxStartY,BoxWidth,BoxHeight,QuarterFont,text_arr(TXT-1))
	NEXT TXT
			close datafile FileID
endif
	
	if mouseclick()= 1
		flag = 1
	ENDIF
	if mouseclick() = 0 then flag = 0
remstart
	d3d_starttext
		`d3d_text 1,0,20,0,"FPS: "+str$(screen fps()),RGB(0,0,0)
		`d3d_box BoxStartX,BoxStartY,BoxEndX,BoxEndY
		d3d_boxtext 1,BoxStartX,BoxStartY,BoxWidth*QuarterFont,BoxHeight*QuarterFont,0,0,text$
		`d3d_boxtext 1,BoxStartX,mousey()+10,sx,mousey()+100,0,0,text2$
	d3d_endtext
remend
	sync
LOOP

function d3d_wrapedtext(BoxStartX,BoxStartY,BoxWidth,BoxHeight,QuarterFont,BoxText$)
	
	d3d_starttext
		`d3d_text 1,0,20,0,"FPS: "+str$(screen fps()),RGB(0,0,0)
		`d3d_box BoxStartX,BoxStartY,BoxEndX,BoxEndY
		d3d_boxtext 1,BoxStartX,BoxStartY,BoxWidth*QuarterFont,BoxHeight*QuarterFont,0,0,BoxText$
		`d3d_boxtext 1,BoxStartX,mousey()+10,sx,mousey()+100,0,0,text2$
	d3d_endtext
	
ENDFUNCTION

+ Code Snippet

sync on : sync rate 00
set window position 0,0
backdrop on
BoxStartX = 100
BoxStartY = 100
d3d_init
FontSize = 8
QuarterFont = int(FontSize/4)
d3d_font 1,"Arial",FontSize,0,0,1
dim text_arr(1) as string
text1$ = "Text1:The Font ID is that of a font created by D3D_FONT. Horizontal alignment can be 0 - Left Aligned, 1 - Centered, or 2 - Right Aligned.Vertical alignment can be 0 - Top Aligned, 1 - Centered, 2 - Bottom Aligned. Specifying a colour value will override the colour setby D3D_COLOR."
text2$ ="Text2:The Font ID is that of a font created by D3D_FONT. Horizontal alignment can be 0 - Left Aligned, 1 - Centered, or 2 - Right Aligned.Vertical alignment can be 0 - Top Aligned, 1 - Centered, 2 - Bottom Aligned. Specifying a colour value will override the colour setby D3D_COLOR."
Filename$ = "text.dat"
FileID = find free datafile()
open datafile to write FileID,Filename$
write datafile string FileID,text1$
write datafile string FileID,text2$
close datafile FileID

`TextLen = len(text$)
TextCount = 2
do
text 0,0,"TextLen: " + str$(TextLen)
text 0,20,"FPS: " + str$(Screen fps())
`text 0,40,""+text_arr(0)
`text 0,60,""+text_arr(1)
`		BoxEndX=mousex()
`		BoxEndY=mousey()
	
if flag = 1
	For TXT = 1 to TextCount	
		`Aspect Ratio 3:4
		BoxWidth = TextLen/3
		BoxHeight = TextLen/4
		BoxText$ = "text"+str$(TXT)+"$"
		BoxStartX = 100
		BoxStartY = TXT*100
		if datafile exist (FileID) = 0
			open datafile to read FileID,Filename$
				for arr = 0 to 1
					text$ = datafile string$ (FileID)
					text_arr(arr) = text$
				next arr
		endif
		TextLen = len(text$)
		d3d_wrapedtext(BoxStartX,BoxStartY,BoxWidth,BoxHeight,QuarterFont,text_arr(TXT-1))
	NEXT TXT
			close datafile FileID
endif
	
	if mouseclick()= 1
		flag = 1
	ENDIF
	if mouseclick() = 0 then flag = 0
remstart
	d3d_starttext
		`d3d_text 1,0,20,0,"FPS: "+str$(screen fps()),RGB(0,0,0)
		`d3d_box BoxStartX,BoxStartY,BoxEndX,BoxEndY
		d3d_boxtext 1,BoxStartX,BoxStartY,BoxWidth*QuarterFont,BoxHeight*QuarterFont,0,0,text$
		`d3d_boxtext 1,BoxStartX,mousey()+10,sx,mousey()+100,0,0,text2$
	d3d_endtext
remend
	sync
LOOP

function d3d_wrapedtext(BoxStartX,BoxStartY,BoxWidth,BoxHeight,QuarterFont,BoxText$)
	
	d3d_starttext
		`d3d_text 1,0,20,0,"FPS: "+str$(screen fps()),RGB(0,0,0)
		`d3d_box BoxStartX,BoxStartY,BoxEndX,BoxEndY
		d3d_boxtext 1,BoxStartX,BoxStartY,BoxWidth*QuarterFont,BoxHeight*QuarterFont,0,0,BoxText$
		`d3d_boxtext 1,BoxStartX,mousey()+10,sx,mousey()+100,0,0,text2$
	d3d_endtext
	
ENDFUNCTION

This is what i`ve done so far with using cloggy, it`s a bit messy.But i managed it to make it like i wanted it last night.It can improve more.Just have no time now.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Sasuke

18

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 28th May 2010 14:10

Link

When you look at it, text wrap is very simple. Take mine for instance, the main part is just:

for i = 1 to length
if mid$(txt, i) = " " Then wIndex = i
if text width(left$(txt, i)) > Width then exit
next i

Basically every time a space appears the position is stored in wIndex and we keep storing each spaces position until text width is greater than are defined wrap width. Then we simply text up to the stored space (-1), removing the text behind are space and repeating the process and. This way, you don't even need to check if a word fits, just checking spaces is all you need.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 29th May 2010 12:50

Link

Is that greedy algorithm?

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Zotoaster`s Text Wrap Function