SSA52


【機能】

    X,Y軸に平行な円の接線の情報を得る(2D)


【使用形式】

    CALL  SSA52(IDIR,XC,YC,R,XYT,IR)


【引数説明】

    [INPUT]
        IDIR      : 接線方向の指定フラグ
                     1 ; X軸に平行
                     2 ; Y軸に平行
        XC, YC    : 円の中心座標
        R         : 円の半径

    [OUTPUT]
        XYT(4, 2) : 接線情報テーブル
         ┼───────┼───────┼
         │XS1:YS1│XE1:YE1│ 接線1
         │XS2:YS2│XE2:YE2│ 接線2
         ┼───────┼───────┼
           ↓   ↓   ↓   ↓
            通過点1    通過点2

        IR         : リターンフラグ
                        2 ; 接線の数
                       -1 ; 入力エラー

【機能説明】

  ・IDIRにより指定された方向の円の接線の2通過点の座標を
   出力する。
  ・通過点1は円上の点とすること。