Qbasicnews.com
Challenge.... - Printable Version

+- 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)

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

Do you want another one? - Antoni Gual - 01-31-2003

Code:
1 SCREEN 12
2  v% = RND * 20 + 10
3 REDIM VX%(v%), VY%(v%)
4 FOR d1% = -1 TO v%
5 FOR d2% = d1% + 1 TO v%
6  IF d1% = -1 THEN VX%(d2%) = 320 + (SIN(6.283185 * (d2% / v%)) * 239) ELSE LINE (VX%(d1%), VY%(d1%))-(VX%(d2%), VY%(d2%)), (v% MOD 16) + 1
7  IF d1% = -1 THEN VY%(d2%) = 240 + (COS(6.283185 * (d2% / v%)) * 239)
8 NEXT d2%, d1%
9 IF LEN(INKEY$) = 0 THEN GOTO 2


Re: Do you want another one? - wizardlife - 01-31-2003

Quote:
Code:
1 SCREEN 12
2  v% = RND * 20 + 10
3 REDIM VX%(v%), VY%(v%)
4 FOR d1% = -1 TO v%
5 FOR d2% = d1% + 1 TO v%
6  IF d1% = -1 THEN VX%(d2%) = 320 + (SIN(6.283185 * (d2% / v%)) * 239) ELSE LINE (VX%(d1%), VY%(d1%))-(VX%(d2%), VY%(d2%)), (v% MOD 16) + 1
7  IF d1% = -1 THEN VY%(d2%) = 240 + (COS(6.283185 * (d2% / v%)) * 239)
8 NEXT d2%, d1%
9 IF LEN(INKEY$) = 0 THEN GOTO 2
Yikes, it's like spyrograph or something... nice... I need to experiment more with all this trig stuff you guys are pulling.

Challenge.... - wizardlife - 01-31-2003

The standard 'pinwheel':
Code:
1 SCREEN 12
2 FOR colour = 0 TO 15
3 PALETTE colour, colour * 4
4 NEXT
5 angle! = angle! + .1
6 colour = colour + 1
7 IF colour > 15 THEN colour = 0 ELSE IF angle! > 360 THEN angle! = angle! - 360
8 PSET (INT(SIN(angle!) * angle!) + 320, INT(COS(angle!) * angle!) + 240), colour
9 IF INKEY$ = "" THEN GOTO 5
EDIT: There it is with the palette switched.

Challenge.... - wizardlife - 02-01-2003

The non-standard pinwheel:
Code:
1 SCREEN 12
2 FOR colour = 0 TO 15
3 PALETTE colour, colour * 4 * 65536 + (colour * 2)
4 NEXT
5 angle! = angle! + .1
6 colour = colour + 1
7 IF colour > 15 THEN colour = 0 ELSE IF angle! > 360 THEN angle! = angle! - 360
8 PSET (INT(SIN(angle!) * angle! + angle!), INT(COS(angle!) * angle!) + 300), colour
9 IF INKEY$ = "" THEN GOTO 5

edit: just moved it from being centred at 240 to 300 (feels more balanced that way)

A huge program... - Antoni Gual - 02-01-2003

This should not be posted here as it's 11 lines but.... Out of contest, off course.


Code:
' cube rotator in 11 lines. From a 19 liner by Entropy, shrinked by Antoni Gual
1 IF x1 = 0 THEN SCREEN 13 ELSE r = (r + .01745) + 6.283185 * (r >= 6.283185)
2  FOR x = -30 TO 30 STEP 10
3    FOR y = -30 TO 30 STEP 10
4      FOR z = -30 TO 30 STEP 10
5        x1 = ((x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * COS(r) + (y * COS(r) + z * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)
6        y1 = ((y * COS(r) + z * SIN(r)) * COS(r) - (x * COS(r) - (z * COS(r) - y * SIN(r)) * SIN(r)) * SIN(r)) / (x * SIN(r) + (z * COS(r) - y * SIN(r)) * COS(r) + 100)
7        PSET ((100 * x1 + 160), (100 * y1 + 100)), 31
8  NEXT z, y, x
9  WAIT &H3DA, 8
10 LINE (99, 39)-(221, 161), 0, BF
11 IF LEN(INKEY$) = 0 THEN GOTO 1


Challenge.... - Antoni Gual - 02-01-2003

Wizardlife: Your non-standard pinwheel is the best effect i have seen so far! Great!

Challenge.... - BlueKeyboard - 02-01-2003

Lines inside a circle...
Code:
SCREEN 13
DO
WAIT &H3DA, 8
FOR A% = 0 TO 359
PSET (160 + COS(A% * 3.1415 / 180) * 40, 100 + SIN(A% * 3.1415 / 180) * 40), RND
NEXT
A% = INT(RND * 360)
LINE (160 + COS(A% * 3.1415 / 180) * 39, 100 + SIN(A% * 3.1415 / 180) * 39)-(160 + COS((A% + 180) * 3.1415 / 180) * 39, 100 + SIN((A% + 180) * 3.1415 / 180) * 39), INT(RND * 16) + 15
LOOP


Challenge.... - toonski84 - 02-01-2003

well, after that non-standard pinwheel i give up Tongue

that 'seizure vision which is not seizure visions on slow computers' is pretty much a bunch of calculated crap thrown together Smile

No palette rotators? - Antoni Gual - 02-01-2003

Here is mine:
Code:
'vortex (Kinda of..) Antoni Gual 2003
1 SCREEN 13
2 OUT &H3C7, 0
3 a$ = a$ + CHR$(INP(&H3C9))
4 CIRCLE (160, 290 - LEN(a$) ^ .79), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5
5 CIRCLE (160, 290 - LEN(a$) ^ .79 + 1), LEN(a$) / 2.8, LEN(a$) \ 3, , , .5
6 IF LEN(a$) < 256 * 3 THEN 3 ELSE OUT &H3C8, 0
7 j = (j + 1) MOD (LEN(a$) - 3)
8 OUT &H3C9, ASC(MID$(a$, j + 1, 1))
9 IF LEN(INKEY$) = 0 THEN 7
:barf:

Challenge.... - wizardlife - 02-01-2003

Quote:Wizardlife: Your non-standard pinwheel is the best effect i have seen so far! Great!

thx. I was trying to dig up all the stuff I made my graphing calculator do in grade 10 when we were supposed to be translating parabolas... [Image: laugh.gif]

I don't think anyone's going to hit rel's plasma for sheer 'cool' factor, tho.

I really like that falling text one. *runs away to watch the matrix dvd*