CreatePerlinNoiseMap

function CreatePerlinNoiseMap(

  AWidth: Integer;

  AHeight: Integer;

  HorizontalPeriod: Single = 1;

  VerticalPeriod: Single = 1;

  Exponent: Double = 1;

  ResampleFilter: TResampleFilter = rfCosine

):TBGRABitmap;