Ok, this is my complete code (changed 3d objects and background so you don't need to download the files). When you run it just type 3numbers (2 numbers of 2digits and 1 number of 3digits) and press F2. Then you see the circles being created.
SYNC ON : SYNC RATE 60
AUTOCAM OFF : HIDE MOUSE
POSITION CAMERA 0,0,-300
make object box 1,300,200,50
position object 1,400,-100,0
make object cone 2,50
position object 2,-20,-175,100
make object box 3,screen width(),screen height(),0
color object 3,rgb(255,0,0)
position object 3,0,0,195
geluid as float=340.0
tw = text width("44") + 4 : th = text height("44") + 4
ink rgb(255,255,0),0
line 0,0,tw,0 : line tw,0,tw,th : line 0,0,0,th : line 0,th,tw,th
get image 1,0,0,tw + 1,th + 1
cls
tw2 = text width("444") + 4 : th2 = text height("444") + 4
ink rgb(255,255,0),0
line 0,0,tw2,0 : line tw2,0,tw2,th2 : line 0,0,0,th2 : line 0,th2,tw2,th2
get image 2,0,0,tw2 + 1,th2 + 1
cls
ink rgb(0,255,0),0
do
ax=object position x(1)-60 : ay=object position y(1)
bx=object position x(2) : by=object position y(2)
cx=-500 : cy=-100
hoek=findangleBAC(ax,ay,bx,by,cx,cy)
center text screen width()/2,10,"bewegende bron"
text 10,10,"snelheid ambulance: " +STR$((ambulance)*3.6,1) +"km/u = " +STR$(ambulance) +"m/s"
text 10,25,"snelheid persoon: " +STR$((persoon)*3.6,1) +"km/u = " +STR$(persoon) +"m/s"
text 10,40,"frequentie sirene: " +STR$(sirene) +"Hz"
text 10,55,"geluidsnelheid: " +STR$(geluid) +"m/s"
text 10,70,"hoek: "+str$(hoek)+"°"
if TotalLen=2 and start=0 then start=1
if TotalLen2=2 and start=1 then start=2
if TotalLen3=3 and start=2 then start=3
if start=3 then text 10,100,"bron in rust, golflengte: " +STR$(geluid/sirene,2) +"m"
if keystate(59)=1 && start=4
start=5
endif
if keystate(60)=1 && start=4
start=5 : wave=1
endif
if start=0 and TotalLen<2
text 10,202,"ambulance snelheid"
text 265,202,"m/s"
paste image 1,240,200
ink rgb(0,0,255),0
text 242,202,UserInput$
ink rgb(0,255,0),0
inp$ =""
if len(inkey$()) > 0 then inp$ = inkey$()
if inp$ >= "0" and inp$ <= "9" and TotalLen < 2 and keypress = 0
inc TotalLen
UserInput$ = UserInput$ + inp$
keypress = 1
endif
ambulance = val(userinput$)
endif
if start=1 and TotalLen2<2
text 10,202,"snelheid persoon"
text 265,202,"m/s"
paste image 1,240,200
ink rgb(0,0,255),0
text 242,202,UserInput2$
ink rgb(0,255,0),0
inp$ =""
if len(inkey$()) > 0 then inp$ = inkey$()
if inp$ >= "0" and inp$ <= "9" and TotalLen2 < 2 and keypress = 0
inc TotalLen2
UserInput2$ = UserInput2$ + inp$
keypress = 1
endif
persoon = val(userinput2$)
endif
if start=2 and TotalLen3<3
text 10,202,"frequentie sirene"
text 270,202,"Hz"
paste image 2,240,200
ink rgb(0,0,255),0
text 242,202,UserInput3$
ink rgb(0,255,0),0
inp$ =""
if len(inkey$()) > 0 then inp$ = inkey$()
if inp$ >= "0" and inp$ <= "9" and TotalLen3 < 3 and keypress = 0
inc TotalLen3
UserInput3$ = UserInput3$ + inp$
keypress = 1
endif
sirene = val(UserInput3$)
endif
if start=3 then start=4
if start=5
if wave=1
if object position x(1)=<235
circle 700,352,radius
radius= radius+1
if object position x(1)=<220
circle 675,352,radius1
radius1=radius1+1
endif
if object position x(1)=<205
circle 650,352,radius2
radius2=radius2+1
endif
if object position x(1)=<190
circle 625,352,radius3
radius3=radius3+1
endif
if object position x(1)=<175
circle 600,352,radius4
radius4=radius4+1
endif
if object position x(1)=<160
circle 575,352,radius5
radius5=radius5+1
endif
if object position x(1)=<145
circle 550,352,radius6
radius6=radius6+1
endif
if object position x(1)=<130
circle 525,352,radius7
radius7=radius7+1
endif
if object position x(1)=<115
circle 500,352,radius8
radius8=radius8+1
endif
if object position x(1)=<100
circle 475,352,radius9
radius9=radius9+1
endif
if object position x(1)=<85
circle 450,352,radius10
radius10=radius10+1
endif
if object position x(1)=<70
circle 425,352,radius11
radius11=radius11+1
endif
if object position x(1)=<55
circle 400,352,radius12
radius12=radius12+1
endif
if object position x(1)=<40
circle 375,352,radius13
radius13=radius13+1
endif
if object position x(1)=<25
circle 350,352,radius14
radius14=radius14+1
endif
if object position x(1)=<10
circle 325,352,radius15
radius15=radius15+1
endif
if object position x(1)=<-5
circle 300,352,radius16
radius16=radius16+1
endif
if object position x(1)=<-20
circle 275,352,radius17
radius17=radius17+1
endif
if object position x(1)=<-35
circle 250,352,radius18
radius18=radius18+1
endif
if object position x(1)=<-50
circle 225,352,radius19
radius19=radius19+1
endif
if object position x(1)=<-65
circle 200,352,radius20
radius20=radius20+1
endif
if object position x(1)=<-80
circle 175,352,radius21
radius21=radius21+1
endif
if object position x(1)=<-95
circle 150,352,radius22
radius22=radius22+1
endif
if object position x(1)=<-110
circle 125,352,radius23
radius23=radius23+1
endif
if object position x(1)=<-125
circle 100,352,radius24
radius24=radius24+1
endif
if object position x(1)=<-140
circle 75,352,radius25
radius25=radius25+1
endif
if object position x(1)=<-155
circle 50,352,radius26
radius26=radius26+1
endif
endif
move object left 1,0.2
else
move object left 1,1.5
endif
text 10,100,"bron in beweging, golflengte voor de ambulance: " +STR$((geluid-ambulance)/sirene,2) +"m"
text 154,115,"golflengte achter de ambulance: " +STR$((geluid+ambulance)/sirene,2) +"m"
text 154,130,"frequentie voor de ambulance: " +STR$(geluid/(geluid+ambulance)*sirene,2) +"Hz"
text 154,145,"frequentie achter de ambulance: " +STR$(geluid/(geluid-ambulance)*sirene,2) +"Hz"
text 10,170,"hoorbare frequentie: " +STR$(freq) +"Hz"
if hoek<90
freq = (geluid+persoon)/(geluid-cos(hoek)*ambulance)*sirene
endif
if hoek>90
freq = (geluid-persoon)/(geluid-cos(hoek)*ambulance)*sirene
endif
if hoek=90
freq = sirene
endif
endif
if object position x(1)<-400
TotalLen=0 : TotalLen2=0 : TotalLen3=0
UserInput$="" : UserInput2$="" : UserInput3$=""
radius=0 : radius1=0 : radius2=0 : radius3=0 : radius4=0 : radius5=0 : radius6=0 : radius7=0
radius8=0 : radius9=0 : radius10=0 : radius11=0 : radius12=0 : radius13=0 : radius14=0
radius15=0 : radius16=0 : radius17=0 : radius18=0 : radius19=0 : radius20=0 : radius21=0
radius22=0 : radius23=0 : radius24=0 : radius25=0 : radius26=0
wave=0 : start=0
position object 1,400,-100,0
position object 2,-20,-175,100 : rotate object 2,0,0,0 //: stop object 2
endif
if scancode() = 0 then keypress = 0
sync
loop
function findangleBAC(ax,ay,bx,by,cx,cy)
bearingAB=wrapvalue(atanfull(bx-ax,by-ay))
bearingAC=wrapvalue(atanfull(cx-ax,cy-ay))
angleBAC=abs(bearingAB-bearingAC)
endfunction angleBAC
Quote: "they move to the right on the video"
Just to make sure, the circles don't move their is just always a new circle created next the one before it.
