아날라고 시계와 비슷한데요.

360도를 특정갯수로 나눈 위치의 좌표값을 알아내고 싶어요

4개로 나눈다면 12시 3시 6시 9시 위치의 좌표가 되겠네요

더 많아 질수도 있고요.

여기저기 뒤져서 아날로그 시계소스를 찾아서 해보고 있는데 이해력이 부족해서요 답변 부탁드릴께요
procedure TfrmMain.MakeCoordData;
var
  iCnt: Integer;
  nInterval: real;
  nRadius: Integer;
  x,  y       : integer;
  v: real;
begin
  //전체 발신번호의 갯수를 찾는다.
  SendNumCnt := grdSend.RowCount - 1;

  nRadius := 100;

  nInterval := 360 div SendNumCnt;

  for iCnt := 0 to SendNumCnt - 1 do
  begin

     v := iCnt * nInterval;
     x := Round(nRadius + 100 * cos(v));
     y := Round(nRadius + 100 * sin(v));

    grdSend.Cells[2, iCnt + 1] := intTostr(x);
    grdSend.Cells[3, iCnt + 1] := intTostr(y);
  end;

end;