'By Fryer - Please Upload.
'an experiment with an unseen light swinging back
'and forth

open window 640,512
window origin "CC"
dim sn(360)
for i=0 to 360
sn(i)=sin(i/180*pi)
next i
dim b(100),sx(100),sy(100),x(100),z(100)
dim r(100),g(100),b(100)
y=-150
for i=0 to 99
x=mod(i,10)
z=(i-x)/10*50+400
x=x*50-225
d=640/sqrt(x*x+y*y+z*z)
sx(i)=x*d
sy(i)=-y*d
x(i)=x
z(i)=z
r(i)=ran(255)
g(i)=ran(255)
b(i)=ran(255)
next i
lx=0:lz=700
repeat
a=mod(a+4,360)
lx=200*sn(a)
setdispbuf s
s=1-s
setdrawbuf s
clear window
for i=0 to 99
  dx=lx-x(i)
  dz=lz-z(i)
'  d=sqrt(dx*dx+dz*dz+22500)
'  d=d-sqrt(dx*dx+dz*dz+22201)

  d=sqrt(dx*dx+dz*dz+2500)
  d=d-sqrt(dx*dx+dz*dz+2401)

  b(i)=d
next i
for q=0 to 88
if mod(q,10)=9 goto nd
i=q+10
j=q+1
k=q+11
b=b(q)
setrgb 1,r(q)*b,g(q)*b,b(q)*b
b=b(i)
setrgb 2,r(i)*b,g(i)*b,b(i)*b
b=b(j)
setrgb 3,r(j)*b,g(j)*b,b(j)*b
xi=sx(i)
yi=sy(i)
xj=sx(j)
yj=sy(j)
gtriangle sx(q),sy(q) to xi,yi to xj,yj
b=b(k)
setrgb 1,r(k)*b,g(k)*b,b(k)*b
gtriangle sx(k),sy(k) to xi,yi to xj,yj
label nd
next q
until(0=1)






