Untitled

{.include SRL/SRL.scar}
var I : integer;
Procedure Offset(var x,y : integer; OffX, OffY : integer);
var tmpx : integer;
var iradians : extended;
begin
iradians := (I / 180) * pi;
tmpx := Round(OffX * cos(iradians) - OffY * sin(iradians)) + x;
y := Round(OffX * sin(iradians) + OffY * cos(iradians)) + y;
x := tmpx;
end;

begin
For I := 0 to 359 do
begin
X := 646;
Y := 84 ;
Offset(X, Y, 10, 10);
WriteLn( inttostr(x) + ',' + inttostr(y));
end;
end.