Wydaje mi się, że można przyjąć minimalny czas, jaki udało się uzyskać przy uruchomieniu programów, bo przecież nie synchronizujemy się z początkiem ramki więc start programu może wypaść równie dobrze na końcu i wynik jest wtedy zafałszowany o 1 w górę.

Edit: @seban: Fantastyczny pomysł z CLS!

Edit 2: Chociaż może właściwie uśrednienie jest sensowniejsze.

przyznaje się bez bicia że bardzo pobieżnie przeczytałem post cobol80, dopiero potem doczytałem że mamy nie publikować kodu ... (no i potem doczytałem że wyniki mają być z TIME a nie TIME$, stąd moje brednio-wywody o zbyt małej precyzyjności TIME$) ... no ale wtedy to mleko się rozlało już... poza tym nie traktuję tego jako rywalizację czy konkurs, ale jako fajną zabawę :)

no czyta, czyta... (tu moja wina jest niezaprzeczalna, chociaż było napisane "nie trzeba przedstawiać", co nie oznacza iż było to zabronione :P) ale praca zespołowa też jest fajna :) skoro kod się zrobił open-source to teraz społeczność ma szansę wycisnąć z niego ostatnie soki :)

ubiegł mnie, no ;)

Na marginesie - właśnie zauważyłem, że program TDCa zerował zegar po GRAPHICS 24.

coś specjalnie dla PIN-a... 6 klatek... 66 linii.... ;-)

10 GRAPHICS 24:POKE 559,%0:PAUSE %0:PRV=TIME
11 POKE 41296,255:MOVE 41296,41297,7679:CLS #6
12 LN=PEEK(54283):DLT=TIME-PRV:? DLT;"FRAMES",LN*%2;" LINES"

btw. -MOVE jest wolniejsze.... 6 ramek 100 linii używając -MOVE.

z włączonym ekranem 8 ramek, 134 linie. TBXL zabija to że wszystko właściwie dzieje się na liczbach FP. Ja i tak się dziwię ze z tyloma wywołaniami procedur z pakietu FP wychodzi wolniej tylko o dwie ramki jedną ramkę. (przy włączonym ekranie).

Dodajmy - że Action! działa po kompilacji. Trzeba jakiś lepszy test wymyśleć, bo sama zamiana z jednego koloru na drugi jest za łatwa, jak widać. Poniżej wyniku sebana będzie ciężko zejść.  Może by tak rysować koła od środka ekranu na zewnątrz i potem wymazywać kolorem tła. O, coś takiego (najmniej optymalnie jak można):

0 PAUSE %0:DPOKE 19,%0:GRAPHICS 24
1 COLOR %1:FOR I=%1 TO 96 STEP %2:CIRC
LE 159,96,I:NEXT I
2 COLOR %0:FOR I=%1 TO 96 STEP %2:CIRC
LE 159,96,I:NEXT I
3 ? TIME

Wynik: 1513 przed kompilacją, co ciekawe 1538 po kompilacji i zlinkowaniu ;) Da się sporo zejść z tego, a widać, co się dzieje na ekranie ;) Działajmy na włączonym ekranie. Po wyłączeniu ekranu na wersji niekompilowanej 1413, kompilowanej nie chciało mi się sprawdzać.