Challenge....

[Rokkuman]

Code:

SCREEN 13
FOR I% = 1 TO 256
        OUT &H3C8, I%: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, I% * 5
NEXT
DO
        A = INT(RND * 320) + 2
        B = INT(RND * 200) + 2
        LINE (A + SIN(A * 9), B + COS(B \ 9))-(A + COS(A \ 9), B + SIN B * 9)) , A * B \ B
LOOP

Here's my first entry, I just typed in a bunch of random variables and whatnot, and this is what it looked like.

[relsoft]

Toonski: Woot!!!!! Wooot!!!!!

See it looks great in 80*50!!!!

some 3dwaves:

this is the 9 line Flickers code:

Code:

'The Waves..... By RelSoft 2003
'Relsoft.ath.cx

1  IF A% = 0 THEN SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15)
2  A% = (A% + 10) MOD 360
3  LINE (0, 0)-(639, 479), 0, BF
4  FOR x% = 0 TO 14
5  FOR z% = 0 TO 15
6  PSET ((320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)), (320 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1))), 16 - (((z% * ( _
1 / 15 * 640)) / 640 + 1) - 1) * 15
7  NEXT z%, x%
8  WAIT &H3DA, 8
9  IF INKEY$ = "" THEN 2

This one is better looking but 10 lines so its disqualified:

Code:

'The Waves..... By RelSoft 2003
'Relsoft.ath.cx

1  IF A% = 0 THEN SCREEN 12 ELSE DIM TX!(15, 15), TY!(15, 15)
2  A% = (A% + 10) MOD 360
3  FOR x% = 0 TO 14
4  FOR z% = 0 TO 15
5  PSET (TX!(x%, z%), TY!(x%, z%)), 0
6  TX!(x%, z%) = 320 + ((x% * (1 / 15 * 640)) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)
7  TY!(x%, z%) = 320 + ((150 + 25 * SIN((A% + (15 * (((x% - (N / 2)))) ^ 2 + ((z% - (N / 2))) ^ 2)) * (3.141593 / 180))) - 320) / ((z% * (1 / 15 * 640)) / 640 + 1)
8  PSET (TX!(x%, z%), TY!(x%, z%)), 16 - (((z% * (1 / 15 * 640)) / 640 + 1) - 1) * 15
9  NEXT z%, x%
10 IF INKEY$ = "" THEN 2

[Agamemnus]

That is REALLY REALLY impressive!!

Weird yet IMPRESSIVE!

Nice @ Megaman, but you forgot a

Code:

(

[relsoft]

Gotta luv that Cyrix...

Code:

'"Blurred StarField"
'relsoft.ath.cx

1 IF I& = 0 THEN SCREEN 13 ELSE IF I& < 256 THEN PALETTE I&, 65536 * (I& \ 4) + 256 * (I& \ 4) + (I& \ 4)
2 I& = (I& + 1) AND &H7FFFFFFF
3    FOR K& = 0 TO 255 STEP 1
4        IF I& > 256 THEN CIRCLE (160 + COS(K& - I&) * K&, 100 + SIN(K& - I&) * K&), 1, 255
5    NEXT K&
6 IF I& > 255 THEN J& = (J& + 1) ELSE GOTO 9
7    IF I& > 256 THEN POKE J&, (PEEK(J&) + PEEK(J& - 1) + PEEK(J& + 1) + PEEK(J& - 320) + PEEK(J& + 320)) \ 5 ELSE IF I& = 256 THEN DEF SEG = &HA000
8 IF J& < 64000 THEN 5 ELSE J& = -1
9 IF INKEY$ = "" THEN 1

DEF SEG

[toonski84]

no, really, rel, you can stop it!!

i dont know if "starfield" is really the best word for that though *shrug*. i have an idea on how to combine a real starfield and a blur but it's slow.

[relsoft]

Please post.... Nice to learn new stuff.

Would that be:

X=I&\320
Y=(I& mod 320)\320

?
:*)

OMG!!! that bouncing blurr is Kewl!!! Fast too!!!!

[toonski84]

erm, to convert linear mode 13 coordinates to regular:

x = i& mod 320
y = i& \ 320

and i said i had an idea, which means i'll be tackling this tomorrow

[relsoft]

Kewl!!!!!

But i am using this:

I&=(I&+1) amd &H7fffffff

So I need the exta mod. :*)

Would somebody count how many F's are there?

;*)

[toonski84]

cool 7 f's. but what does it do? ensure you dont reach infinity?

[relsoft]

oooops!! Major Gufaw....

Should be MOD 64000 not mod 320

Nahh that's the AND doing what's its supposed to do . *)