Dark Bit Factory & Gravity

PROGRAMMING => Freebasic => Topic started by: relsoft on June 08, 2006

Title: Is it time?
Post by: relsoft on June 08, 2006

Run these codes in FB

Code: [Select]

'Translucency is me. :*)
'by Jelly/rel

1 IF i& = 0 THEN SCREEN 13 ELSE IF i& <= 256 THEN PALETTE i& - 1, 65536 * INT(32 - 31 * SIN(i& * 3.14151693# / 128)) + 256 * INT(32 - 31 * SIN(i& * 3.14151693# / 64)) + INT(32 - 31 * SIN(i& * 3.14151693# / 32)) ELSE z% = 64 * (((i& AND 1) = 1) OR 1)
2 IF xa% = 0 THEN DIM Lsin%(1024) ELSE i& = (i& + 1) AND &H7FFFFFFF
3 FOR ya% = 0 TO 127
4 IF i& < 385 THEN Lsin%(i&) = SIN((i&) / 25) * 64 ELSE xsin% = SIN((ya% + i&) / 20) * 32
5 FOR xa% = 0 TO 254
6 z% = -z%
7 PSET (32 + xa%, 36 + ya%), (xa% + xsin%) + Lsin%(ya% + 64 + z%) + Lsin%(xa% + ya%)
8 NEXT xa%, ya%
9 IF INKEY$ = "" THEN 1

Title: Re: Is it time?
Post by: relsoft on June 08, 2006

'Nother one

Code: [Select]

'Lovely Wobbly
'by Jelly/rel

1 IF I& = 0 THEN SCREEN 13 ELSE IF I& < 256 THEN PALETTE I& - 1, 65536 * INT(32 - 31 * SIN(I& * 3.14151693# / 128)) + 256 * INT(32 - 31 * SIN(I& * 3.14151693# / 64)) + INT(32 - 31 * SIN(I& * 3.14151693# / 32))
2 I& = (I& + 1) AND &H7FFFFFFF
3 FOR ya% = 0 TO 199
4 xsin% = SIN((ya% + I&) / 20) * 50
5 FOR xa% = 0 TO 319
6 PSET (xa%, ya%), (xa% + xsin%) XOR (ya% + (SIN((xa% + I&) / 30) * 60))
7 NEXT xa%, ya%
8 IF INKEY$ = "" THEN 1

Title: Re: Is it time?
Post by: Rbz on June 08, 2006

Too bad I'm at work, I will try it when I get to home :)

Title: Re: Is it time?
Post by: Ghost^BHT on June 08, 2006

Cool stuff :)

Title: Re: Is it time?
Post by: Shockwave on June 08, 2006

Neato :) The first one is cooler, although it's nice to see the Xor texture back in action! Don't tell me you wrote these without actually being able to run 'em? Cool!

Title: Re: Is it time?
Post by: relsoft on June 09, 2006

It was part of a 9 line screensaver challenge at QBNZ.com(which I won. hehehehehe)

The rules were simple...

• 1. 9 lines of code
• 2. No colon joined lines
• 3. No external libs
• 4. No external lib calls

[Edit - Bullet list formatting corrected]

Title: Re: Is it time?
Post by: Shockwave on June 09, 2006

Cool!
We'll have to do something along those lines here I think. It sounds quick and good fun!