141         di:= df * y div height;

   141         di:= df * y div height;

   142         for x:= 0 to pred(width) do

   142         for x:= 0 to pred(width) do

   143         begin

   143         begin

   144             dj:= df * x div width;

   144             dj:= df * x div width;

   145 

   145 

   147 

   147 

   148             //r:= (abs(inoise(di, dj))) shr 8 and $ff;

   148             //r:= (abs(inoise(di, dj))) shr 8 and $ff;

   149             if (x < margin) or (x > width - margin) then r:= r - abs(x - width div 2) + width div 2 - margin; // fade on edges

   149             if (x < margin) or (x > width - margin) then r:= r - abs(x - width div 2) + width div 2 - margin; // fade on edges

   150 

   150 

   151             r:= r - (height - y) div 32;

   151             r:= r - (height - y) div 32;