%
%  createImage erzeugt ein RGB-Bild mit 255 Zeilen und 255 Spalten, 
%    also mit exakt 255x255 Pixeln, wobei der Rot-Wert eines Pixels P(z,s) 
%    ...
%
function createImage2()      

   % Array vorbelegen, bringt Geschwindigkeitsvorteil
   A( 1:255, 1:255, 1:3 ) = 0;
   
   % alle Zeilen und Spalten definieren 
   for( z=1:255 )          
      for( s=1:255 )
         r = uint8( 2 * sqrt( (128-z)^2 + (128-s)^2 ) ); 
         A(z,s,1) = r;     % Rot-Wert
         A(z,s,2) = uint8( 2* abs(s - z) ) ;    
         A(z,s,3) = uint8( (s + z) / 2);  
      end
   end
   % Daten in uint8 wandeln, zur Sicherheit 
   A = uint8(A);
   
   % Bild anzeigen
   image( uint8(A) );      
   axis image;      
   