Creepy

[bikemadness]

some old northern lights trials - couldn't stick with it.

Code: [Select]

open window 640,512
e=30
d=6*e+(e/4)
s=.25
bar=640
dim x(bar),y(bar),h(bar)
dim r(bar),g(bar),b(bar)
for a=1 to bar
x(a)=a
y(a)=400
h(a)=sin(a/e)*50
r(a)=int(ran(256))
g(a)=int(ran(256))
b(a)=int(ran(256))
next a
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
e=e+s
if e<25 or e>35 s=-s
b=b+1
if b>d b=1
for a=1 to bar
h(a)=sin((a+b)/e)*50
setrgb 1,r(a),g(a),b(a)
line x(a),h(a)+(y(a)-200) to x(a),h(a)+(y(a)-100)
next a
until (1=0)

looks a lot better on an LCD screen...

[rain_storm]

This would be a nice effect to include in a psychadelic demo