Draw3D

procedure Draw3D(

  img: TImage32;

  const polygon: TPathD;

  fillRule: TFillRule;

  height: Double;

  blurRadius: Double;

  colorLt: TColor32 = $DDFFFFFF;

  colorDk: TColor32 = $80000000;

  angleRads: Double = angle225

); overload;

procedure Draw3D(

  img: TImage32;

  const polygons: TPathsD;

  fillRule: TFillRule;

  height: Double;

  blurRadius: Double;

  colorLt: TColor32 = $DDFFFFFF;

  colorDk: TColor32 = $80000000;

  angleRads: Double = angle225

); overload;