Posts: 1,407
Threads: 117
Joined: Dec 2002
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
Antoni
Posts: 720
Threads: 46
Joined: Oct 2001
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.
Posts: 720
Threads: 46
Joined: Oct 2001
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.
Posts: 720
Threads: 46
Joined: Oct 2001
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)
Posts: 1,407
Threads: 117
Joined: Dec 2002
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
Antoni
Posts: 1,407
Threads: 117
Joined: Dec 2002
Wizardlife: Your non-standard pinwheel is the best effect i have seen so far! Great!
Antoni
Posts: 81
Threads: 0
Joined: Apr 2002
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
Posts: 2,020
Threads: 24
Joined: Jun 2002
well, after that non-standard pinwheel i give up
that 'seizure vision which is not seizure visions on slow computers' is pretty much a bunch of calculated crap thrown together
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 1,407
Threads: 117
Joined: Dec 2002
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:
Antoni
Posts: 720
Threads: 46
Joined: Oct 2001
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...
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*
|