Challenge....

[Antoni Gual]

Here are some effects:

This one would be fine with some speed. Link it with ffix..

Code:

'sinus wave by Antoni Gual
1 SCREEN 13
2 FOR i% = 0 TO 100
3 FOR j% = 0 TO 100
4 PSET (i% + 120, j% + 50), ((i% / 8 + (COS(i% / 19.6) * tt * SIN(j% / 19.6))) AND 15) XOR ((j% / 8 + (SIN(i% / 19.6) * tt * COS(j% / 19.6))) AND 15) + 16
5 NEXT j%, i%
6 t = t + 1
7 tt = COS(t)
8 IF LEN(INKEY$) = 0 THEN GOTO 1

A cheap hack..

Code:

'mind-blowing square plasma by Antoni Gual
1 SCREEN 13
3 FOR Ix% = 0 TO 319
4      FOR Iy% = 0 TO 199
5      PSET (Ix%, Iy%), (Ix% - L%) AND (Iy% + L%) AND (Ix% + L%) AND (Iy% - L%)
6      NEXT Iy%, Ix%
7      L% = (L% + 1) AND 255
9 IF LEN(INKEY$) = 0 THEN 3

And pure maths one..

Code:

'Lissajous by Antoni Gual
1 IF k# = 0 THEN SCREEN 12 ELSE CLS
2 IF k# = 0 THEN RANDOMIZE TIMER ELSE n% = (RND * 14)
3 k# = INT(RND * 20 + 1) / INT(RND * 20 + 2)
4 k1# = 1 / k#
6 FOR j# = 0 TO 500 STEP .005
7 PSET (320 + 300 * SIN(k# * j#), 240 + 200 * SIN(j# * k1#)), n% + 1
8 NEXT
9 IF LEN(INKEY$) = 0 THEN GOTO 1
[/code]

[toonski84]

eh, i gave up on the wu line and went for the world's slowest 7-line anti-aliased circle drawer:

Code:

1 SCREEN 13
2 RANDOMIZE TIMER
3 c& = RND * 2048000
4 FOR x& = 0 TO 63999
5 IF ABS(SQR((x& MOD 320 - ((c& MOD 64000) MOD 320)) ^ 2 + (x& \ 320 - (c& MOD 64000) \ 320) ^ 2) - (c& \ 64000)) <= 1 THEN PSET (x& MOD 320, x& \ 320), (1 - ABS(SQR((x& MOD 320 - ((c& MOD 64000) MOD 320)) ^ 2 + (x& \ 320 - (c& MOD 64000) \ 320) ^ 2 _
) - (c& \ 64000))) * 14 + 16
6 NEXT x&
7 IF INKEY$ = "" THEN GOTO 1

[relsoft]

kewl!!!!

Okay, for the names...

Antoni1.bas
Antoni16.bas

Joe1.bas
Joe6.bas


inside the file:

Dev:

Author: Antoni Gual
Site: Blah.cjb.net
Description: The most amazing floormapper I've seen!!!!

Hows that?

:bounce:

[Antoni Gual]

Rel:What's so amazing about my floormaper?
It's just a floormaper without any optimization.I only got rid of all artifices people uses to make it fast.
Your lightmapper or your lens are really serious effects..

[toonski84]

i think as the overall demo bin gets thinner, maybe we should make a way to judge all these demos.

my favs:
sphere and light mapper
floormapper
manderbolt (me no spell good)
starfield
glenn's super-duper demo!

[Antoni Gual]

I would add to the list the non-standard pinwheel by wizardlife
And off course Glenn's nihilist demo is the winer! :rotfl:

[qbasicmaster]

I have made a screen saver but dont know how to stop it!!!!
This is the code

Code:

strt: CLS
SCREEN 13
LINE (1, 1)-(153, 360), 3, BF
LINE (153, 360)-(360, 153), 4, BF
GOTO strt

Only 4 lines but need to know how to stop it.
See ya!
QBmaster :lol:

[ak00ma]

Here the code with a stop part:

Code:

strt: CLS
SCREEN 13
LINE (1, 1)-(153, 360), 3, BF
LINE (153, 360)-(360, 153), 4, BF
IF INKEY$ = "" THEN GOTO strt

So you only have to press a key to stop the proggy

[na_th_an]

I wouldn't include that SCREEN 13 inside the loop... Think about this: some old VGA cards take time to switch mode, and also the CRT suffers when doing it... In that case, your proggy wouldn't be a screen saver but a screen killer :lol:

[toonski84]

Code:

1 IF x& = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0
2 IF x& = 0 THEN DEF SEG = &HA000 ELSE i& = i& + iv&
3 IF x& = 0 THEN iv& = 1 ELSE IF i& = 320 OR i& = -1 THEN iv& = -iv&
4 CIRCLE (i&, -ABS(COS(i& / 30) * 80) + 153), 4, 30
5 PAINT (i&, -ABS(COS(i& / 30) * 80) + 153), 30
6 FOR x& = 12800 TO 51200
7  IF ABS(i& - (x& MOD 320)) < 18 THEN IF PEEK(x&) = 0 THEN POKE x&, 16 ELSE POKE x&, ((PEEK(x& + 1) + PEEK(x& - 1) + PEEK(x& + 320) + PEEK(x& - 320)) - 64) \ 4 + 16
8 NEXT x&
9 IF INKEY$ = "" THEN GOTO 1

interviewer: joe, are you running out of ideas?
joe: yes, yes i am.