Main Menu

Video FeedBack

Started by kevin, October 01, 2007, 10:38:01 PM

Previous topic - Next topic

kevin


Here's a little video feedback style effect from PB1.70






LoadFont  "Arial",1,75,0

Surf=New3Dimage(GetScreenWidth(),GetScreenHeight())


CurrentCol=RndRgb()
NextCol=RndRgb()


Setfps 60
Do

DRawAlphaIMage Surf,0,0,0.75,false
ink rgbalphablend(CurrentCol,NextCol,Blend)

CenterText mousex(),mousey(),"PlayBasic V1.70"

inc blend
if blend>100
blend=0
CurrentCol=NextCol
NextCol=RndRgb()
endif

CopyRect 0,0,0,GetScreenWidth(),GetSCreenHeight(),surf,0,0
Sync

loop




Draco9898

I'm assuming it's all in hardware? So silky smooth and fast. Very pretty.
DualCore Intel Core 2 processor @ 2.3 ghz, Geforce 8600 GT (latest forceware drivers), 2 gigs of ram, WIN XP home edition sp2, FireFox 2.

"You'll no doubt be horrified to discover that PlayBasic is a Programming Language." -Kevin

kevin

#2
  Video Feedback #2

     Here's another video feedback variation in PB1.70




LoadFont  "Arial",1,75,0

Surf1=New3Dimage(GetScreenWidth(),GetScreenHeight())

CurrentCol =RndRgb()
NextCol =RndRgb()

Setfps 60
Do

sw=GetScreenWidth()/2
sh=GetScreenHeight()/2
scale#=1.7
angle#=wrapangle(angle#,0.11)

DRawRotatedIMage  Surf1,sw,sh,angle#,scale#,scale#,sw*-1,sh*-1,false
CopyRect 0,0,0,GetScreenWidth(),GetSCreenHeight(),surf1,0,0

DRawAlphaIMage  Surf1,1,1,0.55,true

ink rgbalphablend(CurrentCol,NextCol,Blend)
CenterText mousex(),mousey(),"PlayBasic V1.70"

inc blend
if blend>100
blend=0
CurrentCol=NextCol
NextCol=RndRgb()
endif

CopyRect 0,0,0,GetScreenWidth(),GetSCreenHeight(),surf1,0,0

Sync

loop