SSA81

【機能】

    2点を通って直線に接する円の情報を得る（2D）


【使用形式】

    CALL  SSA81(X1,Y1,X2,Y2,XS,YS,XE,YE,XYC,IR)


【引数説明】

    ［INPUT］
        X1, Y1       : 点1の座標
       X2, Y2       : 点2の座標
       XS, YS, XE, YE  : 直線の通過点の座標

    ［OUTPUT］
        XYC(5, 2)  : 接円情報テーブル
                   +-----+-----+-----+-----+-----+
                 1| XC1 | YC1 | RT1 | XT1 | YT1 |  接円1
                   +-----+-----+-----+-----+-----+
                 2| XC2 | YC2 | RT2 | XT2 | YT2 |  接円2
                   +-----+-----+-----+-----+-----+
                   接円の中心  半径  直線との接点

        IR      : リターンフラグ
                    0 ; 円が定義できない
                    1 ; 1円
                    2 ; 2円
                   -1 ; 入力エラー

【機能説明】

    ・2点を通って直線に接する円の中心座標、半径、直線との接点
   の座標を出力する。
    ・(X1, Y1)=(X2, Y2)または(XS, YS)=(XE, YE)の場合のみIR=-1を
      出力する。


【使用ルーチン】

    SSG40, SSA021, SSA20