Nice effect

This code has been declared by its author to be Public Domain code.

Nice effect by jankupila

2010

This piece of code is translated from Coolbasic to blitzmax. Original programmer is Kankikalle.

Graphics 800,600,1
Repeat
    aika=aika+1
    For x=1 To 60
        For y= 1 To 50
            SetColor Cos(aika+y*2.5+x*2.5)*127+127,Sin(aika+y*5)*127+127,Sin(aika+x*5)*127+127
            DrawLine x*10+Sin(aika+y*5)*20,y*10+Sin(aika+x*5)*20,x*10+Sin(aika+y*5)*20+Sin(aika+x*5)*10,y*10+Sin(aika+x*5)*20+Sin(aika+y*5)*10
        Next 
    Next 
    Flip;Cls
If KeyHit(key_escape) Then End
Forever

Comments

mv333

2012

Blitz3d version :

Graphics 800,600,1
SetBuffer BackBuffer()
Repeat
    aika=aika+1
    For x=1 To 60
        For y= 1 To 50
            Color Cos(aika+y*2.5+x*2.5)*127+127,Sin(aika+y*5)*127+127,Sin(aika+x*5)*127+127
            Line x*10+Sin(aika+y*5)*20,y*10+Sin(aika+x*5)*20,x*10+Sin(aika+y*5)*20+Sin(aika+x*5)*10,y*10+Sin(aika+x*5)*20+Sin(aika+y*5)*10
        Next 
    Next 
    Flip
	Cls
If KeyHit(1) Then End
Forever

Code Archives Forum