Source position: XGR32_Bmp32Draw.pas line 37
procedure PaintSpiral(
Buffer: TBitmap32;
const Center: TPoint;
Radius: single;
Step: single;
const Args: array of TColor32
);