Doppler efect

#Doppler efect
fastgraphics

x=0

loop:

for b = 1 to 10

color white

rect 0,0,300,300

x=x+1

a=.5

for n = 1 to 255 step 5

a=a*-1+.5

color rgb(255-a*n,255-a*n,255-a*n)

circle x + (n-b)*.5-255,150,255-(n-b)

next n

refresh

clg

next b

goto loop

3D Bounce

graphsize 900,450

fastgraphics

vx=2

vy=3

vz=5

x=10

y=10

z=14

Loop:

color darkred

rect 0,0,900,450

color rgb(0,123,0)

poly{0,300,450,450,900,300,450,150}

color rgb(0,83,0)

poly{0,300,450,150,450,0,0,150}

color rgb(0,103,0)

poly{900,300,450,150,450,0,900,150}

color red

vz=vz-.05

x=x+vx

y=y+vy

z=z+vz

vz=vz-.05

h=(x+y)*cos(1/3)

v=300-(-x+y)*sin(1/3)

if x>465 then vx=-vx

if x<0 then vx=-vx

if y>465 then vy=-vy

if y<0 then vy=-vy

if z<0 then vz=-vz

color black

rect h,v,10,2

color red

circle h,v-z,10

refresh

clg

goto Loop

Golden Waves

graphsize 600,600

fastgraphics

for t=1 to 60 step .1

color darkred

rect 0,0,600,600

For y1 = 0 to 24

For x1 = 0 to 24

x=12*(24-x1)+12*y1

y=-6*(24-x1)+6*y1+300

d= ((10-x1)^2+(10-y1)^2)^.5

h=60*sin(x1/4+t)+65

if t>10 and t<20 then h=60*sin(y1/4+t)+65

if t>20 and t<30 then h=60*sin((x1-y1)/4+t)+65

if t>30 and t<40 then h=30*sin(x1/2+t)+30*sin(y1/2+t)+65

if t>40 and t<50 then h=60*sin((x1+y1)/4+t)+65

if t>50 and t<60 then h=60*sin(d*.3+t)+65

color rgb(100+h,100+h,h)

poly{x,y-h,x+10,y+5-h,x+20,y-h,x+10,y-5-h}

color rgb(60,60,0)

poly{x,y-h,x+10,y+5-h,x+10,y,x,y-5}

color rgb(150,150,0)

poly{x+10,y+5-h,x+10,y,x+20,y-5,x+20,y-h}

next x1

next y1

refresh

clg

next t

Flags

# By C
color orange
rect (50,250,20,50)
color darkblue
rect (50,50,1000,220)
color orange
rect (100,270,20,30)
color red
rect (0,0,1000,750)
color white
rect (0,110,1000,100)
color blue
rect(0,200,1000,750)
Pause 2
color orange
rect (50,250,20,50)
color darkblue
rect (50,50,1000,220)
color orange
rect (100,270,20,30)
color red
rect (0,0,1000,750)
color white
rect (0,110,1000,100)
color red
rect(0,200,1000,750)
pause 2
color white
rect (0,0,10000,10000)
color red
rect 135,0,25,1000
color red
rect 0,135,2500,25
Pause 2
color black
rect (0,0,1000,750)
color red
rect (0,110,1000,100)
color yellow
rect(0,200,1000,750)
Pause 2
color green
rect 0,0,100,1000
color white
rect 100,0,100,1000
color orange
rect 200,0,100,1000
Pause 2
color darkgreen
rect 0,0,100,300
color red
rect 100,0,200,300
color yellow
circle 100,150,50