Source position: tpa.pas line 39
procedure RAaSTPAEx(
var a: TPointArray;
const w: Integer;
const h: Integer
);