pr2d_Ellipse

var pr2d_Ellipse: procedure(

  X: Single;

  Y: Single;

  xRadius: Single;

  yRadius: Single;

  Color: LongWord = $FFFFFF;

  Alpha: Byte = 255;

  Quality: Word = 32;

  FX: LongWord = 0

);