Run these codes in FB
'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
'Nother one
'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
Too bad I'm at work, I will try it when I get to home :)
Cool stuff :)
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!
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]
Cool!
We'll have to do something along those lines here I think. It sounds quick and good fun!