For those of you with a pair of 3d glasses, try this demo:
10 GR.23:POKE 712,0:POKE 708,64:POKE 709,130:DIM C(21),S(21)
15 FOR I=0 TO 21:C(I)=COS(I*.3):S(I)=SIN(I*.3):NEXT I
22 TRAP 30:T=NOT T:COLOR T+1
25 FOR B=1 TO F:R=R+1:PLOT 79+R,47:F.I=0 TO 21:DR.R*C(I)+79,-R*S(I)+47
26 T=NOT T:COLOR T+1
27 NEXT I:NEXT B:F=F+1:GOTO 22
30 POKE 708,64:POKE 709,130:GOS.100
35 POKE 709,64:POKE 708,130:GOS.100:GOTO 30
100 FOR B=1 TO 228-PADDLE(1):NEXT B:RET.
This'll draw a dart-board like circle (sorta like a bent checker-board)
made of the best blue/red combo I could come up with for red/blue 3d
glasses. If you have a red/green, try adjusting the 130 to something
around 194, perhaps (maybe post the best green).
To adjust the speed, use paddle 2. If you don't have paddles (how dare
you!), just make the "228-PADDLE(1)" some number. Now put on the glasses
and just stare! Really hypnotic! If I used *, it might be even
BETTER!... but I'm not going to start for just a demo.!! ;)
Maybe one of you has had experience with bio-feedback. Now THAT'd be the
best! I more mellow you get, the slower the colors cycle!
The next post will have a somewhat shorter program that does a different
demo, but still for 3d glasses.
Just for fun, here's a quick run-down of this one:
line 10-set/screen and color and an array to capture some trig stuff (for
line 15-capture the trig stuff
line 20-set a couple-a variables (radius and F (why?, who knows!
probably has some strang meaning in the universe!).. F gets bigger to
make the dartboard effect, rather than just bars of light coming from the
line 22-trap and do the dartboard color set-up (one more color toggle)
line 25-uses B to go F times..makes the Radius bigger, draws a circle
line 26-toggles color
line 27-closes FOR loops and loops circle
lines 30-35-changes colors and gosubs the pause loop
line 100-pauses depending on paddle turn
later! Enjoy this demo! (probably still looks
good without the 3d glasses, so try it if you're really bored!)
| PhBill: Bill Kendrick Atari |
| 20 so miles North of 8-bits |
| San Francisco, in beautiful ROCK! |