Coding competition!

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Floyd

Okay, here is a version suitable for both BlitzPlus and Blitz3D.

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()    ; needed for Blitz3D, automatic in BlitzPlus

picta=LoadImage( "whatever.bmp" )
ResizeImage picta, 800, 600
DrawImage picta, 0, 0
Flip

While Not KeyDown( 1 )
	timer# = ( timer# + 0.2 ) Mod 360.0
	aa# =  Abs( Cos( timer ) )
	ZetGamma( aa )	
	UpdateGamma
Wend

Function ZetGamma( ax# )
	For a = 0 To 255
		b = a * ax
		SetGamma a,a,a, b,b,b
	Next
End Function