A=825
B=1
dim A(A),B(A),C(A),D(A),E(A),F(A),G(A),H(A)
open window 400,400

for a=1 to 25
for b=1 to 33
A(B)=(b-16.5)*4
B(B)=(a-12.5)*4
M=255
H(B)=M
if a>9 and a<16 or b>7 and b<14 M=0
F(B)=M
G(B)=M
B=B+1
next b
next a

label l
for a=1 to A
C=C+.0142
D=C+a*.188
E(a)=(cos(D/100)*20)*sin(D)+95
N=350/E(a)
C(a)=320+A(a)*N
D(a)=256+B(a)*N
next a

B=1
setdispbuf E
E=1-E
setdrawbuf E
clear window
for a=1 to 24
for b=1 to 32
F=E(B)*2.1
G=F(B)-F
H=G(B)-F
I=H(B)-F
J=B+1
K=B+33
L=K+1
setrgb 1,G,H,255-F
fill triangle C(B),D(B) TO C(J),D(J) TO C(K),D(K)
fill triangle C(L),D(L) TO C(J),D(J) TO C(K),D(L)
B=B+1
next b
B=B+1
next a
goto l

