Video FeedBack

[kevin]

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

Code Select Expand



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.

[kevin]

  Video Feedback #2

     Here's another video feedback variation in PB1.70

Code Select Expand



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