TGC Codebase Backup



Blur Text by Richard Davey

14th Sep 2003 9:45
Summary

A nice and smooth text blur display.



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	------------------------------------------------------------------------
`	Blur Text                                   DarkForge Snippet (6/8/2000)
`	------------------------------------------------------------------------
`
`	A nice and smooth text blur display.

sync rate 0
sync on
hide mouse

`	Change bl to alter the blur level (1 = very fast, 6 = very slow!)

bl=3
t$="DARKFORGE"

ink rgb(255,0,0),rgb(0,0,0)
set text font "Arial"
set text size 40

create bitmap 1,320,100

do

	set current bitmap 1

	if counter=2

		ink rgb(0,0,0),0
		x=rnd(10)+120
		y=rnd(20)

		center text x,y,t$

		r=rnd(100)+155
		g=rnd(100)+155
		b=rnd(100)+155

		ink rgb(r,g,b),0

		center text x+1,y+1,t$
		counter=0

	endif

	blur bitmap 1,bl
	get image 1,0,0,320,100
	set current bitmap 0
	paste image 1,(screen width()-320)/2,(screen height()-100)/2

	inc counter

	sync

loop