self clear: 101.
prev= 0, 0.
n = 1000.
start = Sys secs.
FOR(i : n) DO(
xy= i / 15 $ cos * 500 + 500,
i / 9 $ sin * 240 + 240.
self green color: i $ line: prev to: xy $ fontSize: 24 $ text: i str sw: xy.
prev= xy.
self post.
).
finish= Sys secs.
time= finish - start.
fps= n / time.
msg= (n, ' frames / ', time, 's = ', fps, ' fps') jam.
self white fontSize: 32 $ text: msg sw: (100,100). |