Dark Bit Factory & Gravity

GENERAL => Challenges & Competitions => Topic started by: TinDragon on June 11, 2006

Title: Short Intro Challenge - Axial
Post by: TinDragon on June 11, 2006

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


Title: Re: Short Intro Challenge - Axial
Post by: Rbz on June 11, 2006

Cool !

 :cheers:

Title: Re: Short Intro Challenge - Axial
Post by: Shockwave on June 11, 2006

That's nice :)

Title: Re: Short Intro Challenge - Axial
Post by: Optimus on June 11, 2006

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).

Title: Re: Short Intro Challenge - Axial
Post by: TinDragon on June 11, 2006

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  :(

Title: Re: Short Intro Challenge - Axial
Post by: Tetra on June 12, 2006

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