Qbasicnews.com

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Here are some effects:

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

Code:
'sinus wave by Antoni Gual

SCREEN 13

FOR i% = 0 TO 100

FOR j% = 0 TO 100

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

NEXT j%, i%

t = t + 1

tt = COS(t)

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

IF k# = 0 THEN SCREEN 12 ELSE CLS

IF k# = 0 THEN RANDOMIZE TIMER ELSE n% = (RND * 14)

k# = INT(RND * 20 + 1) / INT(RND * 20 + 2)

k1# = 1 / k#

FOR j# = 0 TO 500 STEP .005

PSET (320 + 300 * SIN(k# * j#), 240 + 200 * SIN(j# * k1#)), n% + 1

NEXT

IF LEN(INKEY$) = 0 THEN GOTO 1

[/code]

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

Code:
SCREEN 13

RANDOMIZE TIMER

c& = RND * 2048000

FOR x& = 0 TO 63999

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

NEXT x&

IF INKEY$ = "" THEN GOTO 1

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:

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..

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!

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

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:

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

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:

Code:
IF x& = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0

IF x& = 0 THEN DEF SEG = &HA000 ELSE i& = i& + iv&

IF x& = 0 THEN iv& = 1 ELSE IF i& = 320 OR i& = -1 THEN iv& = -iv&

CIRCLE (i&, -ABS(COS(i& / 30) * 80) + 153), 4, 30

PAINT (i&, -ABS(COS(i& / 30) * 80) + 153), 30

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

NEXT x&

IF INKEY$ = "" THEN GOTO 1

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

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Antoni Gual

toonski84

relsoft

Antoni Gual

toonski84

Antoni Gual

qbasicmaster

ak00ma

na_th_an

toonski84