perlin noise prototyp #1

vyzkouset se to da takto:
````
./perlin > img.dat
````

a zobrazit v matlabu/gnuoctave
````
a = load('img.dat');

for i = 0:127 
    imshow(a(1+i*128:128+i*128,:));
    pause(0.1);
endfor
````