19 lines
351 B
Text
19 lines
351 B
Text
proc pset x y c .
|
|
gcolor c
|
|
grect x / 3.2 y / 3.2 0.3 0.3
|
|
.
|
|
on animate
|
|
fr += 1
|
|
if systime - t0 >= 1
|
|
gcolor -2
|
|
grect 10 78 80 20
|
|
gcolor -1
|
|
gtext 10 80 fr / (systime - t0) & " fps"
|
|
t0 = systime
|
|
fr = 0
|
|
.
|
|
col[] = [ 000 999 ]
|
|
for x = 0 to 319 : for y = 0 to 199
|
|
pset x y col[random 1 2]
|
|
.
|
|
.
|