Generate a random black and white   320x240   image continuously,
showing FPS (frames per second).



A sample image
 


with Lumen.Image;
 
package Noise is
 
   function Create_Image (Width, Height : Natural) return Lumen.Image.Descriptor;
 
end Noise;