I suppose you can do this with Canvas2D of BGRABitmap:
procedure rotate(angleRad: single);
procedure translate(x,y: single);
procedure strokeStyle(color: TColor); overload;
procedure beginPath;
procedure moveTo(x,y: single); overload;
procedure lineTo(x,y: single); overload;
procedure stroke;
To advance you can do: beginPath; moveTo(0,0); translate(1,0); lineTo(0,0); stroke;
To turn: rotate(10*Pi/180)
To change color: strokeStyle(...)