Pokusil jsem se udelat takovou malou animaci kruhu, zalozenou na vypoctu elipsy. Treba to nekdo oceni nebo treba i rozvede (Je to kod na FreeBasicu, upravit si to do jinyho Basicu je jiz jednoduche.)
Kruh se plynule pohybuje sikmo dolu, otaci se jako prstynek nez zajede za obrazovku...
dim shared as single a,b,x,y,i
const pi as double=4*atn(1)
screen 20,32,,0
cls
a=50
b=10
x=500
y=300
zacatek:
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(100,100,150)
next i
sleep 10
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(0,0,0)
next i
b+=1
if b>50 then goto dalsi
x+=1
goto zacatek
dalsi:
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(100,100,150)
next i
sleep 10
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(0,0,0)
next i
b-=1
if b<0 then goto zacatek
x+=1
y+=1
goto dalsi
sleep
end
Kruh se plynule pohybuje sikmo dolu, otaci se jako prstynek nez zajede za obrazovku...
dim shared as single a,b,x,y,i
const pi as double=4*atn(1)
screen 20,32,,0
cls
a=50
b=10
x=500
y=300
zacatek:
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(100,100,150)
next i
sleep 10
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(0,0,0)
next i
b+=1
if b>50 then goto dalsi
x+=1
goto zacatek
dalsi:
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(100,100,150)
next i
sleep 10
for i=0 to 2*pi step .01
pset (a*cos(i)+x,b*sin(i)+y),rgb(0,0,0)
next i
b-=1
if b<0 then goto zacatek
x+=1
y+=1
goto dalsi
sleep
end
Komentovat