
open window 640,512
 
10
setdrawbuf curbuff
curbuff = 1 - curbuff
setdispbuf curbuff
clear window

res=10
vitagit=0.3

param1=res/20
param2=res/50

a=a+vitagit
b=b+vitagit

if zed<30 zed=zed+0.3

vaghb=zed
vaggd=zed

x=0+b
m=0
qz=0

for om2=150 to 350 step res
y=0+a
x=x+param1
q=vaghb*cos(x)
q2=vaghb*cos(x+param1)

for om=220 to 420 step res

m=m+0.5
y=y+param2
z=vaggd*cos(y)
z2=vaggd*cos(y+param2)

pk=((om2+z2)-(om2+z))*10

datas1=(om-320)+1
datas2=(om2-250)+1

if datas1<0 datas1=-datas1
if datas2<0 datas2=-datas2

nh=(datas1+datas2)*2

setrgb 1,50+pk-nh,150+pk-nh,250+pk-nh

fill triangle om+q,om2+z to om+res+q,om2+z2 to om+q2,om2+res+z
fill triangle om+res+q2,om2+res+z2 to om+res+q,om2+z2 to om+q2,om2+res+z

next 

next 

goto 10



