Blur Text by Richard Davey14th 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 |