Image noise: Difference between revisions
Content added Content deleted
(add RPL) |
(Added Easylang) |
||
Line 1,236: | Line 1,236: | ||
>noiseimg |
>noiseimg |
||
2.73544353263 |
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> |
</syntaxhighlight> |
||