text shadows - GameCreators Forum

Author

Message

HowDo

22

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 22nd Apr 2005 04:47 Edited at: 22nd Apr 2005 04:58

Link

Just playing about with text, any comments welcome.

Rem Project: textshahow
Rem Created: 4/21/2005 7:10:37 PM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 42 : set text transparent
tex$="Hello there, What'd you think!"
do
ink RGB(0,255,0),RGB(255,255,255)
box 0,20,screen width(),70
ink RGB(0,100,0),RGB(255,255,255)
center text screen width()/2,20,tex$
ink RGB(0,255,0),RGB(255,255,255)
center text screen width()/2+1,20+1,tex$
ink RGB(0,255,0),RGB(255,255,255)
box 0,80,screen width(),130
ink RGB(0,100,0),RGB(255,255,255)
center text screen width()/2,80,tex$
ink RGB(0,255,0),RGB(255,255,255)
center text screen width()/2-1,80-1,tex$
ink RGB(0,255,0),RGB(255,255,255)
box 0,140,screen width(),190
ink RGB(0,190,0),RGB(255,255,255)
center text screen width()/2-1,140-1,tex$
ink RGB(0,0,0),RGB(255,255,255)
center text screen width()/2,140,tex$
ink RGB(0,200,0),RGB(255,255,255)
center text screen width()/2+1,140+1,tex$

ink RGB(0,255,0),RGB(255,255,255)
box 0,200,screen width(),250

ink RGB(0,190,0),RGB(255,255,255)
center text screen width()/2,200-1,tex$
ink RGB(0,0,0),RGB(255,255,255)
center text screen width()/2,200,tex$
ink RGB(0,200,0),RGB(255,255,255)
center text screen width()/2,200+1,tex$
sync
loop

+ Code Snippet

Rem Project: textshahow
Rem Created: 4/21/2005 7:10:37 PM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 42 : set text transparent
tex$="Hello there, What'd you think!"
do
ink RGB(0,255,0),RGB(255,255,255)
box 0,20,screen width(),70
ink RGB(0,100,0),RGB(255,255,255)
center text screen width()/2,20,tex$
ink RGB(0,255,0),RGB(255,255,255)
center text screen width()/2+1,20+1,tex$
ink RGB(0,255,0),RGB(255,255,255)
box 0,80,screen width(),130
ink RGB(0,100,0),RGB(255,255,255)
center text screen width()/2,80,tex$
ink RGB(0,255,0),RGB(255,255,255)
center text screen width()/2-1,80-1,tex$
ink RGB(0,255,0),RGB(255,255,255)
box 0,140,screen width(),190
ink RGB(0,190,0),RGB(255,255,255)
center text screen width()/2-1,140-1,tex$
ink RGB(0,0,0),RGB(255,255,255)
center text screen width()/2,140,tex$
ink RGB(0,200,0),RGB(255,255,255)
center text screen width()/2+1,140+1,tex$

ink RGB(0,255,0),RGB(255,255,255)
box 0,200,screen width(),250

ink RGB(0,190,0),RGB(255,255,255)
center text screen width()/2,200-1,tex$
ink RGB(0,0,0),RGB(255,255,255)
center text screen width()/2,200,tex$
ink RGB(0,200,0),RGB(255,255,255)
center text screen width()/2,200+1,tex$
sync
loop

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

Lost in Thought

21

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 22nd Apr 2005 10:13 Edited at: 22nd Apr 2005 10:15

Link

Pretty cool but runs at 164 fps

changing the ink colors around a bit makes it 830 fps (change all background colors to 0

Back to top

Profile PM Email

HowDo

22

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 23rd Apr 2005 00:49 Edited at: 23rd Apr 2005 00:50

Link

ok moved it round a bit made draw back ground boxes first, I can only get 457 fps on my manhine, however its a 1 ghz PIII.

Rem Project: textshahow
Rem Created: 4/21/2005 7:10:37 PM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 42

tex$="Hello there, What'd you think!"
do
ink RGB(0,255,0),0
box 0,20,screen width(),70
box 0,80,screen width(),130
box 0,140,screen width(),190
box 0,200,screen width(),250

ink RGB(0,100,0),0
center text screen width()/2,20,tex$
center text screen width()/2,80,tex$
ink RGB(0,255,0),0
center text screen width()/2+1,20+1,tex$
ink RGB(0,255,0),0
center text screen width()/2-1,80-1,tex$
ink RGB(0,190,0),0
center text screen width()/2-1,140-1,tex$
ink RGB(0,0,0),0
center text screen width()/2,140,tex$
ink RGB(0,200,0),0
center text screen width()/2+1,140+1,tex$
ink RGB(0,190,0),0
center text screen width()/2,200-1,tex$
ink RGB(0,0,0),0
center text screen width()/2,200,tex$
ink RGB(0,200,0),0
center text screen width()/2,200+1,tex$
text 20,250,str$(SCREEN FPS())
sync
cls
loop

+ Code Snippet

Rem Project: textshahow
Rem Created: 4/21/2005 7:10:37 PM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 42

tex$="Hello there, What'd you think!"
do
ink RGB(0,255,0),0
box 0,20,screen width(),70
box 0,80,screen width(),130
box 0,140,screen width(),190
box 0,200,screen width(),250

ink RGB(0,100,0),0
center text screen width()/2,20,tex$
center text screen width()/2,80,tex$
ink RGB(0,255,0),0
center text screen width()/2+1,20+1,tex$
ink RGB(0,255,0),0
center text screen width()/2-1,80-1,tex$
ink RGB(0,190,0),0
center text screen width()/2-1,140-1,tex$
ink RGB(0,0,0),0
center text screen width()/2,140,tex$
ink RGB(0,200,0),0
center text screen width()/2+1,140+1,tex$
ink RGB(0,190,0),0
center text screen width()/2,200-1,tex$
ink RGB(0,0,0),0
center text screen width()/2,200,tex$
ink RGB(0,200,0),0
center text screen width()/2,200+1,tex$
text 20,250,str$(SCREEN FPS())
sync
cls
loop

In Space No One can Hear You Scream! (When your comm Line is cut?)

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / text shadows