Video feedback Styled effect - GameCreators Forum

Author

Message

Kevin Picone

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

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

Link

Here 's a little video feedback styled effect in PlayBasicFX V1.70

+ Code Snippet

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?

Attachments

Login to view attachments

Back to top

Profile PM Website

Kevin Picone

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

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

Link

Video Feedback

Here's another video feedback variation in PlayBASIC FX 1.70

+ Code Snippet


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?

Attachments

Login to view attachments

Back to top

Profile PM Website

Sorry your browser is not supported!

2D All the way! / Video feedback Styled effect

Attachments

Attachments