Oznámení

Sbalit
Aktuálně žádná oznámení.

Programy a programování

Sbalit
X
 
  • Filtr
  • Čas
  • Zobrazit
Vymazat vše
new posts

    Animace kruhu

    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

    #2
    Pro ty, kteri nechteji kody prepisovat, jsem to zkompiloval na spustitelnou ukazku:

    Zde je zakladni animace kruhu pomoci elipsy, tak jak si ji predstavuji:

    STAHNOUT

    Tady je pouze horizontalni posun teto animace:

    STAHNOUT

    A zde je konecne posun (viz kod) horizontalni v kombinaci s vertiklanim:

    STAHNOUT

    Protoze je smycka neomezena, kruhy vam zajedou za obrazovku a jedou do nekonecna, takze jsem udelal i pomocny okno (ktery se spusti soucasne a je mensi jako v DOSu), kterym ukoncite program normalne krizkem.

    Komentovat


      #3
      Nakonec jeste pridam nekolik tipu. Muzete si kruh nahodne vybarvit pomoci RND*x, to ovsem pouze na urovni mazani - pokud byste totiz vnitrek kreslili, odmazavani by delalo duchy. Mrknete na tento program, ktery jsem udelal jen tak, ze jsem doplnil mazani v prvni smycce RND*pi:

      STAHNOUT

      Komentovat

      Programy a programování

      O této skupině

      Tato skupina je určena všem, kdo mají rádi skutečné, poctivé strukturované programování, ne zplácávání aplikací pomocí předpřipravených kusů programů a jiných &quot;vývojářských&quot; nesmyslů. Preferuji Basic, na Amize zejména Amos Basic, vyjímečně jsem si oblíbil ale i FreeBasic a jsem i pro nějaké menší rutinky v assembleru.

      P.S. Jo, a fotka na ikonce je kousek mého vlastního Commodora
      Typ: Veřejná skupina
      Témat: 4
      Comments: 8

      Owner

      Členové (8)

      Group Categories

      Sbalit

      Latest Group Topics

      Sbalit

      Obsah nebyl nalezen.

      Zpracovávám...
      X