Thrive - 256 bytes intro for Tic-80 fantasy console by Ilmenit/Agenda

Поделиться
HTML-код
  • Опубликовано: 11 сен 2024
  • What will grow out of a tiny seed?
    www.pouet.net/...
    The whole source code in the LUA language:
    function b(x,y,a,l)
    for i=0,l do
    j=y+i*s(a)+3*s(i/9)*s(a-8) k=x+i*s(a-8)-3*s(i/9)*s(a)
    circ(k, j+s(i)*m(t-633,4)*m(1133-t,1), m(t-633-i,1), 3*s(i/9)-m(t/36,36))
    n=l-i
    rect(k,j,n/33,n/33,0) rect(k,j,n/33,m(t-1633-i,1),-m(t-1633-i,133)/33)
    if i%14==9 then b(k,j,a+s(i)+s(t/33)/33,n-33) end
    end
    end
    function TIC()
    t=time()/46
    for i=0,32639 do
    poke4(i,63-i/3333+i*s(i)%1) pix(i%333,t-2433+i*s(i*i)/33,12)
    end
    b(123,123,5,m(t,263))
    end
    s=math.sin m=math.min

Комментарии • 9

  • @sirfred2678
    @sirfred2678 2 года назад +4

    WOW! :) Tylko 256 bajtów i taki śliczny efekt! Cudo!

  • @thenoblerot
    @thenoblerot Год назад +1

    This is sorcery

  • @atariretrofan
    @atariretrofan 2 года назад +3

    Niesamowite !!!
    Jak tyle co się dzieje na ekranie można upchać w 256 bajtów???
    Szok i szacun :)))
    Szkoda ze to nie na Atari :)))

    • @ilmenit
      @ilmenit  2 года назад +2

      Dzięki! Następnym razem ;-)

    • @atariretrofan
      @atariretrofan 2 года назад +1

      @@ilmenit identyczne na Atari i jestem w niebie:)))

  • @sebastianpawlak
    @sebastianpawlak 2 года назад

    To intro to opowieść o narodzinach, o przemijaniu. Niesamowita rzecz.

  • @customsongmaker
    @customsongmaker 2 года назад

    Amazing!

  • @werre2
    @werre2 2 года назад +2

    Impossible

  • @skybuck2000
    @skybuck2000 2 года назад

    Wow, I don't believe this, how this work, re-write this in pascal or turbo pascal ! =D or better yet Delphi !