DrawShadow

procedure DrawShadow(

  img: TImage32;

  const polygon: TPathD;

  fillRule: TFillRule;

  depth: Double;

  angleRads: Double = angle45;

  color: TColor32 = $80000000;

  cutoutInsideShadow: Boolean = False

); overload;

procedure DrawShadow(

  img: TImage32;

  const polygons: TPathsD;

  fillRule: TFillRule;

  depth: Double;

  angleRads: Double = angle45;

  color: TColor32 = $80000000;

  cutoutInsideShadow: Boolean = False

); overload;