TheGameCreators - CodeBase - Multi Line Text wrapped in a box.

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 19th Sep 2003 20:40

Modified: 19th Sep 2003 20:44

Author: =C=

Summary

Converts a long single line to and image of the Text wrapped in a box.

Full Description

It is faster to paste an image than write text line by line in the main loop. Prepare your text in a multi line wrapped box first and then just paste the text image on the screen. What the code does is: 1. Gets a long string 2. loop and break it in sections 3. check if the section ends in space or reduce it until it does. 4. write the text in a bitmap 5. crop the bitmap so the text is "boxed" as an image 6. return the image 7. main loop just pastes the image on the screen (bitmap 0) Step three is the second function call. I also get up to 72 FPS instead of 66 that is in the screenshot being the minimum I saw...

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

-------------------------------------------------------------------

program name: Multi Line Text Wrapper

-------------------------------------------------------------------

written by: Anthrakas

date: 20 September 2003

-------------------------------------------------------------------

comments: Use freely and if you improve it let me know...

-------------------------------------------------------------------

remend

Set Display Mode 1024,768,16

Sync On

Sync Rate 0

Hide Mouse

backdrop on

`Set Text Properties

set text font "COURIER"

set text size 16

ink RGB(255,255,255), RGB(0,0,0)

ls_text$ = "This is a long text line and it should appear in a nice and boxed way which is more useful. Let's see if it works eh?"

img_text = box_text(ls_text$, 250)

text 1,1,str$(scancode())

text 1,10,str$(SCREEN FPS())

PASTE IMAGE img_text, 100, 100

SYNC

loop

END

` FUNCTION SECTION

function box_text(as_text$, width)

`Get Text Properties

font_height = TEXT HEIGHT(as_text$)

font_width = TEXT SIZE()

ls_message$ = as_text$

chars = len(ls_message$)

`make box based on text given

text_box = 1

limit = (width / font_width)

height = ((chars / limit) + 1) * font_height

CREATE BITMAP text_box, width, height

set current bitmap text_box

newx = 0: newy = 0

while chars > 0

`extract the current line to write

line$ = left$(ls_message$, limit)

`Clean line from spaces and leave last word complete

if rest > limit then line$ = cleanText(line$)

`write new complete word and increase line

text newx, newy, line$

inc newy, font_height

`move to the rest of the message and chop

chars = len(ls_message$)

rest = chars - len(line$) :`newlimit

restMsg$ = right$(ls_message$, rest)

ls_message$ = restMsg$

endwhile

`now grab the text_box and make is an image and return it

get Image text_box, 0, 0, width, height

delete bitmap text_box

SET CURRENT BITMAP 0

endfunction text_box

function cleanText(as_text$)

ls_line$ = as_text$

lc = len(ls_line$)

if left$(ls_line$, 1) = " " then dec lc: ls_line$ = right$(ls_line$, lc)

while right$(ls_line$, 1) <> " ":`dont chop a word in half

dec lc, 1

ls_line$ = left$(ls_line$, lc)

endwhile

endfunction ls_line$

Download

Please login to download

Comments

No comments yet.

Author Name:	=C=
CodeBase Entries:	6

CodeBase - Multi Line Text wrapped in a box.

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments