Author Topic: Short Intro Challenge - Axial  (Read 4187 times)

0 Members and 1 Guest are viewing this topic.

Offline TinDragon

  • Pentium
  • *****
  • Posts: 644
  • Karma: 24
    • View Profile
    • J2K's blog
Short Intro Challenge - Axial
« 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

Offline Rbz

  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 2757
  • Karma: 493
    • View Profile
    • https://www.rbraz.com/
Re: Short Intro Challenge - Axial
« Reply #1 on: June 11, 2006 »
Cool !

 :cheers:
Challenge Trophies Won:

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17409
  • Karma: 498
  • evil/good
    • View Profile
    • My Homepage
Re: Short Intro Challenge - Axial
« Reply #2 on: June 11, 2006 »
That's nice :)
Shockwave ^ Codigos
Challenge Trophies Won:

Offline Optimus

  • DBF Aficionado
  • ******
  • Posts: 2456
  • Karma: 128
    • View Profile
    • Optimouse Demo Site
Re: Short Intro Challenge - Axial
« Reply #3 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).
Challenge Trophies Won:

Offline TinDragon

  • Pentium
  • *****
  • Posts: 644
  • Karma: 24
    • View Profile
    • J2K's blog
Re: Short Intro Challenge - Axial
« Reply #4 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  :(

Offline Tetra

  • DBF Aficionado
  • ******
  • Posts: 2532
  • Karma: 83
  • Pirate Monkey!
    • View Profile
Re: Short Intro Challenge - Axial
« Reply #5 on: June 12, 2006 »
Pretty cool :) again I like the range of colors on the srceen
« Last Edit: June 12, 2006 by Tetra »
Challenge Trophies Won: