Anonymous user
Bitmap/Histogram: Difference between revisions
Forth, histogram only
(Image histogram) |
(Forth, histogram only) |
||
Line 76:
Close (F2);
</ada>
=={{header|Forth}}==
: histogram ( array gmp -- )
over 256 cells erase
dup bdim * over bdata + swap bdata
do 1 over i c@ cells + +! loop drop ;
| |||