Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

2D All the way! / Video feedback Styled effect

Author

Message

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 2nd Oct 2007 06:49 Edited at: 26th Mar 2011 22:57

Here 's a little video feedback styled effect in PlayBasicFX V1.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

http://www.playbasic.com

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 3rd Oct 2007 02:35 Edited at: 26th Mar 2011 22:58

Video Feedback

Here's another video feedback variation in PlayBASIC FX 1.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

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Back to top

Login to post a reply

Server time is: 2025-08-09 02:09:25
Your offset time is: 2025-08-09 02:09:25