screen 0,200,200
r1=30.0
r2=5
x0=100
y0=100
dim act,5
dim cou,5
newcou=0
repeat
redraw 0
color 40,25,180
boxf
if newcou<100{
if cnt2/20 <= 5 {
act(cnt2/20)=1
}
live=0
repeat 5
if act(cnt)==0{
continue
}
live=live+1 ; 丸を描いた回数をカウントする
if cou(cnt)<700 {
c=cos(deg2rad(cou(cnt)))
y=r1*c+y0
x=-r1*sin( deg2rad(cou(cnt)) )+x0
color 255,255,255
circle x-r2,y-r2,x+r2,y+r2,1
cou(cnt)=cou(cnt)+(c+2)*(c+2)
} else {
act(cnt)=0
cou(cnt)=0
}
loop
if live=0 : newcou=newcou+1
cnt2++
} else {
cnt2=0
newcou=0
}
redraw 1
await 10
loop
こんな感じかな
自分の作業フォルダにあったものをコピペ