SSA61

【機能】

    半径を指定して、点と直線に接する円の情報を得る（2D）


【使用形式】

    CALL  SSA61(X,Y,XS,YS,XE,YE,XYC,IR)


【引数説明】

    ［INPUT］
        X, Y           : 点の座標
        XS, YS, XE, YE : 直線の通過点の座標
        R              : 指定半径

    ［OUTPUT］
        XYC(4, 2)  : 接円情報テーブル
　　　　　　　　　┼───┼───┼───┼───┼
　　　　　　　　　│ＸＣ１│ＹＣ１│Ｘｔ１│Ｙｔ１│ 接円1
　　　　　　　　　┼───┼───┼───┼───┼
　　　　　　　　　│ＸＣ２│ＹＣ２│Ｘｔ１│Ｙｔ１│ 接円2
　　　　　　　　　┼───┼───┼───┼───┼
　　　　　　　　　　　↓　　　↓　　　↓　　　↓
　　　　　　　　　　　接円の中心　　　直線との接点
　　　　　　　　
        IR             : リターンフラグ
                           0 ; 円は存在しない
                           1 ; 1円が存在する
                           2 ; 2円が存在する
                          -1 ; 入力エラー


【機能説明】

  ・半径を指定して1点を通り、1直線に接する円の中心座標及び
  　直線との接点座標を出力する。
  ・(XS, YS)=(XE, YE)の場合のみIR=-1を出力する。


【使用ルーチン】

    SSG40, SSA021