TheGameCreators - CodeBase

Category: Text

Version: 1.0

Information

Uploaded: 16th Jul 2011 22:09

Modified: 9th Sep 2011 23:11

Author: Webber

Summary

A program that displays all of the different fonts available. Most of the controls are with the mouse, but you can also change the size of the text with the "w" and "s" keys.

Full Description

Controls: The Mouse Z movement will scroll through the text. The left button on the mouse centers, and uncenters the text. The right button on the mouse changes the text to bold, bolditalic, italic, and normal The center button on the mouse changes all of the fonts The lower case "w" key will increase the size of the text The lower case "s" key will decrease the size of the text Great program for testing out different fonts, and text stuff. Credit to The Game Guy would be appreciated, but is not required.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Project: Font Testing

`Author: The Game Guy

Rem set up stuffs

set display mode 640,480,32

sync on

TextSize = 37 `8-40

Rem Gets all of the data of the fonts available

perform checklist for fonts

Num = Checklist Quantity() `Variable of the number of fonts

Goto Start `Jumps into the loop in order to draw the text at the start

`L      OOOOO  OOOOO  PPPPP

`L      O   O  O   O  P   P

`L      O   O  O   O  PPPPP

`L      O   O  O   O  P

`LLLLL  OOOOO  OOOOO  P

MMZ = MouseMoveZ() `Variable for the z movement of the mouse

`Changes the size of the text

if inkey$() = "w" then inc TextSize,1

if inkey$() = "s" then dec TextSize,1

if TextSize < 8 then TextSize = 8

if TextSize > 39 then TextSize = 39

`Changes the position of the text

if MMZ > 0 then dec Shift,2

if MMZ < 0 then inc Shift,2

if Shift < 0 then Shift = 0

if Shift > Num-10 then Shift = Num-10

`Centers and uncenters the text

if mouseclick() = 1 then inc Center

if Center = 2 then Center = 0

`Changes the bold and italic effects on the text

if mouseclick() = 2 then inc BoldItalic

if BoldItalic = 4 then BoldItalic = 0

`Changes the fonts

if mouseclick() = 4 then inc Flonts,1

if Flonts > 1 then Flonts = 0

if Flonts = 1 then set text font "Modern"

`TTTTT  EEEEE  X   X  TTTTT

`  T    E       X X     T

`  T    EEEE     X      T

`  T    E       X X     T

`  T    EEEEE  X   X    T

if MMZ <> 0 or inkey$() <> "" or mouseclick() <> 0

cls

Start: `this draws the text at the start of the program

Rem Main Text loop

for i = 1+Shift to 10+Shift

Font$ = Checklist string$(i)

if Flonts = 0 then set text font Font$

set text size TextSize

if BoldItalic = 0 then set text to Normal

if BoldItalic = 1 then set text to Bold

if BoldItalic = 2 then set text to BoldItalic

if BoldItalic = 3 then set text to Italic

if Center = 1 `displays the text to the screen

center text 320,i*TextSize-Shift*TextSize,Font$

else

text 20,i*TextSize-Shift*TextSize,Font$

endif

next i

Rem Other text stuffs

set text font "Modern"

set text to normal

set text size 18

Rem displays the type of text

set cursor 540,5

if BoldItalic = 0 then print "Normal"

if BoldItalic = 1 then print "Bold"

if BoldItalic = 2 then print "BoldItalic"

if BoldItalic = 3 then print "Italic"

set cursor 540,25

Print "TextSize: ";TextSize `displays the size of the text

endif

sync

loop

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Webber
CodeBase Entries:	14

CodeBase - Font Testing