Short Intro Challenge - Axial

[TinDragon]

Here's a quicky based on a piece of shockwaves code so it's not really my entry, I just shrunk it down into 20 lines without to much reduction in the effect

Code: [Select]

Graphics 640,480,32,2
SetBuffer BackBuffer ()
Dim col(2880)
For a=0 To 2880
 col(a)=14400+14400*Sin(a)
Next
While Not KeyDown(1)
s=s+5
l=l+1
If l>=1440 Then l=l-1440
ls=200+199*Sin(l)
LockBuffer BackBuffer()
For y=0 To 479
For x=0 To 639
  WritePixelFast x,y,col(ls+x)+col(y+ls*2)+s
Next
Next
UnlockBuffer BackBuffer()
Flip
Wend


[Rbz]

Cool !

 

[Shockwave]

That's nice

[Optimus]

Is that on freebasic or any other basic compiler? I have not seen some of the entries because they didn't compiled in FB. Maybe it would be a good idea to provide executables for those who might have not installed the compilers (I don't have blitzbasic for example).

[TinDragon]

I dont currently have any webspace to host the files and blitz makes bloated exe's which I cant get small enough for the attachments, sorry about that 

[Tetra]

Pretty cool again I like the range of colors on the srceen