Image noise: Difference between revisions
Added Easylang
(add RPL) |
(Added Easylang) |
||
Line 1,236:
>noiseimg
2.73544353263
</syntaxhighlight>
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=XZBNDoMgEIX3nuLFRdOmEUddVBb2IsaFoZiYVDFAGr19QSH9ISEM35uZB7NoJbAYabFigwADSwAI9VQawoeTekkn5qhY6VL203MthQWxyu+EJWpGP49Tb6UXB41rg8KH4wCzGTtOEhks4R54bF0QbnUAh21WhutuURNK+tX/6+uoW7la753j/O15wQkphsWkMY/QxFcF5Koa7H3iANrOkRZEBM45uv1fzn71ibAKVcFjscNbxAWP2K3PaF1D3c8PNaHsgs4OO5a8AQ== Run it]
<syntaxhighlight>
proc pset x y c . .
color c
move x / 3.2 y / 3.2
rect 0.3 0.3
.
on animate
fr += 1
if systime - t0 >= 1
move 10 78
color -2
rect 80 20
color -1
move 10 80
text 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 2]
.
.
.
</syntaxhighlight>
| |||