+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: Challenge.... (/thread-93.html)
Challenge.... - Antoni Gual - 02-08-2003
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 1A 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 3And 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]Challenge.... - toonski84 - 02-08-2003
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 1Challenge.... - relsoft - 02-08-2003
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:
Challenge.... - Antoni Gual - 02-08-2003
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..
Challenge.... - toonski84 - 02-08-2003
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!
Challenge.... - Antoni Gual - 02-08-2003
I would add to the list the non-standard pinwheel by wizardlife
And off course Glenn's nihilist demo is the winer! :rotfl:
Easy saver - qbasicmaster - 02-08-2003
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 strtSee ya!
QBmaster :lol:
Challenge.... - ak00ma - 02-09-2003
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 strtSo you only have to press a key to stop the proggy
Challenge.... - na_th_an - 02-09-2003
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:
Challenge.... - toonski84 - 02-09-2003
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 1interviewer: joe, are you running out of ideas?
joe: yes, yes i am.